/ 8bitfiles.net/archives / archives.tar / archives / genie-commodore-file-library / C64Software / CHARACTER-EDITOR / c64.bas

MacOS 8.1

Win98

DOS

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 36 20 50 4f 4b 45 20 35 | 36 2c 34 38 3a 43 4c 52 |6 POKE 5|6,48:CLR|
|00000010| 3a 53 43 52 45 45 4e 3d | 31 30 36 34 3a 56 49 43 |:SCREEN=|1064:VIC|
|00000020| 3d 35 33 32 34 38 3a 43 | 48 41 52 53 3d 31 32 32 |=53248:C|HARS=122|
|00000030| 38 38 0a 38 20 44 45 46 | 20 46 4e 20 52 56 28 51 |88.8 DEF| FN RV(Q|
|00000040| 29 3d 51 2b 31 32 38 2a | 28 31 2b 28 51 3e 31 32 |)=Q+128*|(1+(Q>12|
|00000050| 37 29 2a 32 29 0a 31 31 | 20 44 49 4d 20 43 4f 24 |7)*2).11| DIM CO$|
|00000060| 28 31 35 29 3a 46 4f 52 | 20 4a 3d 30 20 54 4f 20 |(15):FOR| J=0 TO |
|00000070| 31 35 3a 52 45 41 44 20 | 43 4f 24 28 4a 29 3a 4e |15:READ |CO$(J):N|
|00000080| 45 58 54 0a 31 32 20 46 | 4f 52 20 4a 3d 34 39 31 |EXT.12 F|OR J=491|
|00000090| 35 32 20 54 4f 20 34 39 | 32 31 33 3a 52 45 41 44 |52 TO 49|213:READ|
|000000a0| 20 58 3a 50 4f 4b 45 20 | 4a 2c 58 3a 4e 45 58 54 | X:POKE |J,X:NEXT|
|000000b0| 0a 31 38 20 49 4e 50 55 | 54 22 46 45 54 43 48 20 |.18 INPU|T"FETCH |
|000000c0| 43 48 41 52 41 43 54 45 | 52 53 20 46 52 4f 4d 20 |CHARACTE|RS FROM |
|000000d0| 52 4f 4d 22 3b 58 24 0a | 31 39 20 49 46 20 58 24 |ROM";X$.|19 IF X$|
|000000e0| 3d 22 59 22 54 48 45 4e | 20 47 4f 53 55 42 20 35 |="Y"THEN| GOSUB 5|
|000000f0| 30 30 0a 32 32 20 50 4f | 4b 45 20 36 34 36 2c 30 |00.22 PO|KE 646,0|
|00000100| 3a 50 4f 4b 45 20 36 35 | 30 2c 31 32 38 3a 50 52 |:POKE 65|0,128:PR|
|00000110| 49 4e 54 22 93 22 0a 32 | 37 20 46 4f 52 20 4a 3d |INT".".2|7 FOR J=|
|00000120| 30 20 54 4f 20 31 32 37 | 3a 50 4f 4b 45 20 53 43 |0 TO 127|:POKE SC|
|00000130| 2b 32 2a 4a 2b 34 30 31 | 2c 4a 3a 50 4f 4b 45 20 |+2*J+401|,J:POKE |
|00000140| 53 43 2b 4a 2a 32 2b 37 | 32 31 2c 4a 2b 31 32 38 |SC+J*2+7|21,J+128|
|00000150| 3a 4e 45 58 54 0a 34 30 | 20 50 4f 4b 45 20 56 49 |:NEXT.40| POKE VI|
|00000160| 43 2b 32 34 2c 28 50 45 | 45 4b 28 56 49 43 2b 32 |C+24,(PE|EK(VIC+2|
|00000170| 34 29 41 4e 44 20 32 34 | 30 29 4f 52 20 31 32 0a |4)AND 24|0)OR 12.|
|00000180| 31 30 30 20 4e 43 3d 30 | 3a 4f 46 3d 4e 43 2a 38 |100 NC=0|:OF=NC*8|
|00000190| 3a 47 4f 53 55 42 20 33 | 30 30 30 0a 31 34 30 20 |:GOSUB 3|000.140 |
|000001a0| 50 4f 4b 45 20 35 33 32 | 38 30 2c 35 3a 50 4f 4b |POKE 532|80,5:POK|
|000001b0| 45 20 35 33 32 38 31 2c | 35 3a 50 4f 4b 45 20 35 |E 53281,|5:POKE 5|
|000001c0| 33 32 38 32 2c 32 0a 31 | 34 36 20 50 4f 4b 45 20 |3282,2.1|46 POKE |
|000001d0| 35 33 32 38 33 2c 38 3a | 50 4f 4b 45 20 34 38 31 |53283,8:|POKE 481|
|000001e0| 39 37 2c 30 3a 53 59 53 | 20 34 39 31 38 38 3a 47 |97,0:SYS| 49188:G|
|000001f0| 4f 53 55 42 20 32 30 30 | 30 30 0a 31 38 30 20 58 |OSUB 200|00.180 X|
|00000200| 43 3d 30 3a 59 43 3d 30 | 3a 43 43 3d 53 43 3a 50 |C=0:YC=0|:CC=SC:P|
|00000210| 4f 4b 45 20 43 43 2c 50 | 45 45 4b 28 43 43 29 4f |OKE CC,P|EEK(CC)O|
|00000220| 52 20 31 32 38 0a 32 30 | 30 20 47 45 54 20 58 24 |R 128.20|0 GET X$|
|00000230| 3a 49 46 20 58 24 3d 22 | 22 54 48 45 4e 20 32 30 |:IF X$="|"THEN 20|
|00000240| 30 0a 32 30 32 20 49 46 | 20 58 24 3d 22 91 22 41 |0.202 IF| X$="."A|
|00000250| 4e 44 20 59 43 3e 30 20 | 54 48 45 4e 20 59 43 3d |ND YC>0 |THEN YC=|
|00000260| 59 43 2d 31 3a 47 4f 54 | 4f 20 32 35 30 0a 32 30 |YC-1:GOT|O 250.20|
|00000270| 34 20 49 46 20 58 24 3d | 22 1d 22 41 4e 44 20 58 |4 IF X$=|"."AND X|
|00000280| 43 3c 33 39 20 54 48 45 | 4e 20 58 43 3d 58 43 2b |C<39 THE|N XC=XC+|
|00000290| 31 3a 47 4f 54 4f 20 32 | 35 30 0a 32 30 36 20 49 |1:GOTO 2|50.206 I|
|000002a0| 46 20 58 24 3d 22 11 22 | 41 4e 44 20 59 43 3c 32 |F X$="."|AND YC<2|
|000002b0| 33 20 54 48 45 4e 20 59 | 43 3d 59 43 2b 31 3a 47 |3 THEN Y|C=YC+1:G|
|000002c0| 4f 54 4f 20 32 35 30 0a | 32 30 38 20 49 46 20 58 |OTO 250.|208 IF X|
|000002d0| 24 3d 22 9d 22 41 4e 44 | 20 58 43 3e 30 20 54 48 |$="."AND| XC>0 TH|
|000002e0| 45 4e 20 58 43 3d 58 43 | 2d 31 3a 47 4f 54 4f 20 |EN XC=XC|-1:GOTO |
|000002f0| 32 35 30 0a 32 31 38 20 | 49 46 20 58 24 3d 22 13 |250.218 |IF X$=".|
|00000300| 22 54 48 45 4e 20 47 4f | 53 55 42 20 34 30 30 30 |"THEN GO|SUB 4000|
|00000310| 3a 47 4f 54 4f 20 31 38 | 30 0a 32 32 30 20 49 46 |:GOTO 18|0.220 IF|
|00000320| 20 58 24 3d 22 20 22 54 | 48 45 4e 20 47 4f 53 55 | X$=" "T|HEN GOSU|
|00000330| 42 20 32 30 30 30 3a 47 | 4f 54 4f 20 32 30 30 0a |B 2000:G|OTO 200.|
|00000340| 32 32 36 20 46 4f 52 20 | 5a 3d 31 20 54 4f 20 38 |226 FOR |Z=1 TO 8|
|00000350| 3a 49 46 20 58 24 3c 3e | 4d 49 44 24 28 22 85 86 |:IF X$<>|MID$("..|
|00000360| 87 88 89 8a 8b 8c 22 2c | 5a 2c 31 29 20 54 48 45 |......",|Z,1) THE|
|00000370| 4e 20 4e 45 58 54 0a 32 | 32 38 20 43 42 3d 5a 2d |N NEXT.2|28 CB=Z-|
|00000380| 31 3a 4f 4e 20 5a 20 47 | 4f 53 55 42 20 32 31 30 |1:ON Z G|OSUB 210|
|00000390| 30 30 2c 32 31 30 30 30 | 2c 32 31 30 30 30 2c 32 |00,21000|,21000,2|
|000003a0| 31 30 30 30 2c 31 31 30 | 30 30 2c 31 32 30 30 30 |1000,110|00,12000|
|000003b0| 2c 31 33 30 30 30 2c 31 | 34 30 30 30 0a 32 32 39 |,13000,1|4000.229|
|000003c0| 20 49 46 20 5a 3e 30 20 | 41 4e 44 20 5a 3c 39 20 | IF Z>0 |AND Z<9 |
|000003d0| 54 48 45 4e 20 47 4f 54 | 4f 20 32 30 30 0a 32 33 |THEN GOT|O 200.23|
|000003e0| 36 20 46 4f 52 20 5a 3d | 31 20 54 4f 20 37 3a 49 |6 FOR Z=|1 TO 7:I|
|000003f0| 46 20 58 24 3c 3e 4d 49 | 44 24 28 22 3d 44 43 49 |F X$<>MI|D$("=DCI|
|00000400| 4d 54 22 2c 5a 2c 31 29 | 20 54 48 45 4e 20 4e 45 |MT",Z,1)| THEN NE|
|00000410| 58 54 0a 32 33 37 20 4f | 4e 20 5a 20 47 4f 53 55 |XT.237 O|N Z GOSU|
|00000420| 42 20 36 30 30 30 2c 37 | 30 30 30 2c 39 30 30 30 |B 6000,7|000,9000|
|00000430| 2c 39 35 30 30 2c 31 30 | 30 30 30 2c 31 30 35 30 |,9500,10|000,1050|
|00000440| 30 0a 32 33 39 20 49 46 | 20 5a 3e 30 20 41 4e 44 |0.239 IF| Z>0 AND|
|00000450| 20 5a 3c 38 20 47 4f 54 | 4f 20 32 30 30 0a 32 34 | Z<8 GOT|O 200.24|
|00000460| 36 20 49 46 20 58 24 3d | 22 53 22 20 54 48 45 4e |6 IF X$=|"S" THEN|
|00000470| 20 47 4f 53 55 42 20 31 | 36 30 30 30 3a 47 4f 54 | GOSUB 1|6000:GOT|
|00000480| 4f 20 32 32 0a 32 34 37 | 20 49 46 20 58 24 3d 22 |O 22.247| IF X$="|
|00000490| 4c 22 20 54 48 45 4e 20 | 47 4f 53 55 42 20 31 38 |L" THEN |GOSUB 18|
|000004a0| 30 30 30 3a 47 4f 54 4f | 20 32 32 0a 32 34 38 20 |000:GOTO| 22.248 |
|000004b0| 47 4f 54 4f 20 32 30 30 | 0a 32 35 30 20 47 4f 53 |GOTO 200|.250 GOS|
|000004c0| 55 42 20 34 30 30 30 3a | 43 43 3d 58 43 2b 59 43 |UB 4000:|CC=XC+YC|
|000004d0| 2a 34 30 2b 53 43 3a 47 | 4f 53 55 42 20 34 30 30 |*40+SC:G|OSUB 400|
|000004e0| 30 3a 47 4f 54 4f 20 32 | 30 30 0a 33 38 37 20 44 |0:GOTO 2|00.387 D|
|000004f0| 41 54 41 20 22 42 4c 41 | 43 4b 20 22 2c 22 57 48 |ATA "BLA|CK ","WH|
|00000500| 49 54 45 20 22 2c 22 52 | 45 44 20 20 20 22 2c 22 |ITE ","R|ED   ","|
|00000510| 43 59 41 4e 20 20 22 2c | 22 50 55 52 50 4c 45 22 |CYAN  ",|"PURPLE"|
|00000520| 0a 33 38 38 20 44 41 54 | 41 20 22 47 52 45 45 4e |.388 DAT|A "GREEN|
|00000530| 22 2c 22 42 4c 55 45 22 | 2c 22 59 45 4c 4c 4f 57 |","BLUE"|,"YELLOW|
|00000540| 22 2c 22 4f 52 41 4e 47 | 45 22 2c 22 42 52 4f 57 |","ORANG|E","BROW|
|00000550| 4e 20 22 2c 22 4c 54 20 | 52 45 44 22 0a 33 38 39 |N ","LT |RED".389|
|00000560| 20 44 41 54 41 20 22 47 | 52 41 59 09 00 22 2c 22 | DATA "G|RAY..","|
|00000570| 47 52 41 59 20 32 22 2c | 22 4c 54 20 47 52 4e 22 |GRAY 2",|"LT GRN"|
|00000580| 2c 22 4c 20 42 4c 55 45 | 22 2c 22 47 52 41 59 20 |,"L BLUE|","GRAY |
|00000590| 33 22 0a 33 39 30 20 44 | 41 54 41 20 31 32 30 2c |3".390 D|ATA 120,|
|000005a0| 31 36 32 2c 38 2c 31 36 | 30 2c 30 2c 31 36 39 2c |162,8,16|0,0,169,|
|000005b0| 32 30 38 2c 31 33 33 2c | 32 35 32 0a 33 39 31 20 |208,133,|252.391 |
|000005c0| 44 41 54 41 20 31 36 39 | 2c 34 38 2c 31 33 33 2c |DATA 169|,48,133,|
|000005d0| 32 35 34 2c 31 36 39 2c | 30 2c 31 33 33 2c 32 35 |254,169,|0,133,25|
|000005e0| 31 2c 31 33 33 0a 33 39 | 32 20 44 41 54 41 20 32 |1,133.39|2 DATA 2|
|000005f0| 35 33 2c 31 37 37 2c 32 | 35 31 2c 31 34 35 2c 32 |53,177,2|51,145,2|
|00000600| 35 33 2c 32 30 30 2c 32 | 30 38 2c 32 34 39 0a 33 |53,200,2|08,249.3|
|00000610| 39 33 20 44 41 54 41 20 | 32 33 30 2c 32 35 32 2c |93 DATA |230,252,|
|00000620| 32 33 30 2c 32 35 34 2c | 32 30 32 2c 32 30 38 2c |230,254,|202,208,|
|00000630| 32 34 32 2c 38 38 2c 39 | 36 0a 33 39 35 20 44 41 |242,88,9|6.395 DA|
|00000640| 54 41 20 30 2c 31 36 39 | 2c 32 31 36 2c 31 33 33 |TA 0,169|,216,133|
|00000650| 2c 32 35 32 2c 31 36 39 | 2c 30 2c 31 33 33 2c 32 |,252,169|,0,133,2|
|00000660| 35 31 0a 33 39 36 20 44 | 41 54 41 20 31 36 32 2c |51.396 D|ATA 162,|
|00000670| 34 2c 31 36 30 2c 30 2c | 31 37 33 2c 33 35 2c 31 |4,160,0,|173,35,1|
|00000680| 39 32 2c 31 34 35 2c 32 | 35 31 0a 33 39 37 20 44 |92,145,2|51.397 D|
|00000690| 41 54 41 20 32 30 30 2c | 32 30 38 2c 32 34 38 2c |ATA 200,|208,248,|
|000006a0| 32 33 30 2c 32 35 32 2c | 32 30 32 2c 32 30 38 2c |230,252,|202,208,|
|000006b0| 32 34 33 2c 39 36 0a 35 | 30 30 20 50 4f 4b 45 20 |243,96.5|00 POKE |
|000006c0| 35 36 33 33 33 2c 31 32 | 37 3a 50 4f 4b 45 20 31 |56333,12|7:POKE 1|
|000006d0| 2c 35 31 3a 53 59 53 20 | 34 39 31 35 32 0a 35 34 |,51:SYS |49152.54|
|000006e0| 30 20 50 4f 4b 45 20 31 | 2c 35 35 3a 50 4f 4b 45 |0 POKE 1|,55:POKE|
|000006f0| 20 35 36 33 33 33 2c 31 | 32 39 3a 52 45 54 55 52 | 56333,1|29:RETUR|
|00000700| 4e 0a 32 30 30 30 20 49 | 46 20 59 43 3e 37 20 4f |N.2000 I|F YC>7 O|
|00000710| 52 20 58 43 3e 37 20 54 | 48 45 4e 20 52 45 54 55 |R XC>7 T|HEN RETU|
|00000720| 52 4e 0a 32 30 31 30 20 | 50 54 3d 43 48 2b 59 43 |RN.2010 |PT=CH+YC|
|00000730| 2b 4f 46 3a 42 59 3d 50 | 45 45 4b 28 50 54 29 3a |+OF:BY=P|EEK(PT):|
|00000740| 4d 53 3d 32 5e 28 37 2d | 58 43 29 0a 32 30 33 30 |MS=2^(7-|XC).2030|
|00000750| 20 50 4f 4b 45 20 43 43 | 2c 33 38 32 2d 50 45 45 | POKE CC|,382-PEE|
|00000760| 4b 28 43 43 29 0a 32 30 | 34 30 20 49 46 20 28 42 |K(CC).20|40 IF (B|
|00000770| 59 20 41 4e 44 20 4d 53 | 29 3d 30 20 54 48 45 4e |Y AND MS|)=0 THEN|
|00000780| 20 50 4f 4b 45 20 50 54 | 2c 42 59 2b 4d 53 3a 47 | POKE PT|,BY+MS:G|
|00000790| 4f 54 4f 20 32 30 36 30 | 0a 32 30 35 30 20 50 4f |OTO 2060|.2050 PO|
|000007a0| 4b 45 20 50 54 2c 42 59 | 2d 4d 53 0a 32 30 36 30 |KE PT,BY|-MS.2060|
|000007b0| 20 50 4f 4b 45 20 32 31 | 34 2c 59 43 3a 50 52 49 | POKE 21|4,YC:PRI|
|000007c0| 4e 54 09 0a 32 30 37 30 | 20 52 45 54 55 52 4e 0a |NT..2070| RETURN.|
|000007d0| 33 30 30 30 20 50 52 49 | 4e 54 22 13 22 3a 46 4f |3000 PRI|NT".":FO|
|000007e0| 52 20 59 39 3d 30 20 54 | 4f 20 37 3a 50 54 3d 43 |R Y9=0 T|O 7:PT=C|
|000007f0| 48 2b 59 39 2b 4f 46 3a | 42 59 3d 50 45 45 4b 28 |H+Y9+OF:|BY=PEEK(|
|00000800| 50 54 29 0a 33 30 32 30 | 20 46 4f 52 20 58 39 3d |PT).3020| FOR X9=|
|00000810| 30 20 54 4f 20 37 0a 33 | 30 33 30 20 49 46 20 28 |0 TO 7.3|030 IF (|
|00000820| 42 59 20 41 4e 44 20 32 | 5e 28 37 2d 58 39 29 29 |BY AND 2|^(7-X9))|
|00000830| 3e 30 20 54 48 45 4e 20 | 50 52 49 4e 54 22 d1 22 |>0 THEN |PRINT"."|
|00000840| 3b 3a 47 4f 54 4f 20 33 | 30 34 30 0a 33 30 33 35 |;:GOTO 3|040.3035|
|00000850| 20 50 52 49 4e 54 22 2d | 22 3b 0a 33 30 34 30 20 | PRINT"-|";.3040 |
|00000860| 4e 45 58 54 3a 50 52 49 | 4e 54 22 20 20 20 20 9d |NEXT:PRI|NT"    .|
|00000870| 9d 9d 9d 22 42 59 3a 4e | 45 58 54 0a 33 30 36 30 |..."BY:N|EXT.3060|
|00000880| 20 50 52 49 4e 54 22 13 | 20 20 20 20 20 20 20 20 | PRINT".|        |
|00000890| 20 20 20 20 53 43 52 45 | 45 4e 20 43 4f 44 45 3d |    SCRE|EN CODE=|
|000008a0| 20 20 20 9d 9d 9d 9d 22 | 20 4e 43 0a 33 30 37 30 |   ...."| NC.3070|
|000008b0| 20 52 45 54 55 52 4e 0a | 34 30 30 30 20 50 4f 4b | RETURN.|4000 POK|
|000008c0| 45 20 43 43 2c 46 4e 52 | 56 28 50 45 45 4b 28 43 |E CC,FNR|V(PEEK(C|
|000008d0| 43 29 29 3a 52 45 54 55 | 52 4e 0a 36 30 30 30 20 |C)):RETU|RN.6000 |
|000008e0| 49 46 20 59 43 3c 39 20 | 54 48 45 4e 20 52 45 54 |IF YC<9 |THEN RET|
|000008f0| 55 52 4e 0a 36 30 31 30 | 20 4e 43 3d 46 4e 52 56 |URN.6010| NC=FNRV|
|00000900| 28 50 45 45 4b 28 43 43 | 29 29 3a 4f 46 3d 4e 43 |(PEEK(CC|)):OF=NC|
|00000910| 2a 38 3a 47 4f 53 55 42 | 20 33 30 30 30 3a 52 45 |*8:GOSUB| 3000:RE|
|00000920| 54 55 52 4e 0a 37 30 30 | 30 20 49 46 20 59 43 3e |TURN.700|0 IF YC>|
|00000930| 37 20 4f 52 20 58 43 3c | 31 33 20 4f 52 20 58 43 |7 OR XC<|13 OR XC|
|00000940| 3e 32 37 20 54 48 45 4e | 20 52 45 54 55 52 4e 0a |>27 THEN| RETURN.|
|00000950| 37 30 33 30 20 50 4f 4b | 45 20 43 43 2c 46 4e 52 |7030 POK|E CC,FNR|
|00000960| 56 28 4e 43 29 3a 52 45 | 54 55 52 4e 0a 39 30 30 |V(NC):RE|TURN.900|
|00000970| 30 20 46 4f 52 20 4a 3d | 43 48 2b 4f 46 20 54 4f |0 FOR J=|CH+OF TO|
|00000980| 20 43 48 2b 4f 46 2b 37 | 3a 50 4f 4b 45 20 4a 2c | CH+OF+7|:POKE J,|
|00000990| 30 3a 4e 45 58 54 3a 47 | 4f 53 55 42 20 33 30 30 |0:NEXT:G|OSUB 300|
|000009a0| 30 0a 39 30 32 35 20 49 | 46 20 59 43 3c 38 20 41 |0.9025 I|F YC<8 A|
|000009b0| 4e 44 20 58 43 3c 38 20 | 54 48 45 4e 20 47 4f 53 |ND XC<8 |THEN GOS|
|000009c0| 55 42 20 34 30 30 30 0a | 39 30 33 30 20 52 45 54 |UB 4000.|9030 RET|
|000009d0| 55 52 4e 0a 39 35 30 30 | 20 46 4f 52 20 4a 3d 43 |URN.9500| FOR J=C|
|000009e0| 48 2b 4f 46 20 54 4f 20 | 43 48 2b 4f 46 2b 37 3a |H+OF TO |CH+OF+7:|
|000009f0| 50 4f 4b 45 20 4a 2c 32 | 35 35 2d 50 45 45 4b 28 |POKE J,2|55-PEEK(|
|00000a00| 4a 29 3a 4e 45 58 54 0a | 39 35 32 35 20 47 4f 53 |J):NEXT.|9525 GOS|
|00000a10| 55 42 20 33 30 30 30 3a | 49 46 20 59 43 3c 38 20 |UB 3000:|IF YC<8 |
|00000a20| 41 4e 44 20 58 43 3c 38 | 20 54 48 45 4e 20 47 4f |AND XC<8| THEN GO|
|00000a30| 53 55 42 20 34 30 30 30 | 0a 39 35 33 30 20 52 45 |SUB 4000|.9530 RE|
|00000a40| 54 55 52 4e 0a 31 30 30 | 30 30 20 56 3d 50 45 45 |TURN.100|00 V=PEE|
|00000a50| 4b 28 56 49 43 2b 32 32 | 29 0a 31 30 30 31 30 20 |K(VIC+22|).10010 |
|00000a60| 49 46 28 56 20 41 4e 44 | 20 31 36 29 3e 30 20 54 |IF(V AND| 16)>0 T|
|00000a70| 48 45 4e 20 50 4f 4b 45 | 20 09 0a 31 30 30 32 30 |HEN POKE| ..10020|
|00000a80| 20 50 4f 4b 45 20 56 49 | 43 2b 32 32 2c 56 20 4f | POKE VI|C+22,V O|
|00000a90| 52 20 31 36 3a 52 45 54 | 55 52 4e 0a 31 30 35 30 |R 16:RET|URN.1050|
|00000aa0| 30 20 49 46 20 59 43 3c | 39 20 54 48 45 4e 20 52 |0 IF YC<|9 THEN R|
|00000ab0| 45 54 55 52 4e 0a 31 30 | 35 32 30 20 4e 4e 3d 46 |ETURN.10|520 NN=F|
|00000ac0| 4e 52 56 28 50 45 45 4b | 28 43 43 29 29 3a 4f 47 |NRV(PEEK|(CC)):OG|
|00000ad0| 3d 4e 4e 2a 38 0a 31 30 | 35 33 30 20 46 4f 52 20 |=NN*8.10|530 FOR |
|00000ae0| 4a 3d 30 20 54 4f 20 37 | 3a 50 4f 4b 45 20 43 48 |J=0 TO 7|:POKE CH|
|00000af0| 2b 4f 47 2b 4a 2c 50 45 | 45 4b 28 43 48 2b 4f 46 |+OG+J,PE|EK(CH+OF|
|00000b00| 2b 4a 29 3a 4e 45 58 54 | 3a 52 45 54 55 52 4e 0a |+J):NEXT|:RETURN.|
|00000b10| 31 31 30 30 30 20 54 3d | 28 50 45 45 4b 28 35 33 |11000 T=|(PEEK(53|
|00000b20| 32 38 30 29 2b 31 29 41 | 4e 44 20 31 35 0a 31 31 |280)+1)A|ND 15.11|
|00000b30| 30 30 33 20 50 4f 4b 45 | 20 35 33 32 38 30 2c 54 |003 POKE| 53280,T|
|00000b40| 3a 50 4f 4b 45 20 35 33 | 32 38 31 2c 54 3a 47 4f |:POKE 53|281,T:GO|
|00000b50| 54 4f 20 32 30 30 30 30 | 0a 31 32 30 30 30 20 54 |TO 20000|.12000 T|
|00000b60| 3d 28 50 45 45 4b 28 35 | 33 32 38 32 29 2b 31 29 |=(PEEK(5|3282)+1)|
|00000b70| 41 4e 44 20 31 35 0a 31 | 32 30 30 33 20 50 4f 4b |AND 15.1|2003 POK|
|00000b80| 45 20 35 33 32 38 32 2c | 54 3a 47 4f 54 4f 20 32 |E 53282,|T:GOTO 2|
|00000b90| 30 30 30 30 0a 31 33 30 | 30 30 20 54 3d 28 50 45 |0000.130|00 T=(PE|
|00000ba0| 45 4b 28 35 33 32 38 33 | 29 2b 31 29 41 4e 44 20 |EK(53283|)+1)AND |
|00000bb0| 31 35 0a 31 33 30 30 33 | 20 50 4f 4b 45 20 35 33 |15.13003| POKE 53|
|00000bc0| 32 38 33 2c 54 3a 47 4f | 54 4f 20 32 30 30 30 30 |283,T:GO|TO 20000|
|00000bd0| 0a 31 34 30 30 30 20 54 | 3d 28 50 45 45 4b 28 34 |.14000 T|=(PEEK(4|
|00000be0| 39 31 38 37 29 2b 31 29 | 41 4e 44 20 31 35 0a 31 |9187)+1)|AND 15.1|
|00000bf0| 34 30 30 33 20 50 4f 4b | 45 20 34 39 31 38 37 2c |4003 POK|E 49187,|
|00000c00| 54 3a 53 59 53 20 34 39 | 31 38 38 3a 47 4f 54 4f |T:SYS 49|188:GOTO|
|00000c10| 20 32 30 30 30 30 0a 31 | 36 30 30 30 20 47 4f 53 | 20000.1|6000 GOS|
|00000c20| 55 42 20 31 39 30 30 30 | 3a 50 52 49 4e 54 3a 53 |UB 19000|:PRINT:S|
|00000c30| 59 53 20 35 37 38 31 32 | 4e 4d 24 2c 44 4e 0a 31 |YS 57812|NM$,DN.1|
|00000c40| 36 30 32 30 20 50 4f 4b | 45 20 31 39 33 2c 30 3a |6020 POK|E 193,0:|
|00000c50| 50 4f 4b 45 20 31 39 34 | 2c 34 38 3a 50 4f 4b 45 |POKE 194|,48:POKE|
|00000c60| 20 31 37 34 2c 30 3a 50 | 4f 4b 45 20 31 37 35 2c | 174,0:P|OKE 175,|
|00000c70| 35 36 0a 31 36 30 34 30 | 20 53 59 53 20 36 32 39 |56.16040| SYS 629|
|00000c80| 35 37 3a 52 45 54 55 52 | 4e 0a 31 38 30 30 30 20 |57:RETUR|N.18000 |
|00000c90| 47 4f 53 55 42 20 31 39 | 30 30 30 3a 50 4f 4b 45 |GOSUB 19|000:POKE|
|00000ca0| 20 31 34 37 2c 30 3a 53 | 59 53 20 35 37 38 31 32 | 147,0:S|YS 57812|
|00000cb0| 4e 4d 24 2c 44 4e 2c 30 | 0a 31 38 30 33 33 20 4c |NM$,DN,0|.18033 L|
|00000cc0| 39 3d 31 32 32 38 38 3a | 50 4f 4b 45 20 37 38 31 |9=12288:|POKE 781|
|00000cd0| 2c 4c 39 20 41 4e 44 20 | 32 35 35 3a 50 4f 4b 45 |,L9 AND |255:POKE|
|00000ce0| 20 37 38 32 2c 4c 39 2f | 32 35 36 0a 31 38 30 33 | 782,L9/|256.1803|
|00000cf0| 34 20 53 59 53 20 36 32 | 36 32 32 3a 52 45 54 55 |4 SYS 62|622:RETU|
|00000d00| 52 4e 0a 31 39 30 30 30 | 20 49 4e 50 55 54 22 93 |RN.19000| INPUT".|
|00000d10| 20 20 20 20 20 20 20 20 | 20 46 49 4c 45 4e 09 00 |        | FILEN..|
|00000d20| 45 22 3b 4e 4d 24 0a 31 | 39 30 30 35 20 49 4e 50 |E";NM$.1|9005 INP|
|00000d30| 55 54 22 44 49 53 4b 20 | 4f 52 20 54 41 50 45 20 |UT"DISK |OR TAPE |
|00000d40| 28 44 2f 54 29 22 3b 58 | 24 0a 31 39 30 31 30 20 |(D/T)";X|$.19010 |
|00000d50| 49 46 20 58 24 3d 22 44 | 22 54 48 45 4e 20 44 4e |IF X$="D|"THEN DN|
|00000d60| 3d 38 3a 52 45 54 55 52 | 4e 0a 31 39 30 32 30 20 |=8:RETUR|N.19020 |
|00000d70| 44 4e 3d 31 3a 52 45 54 | 55 52 4e 0a 32 30 30 30 |DN=1:RET|URN.2000|
|00000d80| 30 20 50 52 49 4e 54 22 | 13 11 22 54 41 42 28 32 |0 PRINT"|.."TAB(2|
|00000d90| 39 29 22 42 47 30 20 22 | 43 4f 24 28 50 45 45 4b |9)"BG0 "|CO$(PEEK|
|00000da0| 28 35 33 32 38 30 29 41 | 4e 44 20 31 35 29 0a 32 |(53280)A|ND 15).2|
|00000db0| 30 30 34 30 20 50 52 49 | 4e 54 20 54 41 42 28 32 |0040 PRI|NT TAB(2|
|00000dc0| 39 29 22 42 47 31 20 22 | 43 4f 24 28 50 45 45 4b |9)"BG1 "|CO$(PEEK|
|00000dd0| 28 35 33 32 38 32 29 41 | 4e 44 20 31 35 29 0a 32 |(53282)A|ND 15).2|
|00000de0| 30 30 36 30 20 50 52 49 | 4e 54 20 54 41 42 28 32 |0060 PRI|NT TAB(2|
|00000df0| 39 29 22 42 47 32 20 22 | 43 4f 24 28 50 45 45 4b |9)"BG2 "|CO$(PEEK|
|00000e00| 28 35 33 32 38 33 29 41 | 4e 44 20 31 35 29 0a 32 |(53283)A|ND 15).2|
|00000e10| 30 30 38 30 20 50 52 49 | 4e 54 20 54 41 42 28 32 |0080 PRI|NT TAB(2|
|00000e20| 39 29 22 54 58 54 20 22 | 43 4f 24 28 50 45 45 4b |9)"TXT "|CO$(PEEK|
|00000e30| 28 34 39 31 38 37 29 41 | 4e 44 20 31 35 29 3a 52 |(49187)A|ND 15):R|
|00000e40| 45 54 55 52 4e 0a 32 31 | 30 30 30 20 49 46 20 59 |ETURN.21|000 IF Y|
|00000e50| 43 3e 37 20 4f 52 20 58 | 43 3e 37 20 54 48 45 4e |C>7 OR X|C>7 THEN|
|00000e60| 20 52 45 54 55 52 4e 0a | 32 31 30 31 30 20 43 50 | RETURN.|21010 CP|
|00000e70| 3d 43 43 20 41 4e 44 20 | 32 30 34 36 3a 49 46 20 |=CC AND |2046:IF |
|00000e80| 43 42 3e 31 20 54 48 45 | 4e 20 50 4f 4b 45 20 43 |CB>1 THE|N POKE C|
|00000e90| 50 2c 38 31 3a 47 4f 54 | 4f 20 32 31 30 33 30 0a |P,81:GOT|O 21030.|
|00000ea0| 32 31 30 32 30 20 50 4f | 4b 45 20 43 50 2c 34 35 |21020 PO|KE CP,45|
|00000eb0| 0a 32 31 30 33 30 20 43 | 50 3d 43 50 2b 31 3a 49 |.21030 C|P=CP+1:I|
|00000ec0| 46 20 28 43 42 20 41 4e | 44 20 31 29 3d 31 20 54 |F (CB AN|D 1)=1 T|
|00000ed0| 48 45 4e 20 50 4f 4b 45 | 20 43 50 2c 38 31 3a 47 |HEN POKE| CP,81:G|
|00000ee0| 4f 54 4f 20 32 31 30 35 | 30 0a 32 31 30 34 30 20 |OTO 2105|0.21040 |
|00000ef0| 50 4f 4b 45 20 43 50 2c | 34 35 0a 32 31 30 35 30 |POKE CP,|45.21050|
|00000f00| 20 47 4f 53 55 42 20 34 | 30 30 30 3a 50 54 3d 43 | GOSUB 4|000:PT=C|
|00000f10| 48 2b 59 43 2b 4f 46 3a | 42 59 3d 50 45 45 4b 28 |H+YC+OF:|BY=PEEK(|
|00000f20| 50 54 29 0a 32 31 30 36 | 30 20 4d 50 3d 37 2d 58 |PT).2106|0 MP=7-X|
|00000f30| 43 20 41 4e 44 20 36 3a | 4d 4b 3d 32 5e 4d 50 2a |C AND 6:|MK=2^MP*|
|00000f40| 33 3a 42 59 3d 28 42 59 | 20 41 4e 44 20 4e 4f 54 |3:BY=(BY| AND NOT|
|00000f50| 20 4d 4b 29 2b 43 42 2a | 32 5e 4d 50 0a 32 31 30 | MK)+CB*|2^MP.210|
|00000f60| 37 30 20 50 4f 4b 45 20 | 50 54 2c 42 59 3a 50 4f |70 POKE |PT,BY:PO|
|00000f70| 4b 45 20 32 31 34 2c 59 | 43 3a 50 52 49 4e 54 0a |KE 214,Y|C:PRINT.|
|00000f80| 32 31 30 38 30 20 50 52 | 49 4e 54 20 54 41 42 28 |21080 PR|INT TAB(|
|00000f90| 39 29 22 20 20 20 9d 9d | 9d 9d 22 20 50 45 45 4b |9)"   ..|.." PEEK|
|00000fa0| 28 50 54 29 3a 52 45 54 | 55 52 4e 0a             |(PT):RET|URN.    |
+--------+-------------------------+-------------------------+--------+--------+