DISK CLEAN UP
FILE INFORMATION
FILENAME(S): DISK CLEAN UP
FILE TYPE(S): PRG
FILE SIZE: 2.8K
FIRST SEEN: 2025-11-30 21:07:33
APPEARS ON: 1 disk(s)
FILE HASH
a04c53cfad20a5167b2dedfc0122456a4f371d17419637255849b53fd5dce817
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| HULPPROGR | DISK CLEAN UP | PRG | DuncanTwain | 8 | 5 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 1E 08 01 00 8F 20 43 4F 4D 50 55 54 45 20 |....... COMPUTE | 00000010: 41 50 52 49 4C 20 27 38 34 3A 31 34 30 2D 00 5D |APRIL '84:140-.]| 00000020: 08 0A 00 86 41 28 32 35 35 29 2C 43 25 28 37 37 |....A(255),C%(77| 00000030: 2C 32 38 29 2C 44 25 28 31 29 2C 54 25 28 32 32 |,28),D%(1),T%(22| 00000040: 34 2C 31 29 2C 53 25 28 32 32 34 2C 31 29 2C 4C |4,1),S%(224,1),L| 00000050: 25 28 32 32 34 29 2C 52 25 28 37 37 29 00 8A 08 |%(224),R%(77)...| 00000060: 0B 00 44 25 28 30 29 B2 35 38 3A 44 25 28 31 29 |..D%(0).58:D%(1)| 00000070: B2 34 32 3A 5A 24 B2 C7 28 30 29 3A 42 24 B2 C7 |.42:Z$..(0):B$..| 00000080: 28 33 29 3A 44 24 B2 22 30 22 00 AA 08 14 00 99 |(3):D$."0"......| 00000090: 22 93 11 11 11 11 11 11 20 20 20 20 20 20 20 20 |"....... | 000000A0: 53 43 52 41 54 43 48 22 3A 99 00 CE 08 1E 00 99 |SCRATCH":.......| 000000B0: 22 11 11 11 11 11 11 53 3D 53 43 52 41 54 43 48 |"......S=SCRATCH| 000000C0: 2C 20 55 3D 55 4E 53 43 52 41 54 43 48 22 00 E0 |, U=UNSCRATCH"..| 000000D0: 08 28 00 A1 51 24 3A 8B 51 24 B2 22 22 A7 34 30 |.(..Q$:.Q$."".40| 000000E0: 00 F0 08 2D 00 8B 51 24 B2 22 55 22 A7 34 30 30 |...-..Q$."U".400| 000000F0: 00 00 09 2E 00 8B 51 24 B3 B1 22 53 22 A7 34 30 |......Q$.."S".40| 00000100: 00 0F 09 32 00 99 22 93 11 12 44 49 53 4B 22 00 |...2.."...DISK".| 00000110: 1F 09 3C 00 9F 31 2C 38 2C 30 2C 22 24 30 22 00 |..<..1,8,0,"$0".| 00000120: 2B 09 46 00 4E 24 B2 C7 28 30 29 00 39 09 50 00 |+.F.N$..(0).9.P.| 00000130: A1 23 31 2C 41 24 2C 41 24 00 51 09 5A 00 46 24 |.#1,A$,A$.Q.Z.F$| 00000140: B2 22 22 3A 42 B2 30 3A A1 23 31 2C 41 24 2C 41 |."":B.0:.#1,A$,A| 00000150: 24 00 60 09 5F 00 8B 43 B2 30 A7 99 22 12 22 3B |$.`._..C.0..".";| 00000160: 00 74 09 64 00 8B 41 24 B2 22 22 A7 58 B2 31 3A |.t.d..A$."".X.1:| 00000170: 89 32 30 30 00 82 09 6E 00 A1 23 31 2C 41 24 2C |.200...n..#1,A$,| 00000180: 42 24 00 8C 09 78 00 99 A3 35 29 3B 00 97 09 82 |B$...x...5);....| 00000190: 00 A1 23 31 2C 41 24 00 AF 09 8C 00 8B 41 24 B2 |..#1,A$......A$.| 000001A0: 22 22 A7 99 3A 41 B2 41 AA 31 3A 89 31 39 30 00 |""..:A.A.1:.190.| 000001B0: C7 09 96 00 8B 41 24 B2 C7 28 33 34 29 A7 42 B2 |.....A$..(34).B.| 000001C0: 31 3A 41 24 B2 22 22 00 DE 09 A0 00 8B 42 B2 31 |1:A$.""......B.1| 000001D0: A7 46 24 B2 46 24 AA 41 24 3A 99 41 24 3B 00 F6 |.F$.F$.A$:.A$;..| 000001E0: 09 AA 00 8B C3 28 46 24 29 B1 31 36 A7 43 B2 43 |.....(F$).16.C.C| 000001F0: AA 31 3A 89 39 30 00 FF 09 B4 00 89 31 33 30 00 |.1:.90......130.| 00000200: 0B 0A BE 00 8B 41 B3 38 A7 39 30 00 27 0A C8 00 |.....A.8.90.'...| 00000210: 99 22 53 43 52 41 54 43 48 20 50 52 4F 47 52 41 |."SCRATCH PROGRA| 00000220: 4D 3F 20 59 2F 4E 22 00 3A 0A D2 00 A1 5A 24 3A |M? Y/N".:....Z$:| 00000230: 8B 5A 24 B2 22 22 A7 32 31 30 00 4A 0A DC 00 8B |.Z$."".210.J....| 00000240: 5A 24 B2 22 59 22 A7 32 37 30 00 5A 0A E6 00 8B |Z$."Y".270.Z....| 00000250: 5A 24 B2 22 4E 22 A7 32 35 30 00 63 0A F0 00 89 |Z$."N".250.c....| 00000260: 32 31 30 00 74 0A FA 00 8B 58 B2 31 A7 A0 31 3A |210.t....X.1..1:| 00000270: 89 33 39 30 00 87 0A 04 01 99 22 93 11 11 22 3A |.390......"...":| 00000280: 41 B2 30 3A 89 39 30 00 AC 0A 0E 01 A0 31 3A 85 |A.0:.90......1:.| 00000290: 22 11 57 48 49 43 48 20 50 52 4F 47 52 41 4D 22 |".WHICH PROGRAM"| 000002A0: 3B 50 24 3A 8B 50 24 B2 22 22 A7 80 00 B5 0A 18 |;P$:.P$.""......| 000002B0: 01 8D 33 34 30 00 C6 0A 22 01 99 22 93 11 11 11 |..340...".."....| 000002C0: 11 11 11 11 11 22 00 D9 0A 2C 01 99 22 4F 50 45 |....."...,.."OPE| 000002D0: 4E 31 35 2C 38 2C 31 35 22 00 FA 0A 36 01 99 22 |N15,8,15"...6.."| 000002E0: 11 11 50 D2 31 35 2C 22 C7 28 33 34 29 22 53 30 |..P.15,".(34)"S0| 000002F0: 3A 22 58 24 C7 28 33 34 29 22 00 15 0B 40 01 99 |:"X$.(34)"...@..| 00000300: 22 11 11 52 55 4E 22 3A 99 22 91 91 91 91 91 91 |"..RUN":."......| 00000310: 91 91 91 91 22 00 3A 0B 4A 01 97 36 33 31 2C 31 |....".:.J..631,1| 00000320: 33 3A 97 36 33 32 2C 31 33 3A 97 36 33 33 2C 31 |3:.632,13:.633,1| 00000330: 33 3A 97 31 39 38 2C 33 3A 80 00 58 0B 54 01 81 |3:.198,3:..X.T..| 00000340: 41 34 B2 31 A4 C3 28 50 24 29 3A 52 24 B2 CA 28 |A4.1..(P$):R$..(| 00000350: 50 24 2C 41 34 2C 31 29 00 65 0B 5E 01 58 24 B2 |P$,A4,1).e.^.X$.| 00000360: 58 24 AA 52 24 00 6B 0B 68 01 82 00 89 0B 72 01 |X$.R$.k.h.....r.| 00000370: 8B C3 28 58 24 29 B1 31 30 A7 58 24 B2 C8 28 58 |..(X$).10.X$..(X| 00000380: 24 2C 31 30 29 AA 22 2A 22 00 8F 0B 7C 01 8E 00 |$,10)."*"...|...| 00000390: 99 0B 86 01 A0 31 35 3A 8A 00 CE 0B 90 01 99 22 |.....15:......."| 000003A0: 11 11 11 4C 4F 41 44 49 4E 47 20 46 52 45 45 20 |...LOADING FREE | 000003B0: 53 45 43 54 4F 52 53 22 3A 9F 31 35 2C 38 2C 31 |SECTORS":.15,8,1| 000003C0: 35 2C 22 49 22 AA 44 24 3A 8D 33 30 32 30 00 E6 |5,"I".D$:.3020..| 000003D0: 0B 9A 01 9F 33 2C 38 2C 33 2C 22 24 22 AA 44 24 |....3,8,3,"$".D$| 000003E0: 3A 8D 33 30 32 30 00 01 0C A4 01 41 30 B2 31 3A |:.3020.....A0.1:| 000003F0: A1 23 33 2C 41 24 3A 41 B2 C6 28 41 24 AA 5A 24 |.#3,A$:A..(A$.Z$| 00000400: 29 00 13 0C AE 01 87 41 31 3A 8B 41 B2 41 31 A7 |)......A1:.A.A1.| 00000410: 34 37 30 00 29 0C B8 01 46 25 B2 46 25 AA 31 3A |470.)...F%.F%.1:| 00000420: 8B 46 25 B2 33 A7 35 31 30 00 3B 0C C2 01 87 41 |.F%.3.510.;....A| 00000430: 31 3A 8B 41 31 B2 30 A7 34 33 30 00 44 0C CC 01 |1:.A1.0.430.D...| 00000440: 89 34 35 30 00 56 0C D6 01 87 41 31 3A 8B 41 31 |.450.V....A1:.A1| 00000450: B2 30 A7 34 39 30 00 7D 0C E0 01 87 42 31 3A 81 |.0.490.}....B1:.| 00000460: 4A B2 41 30 A4 41 31 3A 52 25 28 4A 29 B2 42 31 |J.A0.A1:R%(J).B1| 00000470: 3A 82 4A 3A 41 30 B2 4A 3A 89 34 37 30 00 A1 0C |:.J:A0.J:.470...| 00000480: EA 01 8B 41 B2 31 B0 41 B2 36 35 A7 44 31 B2 31 |...A.1.A.65.D1.1| 00000490: 3A 54 39 B2 33 35 3A 53 39 B2 33 3A 44 39 B2 31 |:T9.35:S9.3:D9.1| 000004A0: 38 00 C3 0C F4 01 8B 41 B2 36 37 A7 44 31 B2 32 |8......A.67.D1.2| 000004B0: 35 37 3A 54 39 B2 37 37 3A 53 39 B2 34 3A 44 39 |57:T9.77:S9.4:D9| 000004C0: B2 33 39 00 EF 0C FE 01 8B 54 39 B2 30 A7 A0 33 |.39......T9.0..3| 000004D0: 3A 99 22 3F 3F 20 44 49 53 4B 20 4E 4F 54 20 52 |:."?? DISK NOT R| 000004E0: 45 43 4F 47 4E 49 5A 45 44 20 3F 3F 22 3A 90 00 |ECOGNIZED ??":..| 000004F0: 05 0D 08 02 81 4A B2 31 A4 44 31 3A A1 23 33 2C |.....J.1.D1:.#3,| 00000500: 41 24 3A 82 4A 00 16 0D 12 02 81 4A B2 31 A4 54 |A$:.J......J.1.T| 00000510: 39 3A 54 31 B2 30 00 30 0D 1C 02 8B 4A B2 35 31 |9:T1.0.0....J.51| 00000520: A7 A1 23 33 2C 41 24 2C 41 24 2C 41 24 2C 41 24 |..#3,A$,A$,A$,A$| 00000530: 00 46 0D 26 02 A1 23 33 2C 41 24 3A 43 B2 C6 28 |.F.&..#3,A$:C..(| 00000540: 41 24 AA 5A 24 29 00 6B 0D 30 02 4B 31 B2 30 3A |A$.Z$).k.0.K1.0:| 00000550: 81 4B B2 30 A4 53 39 AB 31 3A A1 23 33 2C 41 24 |.K.0.S9.1:.#3,A$| 00000560: 3A 41 B2 C6 28 41 24 AA 5A 24 29 00 9E 0D 3A 02 |:A..(A$.Z$)...:.| 00000570: 81 4C B2 30 A4 37 3A 41 25 B2 41 AD 32 3A 44 31 |.L.0.7:A%.A.2:D1| 00000580: B2 41 AB 41 25 AC 32 3A 8B 4B 31 B3 B2 52 25 28 |.A.A%.2:.K1..R%(| 00000590: 4A 29 A7 43 25 28 4A 2C 4B 31 29 B2 44 31 00 BD |J).C%(J,K1).D1..| 000005A0: 0D 44 02 41 B2 41 25 3A 54 31 B2 54 31 AA 44 31 |.D.A.A%:T1.T1.D1| 000005B0: 3A 4B 31 B2 4B 31 AA 31 3A 82 4C 2C 4B 00 C4 0D |:K1.K1.1:.L,K...| 000005C0: 4E 02 82 4A 00 CB 0D 58 02 A0 33 00 E1 0D 62 02 |N..J...X..3...b.| 000005D0: 9F 32 2C 38 2C 32 2C 22 23 30 22 3A 8D 33 30 32 |.2,8,2,"#0":.302| 000005E0: 30 00 0F 0E 84 03 4B B2 30 3A 99 22 93 4C 4F 4F |0.....K.0:.".LOO| 000005F0: 4B 49 4E 47 20 46 4F 52 20 53 43 52 41 54 43 48 |KING FOR SCRATCH| 00000600: 45 44 22 3A 99 22 46 49 4C 45 53 2E 2E 2E 22 00 |ED":."FILES...".| 00000610: 1C 0E 8E 03 54 B2 44 39 3A 53 B2 31 00 26 0E 98 |....T.D9:S.1.&..| 00000620: 03 8D 32 30 30 30 00 4C 0E A2 03 81 44 B2 32 A4 |..2000.L....D.2.| 00000630: 32 35 35 A9 33 32 3A 8B 41 28 44 29 B3 B1 30 B0 |255.32:.A(D)..0.| 00000640: 41 28 44 AA 31 29 B2 30 A7 39 38 30 00 70 0E AC |A(D.1).0.980.p..| 00000650: 03 8B 4B B2 30 A7 99 22 44 4F 20 59 4F 55 20 57 |..K.0.."DO YOU W| 00000660: 41 4E 54 20 54 4F 20 52 45 43 4F 56 45 52 3A 22 |ANT TO RECOVER:"| 00000670: 00 98 0E B6 03 A1 58 24 3A 81 4B B2 44 AA 33 A4 |......X$:.K.D.3.| 00000680: 44 AA 31 38 3A 99 C7 28 41 28 4B 29 29 3B 3A 82 |D.18:..(A(K));:.| 00000690: 4B 3A 99 22 3F 20 22 3B 00 B5 0E C0 03 A1 58 24 |K:."? ";......X$| 000006A0: 3A 8B 58 24 B3 B1 22 59 22 AF 58 24 B3 B1 22 4E |:.X$.."Y".X$.."N| 000006B0: 22 A7 39 36 30 00 CA 0E CA 03 99 58 24 3A 8B 58 |".960......X$:.X| 000006C0: 24 B2 22 59 22 A7 31 30 31 30 00 D1 0E D4 03 82 |$."Y".1010......| 000006D0: 44 00 ED 0E DE 03 54 B2 41 28 30 29 3A 53 B2 41 |D.....T.A(0):S.A| 000006E0: 28 31 29 3A 8B 54 B2 44 39 A7 39 32 30 00 06 0F |(1):.T.D9.920...| 000006F0: E8 03 99 22 54 48 41 54 27 53 20 41 4C 4C 20 22 |..."THAT'S ALL "| 00000700: 3A 89 31 32 37 30 00 4A 0F F2 03 54 36 B2 54 3A |:.1270.J...T6.T:| 00000710: 53 36 B2 53 3A 44 36 B2 44 3A 54 B2 41 28 44 AA |S6.S:D6.D:T.A(D.| 00000720: 31 29 3A 53 B2 41 28 44 AA 32 29 3A 4C 25 28 30 |1):S.A(D.2):L%(0| 00000730: 29 B2 41 28 44 AA 32 38 29 AA 41 28 44 AA 32 39 |).A(D.28).A(D.29| 00000740: 29 AC 32 35 36 3A 4C 25 B2 30 00 63 0F FC 03 A1 |).256:L%.0.c....| 00000750: 58 24 3A 99 22 49 53 20 54 48 49 53 20 46 49 4C |X$:."IS THIS FIL| 00000760: 45 3A 22 00 79 0F 06 04 99 22 20 31 2E 20 53 45 |E:".y...." 1. SE| 00000770: 51 55 45 4E 54 49 41 4C 22 00 8C 0F 10 04 99 22 |QUENTIAL"......"| 00000780: 20 32 2E 20 50 52 4F 47 52 41 4D 22 00 9B 0F 1A | 2. PROGRAM"....| 00000790: 04 99 22 20 33 2E 20 55 53 52 22 00 AF 0F 24 04 |.." 3. USR"...$.| 000007A0: 8B 41 28 44 AA 31 39 29 B2 30 A7 31 30 38 30 00 |.A(D.19).0.1080.| 000007B0: C3 0F 2E 04 99 22 20 34 2E 20 52 45 4C 41 54 49 |....." 4. RELATI| 000007C0: 56 45 22 00 DC 0F 38 04 99 22 20 20 57 48 49 43 |VE"...8.." WHIC| 000007D0: 48 20 4E 55 4D 42 45 52 3F 20 22 3B 00 F0 0F 42 |H NUMBER? ";...B| 000007E0: 04 A1 58 24 3A 8B 58 24 B2 22 22 A7 31 30 39 30 |..X$:.X$."".1090| 000007F0: 00 0D 10 4C 04 58 B2 C6 28 58 24 29 AB 34 38 3A |...L.X..(X$).48:| 00000800: 8B 58 B3 31 B0 58 B1 34 89 31 30 39 30 00 1D 10 |.X.1.X.4.1090...| 00000810: 56 04 99 58 24 3A 58 B2 58 AA 31 32 38 00 58 10 |V..X$:X.X.128.X.| 00000820: 60 04 8B 58 B2 31 33 32 A7 54 25 28 30 2C 31 29 |`..X.132.T%(0,1)| 00000830: B2 41 28 44 AA 31 39 29 3A 53 25 28 30 2C 31 29 |.A(D.19):S%(0,1)| 00000840: B2 41 28 44 AA 32 30 29 3A 8B 54 25 28 30 2C 31 |.A(D.20):.T%(0,1| 00000850: 29 B2 30 A7 31 30 32 30 00 6A 10 6A 04 8B 54 B1 |).0.1020.j.j..T.| 00000860: 54 39 B0 53 B3 30 A7 54 B2 30 00 90 10 74 04 8B |T9.S.0.T.0...t..| 00000870: 54 B3 31 B0 53 B1 52 25 28 54 29 A7 99 22 20 42 |T.1.S.R%(T).." B| 00000880: 41 44 20 43 48 41 49 4E 21 22 3A 89 31 32 36 30 |AD CHAIN!":.1260| 00000890: 00 BB 10 7E 04 8B 43 25 28 54 2C 53 29 B2 30 A7 |...~..C%(T,S).0.| 000008A0: 99 22 20 41 4C 4C 4F 43 41 54 45 44 20 42 4C 4F |." ALLOCATED BLO| 000008B0: 43 4B 53 21 22 3A 89 31 32 36 30 00 CD 10 88 04 |CKS!":.1260.....| 000008C0: 8D 33 30 30 30 3A 4C 25 B2 4C 25 AA 31 00 F2 10 |.3000:L%.L%.1...| 000008D0: 92 04 81 4A B2 30 A4 31 3A 98 31 35 2C 22 4D 2D |...J.0.1:.15,"M-| 000008E0: 52 22 3B C7 28 4A 29 3B 42 24 3A A1 23 31 35 2C |R";.(J);B$:.#15,| 000008F0: 41 24 00 07 11 9C 04 41 28 4A 29 B2 C6 28 41 24 |A$.....A(J)..(A$| 00000900: AA 5A 24 29 3A 82 4A 00 2E 11 A6 04 54 34 B2 54 |.Z$):.J.....T4.T| 00000910: 3A 53 34 B2 53 3A 54 B2 41 28 30 29 3A 53 B2 41 |:S4.S:T.A(0):S.A| 00000920: 28 31 29 3A 8B 54 B3 B1 30 A7 31 31 33 30 00 5B |(1):.T..0.1130.[| 00000930: 11 B0 04 54 B2 54 25 28 30 2C 31 29 3A 53 B2 53 |...T.T%(0,1):S.S| 00000940: 25 28 30 2C 31 29 3A 54 25 28 30 2C 31 29 B2 30 |%(0,1):T%(0,1).0| 00000950: 3A 8B 54 B3 B1 30 A7 31 31 33 30 00 8B 11 BA 04 |:.T..0.1130.....| 00000960: 8B 4C 25 B3 B1 4C 25 28 30 29 A7 99 22 20 49 4E |.L%..L%(0).." IN| 00000970: 43 4F 52 52 45 43 54 20 42 4C 4F 43 4B 20 43 4F |CORRECT BLOCK CO| 00000980: 55 4E 54 21 22 3A 89 31 32 36 30 00 9E 11 C4 04 |UNT!":.1260.....| 00000990: 54 B2 54 36 3A 53 B2 53 36 3A 44 B2 44 36 00 A8 |T.T6:S.S6:D.D6..| 000009A0: 11 CE 04 8D 33 30 30 30 00 C8 11 D8 04 98 31 35 |....3000......15| 000009B0: 2C 22 4D 2D 57 22 3B C7 28 44 29 3B 42 24 3B C7 |,"M-W";.(D);B$;.| 000009C0: 28 31 29 3B C7 28 58 29 00 EB 11 E2 04 98 31 35 |(1);.(X)......15| 000009D0: 2C 22 55 32 3A 32 2C 22 3B 44 24 3B 54 3B 53 3A |,"U2:2,";D$;T;S:| 000009E0: 8D 33 30 32 30 3A 89 31 33 30 30 00 08 12 EC 04 |.3020:.1300.....| 000009F0: 99 22 53 4F 52 52 59 20 2D 20 49 54 20 57 4F 4E |."SORRY - IT WON| 00000A00: 27 54 20 57 4F 52 4B 22 00 0F 12 F6 04 A0 32 00 |'T WORK"......2.| 00000A10: 33 12 14 05 A0 32 3A 98 31 35 2C 22 56 30 22 3A |3....2:.15,"V0":| 00000A20: A0 31 35 3A 81 51 57 B2 31 A4 31 30 30 30 30 3A |.15:.QW.1.10000:| 00000A30: 82 3A 8A 00 4E 12 D0 07 8F 20 47 52 41 42 20 46 |.:..N.... GRAB F| 00000A40: 55 4C 4C 20 44 49 53 4B 20 42 4C 4F 43 4B 00 58 |ULL DISK BLOCK.X| 00000A50: 12 DA 07 8D 33 30 30 30 00 7F 12 E4 07 81 4A B2 |....3000......J.| 00000A60: 30 A4 32 35 35 3A 98 31 35 2C 22 4D 2D 52 22 3B |0.255:.15,"M-R";| 00000A70: C7 28 4A 29 3B 42 24 3A A1 23 31 35 2C 41 24 00 |.(J);B$:.#15,A$.| 00000A80: 96 12 EE 07 41 28 4A 29 B2 C6 28 41 24 AA 5A 24 |....A(J)..(A$.Z$| 00000A90: 29 3A 82 4A 3A 8E 00 AF 12 C2 0B 98 31 35 2C 22 |):.J:.......15,"| 00000AA0: 42 2D 52 22 32 3B C5 28 44 24 29 3B 54 3B 53 00 |B-R"2;.(D$);T;S.| 00000AB0: C2 12 D6 0B 84 31 35 2C 45 2C 45 24 2C 45 31 2C |.....15,E,E$,E1,| 00000AC0: 45 32 00 E7 12 E0 0B 8B 45 B3 B1 30 A7 99 22 12 |E2......E..0..".| 00000AD0: 44 49 53 4B 20 45 52 52 4F 52 3A 92 22 45 3B 45 |DISK ERROR:."E;E| 00000AE0: 24 2C 45 31 3B 45 32 00 ED 12 EA 0B 8E 00 0F 13 |$,E1;E2.........| 00000AF0: 10 27 83 20 31 2C 31 37 2C 32 30 2C 32 34 2C 31 |.'. 1,17,20,24,1| 00000B00: 39 2C 33 30 2C 31 37 2C 33 35 2C 31 36 2C 30 00 |9,30,17,35,16,0.| 00000B10: 32 13 1A 27 83 20 36 35 2C 31 37 2C 32 30 2C 32 |2..'. 65,17,20,2| 00000B20: 34 2C 31 38 2C 33 30 2C 31 37 2C 33 35 2C 31 36 |4,18,30,17,35,16| 00000B30: 2C 30 00 55 13 24 27 83 20 36 37 2C 33 39 2C 32 |,0.U.$'. 67,39,2| 00000B40: 38 2C 35 33 2C 32 36 2C 36 34 2C 32 34 2C 37 37 |8,53,26,64,24,77| 00000B50: 2C 32 32 2C 30 00 00 00 |,22,0... |
....... COMPUTE APRIL '84:140-.]....A(25 5),C%(77,28),D%(1),T%(224,1),S%(224,1),L %(224),R%(77).....D%(0).58:D%(1).42:Z$.G (0):B$.G(3):D$."0"......"....... SCRATCH":..N...."......S=SCRATCH, U=UNSC RATCH"...(..Q$:.Q$."".40...-..Q$."U".400 ......Q$.."S".40...2.."...DISK"...<..1,8 ,0,"$0".+.F.N$.G(0).9.P..#1,A$,A$.Q.Z.F$ ."":B.0:.#1,A$,A$.`._..C.0..".";.T.D..A$ ."".X.1:.200...N..#1,A$,B$...X...5);.... ..#1,A$......A$.""..:A.A.1:.190.G....A$. G(34).B.1:A$.""... ..B.1.F$.F$.A$:.A$;.. ....C(F$).16.C.C.1:.90......130......A.8 .90.'.H.."SCRATCH PROGRAM? Y/N".:.R..Z$: .Z$."".210.J....Z$."Y".270.Z....Z$."N".2 50.C....210.T....X.1. 1:.390......"...": A.0:.90..... 1:.".WHICH PROGRAM";P$:.P$. ""........340.F."..".........".Y.,.."OPE N15,8,15"...6.."..PR15,"G(34)"S0:"X$G(34 )"...@.."..RUN":."..........".:.J..631,1 3:.632,13:.633,13:.198,3:..X.T..A4.1.C(P $):R$.J(P$,A4,1).E.^.X$.X$.R$.K.H.....R. .C(X$).10.X$.H(X$,10)."*"...|....... 15: ..N...."...LOADING FREE SECTORS":.15,8,1 5,"I".D$:.3020......3,8,3,"$".D$:.3020.. ...A0.1:.#3,A$:A.F(A$.Z$)......A1:.A.A1. 470.)...F%.F%.1:.F%.3.510.;.B..A1:.A1.0. 430.D.L..450.V.V..A1:.A1.0.490.}....B1:. J.A0.A1:R%(J).B1:.J:A0.J:.470......A.1.A .65.D1.1:T9.35:S9.3:D9.18.C....A.67.D1.2 57:T9.77:S9.4:D9.39......T9.0. 3:."?? DI SK NOT RECOGNIZED ??":.......J.1.D1:.#3, A$:.J......J.1.T9:T1.0.0....J.51..#3,A$, A$,A$,A$.F.&..#3,A$:C.F(A$.Z$).K.0.K1.0: .K.0.S9.1:.#3,A$:A.F(A$.Z$)...:..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.D.N..J.K.X . 3...B..2,8,2,"#0":.3020.....K.0:.".LOO KING FOR SCRATCHED":."FILES...".....T.D9 :S.1.&....2000.L....D.2.255.32:.A(D)..0. A(D.1).0.980.P....K.0.."DO YOU WANT TO R ECOVER:"......X$:.K.D.3.D.18:.G(A(K));:. K:."? ";......X$:.X$.."Y".X$.."N".960.J. J..X$:.X$."Y".1010.Q.T..D.....T.A(0):S.A (1):.T.D9.920......"THAT'S ALL ":.1270.J ...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.C....X$:."IS THIS FILE:".Y...." 1. SEQUENTIAL"......" 2. PROGRAM"......" 3. USR"...$..A(D.19) .0.1080.C...." 4. RELATIVE"...8.." WHIC H NUMBER? ";...B..X$:.X$."".1090...L.X.F (X$).48:.X.1.X.4.1090...V..X$:X.X.128.X. `..X.132.T%(0,1).A(D.19):S%(0,1).A(D.20) :.T%(0,1).0.1020.J.J..T.T9.S.0.T.0...T.. T.1.S.R%(T).." BAD CHAIN!":.1260...~..C% (T,S).0.." ALLOCATED BLOCKS!":.1260.M... .3000:L%.L%.1......J.0.1:.15,"M-R";G(J); B$:.#15,A$.....A(J).F(A$.Z$):.J.....T4.T :S4.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 BLOCK COUNT!":.1 260...D.T.T6:S.S6:D.D6...N..3000.H.X..15 ,"M-W";G(D);B$;G(1);G(X)......15,"U2:2," ;D$;T;S:.3020:.1300......"SORRY - IT WON 'T WORK"..... 2.3... 2:.15,"V0": 15:.QW. 1.10000:.:..N.P.. GRAB FULL DISK BLOCK.X .Z..3000.....J.0.255:.15,"M-R";G(J);B$: .#15,A$.....A(J).F(A$.Z$):.J:....B..15," B-R"2;E(D$);T;S.B.V..15,E,E$,E1,E2...... E..0..".DISK ERROR:."E;E$,E1;E2......... .'. 1,17,20,24,19,30,17,35,16,0.2..'. 65 ,17,20,24,18,30,17,35,16,0.U.$'. 67,39,2 8,53,26,64,24,77,22,0...
> CLICK IMAGE PREVIEW FOR FULL MODAL