10 REM Sideways Ram Menu
   20 REM (C) 1993 Jon Ripley
   30 REM This program is NOT PD
   40 REM You may alter this program for your own purposes
   50 REM The Copyright remains mine at all times
   60 DEFFNS="Robert"
   70 MODE 7
   80 DIM code% &1000
   90 FORX=1TO2:PRINTTAB(1,X)CHR$141;CHR$(126+2*X)"SWRom Generator (C) Jon Ripley":NEXT
  100 VDU28,0,24,39,4
  110 buffer=&700
  120 tempA=&90
  130 tempX=&91
  140 tempY=&92
  150 add=&93:REM -5
  160 temp=&96
  170 temp2=&98
  180 FORpass=4TO7STEP3
  190 P%=&8000:O%=code%
  200 [OPTpass
  210 JMP language
  220 JMP service
  230 EQUB &C2
  240 EQUB offset MOD 256
  250 EQUB 1
  260 .title
  270 EQUS "Robert+"
  280 BRK
  290 .version
  300 EQUS " 1.00"
  310 BRK
  320 .offset
  330 BRK
  340 EQUS "(C) Jon Ripley"
  350 BRK
  360 .service
  370 STA tempA
  380 STX tempX
  390 STY tempY
  400 CMP #9
  410 BEQ help
  420 CMP #3
  430 BEQ boot
  440 CMP #4
  450 BEQ notrecognised
  460 JMP restore
  470 .notrecognised
  480 JMP unrecognised
  490 .boot
  500 JMP bootROM
  510 .help
  520 LDA (&F2),Y
  530 CMP #13
  540 BNE check
  550 JSR justhelp
  560 LDX #255
  570 .details
  580 INX
  590 LDA command,X
  600 BEQ donecommand
  610 JSR &FFE3
  620 JMP details
  630 .donecommand
  640 JSR &FFE7
  650 JMP restore
  660 .check
  670 LDX #255
  680 DEY
  690 .again
  700 INX
  710 INY
  720 LDA (&F2),Y
  730 AND #&DF
  740 CMP com,X
  750 BEQ again
  760 LDA com,X
  770 CMP #&FE
  780 BEQ mine
  790 .restore
  800 LDA tempA
  810 LDX tempX
  820 LDY tempY
  830 .nothelp
  840 RTS
  850 .justhelp
  860 JSR &FFE7
  870 LDX #&FF
  880 JSR helploop
  890 JSR helploop
  900 JMP &FFE7
  910 .helploop
  920 INX
  930 LDA title,X
  940 BEQ done
  950 JSR &FFE3
  960 JMP helploop
  970 .done
  980 RTS
  990 .mine
 1000 JSR justhelp
 1010 JSR print
 1020 EQUB 14
 1030 EQUS "  Back      Reverse text"
 1040 EQUB 13
 1050 EQUS "  Beep      Beeps"
 1060 EQUB 13
 1070 EQUS "  Double    Double height text"
 1080 EQUB 13
 1090 BRK
 1100 JSR print
 1110 EQUS "  Echo      Print a text string"
 1120 EQUB 13
 1130 EQUS "  Home      Home text cursor"
 1140 EQUB 13
 1150 BRK
 1160 JSR print
 1170 EQUS "  Shell     Command Shell"
 1180 EQUB 13
 1190 EQUS "  Small     Small text"
 1200 EQUB 13
 1210 EQUS "  Type      Type on all FSs"
 1220 EQUB 13
 1230 BRK
 1240 JSR print
 1250 EQUS "  C+BREAK   Load a game"
 1260 EQUB 13
 1270 EQUS "  S+BREAK   Command Shell"
 1280 EQUB 13
 1290 EQUB 15
 1300 BRK
 1310 RTS
 1320 .alldone
 1330 LDA tempA
 1340 LDX tempX
 1350 LDY tempY
 1360 LDA #0
 1370 RTS
 1380 .com
 1390 EQUS "ROBERT"
 1400 EQUB &FE
 1410 .command
 1420 EQUS "  Robert"
 1430 BRK
 1440 .tsonbrk
 1450 LDX #&FF
 1460 .tslp
 1470 INX
 1480 LDA title,X
 1490 JSR &FFE3
 1500 BNE tslp
 1510 JSR &FFE7
 1520 JSR &FFE7
 1530 JMP alldone
 1540 .startlang
 1550 .cSHELL
 1560 LDA #&8E
 1570 LDX &F4
 1580 JSR &FFF4
 1590 \ No return!!!
 1600 .bootROM
 1610 JSR printhead \ tsonbrk
 1620   LDA #13
 1630   JSR &FFE3
 1640 LDA #202
 1650 LDX #168
 1660 LDY #0
 1670 JSR &FFF4
 1680 LDA #&7A
 1690 JSR &FFF4
 1700 STX temp
 1710 LDA #21
 1720 LDX #0
 1730 JSR &FFF4
 1740 LDX temp
 1750 CPX #&52
 1760 BEQ bootchain
 1770 CPX #&51
 1780 BEQ startlang
 1790 JMP restore
 1800 .bootchain
 1810 LDA #11
 1820 JSR &FFEE
 1830 LDA #21
 1840 JSR &FFEE
 1850 LDA #140
 1860 JSR &FFF4
 1870 LDA #&8A
 1880 LDX #0
 1890 LDY #42
 1900 JSR &FFF4
 1910 LDY #ASC"B"
 1920 JSR &FFF4
 1930 LDY #ASC"A"
 1940 JSR &FFF4
 1950 LDY #ASC"."
 1960 JSR &FFF4
 1970 LDY #13
 1980 JSR &FFF4
 1990 LDA #&8A
 2000 LDX #0
 2010 LDY #ASC"C"
 2020 JSR &FFF4
 2030 LDY #ASC"H"
 2040 JSR &FFF4
 2050 LDY #ASC"."
 2060 JSR &FFF4
 2070 LDY #34
 2080 JSR &FFF4
 2090 LDY #34
 2100 JSR &FFF4
 2110 LDY #6
 2120 JSR &FFF4
 2130 LDY #13
 2140 JSR &FFF4
 2150 JMP alldone
 2160 .printhead
 2170 LDA #64
 2180 JSR vdu2
 2190 EQUB 22
 2200 EQUB 7
 2210 EQUB 31
 2220 EQUB 4
 2230 EQUB 1
 2240 EQUB 154
 2250 EQUB 145
 2260 EQUB 255
 2270 EQUB 175
 2280 EQUB 252
 2290 EQUB 32
 2300 EQUB 255
 2310 EQUB 175
 2320 EQUB 255
 2330 EQUB 32
 2340 EQUB 255
 2350 EQUB 175
 2360 EQUB 252
 2370 EQUB 32
 2380 EQUB 255
 2390 EQUB 175
 2400 EQUB 175
 2410 EQUB 32
 2420 EQUB 255
 2430 EQUB 175
 2440 EQUB 252
 2450 EQUB 32
 2460 EQUB 175
 2470 EQUB 255
 2480 EQUB 175
 2490 EQUB 32
 2500 EQUB 239
 2510 EQUB 32
 2520 EQUB 255
 2530 EQUB 175
 2540 EQUB 175
 2550 EQUB 153
 2560 EQUB 31
 2570 EQUB 4
 2580 EQUB 2
 2590 EQUB 154
 2600 EQUB 146
 2610 EQUB 255
 2620 EQUB 252
 2630 EQUB 163
 2640 EQUB 32
 2650 EQUB 255
 2660 EQUB 32
 2670 EQUB 255
 2680 EQUB 32
 2690 EQUB 255
 2700 EQUB 252
 2710 EQUB 243
 2720 EQUB 32
 2730 EQUB 255
 2740 EQUB 172
 2750 EQUB 144
 2760 EQUB 32
 2770 EQUB 255
 2780 EQUB 252
 2790 EQUB 163
 2800 EQUB 32
 2810 EQUB 32
 2820 EQUB 255
 2830 EQUB 32
 2840 EQUB 32
 2850 EQUB 163
 2860 EQUB 32
 2870 EQUB 255
 2880 EQUB 252
 2890 EQUB 252
 2900 EQUB 153
 2910 EQUB 31
 2920 EQUB 4
 2930 EQUB 3
 2940 EQUB 154
 2950 EQUB 147
 2960 EQUB 255
 2970 EQUB 32
 2980 EQUB 255
 2990 EQUB 32
 3000 EQUB 255
 3010 EQUB 252
 3020 EQUB 255
 3030 EQUB 32
 3040 EQUB 255
 3050 EQUB 252
 3060 EQUB 175
 3070 EQUB 32
 3080 EQUB 255
 3090 EQUB 252
 3100 EQUB 252
 3110 EQUB 32
 3120 EQUB 255
 3130 EQUB 32
 3140 EQUB 255
 3150 EQUB 32
 3160 EQUB 32
 3170 EQUB 255
 3180 EQUB 32
 3190 EQUB 32
 3200 EQUB 32
 3210 EQUB 32
 3220 EQUB 252
 3230 EQUB 252
 3240 EQUB 255
 3250 EQUB 153
 3260 EQUB 31
 3270 EQUB 3
 3280 EQUB 5
 3290 EQUB 154
 3300 EQUB 148
 3310 EQUB 255
 3320 EQUB 175
 3330 EQUB 175
 3340 EQUB 32
 3350 EQUB 255
 3360 EQUB 175
 3370 EQUB 255
 3380 EQUB 32
 3390 EQUB 255
 3400 EQUB 240
 3410 EQUB 255
 3420 EQUB 32
 3430 EQUB 255
 3440 EQUB 175
 3450 EQUB 255
 3460 EQUB 32
 3470 EQUB 255
 3480 EQUB 32
 3490 EQUB 255
 3500 EQUB 32
 3510 EQUB 175
 3520 EQUB 255
 3530 EQUB 175
 3540 EQUB 32
 3550 EQUB 255
 3560 EQUB 175
 3570 EQUB 175
 3580 EQUB 32
 3590 EQUB 255
 3600 EQUB 175
 3610 EQUB 252
 3620 EQUB 153
 3630 EQUB 31
 3640 EQUB 3
 3650 EQUB 6
 3660 EQUB 154
 3670 EQUB 149
 3680 EQUB 255
 3690 EQUB 32
 3700 EQUB 32
 3710 EQUB 32
 3720 EQUB 255
 3730 EQUB 32
 3740 EQUB 255
 3750 EQUB 32
 3760 EQUB 181
 3770 EQUB 255
 3780 EQUB 234
 3790 EQUB 32
 3800 EQUB 255
 3810 EQUB 252
 3820 EQUB 255
 3830 EQUB 32
 3840 EQUB 255
 3850 EQUB 32
 3860 EQUB 255
 3870 EQUB 32
 3880 EQUB 32
 3890 EQUB 255
 3900 EQUB 32
 3910 EQUB 32
 3920 EQUB 255
 3930 EQUB 172
 3940 EQUB 164
 3950 EQUB 32
 3960 EQUB 255
 3970 EQUB 252
 3980 EQUB 163
 3990 EQUB 153
 4000 EQUB 31
 4010 EQUB 3
 4020 EQUB 7
 4030 EQUB 154
 4040 EQUB 150
 4050 EQUB 255
 4060 EQUB 252
 4070 EQUB 252
 4080 EQUB 32
 4090 EQUB 255
 4100 EQUB 252
 4110 EQUB 255
 4120 EQUB 32
 4130 EQUB 181
 4140 EQUB 32
 4150 EQUB 234
 4160 EQUB 32
 4170 EQUB 255
 4180 EQUB 32
 4190 EQUB 32
 4200 EQUB 32
 4210 EQUB 255
 4220 EQUB 252
 4230 EQUB 255
 4240 EQUB 32
 4250 EQUB 32
 4260 EQUB 255
 4270 EQUB 32
 4280 EQUB 32
 4290 EQUB 255
 4300 EQUB 252
 4310 EQUB 252
 4320 EQUB 32
 4330 EQUB 255
 4340 EQUB 32
 4350 EQUB 255
 4360 EQUB 153
 4370 EQUB 64
 4380 RTS
 4390 .window
 4400 LDA #64
 4410 JSR print2
 4420 EQUB 28
 4430 EQUB 0
 4440 EQUB 24
 4450 EQUB 39
 4460 EQUB 9
 4470 EQUB 64
 4480 RTS
 4490 .mmain
 4500 JSR vdu
 4510 EQUB 12
 4520 EQUB 31
 4530 EQUB 5
 4540 EQUB 1
 4550 EQUB 131
 4560 EQUB 11
 4570 EQUB 8
 4580 EQUB 130
 4590 BRK
 4600 JSR printdbl
 4610 EQUS "Do you want to either..."
 4620 BRK
 4630 JSR vdu
 4640 EQUB 31
 4650 EQUB 6
 4660 EQUB 4
 4670 EQUB 133
 4680 EQUB 11
 4690 EQUB 8
 4700 EQUB 129
 4710 BRK
 4720 JSR printdbl
 4730 EQUS "1) Load a game,"
 4740 BRK
 4750 JSR vdu
 4760 EQUB 31
 4770 EQUB 6
 4780 EQUB 7
 4790 EQUB 134
 4800 EQUB 11
 4810 EQUB 8
 4820 EQUB 132
 4830 BRK
 4840 JSR printdbl
 4850 EQUS "2) Use BASIC or,"
 4860 BRK
 4870 JSR vdu
 4880 EQUB 31
 4890 EQUB 6
 4900 EQUB 10
 4910 EQUB 131
 4920 EQUB 11
 4930 EQUB 8
 4940 EQUB 132
 4950 BRK
 4960 JSR printdbl
 4970 EQUS "3) Use * commands."
 4980 BRK
 4990 JSR vdu
 5000 EQUB 31
 5010 EQUB 6
 5020 EQUB 13
 5030 EQUB 130
 5040 EQUB 11
 5050 EQUB 8
 5060 EQUB 129
 5070 BRK
 5080 JSR printdbl
 5090 EQUS "Press (1-3) and RETURN:"
 5100 BRK
 5110 RTS
 5120 .language
 5130 LDA #error DIV 256
 5140 STA &203
 5150 LDA #error MOD 256
 5160 STA &202
 5170 .langstackset
 5180 LDX #255
 5190 TXS
 5200 CLI
 5210 JSR fx2001
 5220 JSR printhead
 5230 JSR window
 5240 JSR mmain
 5250 LDA #255
 5260 .mmloop
 5270 STA tempA
 5280 JSR &FFE0
 5290 TAX
 5300 LDA #31
 5310 JSR &FFEE
 5320 LDA #31
 5330 JSR &FFEE
 5340 LDA #12
 5350 JSR &FFEE
 5360 TXA
 5370 JSR &FFEE
 5380 LDA #8
 5390 JSR &FFEE
 5400 LDA #10
 5410 JSR &FFEE
 5420 TXA
 5430 JSR &FFEE
 5440 CMP #42
 5450 BEQ cli
 5460 CMP #13
 5470 BNE mmloop
 5480 LDA tempA
 5490 CMP #49
 5500 BEQ loadgame
 5510 CMP #50
 5520 BEQ doBASIC
 5530 CMP #51
 5540 BEQ cli
 5550 CMP #42
 5560 BEQ cli
 5570 JMP mmloop
 5580 .doBASIC
 5590 LDA #12
 5600 JSR &FFEE
 5610 LDA #187
 5620 JSR &FFF4
 5630 LDA #142
 5640 JMP &FFF4
 5650 .loadgame
 5660 LDA #12
 5670 JSR &FFEE
 5680 JSR fx2000
 5690 JMP bootchain \JSR
 5700 JMP doBASIC
 5710 .fx2001
 5720 LDA #200
 5730 LDX #1
 5740 JMP &FFF4
 5750 .fx2000
 5760 LDA #200
 5770 LDX #0
 5780 JMP &FFF4
 5790 .cli
 5800 LDA #12
 5810 JSR &FFEE
 5820 JSR fx2000
 5830 .stackset
 5840 LDX #255
 5850 TXS
 5860 CLI
 5870 .shellloop
 5880 LDA #42
 5890 STA buffer
 5900 JSR &FFEE
 5910 LDX #shellblk MOD 256
 5920 LDY #shellblk DIV 256
 5930 LDA #0
 5940 JSR &FFF1
 5950 BCS escape
 5960 LDX #buffer MOD 256
 5970 LDY #buffer DIV 256
 5980 JSR &FFF7
 5990 JMP shellloop
 6000 .shellblk
 6010 EQUW buffer+1
 6020 EQUB 255
 6030 EQUB 32
 6040 EQUB 127
 6050 .escape
 6060 LDA #126
 6070 JSR &FFF4
 6080 BRK
 6090 EQUB 27
 6100 EQUS "Escape"
 6110 BRK
 6120 .error
 6130 LDY #1
 6140 JSR &FFE7
 6150 .errloop
 6160 LDA (&FD),Y
 6170 BEQ enderr
 6180 JSR &FFEE
 6190 INY
 6200 BNE errloop
 6210 .enderr
 6220 JSR &FFE7
 6230 JMP stackset
 6240 .unrecognised
 6250 LDX #0
 6260 .wordlp
 6270 LDY #0
 6280 .wdilp
 6290 INY
 6300 LDA (&F2),Y
 6310 CMP #42
 6320 BEQ wdilp
 6330 LDA comtab,X
 6340 BEQ notfound
 6350 .bytelp
 6360 LDA (&F2),Y
 6370 AND #223
 6380 CMP comtab,X
 6390 BNE nextword
 6400 LDA comtab+1,X
 6410 CMP #13
 6420 BEQ found
 6430 INX
 6440 INY
 6450 JMP bytelp
 6460 .nextword
 6470 INX
 6480 LDA comtab,X
 6490 BNE nextword
 6500 INX
 6510 JMP wordlp
 6520 .notfound
 6530 JMP restore
 6540 .found
 6550 INX
 6560 LDA #&4C
 6570 STA add
 6580 LDA comtab+1,X
 6590 STA add+1
 6600 STA &80
 6610 LDA comtab+2,X
 6620 STA add+2
 6630 STA &81
 6640 INY
 6650 .found2
 6660 LDA (&F2),Y
 6670 CMP #13
 6680 BEQ ok
 6690 CMP #32
 6700 BNE ok
 6710 INY
 6720 JMP found2
 6730 .ok
 6740 LDA comtab+3,X
 6750 CMP #1
 6760 BNE found3
 6770 LDA (&F2),Y
 6780 CMP #13
 6790 BEQ found3
 6800 JMP notfound
 6810 .found3
 6820 JSR add
 6830 JMP alldone
 6840 .comtab
 6850 OPT FNcom("BEEP",1)
 6860 OPT FNcom("SHELL",1)
 6870 OPT FNcom("HOME",1)
 6880 OPT FNcom("ECHO",3)
 6890 OPT FNcom("BACK",3)
 6900 OPT FNcom("DOUBLE",3)
 6910 OPT FNcom("TYPE",3)
 6920 OPT FNcom("SMALL",3)
 6930 OPT pass
 6940 BRK
 6950 .cBEEP
 6960 LDA #7
 6970 JMP &FFEE
 6980 .cHOME
 6990 LDA #30
 7000 JMP &FFEE
 7010 .cECHO
 7020 .cEClp
 7030 LDA (&F2),Y
 7040 CMP #13
 7050 BEQ cECend
 7060 CMP #124
 7070 BEQ cECcc
 7080 JSR &FFEE
 7090 INY
 7100 JMP cEClp
 7110 .cECend
 7120 JMP &FFE7
 7130 .cECcc
 7140 INY
 7150 LDA (&F2),Y
 7160 CMP #124
 7170 BEQ cECecc
 7180 SEC
 7190 SBC #64
 7200 .cECecc
 7210 INY
 7220 CMP #13
 7230 BEQ cEClf
 7240 JSR &FFEE
 7250 JMP cEClp
 7260 .cEClf
 7270 JSR &FFE7
 7280 JMP cEClp
 7290 .cBACK
 7300 STY temp
 7310 .cBKlp
 7320 LDA (&F2),Y
 7330 CMP #13
 7340 BEQ cBKprt
 7350 INY
 7360 JMP cBKlp
 7370 .cBKprt
 7380 LDA (&F2),Y
 7390 JSR &FFEE
 7400 DEY
 7410 CPY temp
 7420 BPL cBKprt
 7430 JMP &FFE7
 7440 .cDOUBLE
 7450 LDA &355
 7460 CMP #7
 7470 BEQ ttext
 7480 DEY
 7490 .cDBLlp
 7500 INY
 7510 LDA (&F2),Y
 7520 STY &100
 7530 CMP #13
 7540 BEQ d2
 7550 STA &101
 7560 LDA #10
 7570 LDX #257 MOD256
 7580 LDY #257 DIV256
 7590 JSR &FFF1
 7600 LDA #23
 7610 JSR &FFEE
 7620 LDA #255
 7630 JSR &FFEE
 7640 LDX #0
 7650 .d1
 7660 LDA &102,X
 7670 JSR &FFEE
 7680 JSR &FFEE
 7690 INX
 7700 CPX #4
 7710 BNE d1
 7720 LDA #255
 7730 JSR &FFEE
 7740 LDA #8
 7750 JSR &FFEE
 7760 LDA #10
 7770 JSR &FFEE
 7780 LDA #23
 7790 JSR &FFEE
 7800 LDA #255
 7810 JSR &FFEE
 7820 .d1
 7830 LDA &102,X
 7840 JSR &FFEE
 7850 JSR &FFEE
 7860 INX
 7870 CPX #8
 7880 BNE d1
 7890 LDA #255
 7900 JSR &FFEE
 7910 LDA #11
 7920 JSR &FFEE
 7930 LDY &100
 7940 JMP cDBLlp
 7950 .d2
 7960 JSR &FFE7
 7970 JMP &FFE7
 7980 .ttext
 7990 LDA #141
 8000 JSR &FFEE
 8010 LDA #8
 8020 JSR &FFEE
 8030 LDA #10
 8040 JSR &FFEE
 8050 LDA #141
 8060 JSR &FFEE
 8070 .cDBLlp
 8080 LDA (&F2),Y
 8090 CMP #13
 8100 BEQ d2+3
 8110 JSR &FFEE
 8120 LDA #11
 8130 JSR &FFEE
 8140 LDA #8
 8150 JSR &FFEE
 8160 LDA (&F2),Y
 8170 JSR &FFEE
 8180 LDA #10
 8190 JSR &FFEE
 8200 INY
 8210 JMP cDBLlp
 8220 .cTYPE
 8230 LDA (&F2),Y
 8240 CMP #13
 8250 BNE cTYgetfle
 8260 LDA #13
 8270 STA &100
 8280 .cTYopen
 8290 LDX #256 MOD 256
 8300 LDY #256 DIV 256
 8310 LDA #&40
 8320 JSR &FFCE
 8330 STY &100
 8340 CLC
 8350 .cTYlp
 8360 JSR &FFD7
 8370 BCS cTYcl
 8380 CMP #32
 8390 BMI cTYcc
 8400 CMP #127
 8410 BEQ cTYcc
 8420 .cTYprt
 8430 JSR &FFEE
 8440 JMP cTYlp
 8450 .cTYcc
 8460 LDA #46
 8470 JMP cTYprt
 8480 .cTYcl
 8490 LDA #0
 8500 LDY &100
 8510 JMP &FFCE
 8520 .cTYgetfle
 8530 LDX #0
 8540 .gcTYlp
 8550 LDA (&F2),Y
 8560 STA &100,X
 8570 CMP #13
 8580 BEQ cTYopen
 8590 CMP #32
 8600 BEQ cTYeon
 8610 INX
 8620 INY
 8630 JMP gcTYlp
 8640 .cTYeon
 8650 LDA #13
 8660 STA &100,X
 8670 JMP cTYopen
 8680 .cSMALL
 8690 DEY
 8700 STY &100
 8710 .cSMlp
 8720 LDY &100
 8730 INY
 8740 STY &100
 8750 LDA (&F2),Y
 8760 CMP #13
 8770 BEQ cSMend
 8780 STA &101
 8790 LDA #10
 8800 LDX #257 MOD256
 8810 LDY #257 DIV256
 8820 JSR &FFF1
 8830 LDA #23
 8840 JSR &FFEE
 8850 LDA #255
 8860 JSR &FFEE
 8870 LDA #0
 8880 JSR &FFEE
 8890 LDX #1
 8900 JSR cSMvdu
 8910 INX
 8920 INX
 8930 JSR cSMvdu
 8940 INX
 8950 JSR cSMvdu
 8960 INX
 8970 JSR cSMvdu
 8980 INX
 8990 INX
 9000 JSR cSMvdu
 9010 LDA #0
 9020 JSR &FFEE
 9030 JSR &FFEE
 9040 LDA #255
 9050 JSR &FFEE
 9060 JMP cSMlp
 9070 .cSMvdu
 9080 LDA &101,X
 9090 JMP &FFEE
 9100 .cSMend
 9110 JMP &FFE7
 9120 .printdbl
 9130 PLA
 9140 STA temp
 9150 PLA
 9160 STA temp+1
 9170 LDA #141
 9180 JSR &FFEE
 9190 LDA #10
 9200 JSR &FFEE
 9210 LDA #8
 9220 JSR &FFEE
 9230 LDA #141
 9240 JSR &FFEE
 9250 LDY #0
 9260 BEQ pd2
 9270 .pd
 9280 LDA (temp),Y
 9290 BEQ pd1
 9300 TAX
 9310 JSR &FFEE
 9320 LDA #11
 9330 JSR &FFEE
 9340 LDA #8
 9350 JSR &FFEE
 9360 TXA
 9370 JSR &FFEE
 9380 LDA #10
 9390 JSR &FFEE
 9400 .pd2
 9410 INC temp
 9420 BNE pd
 9430 INC temp+1
 9440 BNE pd
 9450 .pd1
 9460 LDA temp+1
 9470 PHA
 9480 LDA temp
 9490 PHA
 9500 RTS
 9510 .print
 9520 LDA #0
 9530 .print2
 9540 STA temp2
 9550 PLA
 9560 STA temp
 9570 PLA
 9580 STA temp+1
 9590 LDY #0
 9600 BEQ p2
 9610 .p
 9620 LDA (temp),Y
 9630 CMP temp2
 9640 BEQ p1
 9650 JSR &FFE3
 9660 .p2
 9670 INC temp
 9680 BNE p
 9690 INC temp+1
 9700 BNE p
 9710 .p1
 9720 LDA temp+1
 9730 PHA
 9740 LDA temp
 9750 PHA
 9760 RTS
 9770 .vdu
 9780 LDA #0
 9790 .vdu2
 9800 STA temp2
 9810 PLA
 9820 STA temp
 9830 PLA
 9840 STA temp+1
 9850 LDY #0
 9860 BEQ v2
 9870 .v
 9880 LDA (temp),Y
 9890 CMP temp2
 9900 BEQ v1
 9910 JSR &FFEE
 9920 .v2
 9930 INC temp
 9940 BNE v
 9950 INC temp+1
 9960 BNE v
 9970 .v1
 9980 LDA temp+1
 9990 PHA
10000 LDA temp
10010 PHA
10020 RTS
10030 .prthex
10040 PHA
10050 LSR A
10060 LSR A
10070 LSR A
10080 LSR A
10090 JSR prthex2
10100 PLA
10110 .prthex2
10120 AND #15
10130 SED
10140 CLC
10150 ADC #&90
10160 ADC #&40
10170 CLD
10180 JMP &FFEE
10190 ]
10200 NEXT
10210 CLS
10220 PRINT"(S)ave or (I)nstall:";
10230 REPEATA$=GET$:UNTILINSTR("SsIi",A$)
10240 PRINTA$
10250 IF INSTR("Ss",A$) INPUT'"Filename:"A$:OSCLI"Save "+A$+" "+STR$~code%+" "+STR$~O% ELSE INPUT"Which Rom (0-15/W-Z):"id$:OSCLI "SRWRITE "+STR$~code%+" "+STR$~O%+" 8000 "+id$:PRINT"Press CTRL-Break to install.":END
10260 END
10270 DEFFNcom(c$,F%)
10280 [OPT pass
10290 EQUS c$
10300 EQUB 13
10310 EQUW EVAL("c"+c$)
10320 EQUB F%
10330 BRK
10340 ]:=0