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

MacOS 8.1

Win98

DOS

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 35 20 50 4f 4b 45 35 33 | 32 38 30 2c 30 3a 50 4f |5 POKE53|280,0:PO|
|00000010| 4b 45 35 33 32 38 31 2c | 30 3a 50 52 49 4e 54 22 |KE53281,|0:PRINT"|
|00000020| 05 22 0a 31 30 20 44 49 | 4d 41 28 32 35 35 29 2c |.".10 DI|MA(255),|
|00000030| 43 25 28 37 37 2c 32 38 | 29 2c 44 25 28 31 29 2c |C%(77,28|),D%(1),|
|00000040| 54 25 28 32 32 34 2c 31 | 29 2c 53 25 28 32 32 34 |T%(224,1|),S%(224|
|00000050| 2c 31 29 2c 4c 25 28 32 | 32 34 29 2c 52 25 28 37 |,1),L%(2|24),R%(7|
|00000060| 37 29 0a 31 31 20 44 25 | 28 30 29 3d 35 38 3a 44 |7).11 D%|(0)=58:D|
|00000070| 25 28 31 29 3d 34 32 3a | 5a 24 3d 43 48 52 24 28 |%(1)=42:|Z$=CHR$(|
|00000080| 30 29 3a 42 24 3d 43 48 | 52 24 28 33 29 3a 44 24 |0):B$=CH|R$(3):D$|
|00000090| 3d 22 30 22 0a 32 30 20 | 50 52 49 4e 54 22 93 11 |="0".20 |PRINT"..|
|000000a0| 11 11 11 11 11 20 20 20 | 20 20 20 20 20 53 43 52 |.....   |     SCR|
|000000b0| 41 54 43 48 2f 55 4e 53 | 43 52 41 54 43 48 22 3a |ATCH/UNS|CRATCH":|
|000000c0| 50 52 49 4e 54 0a 33 30 | 20 50 52 49 4e 54 22 11 |PRINT.30| PRINT".|
|000000d0| 11 11 11 11 11 9e 20 20 | 12 20 53 20 92 3d 53 43 |......  |. S .=SC|
|000000e0| 52 41 54 43 48 2c 20 20 | 20 12 20 55 20 92 3d 55 |RATCH,  | . U .=U|
|000000f0| 4e 53 43 52 41 54 43 48 | 05 22 0a 34 30 20 47 45 |NSCRATCH|.".40 GE|
|00000100| 54 51 24 3a 49 46 51 24 | 3d 22 22 54 48 45 4e 34 |TQ$:IFQ$|=""THEN4|
|00000110| 30 0a 34 35 20 49 46 51 | 24 3d 22 55 22 54 48 45 |0.45 IFQ|$="U"THE|
|00000120| 4e 34 30 30 0a 34 36 20 | 49 46 51 24 3c 3e 22 53 |N400.46 |IFQ$<>"S|
|00000130| 22 54 48 45 4e 34 30 0a | 35 30 20 50 52 49 4e 54 |"THEN40.|50 PRINT|
|00000140| 22 93 11 11 1d 1d 20 20 | 20 12 9f 52 45 41 44 49 |".....  | ..READI|
|00000150| 4e 47 20 20 20 20 44 49 | 53 4b 05 22 0a 36 30 20 |NG    DI|SK.".60 |
|00000160| 4f 50 45 4e 31 2c 38 2c | 30 2c 22 24 30 22 0a 37 |OPEN1,8,|0,"$0".7|
|00000170| 30 20 4e 24 3d 43 48 52 | 24 28 30 29 0a 38 30 20 |0 N$=CHR|$(0).80 |
|00000180| 47 45 54 23 31 2c 41 24 | 2c 41 24 0a 39 30 20 46 |GET#1,A$|,A$.90 F|
|00000190| 24 3d 22 22 3a 42 3d 30 | 3a 47 45 54 23 31 2c 41 |$="":B=0|:GET#1,A|
|000001a0| 24 2c 41 24 0a 39 35 20 | 49 46 43 3d 30 54 48 45 |$,A$.95 |IFC=0THE|
|000001b0| 4e 50 52 49 4e 54 22 12 | 22 3b 0a 31 30 30 20 49 |NPRINT".|";.100 I|
|000001c0| 46 41 24 3d 22 22 54 48 | 45 4e 58 3d 31 3a 47 4f |FA$=""TH|ENX=1:GO|
|000001d0| 54 4f 32 30 30 0a 31 31 | 30 20 47 45 54 23 31 2c |TO200.11|0 GET#1,|
|000001e0| 41 24 2c 42 24 0a 31 32 | 30 20 50 52 49 4e 54 54 |A$,B$.12|0 PRINTT|
|000001f0| 41 42 28 35 29 3b 0a 31 | 33 30 20 47 45 54 23 31 |AB(5);.1|30 GET#1|
|00000200| 2c 41 24 0a 31 34 30 20 | 49 46 41 24 3d 22 22 54 |,A$.140 |IFA$=""T|
|00000210| 48 45 4e 50 52 49 4e 54 | 3a 41 3d 41 2b 31 3a 47 |HENPRINT|:A=A+1:G|
|00000220| 4f 54 4f 31 39 30 0a 31 | 35 30 20 49 46 41 24 3d |OTO190.1|50 IFA$=|
|00000230| 43 48 52 24 28 33 34 29 | 54 48 45 4e 42 3d 31 3a |CHR$(34)|THENB=1:|
|00000240| 41 24 3d 22 22 0a 31 36 | 30 20 49 46 42 3d 31 54 |A$="".16|0 IFB=1T|
|00000250| 48 45 4e 46 24 3d 46 24 | 2b 41 24 3a 50 52 49 4e |HENF$=F$|+A$:PRIN|
|00000260| 54 41 24 3b 0a 31 37 30 | 20 49 46 4c 45 4e 28 46 |TA$;.170| IFLEN(F|
|00000270| 24 29 3e 31 36 54 48 45 | 4e 43 3d 43 2b 31 3a 47 |$)>16THE|NC=C+1:G|
|00000280| 4f 54 4f 39 30 0a 31 38 | 30 20 47 4f 54 4f 31 33 |OTO90.18|0 GOTO13|
|00000290| 30 0a 31 39 30 20 49 46 | 41 3c 32 30 54 48 45 4e |0.190 IF|A<20THEN|
|000002a0| 39 30 0a 32 30 30 20 50 | 52 49 4e 54 22 12 9e 20 |90.200 P|RINT".. |
|000002b0| 53 43 52 41 54 43 48 20 | 50 52 4f 47 52 41 4d 3f |SCRATCH |PROGRAM?|
|000002c0| 20 28 59 2f 4e 29 05 22 | 0a 32 31 30 20 47 45 54 | (Y/N)."|.210 GET|
|000002d0| 5a 24 3a 49 46 5a 24 3d | 22 22 54 48 45 4e 32 31 |Z$:IFZ$=|""THEN21|
|000002e0| 30 0a 32 32 30 20 49 46 | 5a 24 3d 22 59 22 54 48 |0.220 IF|Z$="Y"TH|
|000002f0| 45 4e 32 37 30 0a 32 33 | 30 20 49 46 5a 24 3d 22 |EN270.23|0 IFZ$="|
|00000300| 4e 22 54 48 45 4e 32 35 | 30 0a 32 34 30 20 47 4f |N"THEN25|0.240 GO|
|00000310| 54 4f 32 31 30 0a 32 35 | 30 20 49 46 58 3d 31 54 |TO210.25|0 IFX=1T|
|00000320| 48 45 4e 43 4c 4f 53 45 | 31 3a 47 4f 54 4f 33 39 |HENCLOSE|1:GOTO39|
|00000330| 30 0a 32 36 30 20 50 52 | 49 4e 54 22 93 11 11 22 |0.260 PR|INT"..."|
|00000340| 3a 41 3d 30 3a 47 4f 54 | 4f 39 30 0a 32 37 30 20 |:A=0:GOT|O90.270 |
|00000350| 43 4c 4f 53 45 31 3a 49 | 4e 50 55 54 22 11 20 57 |CLOSE1:I|NPUT". W|
|00000360| 48 49 43 48 20 50 52 4f | 47 52 41 4d 22 3b 50 24 |HICH PRO|GRAM";P$|
|00000370| 3a 49 46 50 24 3d 22 22 | 54 48 45 4e 45 4e 44 0a |:IFP$=""|THENEND.|
|00000380| 32 38 30 20 47 4f 53 55 | 42 33 34 30 0a 32 39 30 |280 GOSU|B340.290|
|00000390| 20 50 52 49 4e 54 22 93 | 11 11 11 11 11 11 11 11 | PRINT".|........|
|000003a0| 22 0a 33 30 30 20 50 52 | 49 4e 54 22 4f 50 45 4e |".300 PR|INT"OPEN|
|000003b0| 31 35 2c 38 2c 31 35 22 | 0a 33 31 30 20 50 52 49 |15,8,15"|.310 PRI|
|000003c0| 4e 54 22 11 11 50 d2 31 | 35 2c 22 43 48 52 24 28 |NT"..P.1|5,"CHR$(|
|000003d0| 33 34 29 22 53 30 3a 22 | 58 24 43 48 52 24 28 33 |34)"S0:"|X$CHR$(3|
|000003e0| 34 29 22 00 0a 33 32 30 | 20 50 52 49 4e 54 22 11 |4)"..320| PRINT".|
|000003f0| 11 52 55 4e 22 3a 50 52 | 49 4e 54 22 91 91 91 91 |.RUN":PR|INT"....|
|00000400| 91 91 91 91 91 91 22 0a | 33 33 30 20 50 4f 4b 45 |......".|330 POKE|
|00000410| 36 33 31 2c 31 33 3a 50 | 4f 4b 45 36 33 32 2c 31 |631,13:P|OKE632,1|
|00000420| 33 3a 50 4f 4b 45 36 33 | 33 2c 31 33 3a 50 4f 4b |3:POKE63|3,13:POK|
|00000430| 45 31 39 38 2c 33 3a 45 | 4e 44 0a 33 34 30 20 46 |E198,3:E|ND.340 F|
|00000440| 4f 52 41 34 3d 31 54 4f | 4c 45 4e 28 50 24 29 3a |ORA4=1TO|LEN(P$):|
|00000450| 52 24 3d 4d 49 44 24 28 | 50 24 2c 41 34 2c 31 29 |R$=MID$(|P$,A4,1)|
|00000460| 0a 33 35 30 20 58 24 3d | 58 24 2b 52 24 0a 33 36 |.350 X$=|X$+R$.36|
|00000470| 30 20 4e 45 58 54 0a 33 | 37 30 20 49 46 4c 45 4e |0 NEXT.3|70 IFLEN|
|00000480| 28 58 24 29 3e 31 30 54 | 48 45 4e 58 24 3d 4c 45 |(X$)>10T|HENX$=LE|
|00000490| 46 54 24 28 58 24 2c 31 | 30 29 2b 22 2a 22 0a 33 |FT$(X$,1|0)+"*".3|
|000004a0| 38 30 20 52 45 54 55 52 | 4e 0a 33 39 30 20 43 4c |80 RETUR|N.390 CL|
|000004b0| 4f 53 45 31 35 3a 52 55 | 4e 0a 34 30 30 20 50 52 |OSE15:RU|N.400 PR|
|000004c0| 49 4e 54 22 11 11 11 4c | 4f 41 44 49 4e 47 20 46 |INT"...L|OADING F|
|000004d0| 52 45 45 20 53 45 43 54 | 4f 52 53 22 3a 4f 50 45 |REE SECT|ORS":OPE|
|000004e0| 4e 31 35 2c 38 2c 31 35 | 2c 22 49 22 2b 44 24 3a |N15,8,15|,"I"+D$:|
|000004f0| 47 4f 53 55 42 33 30 32 | 30 0a 34 31 30 20 4f 50 |GOSUB302|0.410 OP|
|00000500| 45 4e 33 2c 38 2c 33 2c | 22 24 22 2b 44 24 3a 47 |EN3,8,3,|"$"+D$:G|
|00000510| 4f 53 55 42 33 30 32 30 | 0a 34 32 30 20 41 30 3d |OSUB3020|.420 A0=|
|00000520| 31 3a 47 45 54 23 33 2c | 41 24 3a 41 3d 41 53 43 |1:GET#3,|A$:A=ASC|
|00000530| 28 41 24 2b 5a 24 29 0a | 34 33 30 20 52 45 41 44 |(A$+Z$).|430 READ|
|00000540| 41 31 3a 49 46 41 3d 41 | 31 54 48 45 4e 34 37 30 |A1:IFA=A|1THEN470|
|00000550| 0a 34 34 30 20 46 25 3d | 46 25 2b 31 3a 49 46 46 |.440 F%=|F%+1:IFF|
|00000560| 25 3d 33 54 48 45 4e 35 | 31 30 0a 34 35 30 20 52 |%=3THEN5|10.450 R|
|00000570| 45 41 44 41 31 3a 49 46 | 41 31 3d 30 54 48 45 4e |EADA1:IF|A1=0THEN|
|00000580| 34 33 30 0a 34 36 30 20 | 47 4f 54 4f 34 35 30 0a |430.460 |GOTO450.|
|00000590| 34 37 30 20 52 45 41 44 | 41 31 3a 09 0a 34 38 30 |470 READ|A1:..480|
|000005a0| 20 52 45 41 44 42 31 3a | 46 4f 52 4a 3d 41 30 54 | READB1:|FORJ=A0T|
|000005b0| 4f 41 31 3a 52 25 28 4a | 29 3d 42 31 3a 4e 45 58 |OA1:R%(J|)=B1:NEX|
|000005c0| 54 4a 3a 41 30 3d 4a 3a | 47 4f 54 4f 34 37 30 0a |TJ:A0=J:|GOTO470.|
|000005d0| 34 39 30 20 49 46 41 3d | 31 4f 52 41 3d 36 35 54 |490 IFA=|1ORA=65T|
|000005e0| 48 45 4e 44 31 3d 31 3a | 54 39 3d 33 35 3a 53 39 |HEND1=1:|T9=35:S9|
|000005f0| 3d 33 3a 44 39 3d 31 38 | 0a 35 30 30 20 49 46 41 |=3:D9=18|.500 IFA|
|00000600| 3d 36 37 54 48 45 4e 44 | 31 3d 32 35 37 3a 54 39 |=67THEND|1=257:T9|
|00000610| 3d 37 37 3a 53 39 3d 34 | 3a 44 39 3d 33 39 0a 35 |=77:S9=4|:D9=39.5|
|00000620| 31 30 20 49 46 54 39 3d | 30 54 48 45 4e 43 4c 4f |10 IFT9=|0THENCLO|
|00000630| 53 45 33 3a 50 52 49 4e | 54 22 3f 3f 20 44 49 53 |SE3:PRIN|T"?? DIS|
|00000640| 4b 20 4e 4f 54 20 52 45 | 43 4f 47 4e 49 5a 45 44 |K NOT RE|COGNIZED|
|00000650| 20 3f 3f 22 3a 53 54 4f | 50 0a 35 32 30 20 46 4f | ??":STO|P.520 FO|
|00000660| 52 4a 3d 31 54 4f 44 31 | 3a 47 45 54 23 33 2c 41 |RJ=1TOD1|:GET#3,A|
|00000670| 24 3a 4e 45 58 54 4a 0a | 35 33 30 20 46 4f 52 4a |$:NEXTJ.|530 FORJ|
|00000680| 3d 31 54 4f 54 39 3a 54 | 31 3d 30 0a 35 34 30 20 |=1TOT9:T|1=0.540 |
|00000690| 49 46 4a 3d 35 31 54 48 | 45 4e 47 45 54 23 33 2c |IFJ=51TH|ENGET#3,|
|000006a0| 41 24 2c 41 24 2c 41 24 | 2c 41 24 0a 35 35 30 20 |A$,A$,A$|,A$.550 |
|000006b0| 47 45 54 23 33 2c 41 24 | 3a 43 3d 41 53 43 28 41 |GET#3,A$|:C=ASC(A|
|000006c0| 24 2b 5a 24 29 0a 35 36 | 30 20 4b 31 3d 30 3a 46 |$+Z$).56|0 K1=0:F|
|000006d0| 4f 52 4b 3d 30 54 4f 53 | 39 2d 31 3a 47 45 54 23 |ORK=0TOS|9-1:GET#|
|000006e0| 33 2c 41 24 3a 41 3d 41 | 53 43 28 41 24 2b 5a 24 |3,A$:A=A|SC(A$+Z$|
|000006f0| 29 0a 35 37 30 20 46 4f | 52 4c 3d 30 54 4f 37 3a |).570 FO|RL=0TO7:|
|00000700| 41 25 3d 41 2f 32 3a 44 | 31 3d 41 2d 41 25 2a 32 |A%=A/2:D|1=A-A%*2|
|00000710| 3a 49 46 4b 31 3c 3d 52 | 25 28 4a 29 54 48 45 4e |:IFK1<=R|%(J)THEN|
|00000720| 43 25 28 4a 2c 4b 31 29 | 3d 44 31 0a 35 38 30 20 |C%(J,K1)|=D1.580 |
|00000730| 41 3d 41 25 3a 54 31 3d | 54 31 2b 44 31 3a 4b 31 |A=A%:T1=|T1+D1:K1|
|00000740| 3d 4b 31 2b 31 3a 4e 45 | 58 54 4c 2c 4b 0a 35 39 |=K1+1:NE|XTL,K.59|
|00000750| 30 20 4e 45 58 54 4a 0a | 36 30 30 20 43 4c 4f 53 |0 NEXTJ.|600 CLOS|
|00000760| 45 33 0a 36 31 30 20 4f | 50 45 4e 32 2c 38 2c 32 |E3.610 O|PEN2,8,2|
|00000770| 2c 22 23 30 22 3a 47 4f | 53 55 42 33 30 32 30 0a |,"#0":GO|SUB3020.|
|00000780| 39 30 30 20 4b 3d 30 3a | 50 52 49 4e 54 22 93 11 |900 K=0:|PRINT"..|
|00000790| 11 20 4c 4f 4f 4b 49 4e | 47 20 46 4f 52 20 53 43 |. LOOKIN|G FOR SC|
|000007a0| 52 41 54 43 48 45 44 20 | 46 49 4c 45 53 20 2e 2e |RATCHED |FILES ..|
|000007b0| 2e 2e 2e 22 0a 39 31 30 | 20 54 3d 44 39 3a 53 3d |...".910| T=D9:S=|
|000007c0| 31 0a 39 32 30 20 47 4f | 53 55 42 32 30 30 30 0a |1.920 GO|SUB2000.|
|000007d0| 39 33 30 20 46 4f 52 44 | 3d 32 54 4f 32 35 35 53 |930 FORD|=2TO255S|
|000007e0| 54 45 50 33 32 3a 49 46 | 41 28 44 29 3c 3e 30 4f |TEP32:IF|A(D)<>0O|
|000007f0| 52 41 28 44 2b 31 29 3d | 30 54 48 45 4e 39 09 0a |RA(D+1)=|0THEN9..|
|00000800| 39 34 30 20 49 46 4b 3d | 30 54 48 45 4e 50 52 49 |940 IFK=|0THENPRI|
|00000810| 4e 54 22 44 4f 20 59 4f | 55 20 57 41 4e 54 20 54 |NT"DO YO|U WANT T|
|00000820| 4f 20 52 45 43 4f 56 45 | 52 3a 22 0a 39 35 30 20 |O RECOVE|R:".950 |
|00000830| 47 45 54 58 24 3a 46 4f | 52 4b 3d 44 2b 33 54 4f |GETX$:FO|RK=D+3TO|
|00000840| 44 2b 31 38 3a 50 52 49 | 4e 54 43 48 52 24 28 41 |D+18:PRI|NTCHR$(A|
|00000850| 28 4b 29 29 3b 3a 4e 45 | 58 54 4b 3a 50 52 49 4e |(K));:NE|XTK:PRIN|
|00000860| 54 22 3f 20 22 3b 0a 39 | 36 30 20 47 45 54 58 24 |T"? ";.9|60 GETX$|
|00000870| 3a 49 46 58 24 3c 3e 22 | 59 22 41 4e 44 58 24 3c |:IFX$<>"|Y"ANDX$<|
|00000880| 3e 22 4e 22 54 48 45 4e | 39 36 30 0a 39 36 34 20 |>"N"THEN|960.964 |
|00000890| 44 41 54 41 31 33 33 2c | 32 31 36 2c 31 36 39 2c |DATA133,|216,169,|
|000008a0| 30 31 39 2c 30 33 32 2c | 32 31 30 0a 39 37 30 20 |019,032,|210.970 |
|000008b0| 50 52 49 4e 54 58 24 3a | 49 46 58 24 3d 22 59 22 |PRINTX$:|IFX$="Y"|
|000008c0| 54 48 45 4e 31 30 31 30 | 0a 39 38 30 20 4e 45 58 |THEN1010|.980 NEX|
|000008d0| 54 44 0a 39 39 30 20 54 | 3d 41 28 30 29 3a 53 3d |TD.990 T|=A(0):S=|
|000008e0| 41 28 31 29 3a 49 46 54 | 3d 44 39 54 48 45 4e 39 |A(1):IFT|=D9THEN9|
|000008f0| 32 30 0a 31 30 30 30 20 | 50 52 49 4e 54 22 20 54 |20.1000 |PRINT" T|
|00000900| 48 41 54 27 53 20 20 41 | 4c 4c 20 22 3a 47 4f 54 |HAT'S  A|LL ":GOT|
|00000910| 4f 31 32 37 30 0a 31 30 | 31 30 20 54 36 3d 54 3a |O1270.10|10 T6=T:|
|00000920| 53 36 3d 53 3a 44 36 3d | 44 3a 54 3d 41 28 44 2b |S6=S:D6=|D:T=A(D+|
|00000930| 31 29 3a 53 3d 41 28 44 | 2b 32 29 3a 4c 25 28 30 |1):S=A(D|+2):L%(0|
|00000940| 29 3d 41 28 44 2b 32 38 | 29 2b 41 28 44 2b 32 39 |)=A(D+28|)+A(D+29|
|00000950| 29 2a 32 35 36 3a 4c 25 | 3d 30 0a 31 30 32 30 20 |)*256:L%|=0.1020 |
|00000960| 47 45 54 58 24 3a 50 52 | 49 4e 54 22 1d 1d 1d 20 |GETX$:PR|INT"... |
|00000970| 20 20 20 20 20 49 53 20 | 54 48 49 53 20 46 49 4c |     IS |THIS FIL|
|00000980| 45 3a 22 0a 31 30 33 30 | 20 50 52 49 4e 54 22 11 |E:".1030| PRINT".|
|00000990| 20 20 20 20 20 12 20 31 | 20 92 20 20 20 53 45 51 |     . 1| .   SEQ|
|000009a0| 55 45 4e 54 49 41 4c 22 | 0a 31 30 34 30 20 50 52 |UENTIAL"|.1040 PR|
|000009b0| 49 4e 54 22 20 20 20 20 | 20 12 20 32 20 92 20 20 |INT"    | . 2 .  |
|000009c0| 20 50 52 4f 47 52 41 4d | 20 22 0a 31 30 35 30 20 | PROGRAM| ".1050 |
|000009d0| 50 52 49 4e 54 22 20 20 | 20 20 20 12 20 33 20 92 |PRINT"  |   . 3 .|
|000009e0| 20 20 20 55 53 52 22 0a | 31 30 36 30 20 49 46 41 |   USR".|1060 IFA|
|000009f0| 28 44 2b 31 39 29 3d 30 | 54 48 45 4e 31 30 38 30 |(D+19)=0|THEN1080|
|00000a00| 0a 31 30 37 30 20 50 52 | 49 4e 54 22 20 20 20 20 |.1070 PR|INT"    |
|00000a10| 20 12 20 34 20 92 20 20 | 20 52 45 4c 41 54 49 56 | . 4 .  | RELATIV|
|00000a20| 45 22 0a 31 30 38 30 20 | 50 52 49 4e 54 22 11 11 |E".1080 |PRINT"..|
|00000a30| 1f 20 20 20 20 20 12 9d | 20 57 48 49 43 48 20 20 |.     ..| WHICH  |
|00000a40| 4e 55 4d 42 45 52 3f 20 | 92 05 20 20 22 3b 0a 31 |NUMBER? |..  ";.1|
|00000a50| 30 39 30 20 47 45 54 58 | 24 3a 49 46 58 24 3d 22 |090 GETX|$:IFX$="|
|00000a60| 22 54 48 45 4e 31 30 09 | 0a 31 31 30 30 20 58 3d |"THEN10.|.1100 X=|
|00000a70| 41 53 43 28 58 24 29 2d | 34 38 3a 49 46 58 3c 31 |ASC(X$)-|48:IFX<1|
|00000a80| 4f 52 58 3e 34 47 4f 54 | 4f 31 30 39 30 0a 31 31 |ORX>4GOT|O1090.11|
|00000a90| 31 30 20 50 52 49 4e 54 | 58 24 3a 58 3d 58 2b 31 |10 PRINT|X$:X=X+1|
|00000aa0| 32 38 0a 31 31 32 30 20 | 49 46 58 3d 31 33 32 54 |28.1120 |IFX=132T|
|00000ab0| 48 45 4e 54 25 28 30 2c | 31 29 3d 41 28 44 2b 31 |HENT%(0,|1)=A(D+1|
|00000ac0| 39 29 3a 53 25 28 30 2c | 31 29 3d 41 28 44 2b 32 |9):S%(0,|1)=A(D+2|
|00000ad0| 30 29 3a 49 46 54 25 28 | 30 2c 31 29 3d 30 54 48 |0):IFT%(|0,1)=0TH|
|00000ae0| 45 4e 31 30 32 30 0a 31 | 31 33 30 20 49 46 54 3e |EN1020.1|130 IFT>|
|00000af0| 54 39 4f 52 53 3c 30 54 | 48 45 4e 54 3d 30 0a 31 |T9ORS<0T|HENT=0.1|
|00000b00| 31 34 30 20 49 46 54 3c | 31 4f 52 53 3e 52 25 28 |140 IFT<|1ORS>R%(|
|00000b10| 54 29 54 48 45 4e 50 52 | 49 4e 54 22 9e 1d 1d 1d |T)THENPR|INT"....|
|00000b20| 1d 20 42 41 44 20 43 48 | 41 49 4e 21 05 22 3a 47 |. BAD CH|AIN!.":G|
|00000b30| 4f 54 4f 31 32 36 30 0a | 31 31 35 30 20 49 46 43 |OTO1260.|1150 IFC|
|00000b40| 25 28 54 2c 53 29 3d 30 | 54 48 45 4e 50 52 49 4e |%(T,S)=0|THENPRIN|
|00000b50| 54 22 9e 20 20 20 20 20 | 41 4c 4c 4f 43 41 54 45 |T".     |ALLOCATE|
|00000b60| 44 20 42 4c 4f 43 4b 53 | 21 05 20 22 3a 47 4f 54 |D BLOCKS|!. ":GOT|
|00000b70| 4f 31 32 36 30 0a 31 31 | 36 30 20 47 4f 53 55 42 |O1260.11|60 GOSUB|
|00000b80| 33 30 30 30 3a 4c 25 3d | 4c 25 2b 31 0a 31 31 37 |3000:L%=|L%+1.117|
|00000b90| 30 20 46 4f 52 4a 3d 30 | 54 4f 31 3a 50 52 49 4e |0 FORJ=0|TO1:PRIN|
|00000ba0| 54 23 31 35 2c 22 4d 2d | 52 22 3b 43 48 52 24 28 |T#15,"M-|R";CHR$(|
|00000bb0| 4a 29 3b 42 24 3a 47 45 | 54 23 31 35 2c 41 24 0a |J);B$:GE|T#15,A$.|
|00000bc0| 31 31 38 30 20 41 28 4a | 29 3d 41 53 43 28 41 24 |1180 A(J|)=ASC(A$|
|00000bd0| 2b 5a 24 29 3a 4e 45 58 | 54 4a 0a 31 31 39 30 20 |+Z$):NEX|TJ.1190 |
|00000be0| 54 34 3d 54 3a 53 34 3d | 53 3a 54 3d 41 28 30 29 |T4=T:S4=|S:T=A(0)|
|00000bf0| 3a 53 3d 41 28 31 29 3a | 49 46 54 3c 3e 30 54 48 |:S=A(1):|IFT<>0TH|
|00000c00| 45 4e 31 31 33 30 0a 31 | 32 30 30 20 54 3d 54 25 |EN1130.1|200 T=T%|
|00000c10| 28 30 2c 31 29 3a 53 3d | 53 25 28 30 2c 31 29 3a |(0,1):S=|S%(0,1):|
|00000c20| 54 25 28 30 2c 31 29 3d | 30 3a 49 46 54 3c 3e 30 |T%(0,1)=|0:IFT<>0|
|00000c30| 54 48 45 4e 31 31 33 30 | 0a 31 32 31 30 20 49 46 |THEN1130|.1210 IF|
|00000c40| 4c 25 3c 3e 4c 25 28 30 | 29 54 48 45 4e 50 52 49 |L%<>L%(0|)THENPRI|
|00000c50| 4e 54 22 9e 20 49 4e 43 | 4f 52 52 45 43 54 20 42 |NT". INC|ORRECT B|
|00000c60| 4c 4f 43 4b 20 43 4f 55 | 4e 54 21 05 22 3a 47 4f |LOCK COU|NT!.":GO|
|00000c70| 54 4f 31 32 36 30 0a 31 | 32 32 30 20 54 3d 54 36 |TO1260.1|220 T=T6|
|00000c80| 3a 53 3d 53 36 3a 44 3d | 44 36 0a 31 32 33 30 20 |:S=S6:D=|D6.1230 |
|00000c90| 47 4f 53 55 42 33 30 30 | 30 0a 31 32 34 30 20 50 |GOSUB300|0.1240 P|
|00000ca0| 52 49 4e 54 23 31 35 2c | 22 4d 2d 57 22 3b 43 48 |RINT#15,|"M-W";CH|
|00000cb0| 52 24 28 44 29 3b 42 24 | 3b 43 48 52 24 28 31 29 |R$(D);B$|;CHR$(1)|
|00000cc0| 3b 43 48 52 24 28 58 29 | 0a 31 32 35 30 20 50 52 |;CHR$(X)|.1250 PR|
|00000cd0| 49 4e 54 23 31 35 2c 22 | 55 32 3a 32 2c 22 3b 44 |INT#15,"|U2:2,";D|
|00000ce0| 24 3b 54 3b 53 09 0a 31 | 32 36 30 20 50 52 49 4e |$;T;S..1|260 PRIN|
|00000cf0| 54 22 20 20 20 20 1f 12 | 1d 1d 20 53 4f 52 52 59 |T"    ..|.. SORRY|
|00000d00| 20 2d 20 49 54 20 57 4f | 4e 27 54 20 57 4f 52 4b | - IT WO|N'T WORK|
|00000d10| 20 20 20 20 92 22 0a 31 | 32 37 30 20 43 4c 4f 53 |    .".1|270 CLOS|
|00000d20| 45 32 0a 31 33 30 30 20 | 43 4c 4f 53 45 32 3a 43 |E2.1300 |CLOSE2:C|
|00000d30| 4c 4f 53 45 31 35 3a 50 | 52 49 4e 54 22 11 11 20 |LOSE15:P|RINT".. |
|00000d40| 47 4f 54 20 54 49 4d 45 | 20 54 4f 20 56 41 4c 49 |GOT TIME| TO VALI|
|00000d50| 44 41 54 45 20 54 48 45 | 20 44 49 53 4b 20 3f 22 |DATE THE| DISK ?"|
|00000d60| 0a 31 33 30 31 20 47 45 | 54 56 44 24 3a 49 46 56 |.1301 GE|TVD$:IFV|
|00000d70| 44 24 3d 22 22 54 48 45 | 4e 31 33 30 31 0a 31 33 |D$=""THE|N1301.13|
|00000d80| 30 32 20 49 46 56 44 24 | 3d 22 4e 22 54 48 45 4e |02 IFVD$|="N"THEN|
|00000d90| 35 30 30 30 0a 31 33 31 | 30 20 4f 50 45 4e 31 35 |5000.131|0 OPEN15|
|00000da0| 2c 38 2c 31 35 3a 50 52 | 49 4e 54 23 31 35 2c 22 |,8,15:PR|INT#15,"|
|00000db0| 56 30 22 3a 43 4c 4f 53 | 45 31 35 3a 46 4f 52 51 |V0":CLOS|E15:FORQ|
|00000dc0| 57 3d 31 54 4f 31 30 30 | 30 20 3a 4e 45 58 54 3a |W=1TO100|0 :NEXT:|
|00000dd0| 52 55 4e 0a 32 30 30 30 | 20 52 45 4d 0a 32 30 31 |RUN.2000| REM.201|
|00000de0| 30 20 47 4f 53 55 42 33 | 30 30 30 0a 32 30 32 30 |0 GOSUB3|000.2020|
|00000df0| 20 46 4f 52 4a 3d 30 54 | 4f 32 35 35 3a 50 52 49 | FORJ=0T|O255:PRI|
|00000e00| 4e 54 23 31 35 2c 22 4d | 2d 52 22 3b 43 48 52 24 |NT#15,"M|-R";CHR$|
|00000e10| 28 4a 29 3b 42 24 3a 47 | 45 54 23 31 35 2c 41 24 |(J);B$:G|ET#15,A$|
|00000e20| 0a 32 30 33 30 20 41 28 | 4a 29 3d 41 53 43 28 41 |.2030 A(|J)=ASC(A|
|00000e30| 24 2b 5a 24 29 3a 4e 45 | 58 54 4a 3a 52 45 54 55 |$+Z$):NE|XTJ:RETU|
|00000e40| 52 4e 0a 33 30 30 30 20 | 52 45 4d 0a 33 30 31 30 |RN.3000 |REM.3010|
|00000e50| 20 50 52 49 4e 54 23 31 | 35 2c 22 42 2d 52 22 32 | PRINT#1|5,"B-R"2|
|00000e60| 3b 56 41 4c 28 44 24 29 | 3b 54 3b 53 0a 33 30 32 |;VAL(D$)|;T;S.302|
|00000e70| 30 20 52 45 4d 0a 33 30 | 33 30 20 49 4e 50 55 54 |0 REM.30|30 INPUT|
|00000e80| 23 31 35 2c 45 2c 45 24 | 2c 45 31 2c 45 32 0a 33 |#15,E,E$|,E1,E2.3|
|00000e90| 30 34 30 20 49 46 45 3c | 3e 30 54 48 45 4e 50 52 |040 IFE<|>0THENPR|
|00000ea0| 49 4e 54 22 1c 12 20 20 | 20 1d 44 49 53 4b 20 45 |INT"..  | .DISK E|
|00000eb0| 52 52 4f 52 3a 20 20 20 | 05 92 22 45 3b 45 24 3b |RROR:   |.."E;E$;|
|00000ec0| 45 31 3b 45 32 0a 33 30 | 35 30 20 52 45 54 55 52 |E1;E2.30|50 RETUR|
|00000ed0| 4e 0a 35 30 30 30 20 56 | 44 24 3d 22 22 3a 50 52 |N.5000 V|D$="":PR|
|00000ee0| 49 4e 54 22 93 05 44 4f | 20 59 4f 55 20 57 41 4e |INT"..DO| YOU WAN|
|00000ef0| 54 20 54 4f 20 52 45 43 | 4f 56 45 52 20 4d 4f 52 |T TO REC|OVER MOR|
|00000f00| 45 20 46 49 4c 45 53 20 | 28 59 2f 4e 29 3f 22 0a |E FILES |(Y/N)?".|
|00000f10| 35 30 31 30 20 47 45 54 | 20 56 44 24 3a 49 46 20 |5010 GET| VD$:IF |
|00000f20| 56 44 24 3d 22 22 54 48 | 45 4e 35 30 31 30 0a 35 |VD$=""TH|EN5010.5|
|00000f30| 30 32 30 20 49 46 56 44 | 24 3d 22 59 22 54 48 45 |020 IFVD|$="Y"THE|
|00000f40| 4e 31 30 0a 35 30 33 30 | 20 50 52 49 4e 54 22 93 |N10.5030| PRINT".|
|00000f50| 9e 11 11 11 11 11 11 20 | 20 12 20 20 42 59 45 2c |....... | .  BYE,|
|00000f60| 20 42 59 45 20 20 92 20 | 20 22 3a 45 4e 44 09 0a | BYE  . | ":END..|
+--------+-------------------------+-------------------------+--------+--------+