/ 8bitfiles.net/archives / archives.tar / archives / genie-commodore-file-library / C64Toolkit / NAUGHTY-BLOX / c64.bas

MacOS 8.1

Win98

DOS

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 31 30 20 44 49 4d 20 54 | 28 31 32 30 29 2c 53 28 |10 DIM T|(120),S(|
|00000010| 31 32 30 29 0a 32 30 20 | 47 4f 53 55 42 20 31 30 |120).20 |GOSUB 10|
|00000020| 30 30 30 0a 33 30 20 50 | 4f 4b 45 20 32 31 31 2c |000.30 P|OKE 211,|
|00000030| 31 31 3a 50 4f 4b 45 20 | 32 31 34 2c 31 38 3a 53 |11:POKE |214,18:S|
|00000040| 59 53 20 35 38 37 33 32 | 0a 34 30 20 50 52 49 4e |YS 58732|.40 PRIN|
|00000050| 54 20 22 9e 43 12 48 45 | 43 4b 20 4f 52 20 92 56 |T ".C.HE|CK OR .V|
|00000060| 12 41 4c 49 44 41 54 45 | 22 0a 35 30 20 50 4f 4b |.ALIDATE|".50 POK|
|00000070| 45 20 31 39 38 2c 30 3a | 57 41 49 54 20 31 39 38 |E 198,0:|WAIT 198|
|00000080| 2c 31 0a 36 30 20 47 45 | 54 20 57 24 3a 49 46 20 |,1.60 GE|T W$:IF |
|00000090| 57 24 3c 3e 22 43 22 20 | 41 4e 44 20 20 57 24 3c |W$<>"C" |AND  W$<|
|000000a0| 3e 22 56 22 20 54 48 45 | 4e 20 35 30 0a 31 36 30 |>"V" THE|N 50.160|
|000000b0| 20 50 4f 4b 45 20 32 31 | 31 2c 35 3a 50 4f 4b 45 | POKE 21|1,5:POKE|
|000000c0| 20 32 31 34 2c 31 38 3a | 53 59 53 20 35 38 37 33 | 214,18:|SYS 5873|
|000000d0| 32 0a 31 37 30 20 50 52 | 49 4e 54 20 22 12 9e 49 |2.170 PR|INT "..I|
|000000e0| 4e 53 45 52 54 20 44 49 | 53 4b 20 41 4e 44 20 50 |NSERT DI|SK AND P|
|000000f0| 52 45 53 53 20 41 4e 59 | 20 4b 45 59 22 0a 32 30 |RESS ANY| KEY".20|
|00000100| 30 20 50 4f 4b 45 20 31 | 39 38 2c 30 3a 57 41 49 |0 POKE 1|98,0:WAI|
|00000110| 54 20 31 39 38 2c 31 0a | 32 31 30 20 43 4c 4f 53 |T 198,1.|210 CLOS|
|00000120| 45 20 31 35 3a 4f 50 45 | 4e 20 31 35 2c 38 2c 31 |E 15:OPE|N 15,8,1|
|00000130| 35 2c 22 49 22 0a 32 32 | 30 20 49 4e 50 55 54 23 |5,"I".22|0 INPUT#|
|00000140| 31 35 2c 45 2c 45 4d 24 | 2c 45 54 2c 45 53 0a 32 |15,E,EM$|,ET,ES.2|
|00000150| 33 30 20 49 46 20 45 3c | 32 30 20 54 48 45 4e 20 |30 IF E<|20 THEN |
|00000160| 32 36 30 0a 32 34 30 20 | 50 52 49 4e 54 20 54 41 |260.240 |PRINT TA|
|00000170| 42 28 35 29 22 91 9e 12 | 4e 4f 20 44 49 53 4b 20 |B(5)"...|NO DISK |
|00000180| 4f 52 20 44 49 53 4b 20 | 4e 4f 54 20 46 4f 52 4d |OR DISK |NOT FORM|
|00000190| 41 54 54 45 44 22 3a 54 | 49 24 3d 22 30 30 30 30 |ATTED":T|I$="0000|
|000001a0| 30 30 22 0a 32 35 30 20 | 57 41 49 54 20 31 36 31 |00".250 |WAIT 161|
|000001b0| 2c 31 3a 43 4c 4f 53 45 | 20 31 35 3a 47 4f 54 4f |,1:CLOSE| 15:GOTO|
|000001c0| 20 32 30 0a 32 36 30 20 | 49 46 20 57 24 3d 22 56 | 20.260 |IF W$="V|
|000001d0| 22 20 54 48 45 4e 20 31 | 30 30 30 0a 34 31 30 20 |" THEN 1|000.410 |
|000001e0| 47 4f 53 55 42 20 32 30 | 30 30 30 3a 58 3d 30 3a |GOSUB 20|000:X=0:|
|000001f0| 46 4f 52 20 54 3d 31 20 | 54 4f 20 33 35 3a 50 4f |FOR T=1 |TO 35:PO|
|00000200| 4b 45 20 32 31 31 2c 54 | 2b 32 3a 50 4f 4b 45 20 |KE 211,T|+2:POKE |
|00000210| 32 31 34 2c 32 31 3a 53 | 59 53 20 35 38 37 33 32 |214,21:S|YS 58732|
|00000220| 0a 34 32 30 20 57 3d 31 | 37 36 3a 53 3d 30 3a 47 |.420 W=1|76:S=0:G|
|00000230| 4f 53 55 42 20 31 32 31 | 30 0a 34 33 30 20 46 3d |OSUB 121|0.430 F=|
|00000240| 30 3a 49 46 20 45 3c 3e | 31 20 54 48 45 4e 20 46 |0:IF E<>|1 THEN F|
|00000250| 3d 31 0a 34 34 30 20 53 | 4d 3d 32 30 2b 32 2a 28 |=1.440 S|M=20+2*(|
|00000260| 54 3e 31 37 29 2b 28 54 | 3e 32 34 29 2b 28 54 3e |T>17)+(T|>24)+(T>|
|00000270| 33 30 29 0a 34 35 30 20 | 46 4f 52 20 53 3d 30 20 |30).450 |FOR S=0 |
|00000280| 54 4f 20 53 4d 3a 49 46 | 20 46 3d 31 20 54 48 45 |TO SM:IF| F=1 THE|
|00000290| 4e 20 45 3d 32 3a 47 4f | 54 4f 20 34 37 30 0a 34 |N E=2:GO|TO 470.4|
|000002a0| 36 30 20 57 3d 31 32 38 | 3a 47 4f 53 55 42 20 31 |60 W=128|:GOSUB 1|
|000002b0| 32 31 30 3a 49 46 20 45 | 3e 31 32 38 20 54 48 45 |210:IF E|>128 THE|
|000002c0| 4e 20 45 3d 32 0a 34 37 | 30 20 49 46 20 45 3c 3e |N E=2.47|0 IF E<>|
|000002d0| 31 20 54 48 45 4e 20 50 | 52 49 4e 54 20 22 1c 22 |1 THEN P|RINT "."|
|000002e0| 3b 3a 58 3d 58 2b 31 3a | 54 28 58 29 3d 54 3a 53 |;:X=X+1:|T(X)=T:S|
|000002f0| 28 58 29 3d 53 3a 47 4f | 54 4f 20 34 39 30 0a 34 |(X)=S:GO|TO 490.4|
|00000300| 38 30 20 50 52 49 4e 54 | 20 22 1e 22 3b 0a 34 39 |80 PRINT| ".";.49|
|00000310| 30 20 50 52 49 4e 54 20 | 22 d1 91 9d 22 3b 0a 35 |0 PRINT |"...";.5|
|00000320| 30 30 20 49 46 20 58 3c | 31 32 30 20 54 48 45 4e |00 IF X<|120 THEN|
|00000330| 20 4e 45 58 54 20 53 2c | 54 3a 47 4f 54 4f 20 35 | NEXT S,|T:GOTO 5|
|00000340| 33 30 0a 35 31 30 20 47 | 4f 53 55 42 20 31 30 30 |30.510 G|OSUB 100|
|00000350| 30 30 3a 50 4f 4b 45 20 | 32 31 31 2c 31 32 3a 50 |00:POKE |211,12:P|
|00000360| 4f 4b 45 20 32 31 34 2c | 31 38 3a 53 59 53 20 35 |OKE 214,|18:SYS 5|
|00000370| 38 37 33 32 0a 35 32 30 | 20 50 52 49 4e 54 20 22 |8732.520| PRINT "|
|00000380| 12 9e 42 55 59 20 41 20 | 4e 45 57 20 44 49 53 4b |..BUY A |NEW DISK|
|00000390| 21 22 3a 47 4f 54 4f 20 | 36 35 30 0a 35 33 30 20 |!":GOTO |650.530 |
|000003a0| 43 4c 4f 53 45 20 31 35 | 0a 35 34 30 20 49 46 20 |CLOSE 15|.540 IF |
|000003b0| 58 3c 3e 30 20 54 48 45 | 4e 20 35 37 30 0a 35 35 |X<>0 THE|N 570.55|
|000003c0| 30 20 47 4f 53 55 42 20 | 31 30 30 30 30 3a 50 4f |0 GOSUB |10000:PO|
|000003d0| 4b 45 20 32 31 31 2c 31 | 33 3a 50 4f 4b 45 20 32 |KE 211,1|3:POKE 2|
|000003e0| 31 34 2c 31 38 3a 53 59 | 53 20 35 38 37 33 32 3a |14,18:SY|S 58732:|
|000003f0| 50 52 49 4e 54 20 22 12 | 9e 50 45 52 46 45 43 54 |PRINT ".|.PERFECT|
|00000400| 20 44 49 53 4b 21 22 3b | 0a 35 36 30 20 54 49 24 | DISK!";|.560 TI$|
|00000410| 3d 22 30 30 30 30 30 30 | 22 3a 57 41 49 54 20 31 |="000000|":WAIT 1|
|00000420| 36 31 2c 32 3a 47 4f 54 | 4f 20 32 30 0a 35 37 30 |61,2:GOT|O 20.570|
|00000430| 20 50 4f 4b 45 20 32 31 | 31 2c 32 33 3a 50 4f 4b | POKE 21|1,23:POK|
|00000440| 45 20 32 31 34 2c 31 3a | 53 59 53 20 35 38 37 33 |E 214,1:|SYS 5873|
|00000450| 32 3a 50 52 49 4e 54 20 | 22 1c 4e 41 55 47 48 54 |2:PRINT |".NAUGHT|
|00000460| 59 20 4e 41 55 47 48 54 | 59 22 3b 0a 35 38 30 20 |Y NAUGHT|Y";.580 |
|00000470| 54 49 24 3d 22 30 30 30 | 30 30 30 22 3a 57 41 49 |TI$="000|000":WAI|
|00000480| 54 20 31 36 31 2c 31 0a | 35 39 30 20 46 4f 52 20 |T 161,1.|590 FOR |
|00000490| 59 3d 31 20 54 4f 20 58 | 0a 36 30 30 20 49 46 20 |Y=1 TO X|.600 IF |
|000004a0| 54 28 59 29 3c 3e 31 38 | 20 54 48 45 4e 20 4e 45 |T(Y)<>18| THEN NE|
|000004b0| 58 54 20 59 3a 47 4f 54 | 4f 20 36 36 30 0a 36 31 |XT Y:GOT|O 660.61|
|000004c0| 30 20 47 4f 53 55 42 20 | 31 30 30 30 30 3a 50 4f |0 GOSUB |10000:PO|
|000004d0| 4b 45 20 32 31 31 2c 38 | 3a 50 4f 4b 45 20 32 31 |KE 211,8|:POKE 21|
|000004e0| 34 2c 31 38 3a 53 59 53 | 20 35 38 37 33 32 0a 36 |4,18:SYS| 58732.6|
|000004f0| 32 30 20 50 52 49 4e 54 | 22 12 9e 54 52 41 43 4b |20 PRINT|"..TRACK|
|00000500| 20 31 38 20 48 41 53 20 | 41 20 42 41 44 20 42 4c | 18 HAS |A BAD BL|
|00000510| 4f 43 4b 21 22 0a 36 33 | 30 20 50 52 49 4e 54 20 |OCK!".63|0 PRINT |
|00000520| 22 11 11 20 20 54 52 41 | 4e 53 46 45 52 20 59 4f |"..  TRA|NSFER YO|
|00000530| 55 52 20 46 49 4c 45 53 | 20 54 4f 20 41 4e 4f 54 |UR FILES| TO ANOT|
|00000540| 48 45 52 20 44 49 53 4b | 21 22 0a 36 34 30 20 50 |HER DISK|!".640 P|
|00000550| 52 49 4e 54 20 22 20 20 | 20 20 52 45 46 4f 52 4d |RINT "  |  REFORM|
|00000560| 41 54 20 54 48 45 20 44 | 49 53 4b 20 41 4e 44 20 |AT THE D|ISK AND |
|00000570| 09 00 59 20 41 47 41 49 | 4e 21 22 0a 36 35 30 20 |..Y AGAI|N!".650 |
|00000580| 54 49 24 3d 22 30 30 30 | 30 30 30 22 3a 57 41 49 |TI$="000|000":WAI|
|00000590| 54 20 31 36 31 2c 32 3a | 47 4f 54 4f 20 32 30 0a |T 161,2:|GOTO 20.|
|000005a0| 36 36 30 20 4f 50 45 4e | 20 31 35 2c 38 2c 31 35 |660 OPEN| 15,8,15|
|000005b0| 2c 22 53 3a 3e 3e 4e 41 | 55 47 48 54 59 20 42 4c |,"S:>>NA|UGHTY BL|
|000005c0| 4f 58 3c 3c 22 0a 36 37 | 30 20 49 4e 50 55 54 23 |OX<<".67|0 INPUT#|
|000005d0| 31 35 2c 45 3a 49 46 20 | 45 3c 3e 31 20 54 48 45 |15,E:IF |E<>1 THE|
|000005e0| 4e 20 37 35 30 0a 36 37 | 35 20 50 52 49 4e 54 23 |N 750.67|5 PRINT#|
|000005f0| 31 35 2c 22 56 22 3a 49 | 4e 50 55 54 23 31 35 2c |15,"V":I|NPUT#15,|
|00000600| 45 3a 49 46 20 45 3e 31 | 39 20 54 48 45 4e 20 37 |E:IF E>1|9 THEN 7|
|00000610| 32 30 0a 36 38 30 20 46 | 4f 52 20 59 3d 31 20 54 |20.680 F|OR Y=1 T|
|00000620| 4f 20 58 0a 36 39 30 20 | 50 52 49 4e 54 23 31 35 |O X.690 |PRINT#15|
|00000630| 2c 22 42 2d 41 3a 22 30 | 3b 54 28 59 29 3b 53 28 |,"B-A:"0|;T(Y);S(|
|00000640| 59 29 0a 37 30 30 20 49 | 4e 50 55 54 23 31 35 2c |Y).700 I|NPUT#15,|
|00000650| 45 3a 49 46 20 45 3c 3e | 36 35 20 54 48 45 4e 20 |E:IF E<>|65 THEN |
|00000660| 37 34 30 0a 37 31 30 20 | 47 4f 53 55 42 20 31 30 |740.710 |GOSUB 10|
|00000670| 30 30 30 3a 50 4f 4b 45 | 20 32 31 31 2c 39 3a 50 |000:POKE| 211,9:P|
|00000680| 4f 4b 45 20 32 31 34 2c | 31 38 3a 53 59 53 20 35 |OKE 214,|18:SYS 5|
|00000690| 38 37 33 32 0a 37 32 30 | 20 50 52 49 4e 54 20 22 |8732.720| PRINT "|
|000006a0| 12 9e 41 20 46 49 4c 45 | 20 48 41 53 20 41 20 42 |..A FILE| HAS A B|
|000006b0| 41 44 20 42 4c 4f 43 4b | 21 22 0a 37 33 30 20 47 |AD BLOCK|!".730 G|
|000006c0| 4f 54 4f 20 36 33 30 0a | 37 34 30 20 49 46 20 45 |OTO 630.|740 IF E|
|000006d0| 3c 32 30 20 54 48 45 4e | 20 4e 45 58 54 20 59 3a |<20 THEN| NEXT Y:|
|000006e0| 47 4f 54 4f 20 37 38 30 | 0a 37 35 30 20 47 4f 53 |GOTO 780|.750 GOS|
|000006f0| 55 42 20 31 30 30 30 30 | 3a 50 4f 4b 45 20 32 31 |UB 10000|:POKE 21|
|00000700| 31 2c 31 34 3a 50 4f 4b | 45 20 32 31 34 2c 31 38 |1,14:POK|E 214,18|
|00000710| 3a 53 59 53 20 35 38 37 | 33 32 0a 37 36 30 20 50 |:SYS 587|32.760 P|
|00000720| 52 49 4e 54 20 22 9e 12 | 44 49 53 4b 20 45 52 52 |RINT "..|DISK ERR|
|00000730| 4f 52 22 0a 37 37 30 20 | 43 4c 4f 53 45 20 32 3a |OR".770 |CLOSE 2:|
|00000740| 43 4c 4f 53 45 20 31 35 | 3a 54 49 24 3d 22 30 30 |CLOSE 15|:TI$="00|
|00000750| 30 30 30 30 22 3a 57 41 | 49 54 20 31 36 31 2c 31 |0000":WA|IT 161,1|
|00000760| 3a 47 4f 54 4f 20 32 30 | 0a 37 38 30 20 47 4f 53 |:GOTO 20|.780 GOS|
|00000770| 55 42 20 31 30 30 30 30 | 3a 50 4f 4b 45 20 32 31 |UB 10000|:POKE 21|
|00000780| 31 2c 35 3a 50 4f 4b 45 | 20 32 31 34 2c 31 38 3a |1,5:POKE| 214,18:|
|00000790| 53 59 53 20 35 38 37 33 | 32 0a 37 39 30 20 50 52 |SYS 5873|2.790 PR|
|000007a0| 49 4e 54 20 22 12 9e 43 | 52 45 41 54 49 4e 47 20 |INT "..C|REATING |
|000007b0| 3e 3e 4e 41 55 47 48 54 | 59 20 42 4c 4f 58 3c 3c |>>NAUGHT|Y BLOX<<|
|000007c0| 20 46 49 4c 45 22 0a 38 | 30 30 20 43 4c 4f 53 45 | FILE".8|00 CLOSE|
|000007d0| 20 31 35 3a 4f 50 45 4e | 20 31 35 2c 38 2c 31 35 | 15:OPEN| 15,8,15|
|000007e0| 2c 22 55 3b 22 3a 4f 50 | 45 4e 20 32 2c 38 2c 32 |,"U;":OP|EN 2,8,2|
|000007f0| 2c 22 3e 3e 4e 41 09 00 | 48 54 59 20 42 4c 4f 58 |,">>NA..|HTY BLOX|
|00000800| 3c 3c 2c 53 2c 57 22 0a | 38 31 30 20 49 4e 50 55 |<<,S,W".|810 INPU|
|00000810| 54 23 31 35 2c 45 3a 49 | 46 20 45 3e 31 39 20 54 |T#15,E:I|F E>19 T|
|00000820| 48 45 4e 20 37 35 30 0a | 38 32 30 20 50 52 49 4e |HEN 750.|820 PRIN|
|00000830| 54 23 32 2c 58 0a 38 33 | 30 20 46 4f 52 20 59 3d |T#2,X.83|0 FOR Y=|
|00000840| 31 20 54 4f 20 58 3a 50 | 52 49 4e 54 23 32 2c 54 |1 TO X:P|RINT#2,T|
|00000850| 28 59 29 3a 50 52 49 4e | 54 23 32 2c 53 28 59 29 |(Y):PRIN|T#2,S(Y)|
|00000860| 3a 4e 45 58 54 20 59 3a | 43 4c 4f 53 45 20 32 3a |:NEXT Y:|CLOSE 2:|
|00000870| 43 4c 4f 53 45 20 31 35 | 3a 47 4f 54 4f 20 31 31 |CLOSE 15|:GOTO 11|
|00000880| 39 30 0a 31 30 30 30 20 | 4f 50 45 4e 20 32 2c 38 |90.1000 |OPEN 2,8|
|00000890| 2c 32 2c 22 3e 3e 4e 41 | 55 47 48 54 59 20 42 4c |,2,">>NA|UGHTY BL|
|000008a0| 4f 58 3c 3c 2c 53 2c 52 | 22 0a 31 30 31 30 20 49 |OX<<,S,R|".1010 I|
|000008b0| 4e 50 55 54 23 31 35 2c | 45 3a 49 46 20 45 3d 36 |NPUT#15,|E:IF E=6|
|000008c0| 32 20 54 48 45 4e 20 31 | 30 33 30 0a 31 30 32 30 |2 THEN 1|030.1020|
|000008d0| 20 49 46 20 45 3e 31 39 | 20 54 48 45 4e 20 37 35 | IF E>19| THEN 75|
|000008e0| 30 0a 31 30 33 30 20 43 | 4c 4f 53 45 20 32 3a 50 |0.1030 C|LOSE 2:P|
|000008f0| 52 49 4e 54 23 31 35 2c | 22 56 22 0a 31 30 34 30 |RINT#15,|"V".1040|
|00000900| 20 49 4e 50 55 54 23 31 | 35 2c 57 3a 49 46 20 57 | INPUT#1|5,W:IF W|
|00000910| 3e 31 39 20 54 48 45 4e | 20 37 35 30 0a 31 30 35 |>19 THEN| 750.105|
|00000920| 30 20 49 46 20 45 3d 36 | 32 20 54 48 45 4e 20 31 |0 IF E=6|2 THEN 1|
|00000930| 31 34 30 0a 31 30 36 30 | 20 4f 50 45 4e 20 32 2c |140.1060| OPEN 2,|
|00000940| 38 2c 32 2c 22 3e 3e 4e | 41 55 47 48 54 59 20 42 |8,2,">>N|AUGHTY B|
|00000950| 4c 4f 58 3c 3c 2c 53 2c | 52 22 3a 49 4e 50 55 54 |LOX<<,S,|R":INPUT|
|00000960| 23 32 2c 58 0a 31 30 37 | 30 20 47 4f 53 55 42 20 |#2,X.107|0 GOSUB |
|00000970| 32 30 30 30 30 3a 46 4f | 52 20 59 3d 31 20 54 4f |20000:FO|R Y=1 TO|
|00000980| 20 58 0a 31 30 38 30 20 | 49 4e 50 55 54 23 32 2c | X.1080 |INPUT#2,|
|00000990| 54 28 59 29 3a 49 4e 50 | 55 54 23 32 2c 53 28 59 |T(Y):INP|UT#2,S(Y|
|000009a0| 29 3a 4e 45 58 54 20 59 | 0a 31 31 30 30 20 46 4f |):NEXT Y|.1100 FO|
|000009b0| 52 20 59 3d 31 20 54 4f | 20 58 3a 50 4f 4b 45 20 |R Y=1 TO| X:POKE |
|000009c0| 32 31 31 2c 54 28 59 29 | 2b 32 3a 50 4f 4b 45 20 |211,T(Y)|+2:POKE |
|000009d0| 32 31 34 2c 32 31 2d 53 | 28 59 29 3a 53 59 53 20 |214,21-S|(Y):SYS |
|000009e0| 35 38 37 33 32 3a 50 52 | 49 4e 54 20 22 1c d1 22 |58732:PR|INT ".."|
|000009f0| 3b 0a 31 31 31 30 20 50 | 52 49 4e 54 23 31 35 2c |;.1110 P|RINT#15,|
|00000a00| 22 42 2d 41 22 3b 30 3b | 54 28 59 29 3b 53 28 59 |"B-A";0;|T(Y);S(Y|
|00000a10| 29 0a 31 31 32 30 20 4e | 45 58 54 20 59 0a 31 31 |).1120 N|EXT Y.11|
|00000a20| 33 30 20 50 4f 4b 45 20 | 32 31 31 2c 32 33 3a 50 |30 POKE |211,23:P|
|00000a30| 4f 4b 45 20 32 31 34 2c | 31 3a 53 59 53 20 35 38 |OKE 214,|1:SYS 58|
|00000a40| 37 33 32 3a 50 52 49 4e | 54 20 22 1c 4e 41 55 47 |732:PRIN|T ".NAUG|
|00000a50| 48 54 59 20 4e 41 55 47 | 48 54 59 22 3b 0a 31 31 |HTY NAUG|HTY";.11|
|00000a60| 34 30 20 54 49 24 3d 22 | 30 30 30 30 30 30 22 3a |40 TI$="|000000":|
|00000a70| 57 41 49 54 20 31 36 31 | 2c 31 0a 31 31 39 30 20 |WAIT 161|,1.1190 |
|00000a80| 47 4f 53 55 42 20 31 30 | 30 30 30 3a 50 4f 4b 45 |GOSUB 10|000:POKE|
|00000a90| 20 32 31 31 2c 31 35 3a | 50 4f 4b 45 20 32 31 34 | 211,15:|POKE 214|
|00000aa0| 09 0a 31 32 30 30 20 50 | 52 49 4e 54 22 9e 12 43 |..1200 P|RINT"..C|
|00000ab0| 4f 4d 50 4c 45 54 45 22 | 3a 54 49 24 3d 22 30 30 |OMPLETE"|:TI$="00|
|00000ac0| 30 30 30 30 22 3a 57 41 | 49 54 20 31 36 31 2c 32 |0000":WA|IT 161,2|
|00000ad0| 3a 47 4f 54 4f 20 32 30 | 0a 31 32 31 30 20 50 52 |:GOTO 20|.1210 PR|
|00000ae0| 49 4e 54 23 31 35 2c 22 | 4d 2d 57 22 43 48 52 24 |INT#15,"|M-W"CHR$|
|00000af0| 28 38 29 43 48 52 24 28 | 30 29 43 48 52 24 28 32 |(8)CHR$(|0)CHR$(2|
|00000b00| 29 43 48 52 24 28 54 29 | 43 48 52 24 28 53 29 0a |)CHR$(T)|CHR$(S).|
|00000b10| 31 32 32 30 20 50 52 49 | 4e 54 23 31 35 2c 22 4d |1220 PRI|NT#15,"M|
|00000b20| 2d 57 22 43 48 52 24 28 | 31 29 43 48 52 24 28 30 |-W"CHR$(|1)CHR$(0|
|00000b30| 29 43 48 52 24 28 31 29 | 43 48 52 24 28 57 29 0a |)CHR$(1)|CHR$(W).|
|00000b40| 31 32 33 30 20 54 49 24 | 3d 22 30 30 30 30 30 30 |1230 TI$|="000000|
|00000b50| 22 3a 57 41 49 54 20 31 | 36 32 2c 31 0a 31 32 34 |":WAIT 1|62,1.124|
|00000b60| 30 20 50 52 49 4e 54 23 | 31 35 2c 22 4d 2d 52 22 |0 PRINT#|15,"M-R"|
|00000b70| 43 48 52 24 28 31 29 43 | 48 52 24 28 30 29 3a 47 |CHR$(1)C|HR$(0):G|
|00000b80| 45 54 23 31 35 2c 41 24 | 3a 45 3d 50 45 45 4b 28 |ET#15,A$|:E=PEEK(|
|00000b90| 35 31 32 29 0a 31 32 35 | 30 20 49 46 20 54 49 3c |512).125|0 IF TI<|
|00000ba0| 31 38 30 20 41 4e 44 20 | 45 3e 31 32 37 20 54 48 |180 AND |E>127 TH|
|00000bb0| 45 4e 20 31 32 34 30 0a | 31 32 36 30 20 52 45 54 |EN 1240.|1260 RET|
|00000bc0| 55 52 4e 0a 31 30 30 30 | 30 20 50 4f 4b 45 20 35 |URN.1000|0 POKE 5|
|00000bd0| 33 32 38 30 2c 37 3a 50 | 4f 4b 45 20 35 33 32 38 |3280,7:P|OKE 5328|
|00000be0| 31 2c 30 0a 31 30 30 31 | 30 20 50 52 49 4e 54 20 |1,0.1001|0 PRINT |
|00000bf0| 22 93 97 56 31 2e 31 22 | 3a 50 52 49 4e 54 20 54 |"..V1.1"|:PRINT T|
|00000c00| 41 42 28 31 31 29 22 9e | b9 b9 b9 b9 b9 b9 b9 b9 |AB(11)".|........|
|00000c10| b9 b9 b9 b9 b9 b9 b9 b9 | b9 b9 22 0a 31 30 30 32 |........|..".1002|
|00000c20| 30 20 50 52 49 4e 54 20 | 54 41 42 28 31 31 29 22 |0 PRINT |TAB(11)"|
|00000c30| 12 20 92 1c bf bf bf bf | bf bf bf bf bf bf bf bf |. ......|........|
|00000c40| bf bf bf bf 9e 12 20 22 | 0a 31 30 30 33 30 20 50 |...... "|.10030 P|
|00000c50| 52 49 4e 54 20 54 41 42 | 28 31 31 29 22 12 20 92 |RINT TAB|(11)". .|
|00000c60| 1c bf bf 05 4e 41 55 47 | 48 54 59 20 42 4c 4f 58 |....NAUG|HTY BLOX|
|00000c70| 1c bf bf 9e 12 20 22 0a | 31 30 30 34 30 20 50 52 |..... ".|10040 PR|
|00000c80| 49 4e 54 20 54 41 42 28 | 31 31 29 22 12 20 92 1c |INT TAB(|11)". ..|
|00000c90| bf bf bf bf bf bf bf bf | bf bf bf bf bf bf bf bf |........|........|
|00000ca0| 9e 12 20 22 0a 31 30 30 | 35 30 20 50 52 49 4e 54 |.. ".100|50 PRINT|
|00000cb0| 20 54 41 42 28 31 31 29 | 22 b8 b8 b8 b8 b8 b8 b8 | TAB(11)|".......|
|00000cc0| b8 b8 b8 b8 b8 b8 b8 b8 | b8 b8 b8 22 0a 31 30 30 |........|...".100|
|00000cd0| 36 30 20 50 52 49 4e 54 | 20 22 1c b9 b9 b9 b9 b9 |60 PRINT| "......|
|00000ce0| b9 b9 b9 b9 b9 b9 b9 b9 | b9 b9 b9 b9 b9 b9 b9 b9 |........|........|
|00000cf0| b9 b9 b9 b9 b9 b9 b9 b9 | b9 b9 b9 b9 b9 b9 b9 b9 |........|........|
|00000d00| b9 b9 b9 22 3b 0a 31 30 | 30 37 30 20 50 52 49 4e |...";.10|070 PRIN|
|00000d10| 54 20 22 12 9e 20 20 20 | 20 20 20 20 20 20 20 20 |T "..   |        |
|00000d20| 20 20 42 59 20 57 49 4c | 4c 20 43 4f 52 4c 45 09 |  BY WIL|L CORLE.|
|00000d30| 00 20 20 20 20 20 20 20 | 20 20 20 20 20 92 22 3b |.       |     .";|
|00000d40| 0a 31 30 30 38 30 20 50 | 52 49 4e 54 20 22 1c b8 |.10080 P|RINT "..|
|00000d50| b8 b8 b8 b8 b8 b8 b8 b8 | b8 b8 b8 b8 b8 b8 b8 b8 |........|........|
|00000d60| b8 b8 b8 b8 b8 b8 b8 b8 | b8 b8 b8 b8 b8 b8 b8 b8 |........|........|
|00000d70| b8 b8 b8 b8 b8 b8 b8 11 | 11 11 11 11 11 11 11 22 |........|......."|
|00000d80| 3b 0a 31 30 30 39 30 20 | 50 52 49 4e 54 20 22 b9 |;.10090 |PRINT ".|
|00000d90| b9 b9 b9 b9 b9 b9 b9 b9 | b9 b9 b9 b9 b9 b9 b9 b9 |........|........|
|00000da0| b9 b9 b9 b9 b9 b9 b9 b9 | b9 b9 b9 b9 b9 b9 b9 b9 |........|........|
|00000db0| b9 b9 b9 b9 b9 b9 b9 22 | 3b 0a 31 30 31 30 30 20 |......."|;.10100 |
|00000dc0| 50 52 49 4e 54 20 22 12 | 9e 20 20 20 20 20 20 20 |PRINT ".|.       |
|00000dd0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00000de0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00000df0| 20 92 22 3b 0a 31 30 31 | 31 30 20 50 52 49 4e 54 | .";.101|10 PRINT|
|00000e00| 20 22 1c b8 b8 b8 b8 b8 | b8 b8 b8 b8 b8 b8 b8 b8 | "......|........|
|00000e10| b8 b8 b8 b8 b8 b8 b8 b8 | b8 b8 b8 b8 b8 b8 b8 b8 |........|........|
|00000e20| b8 b8 b8 b8 b8 b8 b8 b8 | b8 b8 b8 22 0a 31 30 31 |........|...".101|
|00000e30| 32 30 20 52 45 54 55 52 | 4e 0a 32 30 30 30 30 20 |20 RETUR|N.20000 |
|00000e40| 50 4f 4b 45 20 35 33 32 | 38 30 2c 30 3a 50 52 49 |POKE 532|80,0:PRI|
|00000e50| 4e 54 20 22 93 9e 22 3b | 0a 32 30 30 31 30 20 50 |NT "..";|.20010 P|
|00000e60| 52 49 4e 54 20 22 20 20 | b0 c3 c3 c3 c3 c3 c3 c3 |RINT "  |........|
|00000e70| c3 c3 c3 c3 c3 c3 c3 c3 | c3 c3 ae 22 0a 32 30 30 |........|...".200|
|00000e80| 32 30 20 50 52 49 4e 54 | 20 22 32 30 b3 22 3b 53 |20 PRINT| "20.";S|
|00000e90| 50 43 28 31 37 29 3b 22 | c2 22 0a 32 30 30 33 30 |PC(17);"|.".20030|
|00000ea0| 20 50 52 49 4e 54 20 22 | 31 39 b3 22 3b 53 50 43 | PRINT "|19.";SPC|
|00000eb0| 28 31 37 29 3b 22 ad c3 | c3 c3 c3 c3 c3 ae 22 0a |(17);"..|......".|
|00000ec0| 32 30 30 34 30 20 50 52 | 49 4e 54 20 22 31 38 b3 |20040 PR|INT "18.|
|00000ed0| 22 3b 53 50 43 28 32 34 | 29 3b 22 ad c3 c3 c3 c3 |";SPC(24|);".....|
|00000ee0| c3 ae 22 0a 32 30 30 35 | 30 20 50 52 49 4e 54 20 |..".2005|0 PRINT |
|00000ef0| 22 31 37 b3 22 3b 53 50 | 43 28 33 30 29 3b 22 ad |"17.";SP|C(30);".|
|00000f00| c3 c3 c3 c3 ae 22 0a 32 | 30 30 36 30 20 46 4f 52 |.....".2|0060 FOR|
|00000f10| 20 5a 3d 31 36 20 54 4f | 20 30 20 53 54 45 50 2d | Z=16 TO| 0 STEP-|
|00000f20| 31 3a 41 24 3d 53 54 52 | 24 28 5a 29 3a 41 24 3d |1:A$=STR|$(Z):A$=|
|00000f30| 52 49 47 48 54 24 28 41 | 24 2c 32 29 0a 32 30 30 |RIGHT$(A|$,2).200|
|00000f40| 37 30 20 49 46 20 4c 45 | 4e 28 41 24 29 3d 31 20 |70 IF LE|N(A$)=1 |
|00000f50| 54 48 45 4e 20 41 24 3d | 22 30 22 2b 41 24 0a 32 |THEN A$=|"0"+A$.2|
|00000f60| 30 30 38 30 20 50 52 49 | 4e 54 20 41 24 3b 22 b3 |0080 PRI|NT A$;".|
|00000f70| 22 3b 53 50 43 28 33 35 | 29 3b 22 c2 22 3a 4e 45 |";SPC(35|);".":NE|
|00000f80| 58 54 20 5a 0a 32 30 30 | 39 30 20 50 52 49 4e 54 |XT Z.200|90 PRINT|
|00000f90| 20 22 20 20 ad b1 b1 b1 | b1 b1 b1 b1 b1 b1 b1 b1 | "  ....|........|
|00000fa0| b1 b1 b1 b1 b1 b1 b1 b1 | b1 b1 b1 09 00 b1 b1 b1 |........|........|
|00000fb0| b1 b1 b1 b1 b1 b1 b1 b1 | bd 20 22 3b 0a 32 30 31 |........|. ";.201|
|00000fc0| 30 30 20 50 52 49 4e 54 | 20 22 20 20 20 20 20 20 |00 PRINT| "      |
|00000fd0| 20 20 20 20 20 20 31 31 | 31 31 31 31 31 31 31 31 |      11|11111111|
|00000fe0| 32 32 32 32 32 32 32 32 | 32 32 33 33 33 33 33 33 |22222222|22333333|
|00000ff0| 20 20 22 3b 0a 32 30 31 | 31 30 20 50 52 49 4e 54 |  ";.201|10 PRINT|
|00001000| 20 22 20 20 20 31 32 33 | 34 35 36 37 38 39 30 31 | "   123|45678901|
|00001010| 32 33 34 35 36 37 38 39 | 30 31 32 33 34 35 36 37 |23456789|01234567|
|00001020| 38 39 30 31 32 33 34 35 | 22 3b 0a 32 30 31 32 30 |89012345|";.20120|
|00001030| 20 50 52 49 4e 54 20 22 | 05 22 3b 3a 46 4f 52 20 | PRINT "|.";:FOR |
|00001040| 54 3d 31 20 54 4f 20 33 | 35 3a 50 4f 4b 45 20 32 |T=1 TO 3|5:POKE 2|
|00001050| 31 31 2c 54 2b 32 3a 50 | 4f 4b 45 20 32 31 34 2c |11,T+2:P|OKE 214,|
|00001060| 32 31 3a 53 59 53 20 35 | 38 37 33 32 0a 32 30 31 |21:SYS 5|8732.201|
|00001070| 33 30 20 53 4d 3d 32 30 | 2b 32 2a 28 54 3e 31 37 |30 SM=20|+2*(T>17|
|00001080| 29 2b 28 54 3e 32 34 29 | 2b 28 54 3e 33 30 29 0a |)+(T>24)|+(T>30).|
|00001090| 32 30 31 34 30 20 46 4f | 52 20 53 3d 30 20 54 4f |20140 FO|R S=0 TO|
|000010a0| 20 53 4d 3a 50 52 49 4e | 54 20 22 d7 91 9d 22 3b | SM:PRIN|T "...";|
|000010b0| 3a 4e 45 58 54 20 53 3a | 4e 45 58 54 20 54 3a 52 |:NEXT S:|NEXT T:R|
|000010c0| 45 54 55 52 4e 0a       |                         |ETURN.  |        |
+--------+-------------------------+-------------------------+--------+--------+