CLEANDISK

00000000: 01 08 43 08 00 00 8F 20  49 46 20 59 4F 55 20 48  |..C.... IF YOU H|
00000010: 41 56 45 20 41 4E 20 55  4E 45 58 50 41 4E 44 45  |AVE AN UNEXPANDE|
00000020: 44 20 56 49 43 2C 20 44  45 4C 45 54 45 20 31 30  |D VIC, DELETE 10|
00000030: 2C 20 31 31 2C 20 41 4E  44 20 34 30 30 2D 31 30  |, 11, AND 400-10|
00000040: 30 32 30 00 82 08 0A 00  86 41 28 32 35 35 29 2C  |020......A(255),|
00000050: 43 25 28 37 37 2C 32 38  29 2C 44 25 28 31 29 2C  |C%(77,28),D%(1),|
00000060: 54 25 28 32 32 34 2C 31  29 2C 53 25 28 32 32 34  |T%(224,1),S%(224|
00000070: 2C 31 29 2C 4C 25 28 32  32 34 29 2C 52 25 28 37  |,1),L%(224),R%(7|
00000080: 37 29 00 AF 08 0B 00 44  25 28 30 29 B2 35 38 3A  |7).....D%(0).58:|
00000090: 44 25 28 31 29 B2 34 32  3A 5A 24 B2 C7 28 30 29  |D%(1).42:Z$..(0)|
000000A0: 3A 42 24 B2 C7 28 33 29  3A 44 24 B2 22 30 22 00  |:B$..(3):D$."0".|
000000B0: CF 08 14 00 99 22 93 11  11 11 11 11 11 20 20 20  |.....".......   |
000000C0: 20 20 20 20 20 53 43 52  41 54 43 48 22 3A 99 00  |     SCRATCH":..|
000000D0: F3 08 1E 00 99 22 11 11  11 11 11 11 53 3D 53 43  |....."......S=SC|
000000E0: 52 41 54 43 48 2C 20 55  3D 55 4E 53 43 52 41 54  |RATCH, U=UNSCRAT|
000000F0: 43 48 22 00 05 09 28 00  A1 51 24 3A 8B 51 24 B2  |CH"...(..Q$:.Q$.|
00000100: 22 22 A7 34 30 00 15 09  2D 00 8B 51 24 B2 22 55  |"".40...-..Q$."U|
00000110: 22 A7 34 30 30 00 25 09  2E 00 8B 51 24 B3 B1 22  |".400.%....Q$.."|
00000120: 53 22 A7 34 30 00 34 09  32 00 99 22 93 11 12 44  |S".40.4.2.."...D|
00000130: 49 53 4B 22 00 44 09 3C  00 9F 31 2C 38 2C 30 2C  |ISK".D.<..1,8,0,|
00000140: 22 24 30 22 00 50 09 46  00 4E 24 B2 C7 28 30 29  |"$0".P.F.N$..(0)|
00000150: 00 5E 09 50 00 A1 23 31  2C 41 24 2C 41 24 00 76  |.^.P..#1,A$,A$.v|
00000160: 09 5A 00 46 24 B2 22 22  3A 42 B2 30 3A A1 23 31  |.Z.F$."":B.0:.#1|
00000170: 2C 41 24 2C 41 24 00 85  09 5F 00 8B 43 B2 30 A7  |,A$,A$..._..C.0.|
00000180: 99 22 12 22 3B 00 99 09  64 00 8B 41 24 B2 22 22  |.".";...d..A$.""|
00000190: A7 58 B2 31 3A 89 32 30  30 00 A7 09 6E 00 A1 23  |.X.1:.200...n..#|
000001A0: 31 2C 41 24 2C 42 24 00  B1 09 78 00 99 A3 35 29  |1,A$,B$...x...5)|
000001B0: 3B 00 BC 09 82 00 A1 23  31 2C 41 24 00 D4 09 8C  |;......#1,A$....|
000001C0: 00 8B 41 24 B2 22 22 A7  99 3A 41 B2 41 AA 31 3A  |..A$.""..:A.A.1:|
000001D0: 89 31 39 30 00 EC 09 96  00 8B 41 24 B2 C7 28 33  |.190......A$..(3|
000001E0: 34 29 A7 42 B2 31 3A 41  24 B2 22 22 00 03 0A A0  |4).B.1:A$.""....|
000001F0: 00 8B 42 B2 31 A7 46 24  B2 46 24 AA 41 24 3A 99  |..B.1.F$.F$.A$:.|
00000200: 41 24 3B 00 1B 0A AA 00  8B C3 28 46 24 29 B1 31  |A$;.......(F$).1|
00000210: 36 A7 43 B2 43 AA 31 3A  89 39 30 00 24 0A B4 00  |6.C.C.1:.90.$...|
00000220: 89 31 33 30 00 30 0A BE  00 8B 41 B3 38 A7 39 30  |.130.0....A.8.90|
00000230: 00 4C 0A C8 00 99 22 53  43 52 41 54 43 48 20 50  |.L...."SCRATCH P|
00000240: 52 4F 47 52 41 4D 3F 20  59 2F 4E 22 00 5F 0A D2  |ROGRAM? Y/N"._..|
00000250: 00 A1 5A 24 3A 8B 5A 24  B2 22 22 A7 32 31 30 00  |..Z$:.Z$."".210.|
00000260: 6F 0A DC 00 8B 5A 24 B2  22 59 22 A7 32 37 30 00  |o....Z$."Y".270.|
00000270: 7F 0A E6 00 8B 5A 24 B2  22 4E 22 A7 32 35 30 00  |.....Z$."N".250.|
00000280: 88 0A F0 00 89 32 31 30  00 99 0A FA 00 8B 58 B2  |.....210......X.|
00000290: 31 A7 A0 31 3A 89 33 39  30 00 AC 0A 04 01 99 22  |1..1:.390......"|
000002A0: 93 11 11 22 3A 41 B2 30  3A 89 39 30 00 D1 0A 0E  |...":A.0:.90....|
000002B0: 01 A0 31 3A 85 22 11 57  48 49 43 48 20 50 52 4F  |..1:.".WHICH PRO|
000002C0: 47 52 41 4D 22 3B 50 24  3A 8B 50 24 B2 22 22 A7  |GRAM";P$:.P$."".|
000002D0: 80 00 DA 0A 18 01 8D 33  34 30 00 EB 0A 22 01 99  |.......340..."..|
000002E0: 22 93 11 11 11 11 11 11  11 11 22 00 FE 0A 2C 01  |"........."...,.|
000002F0: 99 22 4F 50 45 4E 31 35  2C 38 2C 31 35 22 00 1F  |."OPEN15,8,15"..|
00000300: 0B 36 01 99 22 11 11 50  D2 31 35 2C 22 C7 28 33  |.6.."..P.15,".(3|
00000310: 34 29 22 53 30 3A 22 58  24 C7 28 33 34 29 22 00  |4)"S0:"X$.(34)".|
00000320: 3A 0B 40 01 99 22 11 11  52 55 4E 22 3A 99 22 91  |:.@.."..RUN":.".|
00000330: 91 91 91 91 91 91 91 91  91 22 00 5F 0B 4A 01 97  |........."._.J..|
00000340: 36 33 31 2C 31 33 3A 97  36 33 32 2C 31 33 3A 97  |631,13:.632,13:.|
00000350: 36 33 33 2C 31 33 3A 97  31 39 38 2C 33 3A 80 00  |633,13:.198,3:..|
00000360: 7D 0B 54 01 81 41 34 B2  31 A4 C3 28 50 24 29 3A  |}.T..A4.1..(P$):|
00000370: 52 24 B2 CA 28 50 24 2C  41 34 2C 31 29 00 8A 0B  |R$..(P$,A4,1)...|
00000380: 5E 01 58 24 B2 58 24 AA  52 24 00 90 0B 68 01 82  |^.X$.X$.R$...h..|
00000390: 00 AE 0B 72 01 8B C3 28  58 24 29 B1 31 30 A7 58  |...r...(X$).10.X|
000003A0: 24 B2 C8 28 58 24 2C 31  30 29 AA 22 2A 22 00 B4  |$..(X$,10)."*"..|
000003B0: 0B 7C 01 8E 00 BE 0B 86  01 A0 31 35 3A 8A 00 F3  |.|........15:...|
000003C0: 0B 90 01 99 22 11 11 11  4C 4F 41 44 49 4E 47 20  |...."...LOADING |
000003D0: 46 52 45 45 20 53 45 43  54 4F 52 53 22 3A 9F 31  |FREE SECTORS":.1|
000003E0: 35 2C 38 2C 31 35 2C 22  49 22 AA 44 24 3A 8D 33  |5,8,15,"I".D$:.3|
000003F0: 30 32 30 00 0B 0C 9A 01  9F 33 2C 38 2C 33 2C 22  |020......3,8,3,"|
00000400: 24 22 AA 44 24 3A 8D 33  30 32 30 00 26 0C A4 01  |$".D$:.3020.&...|
00000410: 41 30 B2 31 3A A1 23 33  2C 41 24 3A 41 B2 C6 28  |A0.1:.#3,A$:A..(|
00000420: 41 24 AA 5A 24 29 00 38  0C AE 01 87 41 31 3A 8B  |A$.Z$).8....A1:.|
00000430: 41 B2 41 31 A7 34 37 30  00 4E 0C B8 01 46 25 B2  |A.A1.470.N...F%.|
00000440: 46 25 AA 31 3A 8B 46 25  B2 33 A7 35 31 30 00 60  |F%.1:.F%.3.510.`|
00000450: 0C C2 01 87 41 31 3A 8B  41 31 B2 30 A7 34 33 30  |....A1:.A1.0.430|
00000460: 00 69 0C CC 01 89 34 35  30 00 7B 0C D6 01 87 41  |.i....450.{....A|
00000470: 31 3A 8B 41 31 B2 30 A7  34 39 30 00 A2 0C E0 01  |1:.A1.0.490.....|
00000480: 87 42 31 3A 81 4A B2 41  30 A4 41 31 3A 52 25 28  |.B1:.J.A0.A1:R%(|
00000490: 4A 29 B2 42 31 3A 82 4A  3A 41 30 B2 4A 3A 89 34  |J).B1:.J:A0.J:.4|
000004A0: 37 30 00 C6 0C EA 01 8B  41 B2 31 B0 41 B2 36 35  |70......A.1.A.65|
000004B0: A7 44 31 B2 31 3A 54 39  B2 33 35 3A 53 39 B2 33  |.D1.1:T9.35:S9.3|
000004C0: 3A 44 39 B2 31 38 00 E8  0C F4 01 8B 41 B2 36 37  |:D9.18......A.67|
000004D0: A7 44 31 B2 32 35 37 3A  54 39 B2 37 37 3A 53 39  |.D1.257:T9.77:S9|
000004E0: B2 34 3A 44 39 B2 33 39  00 14 0D FE 01 8B 54 39  |.4:D9.39......T9|
000004F0: B2 30 A7 A0 33 3A 99 22  3F 3F 20 44 49 53 4B 20  |.0..3:."?? DISK |
00000500: 4E 4F 54 20 52 45 43 4F  47 4E 49 5A 45 44 20 3F  |NOT RECOGNIZED ?|
00000510: 3F 22 3A 90 00 2A 0D 08  02 81 4A B2 31 A4 44 31  |?":..*....J.1.D1|
00000520: 3A A1 23 33 2C 41 24 3A  82 4A 00 3B 0D 12 02 81  |:.#3,A$:.J.;....|
00000530: 4A B2 31 A4 54 39 3A 54  31 B2 30 00 55 0D 1C 02  |J.1.T9:T1.0.U...|
00000540: 8B 4A B2 35 31 A7 A1 23  33 2C 41 24 2C 41 24 2C  |.J.51..#3,A$,A$,|
00000550: 41 24 2C 41 24 00 6B 0D  26 02 A1 23 33 2C 41 24  |A$,A$.k.&..#3,A$|
00000560: 3A 43 B2 C6 28 41 24 AA  5A 24 29 00 90 0D 30 02  |:C..(A$.Z$)...0.|
00000570: 4B 31 B2 30 3A 81 4B B2  30 A4 53 39 AB 31 3A A1  |K1.0:.K.0.S9.1:.|
00000580: 23 33 2C 41 24 3A 41 B2  C6 28 41 24 AA 5A 24 29  |#3,A$:A..(A$.Z$)|
00000590: 00 C3 0D 3A 02 81 4C B2  30 A4 37 3A 41 25 B2 41  |...:..L.0.7:A%.A|
000005A0: AD 32 3A 44 31 B2 41 AB  41 25 AC 32 3A 8B 4B 31  |.2:D1.A.A%.2:.K1|
000005B0: B3 B2 52 25 28 4A 29 A7  43 25 28 4A 2C 4B 31 29  |..R%(J).C%(J,K1)|
000005C0: B2 44 31 00 E2 0D 44 02  41 B2 41 25 3A 54 31 B2  |.D1...D.A.A%:T1.|
000005D0: 54 31 AA 44 31 3A 4B 31  B2 4B 31 AA 31 3A 82 4C  |T1.D1:K1.K1.1:.L|
000005E0: 2C 4B 00 E9 0D 4E 02 82  4A 00 F0 0D 58 02 A0 33  |,K...N..J...X..3|
000005F0: 00 06 0E 62 02 9F 32 2C  38 2C 32 2C 22 23 30 22  |...b..2,8,2,"#0"|
00000600: 3A 8D 33 30 32 30 00 34  0E 84 03 4B B2 30 3A 99  |:.3020.4...K.0:.|
00000610: 22 93 4C 4F 4F 4B 49 4E  47 20 46 4F 52 20 53 43  |".LOOKING FOR SC|
00000620: 52 41 54 43 48 45 44 22  3A 99 22 46 49 4C 45 53  |RATCHED":."FILES|
00000630: 2E 2E 2E 22 00 41 0E 8E  03 54 B2 44 39 3A 53 B2  |...".A...T.D9:S.|
00000640: 31 00 4B 0E 98 03 8D 32  30 30 30 00 71 0E A2 03  |1.K....2000.q...|
00000650: 81 44 B2 32 A4 32 35 35  A9 33 32 3A 8B 41 28 44  |.D.2.255.32:.A(D|
00000660: 29 B3 B1 30 B0 41 28 44  AA 31 29 B2 30 A7 39 38  |)..0.A(D.1).0.98|
00000670: 30 00 96 0E AC 03 8B 4B  B2 30 A7 99 22 44 4F 20  |0......K.0.."DO |
00000680: 20 59 4F 55 20 57 41 4E  54 20 54 4F 20 52 45 43  | YOU WANT TO REC|
00000690: 4F 56 45 52 3A 22 00 BE  0E B6 03 A1 58 24 3A 81  |OVER:"......X$:.|
000006A0: 4B B2 44 AA 33 A4 44 AA  31 38 3A 99 C7 28 41 28  |K.D.3.D.18:..(A(|
000006B0: 4B 29 29 3B 3A 82 4B 3A  99 22 3F 20 22 3B 00 DB  |K));:.K:."? ";..|
000006C0: 0E C0 03 A1 58 24 3A 8B  58 24 B3 B1 22 59 22 AF  |....X$:.X$.."Y".|
000006D0: 58 24 B3 B1 22 4E 22 A7  39 36 30 00 F0 0E CA 03  |X$.."N".960.....|
000006E0: 99 58 24 3A 8B 58 24 B2  22 59 22 A7 31 30 31 30  |.X$:.X$."Y".1010|
000006F0: 00 F7 0E D4 03 82 44 00  13 0F DE 03 54 B2 41 28  |......D.....T.A(|
00000700: 30 29 3A 53 B2 41 28 31  29 3A 8B 54 B2 44 39 A7  |0):S.A(1):.T.D9.|
00000710: 39 32 30 00 2C 0F E8 03  99 22 54 48 41 54 27 53  |920.,...."THAT'S|
00000720: 20 41 4C 4C 20 22 3A 89  31 32 37 30 00 70 0F F2  | ALL ":.1270.p..|
00000730: 03 54 36 B2 54 3A 53 36  B2 53 3A 44 36 B2 44 3A  |.T6.T:S6.S:D6.D:|
00000740: 54 B2 41 28 44 AA 31 29  3A 53 B2 41 28 44 AA 32  |T.A(D.1):S.A(D.2|
00000750: 29 3A 4C 25 28 30 29 B2  41 28 44 AA 32 38 29 AA  |):L%(0).A(D.28).|
00000760: 41 28 44 AA 32 39 29 AC  32 35 36 3A 4C 25 B2 30  |A(D.29).256:L%.0|
00000770: 00 89 0F FC 03 A1 58 24  3A 99 22 49 53 20 54 48  |......X$:."IS TH|
00000780: 49 53 20 46 49 4C 45 3A  22 00 9F 0F 06 04 99 22  |IS FILE:"......"|
00000790: 20 31 2E 20 53 45 51 55  45 4E 54 49 41 4C 22 00  | 1. SEQUENTIAL".|
000007A0: B2 0F 10 04 99 22 20 32  2E 20 50 52 4F 47 52 41  |....." 2. PROGRA|
000007B0: 4D 22 00 C1 0F 1A 04 99  22 20 33 2E 20 55 53 52  |M"......" 3. USR|
000007C0: 22 00 D5 0F 24 04 8B 41  28 44 AA 31 39 29 B2 30  |"...$..A(D.19).0|
000007D0: A7 31 30 38 30 00 E9 0F  2E 04 99 22 20 34 2E 20  |.1080......" 4. |
000007E0: 52 45 4C 41 54 49 56 45  22 00 02 10 38 04 99 22  |RELATIVE"...8.."|
000007F0: 20 20 57 48 49 43 48 20  4E 55 4D 42 45 52 3F 20  |  WHICH NUMBER? |
00000800: 22 3B 00 16 10 42 04 A1  58 24 3A 8B 58 24 B2 22  |";...B..X$:.X$."|
00000810: 22 A7 31 30 39 30 00 33  10 4C 04 58 B2 C6 28 58  |".1090.3.L.X..(X|
00000820: 24 29 AB 34 38 3A 8B 58  B3 31 B0 58 B1 34 89 31  |$).48:.X.1.X.4.1|
00000830: 30 39 30 00 43 10 56 04  99 58 24 3A 58 B2 58 AA  |090.C.V..X$:X.X.|
00000840: 31 32 38 00 7E 10 60 04  8B 58 B2 31 33 32 A7 54  |128.~.`..X.132.T|
00000850: 25 28 30 2C 31 29 B2 41  28 44 AA 31 39 29 3A 53  |%(0,1).A(D.19):S|
00000860: 25 28 30 2C 31 29 B2 41  28 44 AA 32 30 29 3A 8B  |%(0,1).A(D.20):.|
00000870: 54 25 28 30 2C 31 29 B2  30 A7 31 30 32 30 00 90  |T%(0,1).0.1020..|
00000880: 10 6A 04 8B 54 B1 54 39  B0 53 B3 30 A7 54 B2 30  |.j..T.T9.S.0.T.0|
00000890: 00 B6 10 74 04 8B 54 B3  31 B0 53 B1 52 25 28 54  |...t..T.1.S.R%(T|
000008A0: 29 A7 99 22 20 42 41 44  20 43 48 41 49 4E 21 22  |).." BAD CHAIN!"|
000008B0: 3A 89 31 32 36 30 00 E1  10 7E 04 8B 43 25 28 54  |:.1260...~..C%(T|
000008C0: 2C 53 29 B2 30 A7 99 22  20 41 4C 4C 4F 43 41 54  |,S).0.." ALLOCAT|
000008D0: 45 44 20 42 4C 4F 43 4B  53 21 22 3A 89 31 32 36  |ED BLOCKS!":.126|
000008E0: 30 00 F3 10 88 04 8D 33  30 30 30 3A 4C 25 B2 4C  |0......3000:L%.L|
000008F0: 25 AA 31 00 18 11 92 04  81 4A B2 30 A4 31 3A 98  |%.1......J.0.1:.|
00000900: 31 35 2C 22 4D 2D 52 22  3B C7 28 4A 29 3B 42 24  |15,"M-R";.(J);B$|
00000910: 3A A1 23 31 35 2C 41 24  00 2D 11 9C 04 41 28 4A  |:.#15,A$.-...A(J|
00000920: 29 B2 C6 28 41 24 AA 5A  24 29 3A 82 4A 00 54 11  |)..(A$.Z$):.J.T.|
00000930: A6 04 54 34 B2 54 3A 53  34 B2 53 3A 54 B2 41 28  |..T4.T:S4.S:T.A(|
00000940: 30 29 3A 53 B2 41 28 31  29 3A 8B 54 B3 B1 30 A7  |0):S.A(1):.T..0.|
00000950: 31 31 33 30 00 81 11 B0  04 54 B2 54 25 28 30 2C  |1130.....T.T%(0,|
00000960: 31 29 3A 53 B2 53 25 28  30 2C 31 29 3A 54 25 28  |1):S.S%(0,1):T%(|
00000970: 30 2C 31 29 B2 30 3A 8B  54 B3 B1 30 A7 31 31 33  |0,1).0:.T..0.113|
00000980: 30 00 B0 11 BA 04 8B 4C  25 B3 B1 4C 25 28 30 29  |0......L%..L%(0)|
00000990: A7 99 22 20 49 4E 43 4F  52 52 45 43 54 20 42 4C  |.." INCORRECT BL|
000009A0: 4F 4B 20 43 4F 55 4E 54  21 22 3A 89 31 32 36 30  |OK COUNT!":.1260|
000009B0: 00 C3 11 C4 04 54 B2 54  36 3A 53 B2 53 36 3A 44  |.....T.T6:S.S6:D|
000009C0: B2 44 36 00 CD 11 CE 04  8D 33 30 30 30 00 ED 11  |.D6......3000...|
000009D0: D8 04 98 31 35 2C 22 4D  2D 57 22 3B C7 28 44 29  |...15,"M-W";.(D)|
000009E0: 3B 42 24 3B C7 28 31 29  3B C7 28 58 29 00 10 12  |;B$;.(1);.(X)...|
000009F0: E2 04 98 31 35 2C 22 55  32 3A 32 2C 22 3B 44 24  |...15,"U2:2,";D$|
00000A00: 3B 54 3B 53 3A 8D 33 30  32 30 3A 89 31 33 30 30  |;T;S:.3020:.1300|
00000A10: 00 2D 12 EC 04 99 22 53  4F 52 52 59 20 2D 20 49  |.-...."SORRY - I|
00000A20: 54 20 57 4F 4E 27 54 20  57 4F 52 4B 22 00 34 12  |T WON'T WORK".4.|
00000A30: F6 04 A0 32 00 58 12 14  05 A0 32 3A 98 31 35 2C  |...2.X....2:.15,|
00000A40: 22 56 30 22 3A A0 31 35  3A 81 51 57 B2 31 A4 31  |"V0":.15:.QW.1.1|
00000A50: 30 30 30 30 3A 82 3A 8A  00 73 12 D0 07 8F 20 47  |0000:.:..s.... G|
00000A60: 52 41 42 20 46 55 4C 4C  20 44 49 53 4B 20 42 4C  |RAB FULL DISK BL|
00000A70: 4F 43 4B 00 7D 12 DA 07  8D 33 30 30 30 00 A4 12  |OCK.}....3000...|
00000A80: E4 07 81 4A B2 30 A4 32  35 35 3A 98 31 35 2C 22  |...J.0.255:.15,"|
00000A90: 4D 2D 52 22 3B C7 28 4A  29 3B 42 24 3A A1 23 31  |M-R";.(J);B$:.#1|
00000AA0: 35 2C 41 24 00 BB 12 EE  07 41 28 4A 29 B2 C6 28  |5,A$.....A(J)..(|
00000AB0: 41 24 AA 5A 24 29 3A 82  4A 3A 8E 00 CC 12 B8 0B  |A$.Z$):.J:......|
00000AC0: 8F 20 52 45 41 44 20 42  4C 4F 41 44 00 E5 12 C2  |. READ BLOAD....|
00000AD0: 0B 98 31 35 2C 22 42 2D  52 22 32 3B C5 28 44 24  |..15,"B-R"2;.(D$|
00000AE0: 29 3B 54 3B 53 00 FC 12  CC 0B 8F 20 47 45 54 20  |);T;S...... GET |
00000AF0: 45 52 52 4F 52 20 53 54  41 54 55 53 00 0F 13 D6  |ERROR STATUS....|
00000B00: 0B 84 31 35 2C 45 2C 45  24 2C 45 31 2C 45 32 00  |..15,E,E$,E1,E2.|
00000B10: 34 13 E0 0B 8B 45 B3 B1  30 A7 99 22 12 44 49 53  |4....E..0..".DIS|
00000B20: 4B 20 45 52 52 4F 52 3A  92 22 45 3B 45 24 2C 45  |K ERROR:."E;E$,E|
00000B30: 31 3B 45 32 00 3A 13 EA  0B 8E 00 5B 13 10 27 83  |1;E2.:.....[..'.|
00000B40: 31 2C 31 37 2C 32 30 2C  32 34 2C 31 39 2C 33 30  |1,17,20,24,19,30|
00000B50: 2C 31 37 2C 33 35 2C 31  36 2C 30 00 7D 13 1A 27  |,17,35,16,0.}..'|
00000B60: 83 36 35 2C 31 37 2C 32  30 2C 32 34 2C 31 38 2C  |.65,17,20,24,18,|
00000B70: 33 30 2C 31 37 2C 33 35  2C 31 36 2C 30 00 9F 13  |30,17,35,16,0...|
00000B80: 24 27 83 36 37 2C 33 39  2C 32 38 2C 35 33 2C 32  |$'.67,39,28,53,2|
00000B90: 36 2C 36 34 2C 32 34 2C  37 37 2C 42              |6,64,24,77,B    |

