DISK DOKTOR
FILE INFORMATION
FILENAME(S): DISK DOKTOR
FILE TYPE(S): PRG
FILE SIZE: 3.1K
FIRST SEEN: 2025-11-30 19:36:59
APPEARS ON: 1 disk(s)
FILE HASH
3a9f833417f1a93b13be7413b73cd9248ed3255b2ccb57e4e3501240e82c5145
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| TEKSTBEHANDLING | DISK DOKTOR | PRG | Curtcool, Bo | 23 | 17 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 40 08 0A 00 86 41 28 32 35 35 29 2C 43 25 |..@....A(255),C%|
00000010: 28 37 37 2C 32 38 29 2C 44 25 28 31 29 2C 54 25 |(77,28),D%(1),T%|
00000020: 28 32 32 34 2C 31 29 2C 53 25 28 32 32 34 2C 31 |(224,1),S%(224,1|
00000030: 29 2C 4C 25 28 32 32 34 29 2C 52 25 28 37 37 29 |),L%(224),R%(77)|
00000040: 00 6D 08 0B 00 44 25 28 30 29 B2 35 38 3A 44 25 |.m...D%(0).58:D%|
00000050: 28 31 29 B2 34 32 3A 5A 24 B2 C7 28 30 29 3A 42 |(1).42:Z$..(0):B|
00000060: 24 B2 C7 28 33 29 3A 44 24 B2 22 30 22 00 98 08 |$..(3):D$."0"...|
00000070: 14 00 99 22 93 11 11 11 11 11 11 20 20 20 20 20 |..."....... |
00000080: 20 20 20 20 20 20 2A 20 44 49 53 43 2D 44 4F 43 | * DISC-DOC|
00000090: 54 4F 52 20 2A 22 3A 99 00 C7 08 1E 00 99 22 11 |TOR *":.......".|
000000A0: 11 11 11 11 11 20 20 20 20 20 20 53 3D 53 43 52 |..... S=SCR|
000000B0: 41 54 43 48 20 20 20 20 20 20 20 55 3D 55 4E 53 |ATCH U=UNS|
000000C0: 43 52 41 54 43 48 22 00 D9 08 28 00 A1 51 24 3A |CRATCH"...(..Q$:|
000000D0: 8B 51 24 B2 22 22 A7 34 30 00 E9 08 2D 00 8B 51 |.Q$."".40...-..Q|
000000E0: 24 B2 22 55 22 A7 34 30 30 00 F9 08 2E 00 8B 51 |$."U".400......Q|
000000F0: 24 B3 B1 22 53 22 A7 34 30 00 2B 09 32 00 99 22 |$.."S".40.+.2.."|
00000100: 93 12 53 43 41 4E 4E 49 4E 47 20 20 20 44 49 53 |..SCANNING DIS|
00000110: 4B 2E 2E 2E 2E 2E 20 20 20 20 20 20 20 20 20 20 |K..... |
00000120: 20 20 20 20 20 20 20 20 20 20 22 00 3B 09 3C 00 | ".;.<.|
00000130: 9F 31 2C 38 2C 30 2C 22 24 30 22 00 47 09 46 00 |.1,8,0,"$0".G.F.|
00000140: 4E 24 B2 C7 28 30 29 00 55 09 50 00 A1 23 31 2C |N$..(0).U.P..#1,|
00000150: 41 24 2C 41 24 00 6D 09 5A 00 46 24 B2 22 22 3A |A$,A$.m.Z.F$."":|
00000160: 42 B2 2E 3A A1 23 31 2C 41 24 2C 41 24 00 7C 09 |B..:.#1,A$,A$.|.|
00000170: 5F 00 8B 43 B2 2E A7 99 22 12 22 3B 00 90 09 64 |_..C....".";...d|
00000180: 00 8B 41 24 B2 22 22 A7 58 B2 31 3A 89 32 30 30 |..A$."".X.1:.200|
00000190: 00 9E 09 6E 00 A1 23 31 2C 41 24 2C 42 24 00 A8 |...n..#1,A$,B$..|
000001A0: 09 78 00 99 A3 35 29 3B 00 B3 09 82 00 A1 23 31 |.x...5);......#1|
000001B0: 2C 41 24 00 CB 09 8C 00 8B 41 24 B2 22 22 A7 99 |,A$......A$.""..|
000001C0: 3A 41 B2 41 AA 31 3A 89 31 39 30 00 E3 09 96 00 |:A.A.1:.190.....|
000001D0: 8B 41 24 B2 C7 28 33 34 29 A7 42 B2 31 3A 41 24 |.A$..(34).B.1:A$|
000001E0: B2 22 22 00 FA 09 A0 00 8B 42 B2 31 A7 46 24 B2 |.""......B.1.F$.|
000001F0: 46 24 AA 41 24 3A 99 41 24 3B 00 12 0A AA 00 8B |F$.A$:.A$;......|
00000200: C3 28 46 24 29 B1 31 36 A7 43 B2 43 AA 31 3A 89 |.(F$).16.C.C.1:.|
00000210: 39 30 00 1B 0A B4 00 89 31 33 30 00 27 0A BE 00 |90......130.'...|
00000220: 8B 41 B3 38 A7 39 30 00 49 0A C8 00 99 22 11 11 |.A.8.90.I...."..|
00000230: 53 43 52 41 54 43 48 20 50 52 4F 47 52 41 4D 20 |SCRATCH PROGRAM |
00000240: 3F 20 20 20 20 59 2F 4E 22 00 5C 0A D2 00 A1 5A |? Y/N".\....Z|
00000250: 24 3A 8B 5A 24 B2 22 22 A7 32 31 30 00 6C 0A DC |$:.Z$."".210.l..|
00000260: 00 8B 5A 24 B2 22 59 22 A7 32 37 30 00 7C 0A E6 |..Z$."Y".270.|..|
00000270: 00 8B 5A 24 B2 22 4E 22 A7 32 35 30 00 85 0A F0 |..Z$."N".250....|
00000280: 00 89 32 31 30 00 96 0A FA 00 8B 58 B2 31 A7 A0 |..210......X.1..|
00000290: 31 3A 89 33 39 30 00 A9 0A 04 01 99 22 93 11 11 |1:.390......"...|
000002A0: 22 3A 41 B2 2E 3A 89 39 30 00 D0 0A 0E 01 A0 31 |":A..:.90......1|
000002B0: 3A 85 22 57 48 49 43 48 20 50 52 4F 47 52 41 4D |:."WHICH PROGRAM|
000002C0: 20 20 20 22 3B 50 24 3A 8B 50 24 B2 22 22 A7 80 | ";P$:.P$.""..|
000002D0: 00 D9 0A 18 01 8D 33 34 30 00 EA 0A 22 01 99 22 |......340...".."|
000002E0: 93 11 11 11 11 11 11 11 11 22 00 FD 0A 2C 01 99 |........."...,..|
000002F0: 22 4F 50 45 4E 31 35 2C 38 2C 31 35 22 00 1E 0B |"OPEN15,8,15"...|
00000300: 36 01 99 22 11 11 50 D2 31 35 2C 22 C7 28 33 34 |6.."..P.15,".(34|
00000310: 29 22 53 30 3A 22 58 24 C7 28 33 34 29 22 00 39 |)"S0:"X$.(34)".9|
00000320: 0B 40 01 99 22 11 11 52 55 4E 22 3A 99 22 91 91 |.@.."..RUN":."..|
00000330: 91 91 91 91 91 91 91 91 22 00 5E 0B 4A 01 97 36 |........".^.J..6|
00000340: 33 31 2C 31 33 3A 97 36 33 32 2C 31 33 3A 97 36 |31,13:.632,13:.6|
00000350: 33 33 2C 31 33 3A 97 31 39 38 2C 33 3A 80 00 7C |33,13:.198,3:..||
00000360: 0B 54 01 81 41 34 B2 31 A4 C3 28 50 24 29 3A 52 |.T..A4.1..(P$):R|
00000370: 24 B2 CA 28 50 24 2C 41 34 2C 31 29 00 89 0B 5E |$..(P$,A4,1)...^|
00000380: 01 58 24 B2 58 24 AA 52 24 00 8F 0B 68 01 82 00 |.X$.X$.R$...h...|
00000390: AD 0B 72 01 8B C3 28 58 24 29 B1 31 30 A7 58 24 |..r...(X$).10.X$|
000003A0: B2 C8 28 58 24 2C 31 30 29 AA 22 2A 22 00 B3 0B |..(X$,10)."*"...|
000003B0: 7C 01 8E 00 BD 0B 86 01 A0 31 35 3A 8A 00 F3 0B ||........15:....|
000003C0: 90 01 99 22 93 4C 4F 41 44 49 4E 47 20 46 52 45 |...".LOADING FRE|
000003D0: 45 20 53 45 43 54 4F 52 53 2E 2E 2E 22 3A 9F 31 |E 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 2E A7 34 33 30 |....A1:.A1...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 2E A7 34 39 30 00 A2 0C E0 01 |1:.A1...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 2E A7 A0 33 3A 99 22 3F 3F 20 44 49 53 4B 20 |....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 2E 00 55 0D 1C 02 |J.1.T9:T1...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 2E 3A 81 4B B2 2E A4 53 39 AB 31 3A A1 |K1..:.K...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 2E A4 37 3A 41 25 B2 41 |...:..L...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 33 0E 84 03 4B B2 2E 3A 99 |:.3020.3...K..:.|
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 20 46 49 4C 45 53 2E 2E 2E |RATCHED FILES...|
00000630: 11 11 22 00 40 0E 8E 03 54 B2 44 39 3A 53 B2 31 |..".@...T.D9:S.1|
00000640: 00 4A 0E 98 03 8D 32 30 30 30 00 70 0E A2 03 81 |.J....2000.p....|
00000650: 44 B2 32 A4 32 35 35 A9 33 32 3A 8B 41 28 44 29 |D.2.255.32:.A(D)|
00000660: B3 B1 2E B0 41 28 44 AA 31 29 B2 2E A7 39 38 30 |....A(D.1)...980|
00000670: 00 97 0E AC 03 8B 4B B2 2E A7 99 22 44 4F 20 59 |......K...."DO Y|
00000680: 4F 55 20 57 41 4E 54 20 54 4F 20 52 45 43 4F 56 |OU WANT TO RECOV|
00000690: 45 52 3A 11 11 12 22 00 BF 0E B6 03 A1 58 24 3A |ER:..."......X$:|
000006A0: 81 4B B2 44 AA 33 A4 44 AA 31 38 3A 99 C7 28 41 |.K.D.3.D.18:..(A|
000006B0: 28 4B 29 29 3B 3A 82 4B 3A 99 22 3F 20 22 3B 00 |(K));:.K:."? ";.|
000006C0: DC 0E C0 03 A1 58 24 3A 8B 58 24 B3 B1 22 59 22 |.....X$:.X$.."Y"|
000006D0: AF 58 24 B3 B1 22 4E 22 A7 39 36 30 00 F1 0E CA |.X$.."N".960....|
000006E0: 03 99 58 24 3A 8B 58 24 B2 22 59 22 A7 31 30 31 |..X$:.X$."Y".101|
000006F0: 30 00 F8 0E D4 03 82 44 00 14 0F DE 03 54 B2 41 |0......D.....T.A|
00000700: 28 30 29 3A 53 B2 41 28 31 29 3A 8B 54 B2 44 39 |(0):S.A(1):.T.D9|
00000710: A7 39 32 30 00 54 0F E8 03 99 22 92 11 11 20 20 |.920.T...."... |
00000720: 20 20 20 54 48 41 54 27 53 20 41 4C 4C 20 22 3A | THAT'S ALL ":|
00000730: 99 22 11 11 11 11 11 20 20 20 50 52 45 53 53 20 |."..... PRESS |
00000740: 41 4E 59 20 4B 45 59 20 54 4F 20 43 4F 4E 54 49 |ANY KEY TO CONTI|
00000750: 4E 55 45 22 00 6A 0F E9 03 99 22 20 20 20 12 51 |NUE".j...." .Q|
00000760: 92 20 54 4F 20 51 55 49 54 22 00 7E 0F ED 03 A1 |. TO QUIT".~....|
00000770: 41 24 3A 8B 41 24 B2 22 22 A7 31 30 30 35 00 96 |A$:.A$."".1005..|
00000780: 0F EE 03 8B 41 24 B2 22 51 22 A7 A0 32 3A A0 33 |....A$."Q"..2:.3|
00000790: 3A A0 31 35 3A 80 00 AF 0F EF 03 8B 41 24 B3 B1 |:.15:.......A$..|
000007A0: 22 51 22 AF 41 24 B3 B1 22 22 A7 31 32 37 30 00 |"Q".A$.."".1270.|
000007B0: F3 0F F2 03 54 36 B2 54 3A 53 36 B2 53 3A 44 36 |....T6.T:S6.S:D6|
000007C0: B2 44 3A 54 B2 41 28 44 AA 31 29 3A 53 B2 41 28 |.D:T.A(D.1):S.A(|
000007D0: 44 AA 32 29 3A 4C 25 28 30 29 B2 41 28 44 AA 32 |D.2):L%(0).A(D.2|
000007E0: 38 29 AA 41 28 44 AA 32 39 29 AC 32 35 36 3A 4C |8).A(D.29).256:L|
000007F0: 25 B2 2E 00 0C 10 FC 03 A1 58 24 3A 99 22 49 53 |%........X$:."IS|
00000800: 20 54 48 49 53 20 46 49 4C 45 3A 22 00 31 10 06 | THIS FILE:".1..|
00000810: 04 99 22 20 20 20 20 20 20 20 20 20 20 20 20 20 |.." |
00000820: 20 20 20 31 2E 20 53 45 51 55 45 4E 54 49 41 4C | 1. SEQUENTIAL|
00000830: 22 00 53 10 10 04 99 22 20 20 20 20 20 20 20 20 |".S...." |
00000840: 20 20 20 20 20 20 20 20 32 2E 20 50 52 4F 47 52 | 2. PROGR|
00000850: 41 4D 22 00 72 10 1A 04 99 22 20 20 20 20 20 20 |AM".r...." |
00000860: 20 20 20 20 20 20 20 20 20 20 33 2E 20 55 53 45 | 3. USE|
00000870: 52 22 00 86 10 24 04 8B 41 28 44 AA 31 39 29 B2 |R"...$..A(D.19).|
00000880: 2E A7 31 30 38 30 00 A9 10 2E 04 99 22 20 20 20 |..1080......" |
00000890: 20 20 20 20 20 20 20 20 20 20 20 20 20 34 2E 20 | 4. |
000008A0: 52 45 4C 41 54 49 56 45 22 00 D2 10 38 04 99 22 |RELATIVE"...8.."|
000008B0: 11 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 |. |
000008C0: 20 20 57 48 49 43 48 20 4E 55 4D 42 45 52 20 3F | WHICH NUMBER ?|
000008D0: 22 3B 00 E6 10 42 04 A1 58 24 3A 8B 58 24 B2 22 |";...B..X$:.X$."|
000008E0: 22 A7 31 30 39 30 00 03 11 4C 04 58 B2 C6 28 58 |".1090...L.X..(X|
000008F0: 24 29 AB 34 38 3A 8B 58 B3 31 B0 58 B1 34 89 31 |$).48:.X.1.X.4.1|
00000900: 30 39 30 00 13 11 56 04 99 58 24 3A 58 B2 58 AA |090...V..X$:X.X.|
00000910: 31 32 38 00 4E 11 60 04 8B 58 B2 31 33 32 A7 54 |128.N.`..X.132.T|
00000920: 25 28 30 2C 31 29 B2 41 28 44 AA 31 39 29 3A 53 |%(0,1).A(D.19):S|
00000930: 25 28 30 2C 31 29 B2 41 28 44 AA 32 30 29 3A 8B |%(0,1).A(D.20):.|
00000940: 54 25 28 30 2C 31 29 B2 2E A7 31 30 32 30 00 60 |T%(0,1)...1020.`|
00000950: 11 6A 04 8B 54 B1 54 39 B0 53 B3 2E A7 54 B2 2E |.j..T.T9.S...T..|
00000960: 00 86 11 74 04 8B 54 B3 31 B0 53 B1 52 25 28 54 |...t..T.1.S.R%(T|
00000970: 29 A7 99 22 20 42 41 44 20 43 48 41 49 4E 21 22 |).." BAD CHAIN!"|
00000980: 3A 89 31 32 36 30 00 B1 11 7E 04 8B 43 25 28 54 |:.1260...~..C%(T|
00000990: 2C 53 29 B2 2E A7 99 22 20 41 4C 4C 4F 43 41 54 |,S)...." ALLOCAT|
000009A0: 45 44 20 42 4C 4F 43 4B 53 21 22 3A 89 31 32 36 |ED BLOCKS!":.126|
000009B0: 30 00 C3 11 88 04 8D 33 30 30 30 3A 4C 25 B2 4C |0......3000:L%.L|
000009C0: 25 AA 31 00 E8 11 92 04 81 4A B2 2E A4 31 3A 98 |%.1......J...1:.|
000009D0: 31 35 2C 22 4D 2D 52 22 3B C7 28 4A 29 3B 42 24 |15,"M-R";.(J);B$|
000009E0: 3A A1 23 31 35 2C 41 24 00 FD 11 9C 04 41 28 4A |:.#15,A$.....A(J|
000009F0: 29 B2 C6 28 41 24 AA 5A 24 29 3A 82 4A 00 24 12 |)..(A$.Z$):.J.$.|
00000A00: A6 04 54 34 B2 54 3A 53 34 B2 53 3A 54 B2 41 28 |..T4.T:S4.S:T.A(|
00000A10: 30 29 3A 53 B2 41 28 31 29 3A 8B 54 B3 B1 2E A7 |0):S.A(1):.T....|
00000A20: 31 31 33 30 00 51 12 B0 04 54 B2 54 25 28 30 2C |1130.Q...T.T%(0,|
00000A30: 31 29 3A 53 B2 53 25 28 30 2C 31 29 3A 54 25 28 |1):S.S%(0,1):T%(|
00000A40: 30 2C 31 29 B2 2E 3A 8B 54 B3 B1 2E A7 31 31 33 |0,1)..:.T....113|
00000A50: 30 00 81 12 BA 04 8B 4C 25 B3 B1 4C 25 28 30 29 |0......L%..L%(0)|
00000A60: A7 99 22 20 49 4E 43 4F 52 52 45 43 54 20 42 4C |.." INCORRECT BL|
00000A70: 4F 43 4B 20 43 4F 55 4E 54 21 22 3A 89 31 32 36 |OCK COUNT!":.126|
00000A80: 30 00 94 12 C4 04 54 B2 54 36 3A 53 B2 53 36 3A |0.....T.T6:S.S6:|
00000A90: 44 B2 44 36 00 9E 12 CE 04 8D 33 30 30 30 00 BE |D.D6......3000..|
00000AA0: 12 D8 04 98 31 35 2C 22 4D 2D 57 22 3B C7 28 44 |....15,"M-W";.(D|
00000AB0: 29 3B 42 24 3B C7 28 31 29 3B C7 28 58 29 00 E1 |);B$;.(1);.(X)..|
00000AC0: 12 E2 04 98 31 35 2C 22 55 32 3A 32 2C 22 3B 44 |....15,"U2:2,";D|
00000AD0: 24 3B 54 3B 53 3A 8D 33 30 32 30 3A 89 31 33 30 |$;T;S:.3020:.130|
00000AE0: 30 00 FF 12 EC 04 99 22 20 53 4F 52 52 59 20 2D |0......" SORRY -|
00000AF0: 20 49 54 20 57 4F 4E 27 54 20 57 4F 52 4B 22 00 | IT WON'T WORK".|
00000B00: 06 13 F6 04 A0 32 00 2A 13 14 05 A0 32 3A 98 31 |.....2.*....2:.1|
00000B10: 35 2C 22 56 30 22 3A A0 31 35 3A 81 51 57 B2 31 |5,"V0":.15:.QW.1|
00000B20: A4 31 30 30 30 30 3A 82 3A 8A 00 45 13 D0 07 8F |.10000:.:..E....|
00000B30: 20 47 52 41 42 20 46 55 4C 4C 20 44 49 53 4B 20 | GRAB FULL DISK |
00000B40: 42 4C 4F 43 4B 00 4F 13 DA 07 8D 33 30 30 30 00 |BLOCK.O....3000.|
00000B50: 76 13 E4 07 81 4A B2 2E A4 32 35 35 3A 98 31 35 |v....J...255:.15|
00000B60: 2C 22 4D 2D 52 22 3B C7 28 4A 29 3B 42 24 3A A1 |,"M-R";.(J);B$:.|
00000B70: 23 31 35 2C 41 24 00 8D 13 EE 07 41 28 4A 29 B2 |#15,A$.....A(J).|
00000B80: C6 28 41 24 AA 5A 24 29 3A 82 4A 3A 8E 00 9E 13 |.(A$.Z$):.J:....|
00000B90: B8 0B 8F 20 52 45 41 44 20 42 4C 4F 41 44 00 B7 |... READ BLOAD..|
00000BA0: 13 C2 0B 98 31 35 2C 22 42 2D 52 22 32 3B C5 28 |....15,"B-R"2;.(|
00000BB0: 44 24 29 3B 54 3B 53 00 CE 13 CC 0B 8F 20 47 45 |D$);T;S...... GE|
00000BC0: 54 20 45 52 52 4F 52 20 53 54 41 54 55 53 00 E1 |T ERROR STATUS..|
00000BD0: 13 D6 0B 84 31 35 2C 45 2C 45 24 2C 45 31 2C 45 |....15,E,E$,E1,E|
00000BE0: 32 00 06 14 E0 0B 8B 45 B3 B1 2E A7 99 22 12 44 |2......E.....".D|
00000BF0: 49 53 4B 20 45 52 52 4F 52 3A 92 22 45 3B 45 24 |ISK ERROR:."E;E$|
00000C00: 3B 45 31 3B 45 32 00 0C 14 EA 0B 8E 00 2D 14 10 |;E1;E2.......-..|
00000C10: 27 83 31 2C 31 37 2C 32 30 2C 32 34 2C 31 39 2C |'.1,17,20,24,19,|
00000C20: 33 30 2C 31 37 2C 33 35 2C 31 36 2C 30 00 4F 14 |30,17,35,16,0.O.|
00000C30: 1A 27 83 36 35 2C 31 37 2C 32 30 2C 32 34 2C 31 |.'.65,17,20,24,1|
00000C40: 38 2C 33 30 2C 31 37 2C 33 35 2C 31 36 2C 30 00 |8,30,17,35,16,0.|
00000C50: 71 14 24 27 83 36 37 2C 33 39 2C 32 38 2C 35 33 |q.$'.67,39,28,53|
00000C60: 2C 32 36 2C 36 34 2C 32 34 2C 37 37 2C 32 32 2C |,26,64,24,77,22,|
00000C70: 30 00 00 00 |0... |
..@....A(255),C%(77,28),D%(1),T%(224,1),
S%(224,1),L%(224),R%(77).M...D%(0).58:D%
(1).42:Z$.G(0):B$.G(3):D$."0"......"....
... * DISC-DOCTOR *":..G....".
..... S=SCRATCH U=UNSCRATCH".
Y.(..Q$:.Q$."".40...-..Q$."U".400......Q
$.."S".40.+.2.."..SCANNING DISK.....
".;.<..1,8,0,"$0".G.F.
N$.G(0).U.P..#1,A$,A$.M.Z.F$."":B..:.#1,
A$,A$.|._..C....".";...D..A$."".X.1:.200
...N..#1,A$,B$...X...5);......#1,A$.K...
.A$.""..:A.A.1:.190......A$.G(34).B.1:A$
.""... ..B.1.F$.F$.A$:.A$;......C(F$).16
.C.C.1:.90......130.'....A.8.90.I.H.."..
SCRATCH PROGRAM ? Y/N".\.R..Z$:.Z$.""
.210.L....Z$."Y".270.|....Z$."N".250....
..210......X.1. 1:.390......"...":A..:.9
0.P... 1:."WHICH PROGRAM ";P$:.P$.""..
.Y....340...".."........."...,.."OPEN15,
8,15"...6.."..PR15,"G(34)"S0:"X$G(34)".9
.@.."..RUN":."..........".^.J..631,13:.6
32,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...430
.I.L..450.{.V..A1:.A1...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... 3:."?? DISK
NOT RECOGNIZED ??":..*....J.1.D1:.#3,A$:
.J.;....J.1.T9:T1...U....J.51..#3,A$,A$,
A$,A$.K.&..#3,A$:C.F(A$.Z$)...0.K1..:.K.
..S9.1:.#3,A$:A.F(A$.Z$).C.:..L...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.3...K..:.".LOOKIN
G FOR SCRATCHED FILES.....".@...T.D9:S.1
.J....2000.P....D.2.255.32:.A(D)....A(D.
1)...980......K...."DO YOU WANT TO RECOV
ER:..."......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.T...."... THAT'S ALL ":
."..... PRESS ANY KEY TO CONTINUE".J..
.." .Q. TO QUIT".~....A$:.A$."".1005..
....A$."Q". 2: 3: 15:.......A$.."Q".A$..
"".1270.....T6.T:S6.S:D6.D:T.A(D.1):S.A(
D.2):L%(0).A(D.28).A(D.29).256:L%.......
.X$:."IS THIS FILE:".1...."
1. SEQUENTIAL".S...."
2. PROGRAM".R...." 3. USE
R"...$..A(D.19)...1080......"
4. RELATIVE".R.8..".
WHICH NUMBER ?";...B..X$:.X$."".1090..
.L.X.F(X$).48:.X.1.X.4.1090...V..X$:X.X.
128.N.`..X.132.T%(0,1).A(D.19):S%(0,1).A
(D.20):.T%(0,1)...1020.`.J..T.T9.S...T..
...T..T.1.S.R%(T).." BAD CHAIN!":.1260..
.~..C%(T,S)...." ALLOCATED BLOCKS!":.126
0.C....3000:L%.L%.1......J...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....1130.Q..
.T.T%(0,1):S.S%(0,1):T%(0,1)..:.T....113
0......L%..L%(0).." INCORRECT BLOCK COUN
T!":.1260...D.T.T6:S.S6:D.D6...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"..... 2.*... 2:.15,"V0":
15:.QW.1.10000:.:..E.P.. GRAB FULL DISK
BLOCK.O.Z..3000.V....J...255:.15,"M-R";G
(J);B$:.#15,A$.....A(J).F(A$.Z$):.J:....
... READ BLOAD...B..15,"B-R"2;E(D$);T;S.
N.L.. GET ERROR STATUS...V..15,E,E$,E1,E
2......E.....".DISK ERROR:."E;E$;E1;E2..
.....-..'.1,17,20,24,19,30,17,35,16,0.O.
.'.65,17,20,24,18,30,17,35,16,0.Q.$'.67,
39,28,53,26,64,24,77,22,0...
> CLICK IMAGE PREVIEW FOR FULL MODAL