..C.... IF YOU HAVE AN UNEXPANDED VIC, D
ELETE 10, 11, AND 400-10020......A(255),
C%(77,28),D%(1),T%(224,1),S%(224,1),L%(2
24),R%(77).....D%(0).58:D%(1).42:Z$.G(0)
:B$.G(3):D$."0".O....".......        SCR
ATCH":......."......S=SCRATCH, U=UNSCRAT
CH"...(..Q$:.Q$."".40...-..Q$."U".400.%.
...Q$.."S".40.4.2.."...DISK".D.<..1,8,0,
"$0".P.F.N$.G(0).^.P..#1,A$,A$.V.Z.F$.""
:B.0:.#1,A$,A$..._..C.0..".";...D..A$.""
.X.1:.200...N..#1,A$,B$...X...5);......#
1,A$.T....A$.""..:A.A.1:.190......A$.G(3
4).B.1:A$.""... ..B.1.F$.F$.A$:.A$;.....
.C(F$).16.C.C.1:.90.$....130.0....A.8.90
.L.H.."SCRATCH PROGRAM? Y/N"._.R..Z$:.Z$
."".210.O....Z$."Y".270.....Z$."N".250.
.....210......X.1. 1:.390......"...":A.0
:.90.Q... 1:.".WHICH PROGRAM";P$:.P$."".
..Z....340...".."........."...,.."OPEN15
,8,15"...6.."..PR15,"G(34)"S0:"X$G(34)".
:.@.."..RUN":.".........."._.J..631,13:.
632,13:.633,13:.198,3:..}.T..A4.1.C(P$):
R$.J(P$,A4,1)...^.X$.X$.R$...H.....R..C(
X$).10.X$.H(X$,10)."*"...|....... 15:...
...."...LOADING FREE SECTORS":.15,8,15,"
I".D$:.3020......3,8,3,"$".D$:.3020.&...
A0.1:.#3,A$:A.F(A$.Z$).8....A1:.A.A1.470
.N...F%.F%.1:.F%.3.510.`.B..A1:.A1.0.430
.I.L..450.{.V..A1:.A1.0.490......B1:.J.A
0.A1:R%(J).B1:.J:A0.J:.470.F....A.1.A.65
.D1.1:T9.35:S9.3:D9.18......A.67.D1.257:
T9.77:S9.4:D9.39......T9.0. 3:."?? DISK 
NOT RECOGNIZED ??":..*....J.1.D1:.#3,A$:
.J.;....J.1.T9:T1.0.U....J.51..#3,A$,A$,
A$,A$.K.&..#3,A$:C.F(A$.Z$)...0.K1.0:.K.
0.S9.1:.#3,A$:A.F(A$.Z$).C.:..L.0.7:A%.A
.2:D1.A.A%.2:.K1..R%(J).C%(J,K1).D1...D.
A.A%:T1.T1.D1:K1.K1.1:.L,K...N..J...X. 3
...B..2,8,2,"#0":.3020.4...K.0:.".LOOKIN
G FOR SCRATCHED":."FILES...".A...T.D9:S.
1.K....2000.Q....D.2.255.32:.A(D)..0.A(D
.1).0.980......K.0.."DO  YOU WANT TO REC
OVER:"......X$:.K.D.3.D.18:.G(A(K));:.K:
."? ";......X$:.X$.."Y".X$.."N".960...J.
.X$:.X$."Y".1010...T..D.....T.A(0):S.A(1
):.T.D9.920.,...."THAT'S ALL ":.1270.P..
.T6.T:S6.S:D6.D:T.A(D.1):S.A(D.2):L%(0).
A(D.28).A(D.29).256:L%.0......X$:."IS TH
IS FILE:"......" 1. SEQUENTIAL"......" 2
. PROGRAM".A...." 3. USR".U.$..A(D.19).0
.1080......" 4. RELATIVE"...8.."  WHICH 
NUMBER? ";...B..X$:.X$."".1090.3.L.X.F(X
$).48:.X.1.X.4.1090.C.V..X$:X.X.128.~.`.
.X.132.T%(0,1).A(D.19):S%(0,1).A(D.20):.
T%(0,1).0.1020...J..T.T9.S.0.T.0...T..T.
1.S.R%(T).." BAD CHAIN!":.1260...~..C%(T
,S).0.." ALLOCATED BLOCKS!":.1260......3
000:L%.L%.1......J.0.1:.15,"M-R";G(J);B$
:.#15,A$.-...A(J).F(A$.Z$):.J.T...T4.T:S
4.S:T.A(0):S.A(1):.T..0.1130.....T.T%(0,
1):S.S%(0,1):T%(0,1).0:.T..0.1130......L
%..L%(0).." INCORRECT BLOK COUNT!":.1260
.C.D.T.T6:S.S6:D.D6.M.N..3000...X..15,"M
-W";G(D);B$;G(1);G(X)......15,"U2:2,";D$
;T;S:.3020:.1300.-...."SORRY - IT WON'T 
WORK".4... 2.X... 2:.15,"V0": 15:.QW.1.1
0000:.:..S.P.. GRAB FULL DISK BLOCK.}.Z.
.3000......J.0.255:.15,"M-R";G(J);B$:.#1
5,A$.....A(J).F(A$.Z$):.J:..L.... READ B
LOAD...B..15,"B-R"2;E(D$);T;S...L.. GET 
ERROR STATUS...V..15,E,E$,E1,E2.4....E..
0..".DISK ERROR:."E;E$,E1;E2.:.....[..'.
1,17,20,24,19,30,17,35,16,0.}..'.65,17,2
0,24,18,30,17,35,16,0...$'.67,39,28,53,2
6,64,24,77,B

×

C64 Image

> CLICK IMAGE PREVIEW FOR FULL MODAL