RECOVER
FILE INFORMATION
FILENAME(S): RECOVER
FILE TYPE(S): PRG
FILE SIZE: 3.1K
FIRST SEEN: 2025-12-01 01:09:58
APPEARS ON: 1 disk(s)
FILE HASH
57b1ff9559c4e6c3c80a4bbf65d445341792d79d14726e7424db751596ba51d7
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| CA EN NYTTO DISK | RECOVER | PRG | hedning, Martin L0fgren | 13 | 0 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 25 08 00 00 8F 20 2A 2A 2A 20 31 35 34 30 |..%.... *** 1540|
00000010: 2F 31 35 34 31 20 44 49 53 4B 20 48 4F 55 53 45 |/1541 DISK HOUSE|
00000020: 4B 2E 2A 2A 2A 00 47 08 01 00 8F 20 2A 2A 2A 20 |K.***.G.... *** |
00000030: 43 4F 4D 50 55 54 45 20 20 41 50 52 49 4C 2F 31 |COMPUTE APRIL/1|
00000040: 39 38 34 20 2A 2A 2A 00 64 08 05 00 97 35 33 32 |984 ***.d....532|
00000050: 38 31 2C 39 3A 97 35 33 32 38 30 2C 31 31 3A 99 |81,9:.53280,11:.|
00000060: 22 93 90 22 00 A3 08 0A 00 86 41 28 32 35 35 29 |".."......A(255)|
00000070: 2C 43 25 28 37 37 2C 32 38 29 2C 44 25 28 31 29 |,C%(77,28),D%(1)|
00000080: 2C 54 25 28 32 32 34 2C 31 29 2C 53 25 28 32 32 |,T%(224,1),S%(22|
00000090: 34 2C 31 29 2C 4C 25 28 32 32 34 29 2C 52 25 28 |4,1),L%(224),R%(|
000000A0: 37 37 29 00 D0 08 0B 00 44 25 28 30 29 B2 35 38 |77).....D%(0).58|
000000B0: 3A 44 25 28 31 29 B2 34 32 3A 5A 24 B2 C7 28 30 |:D%(1).42:Z$..(0|
000000C0: 29 3A 42 24 B2 C7 28 33 29 3A 44 24 B2 22 30 22 |):B$..(3):D$."0"|
000000D0: 00 F1 08 14 00 99 22 11 11 11 11 11 20 20 20 20 |......"..... |
000000E0: 20 20 20 20 20 12 53 43 52 41 54 43 48 92 22 3A | .SCRATCH.":|
000000F0: 99 00 14 09 1E 00 99 22 11 11 11 11 11 53 3D 53 |.......".....S=S|
00000100: 43 52 41 54 43 48 2C 20 55 3D 55 4E 53 43 52 41 |CRATCH, U=UNSCRA|
00000110: 54 43 48 22 00 26 09 28 00 A1 51 24 3A 8B 51 24 |TCH".&.(..Q$:.Q$|
00000120: B2 22 22 A7 34 30 00 36 09 2D 00 8B 51 24 B2 22 |."".40.6.-..Q$."|
00000130: 55 22 A7 34 30 30 00 46 09 2E 00 8B 51 24 B3 B1 |U".400.F....Q$..|
00000140: 22 53 22 A7 34 30 00 55 09 32 00 99 22 93 11 12 |"S".40.U.2.."...|
00000150: 44 49 53 4B 22 00 65 09 3C 00 9F 31 2C 38 2C 30 |DISK".e.<..1,8,0|
00000160: 2C 22 24 30 22 00 71 09 46 00 4E 24 B2 C7 28 30 |,"$0".q.F.N$..(0|
00000170: 29 00 7F 09 50 00 A1 23 31 2C 41 24 2C 41 24 00 |)...P..#1,A$,A$.|
00000180: 97 09 5A 00 46 24 B2 22 22 3A 42 B2 30 3A A1 23 |..Z.F$."":B.0:.#|
00000190: 31 2C 41 24 2C 41 24 00 A6 09 5F 00 8B 43 B2 30 |1,A$,A$..._..C.0|
000001A0: A7 99 22 12 22 3B 00 BA 09 64 00 8B 41 24 B2 22 |..".";...d..A$."|
000001B0: 22 A7 58 B2 31 3A 89 32 30 30 00 C8 09 6E 00 A1 |".X.1:.200...n..|
000001C0: 23 31 2C 41 24 2C 42 24 00 D2 09 78 00 99 A3 35 |#1,A$,B$...x...5|
000001D0: 29 3B 00 DD 09 82 00 A1 23 31 2C 41 24 00 F5 09 |);......#1,A$...|
000001E0: 8C 00 8B 41 24 B2 22 22 A7 99 3A 41 B2 41 AA 31 |...A$.""..:A.A.1|
000001F0: 3A 89 31 39 30 00 0D 0A 96 00 8B 41 24 B2 C7 28 |:.190......A$..(|
00000200: 33 34 29 A7 42 B2 31 3A 41 24 B2 22 22 00 24 0A |34).B.1:A$."".$.|
00000210: A0 00 8B 42 B2 31 A7 46 24 B2 46 24 AA 41 24 3A |...B.1.F$.F$.A$:|
00000220: 99 41 24 3B 00 3C 0A AA 00 8B C3 28 46 24 29 B1 |.A$;.<.....(F$).|
00000230: 31 36 A7 43 B2 43 AA 31 3A 89 39 30 00 45 0A B4 |16.C.C.1:.90.E..|
00000240: 00 89 31 33 30 00 52 0A BE 00 8B 41 B3 31 38 A7 |..130.R....A.18.|
00000250: 39 30 00 6F 0A C8 00 99 22 11 53 43 52 41 54 43 |90.o....".SCRATC|
00000260: 48 20 50 52 4F 47 52 41 4D 3F 20 59 2F 4E 22 00 |H PROGRAM? Y/N".|
00000270: 82 0A D2 00 A1 5A 24 3A 8B 5A 24 B2 22 22 A7 32 |.....Z$:.Z$."".2|
00000280: 31 30 00 92 0A DC 00 8B 5A 24 B2 22 59 22 A7 32 |10......Z$."Y".2|
00000290: 37 30 00 A3 0A E6 00 8B 5A 24 B3 B1 22 4E 22 A7 |70......Z$.."N".|
000002A0: 32 31 30 00 B4 0A FA 00 8B 58 B2 31 A7 A0 31 3A |210......X.1..1:|
000002B0: 89 33 39 30 00 C7 0A 04 01 99 22 93 11 11 22 3A |.390......"...":|
000002C0: 41 B2 30 3A 89 39 30 00 EC 0A 0E 01 A0 31 3A 85 |A.0:.90......1:.|
000002D0: 22 11 57 48 49 43 48 20 50 52 4F 47 52 41 4D 22 |".WHICH PROGRAM"|
000002E0: 3B 50 24 3A 8B 50 24 B2 22 22 A7 80 00 F5 0A 18 |;P$:.P$.""......|
000002F0: 01 8D 33 34 30 00 06 0B 22 01 99 22 93 11 11 11 |..340...".."....|
00000300: 11 11 11 11 11 22 00 19 0B 2C 01 99 22 4F 50 45 |....."...,.."OPE|
00000310: 4E 31 35 2C 38 2C 31 35 22 00 3A 0B 36 01 99 22 |N15,8,15".:.6.."|
00000320: 11 11 50 D2 31 35 2C 22 C7 28 33 34 29 22 53 30 |..P.15,".(34)"S0|
00000330: 3A 22 58 24 C7 28 33 34 29 22 00 55 0B 40 01 99 |:"X$.(34)".U.@..|
00000340: 22 11 11 52 55 4E 22 3A 99 22 91 91 91 91 91 91 |"..RUN":."......|
00000350: 91 91 91 91 22 00 7A 0B 4A 01 97 36 33 31 2C 31 |....".z.J..631,1|
00000360: 33 3A 97 36 33 32 2C 31 33 3A 97 36 33 33 2C 31 |3:.632,13:.633,1|
00000370: 33 3A 97 31 39 38 2C 33 3A 80 00 98 0B 54 01 81 |3:.198,3:....T..|
00000380: 41 34 B2 31 A4 C3 28 50 24 29 3A 52 24 B2 CA 28 |A4.1..(P$):R$..(|
00000390: 50 24 2C 41 34 2C 31 29 00 A5 0B 5E 01 58 24 B2 |P$,A4,1)...^.X$.|
000003A0: 58 24 AA 52 24 00 AB 0B 68 01 82 00 C9 0B 72 01 |X$.R$...h.....r.|
000003B0: 8B C3 28 58 24 29 B1 31 30 A7 58 24 B2 C8 28 58 |..(X$).10.X$..(X|
000003C0: 24 2C 31 30 29 AA 22 2A 22 00 CF 0B 7C 01 8E 00 |$,10)."*"...|...|
000003D0: D9 0B 86 01 A0 31 35 3A 8A 00 0E 0C 90 01 99 22 |.....15:......."|
000003E0: 11 11 11 4C 4F 41 44 49 4E 47 20 46 52 45 45 20 |...LOADING FREE |
000003F0: 53 45 43 54 4F 52 53 22 3A 9F 31 35 2C 38 2C 31 |SECTORS":.15,8,1|
00000400: 35 2C 22 49 22 AA 44 24 3A 8D 33 30 32 30 00 26 |5,"I".D$:.3020.&|
00000410: 0C 9A 01 9F 33 2C 38 2C 33 2C 22 24 22 AA 44 24 |....3,8,3,"$".D$|
00000420: 3A 8D 33 30 32 30 00 41 0C A4 01 41 30 B2 31 3A |:.3020.A...A0.1:|
00000430: A1 23 33 2C 41 24 3A 41 B2 C6 28 41 24 AA 5A 24 |.#3,A$:A..(A$.Z$|
00000440: 29 00 53 0C AE 01 87 41 31 3A 8B 41 B2 41 31 A7 |).S....A1:.A.A1.|
00000450: 34 37 30 00 69 0C B8 01 46 25 B2 46 25 AA 31 3A |470.i...F%.F%.1:|
00000460: 8B 46 25 B2 33 A7 35 31 30 00 7B 0C C2 01 87 41 |.F%.3.510.{....A|
00000470: 31 3A 8B 41 31 B2 30 A7 34 33 30 00 84 0C CC 01 |1:.A1.0.430.....|
00000480: 89 34 35 30 00 96 0C D6 01 87 41 31 3A 8B 41 31 |.450......A1:.A1|
00000490: B2 30 A7 34 39 30 00 BD 0C E0 01 87 42 31 3A 81 |.0.490......B1:.|
000004A0: 4A B2 41 30 A4 41 31 3A 52 25 28 4A 29 B2 42 31 |J.A0.A1:R%(J).B1|
000004B0: 3A 82 4A 3A 41 30 B2 4A 3A 89 34 37 30 00 E1 0C |:.J:A0.J:.470...|
000004C0: EA 01 8B 41 B2 31 B0 41 B2 36 35 A7 44 31 B2 31 |...A.1.A.65.D1.1|
000004D0: 3A 54 39 B2 33 35 3A 53 39 B2 33 3A 44 39 B2 31 |:T9.35:S9.3:D9.1|
000004E0: 38 00 03 0D F4 01 8B 41 B2 36 37 A7 44 31 B2 32 |8......A.67.D1.2|
000004F0: 35 37 3A 54 39 B2 37 37 3A 53 39 B2 34 3A 44 39 |57:T9.77:S9.4:D9|
00000500: B2 33 39 00 2F 0D FE 01 8B 54 39 B2 30 A7 A0 33 |.39./....T9.0..3|
00000510: 3A 99 22 3F 3F 20 44 49 53 4B 20 4E 4F 54 20 52 |:."?? DISK NOT R|
00000520: 45 43 4F 47 4E 49 5A 45 44 20 3F 3F 22 3A 90 00 |ECOGNIZED ??":..|
00000530: 45 0D 08 02 81 4A B2 31 A4 44 31 3A A1 23 33 2C |E....J.1.D1:.#3,|
00000540: 41 24 3A 82 4A 00 56 0D 12 02 81 4A B2 31 A4 54 |A$:.J.V....J.1.T|
00000550: 39 3A 54 31 B2 30 00 70 0D 1C 02 8B 4A B2 35 31 |9:T1.0.p....J.51|
00000560: A7 A1 23 33 2C 41 24 2C 41 24 2C 41 24 2C 41 24 |..#3,A$,A$,A$,A$|
00000570: 00 86 0D 26 02 A1 23 33 2C 41 24 3A 43 B2 C6 28 |...&..#3,A$:C..(|
00000580: 41 24 AA 5A 24 29 00 AB 0D 30 02 4B 31 B2 30 3A |A$.Z$)...0.K1.0:|
00000590: 81 4B B2 30 A4 53 39 AB 31 3A A1 23 33 2C 41 24 |.K.0.S9.1:.#3,A$|
000005A0: 3A 41 B2 C6 28 41 24 AA 5A 24 29 00 DE 0D 3A 02 |:A..(A$.Z$)...:.|
000005B0: 81 4C B2 30 A4 37 3A 41 25 B2 41 AD 32 3A 44 31 |.L.0.7:A%.A.2:D1|
000005C0: B2 41 AB 41 25 AC 32 3A 8B 4B 31 B3 B2 52 25 28 |.A.A%.2:.K1..R%(|
000005D0: 4A 29 A7 43 25 28 4A 2C 4B 31 29 B2 44 31 00 FD |J).C%(J,K1).D1..|
000005E0: 0D 44 02 41 B2 41 25 3A 54 31 B2 54 31 AA 44 31 |.D.A.A%:T1.T1.D1|
000005F0: 3A 4B 31 B2 4B 31 AA 31 3A 82 4C 2C 4B 00 04 0E |:K1.K1.1:.L,K...|
00000600: 4E 02 82 4A 00 0B 0E 58 02 A0 33 00 21 0E 62 02 |N..J...X..3.!.b.|
00000610: 9F 32 2C 38 2C 32 2C 22 23 30 22 3A 8D 33 30 32 |.2,8,2,"#0":.302|
00000620: 30 00 4F 0E 84 03 4B B2 30 3A 99 22 93 4C 4F 4F |0.O...K.0:.".LOO|
00000630: 4B 49 4E 47 20 46 4F 52 20 53 43 52 41 54 43 48 |KING FOR SCRATCH|
00000640: 45 44 22 3A 99 22 46 49 4C 45 53 2E 2E 2E 22 00 |ED":."FILES...".|
00000650: 5C 0E 8E 03 54 B2 44 39 3A 53 B2 31 00 66 0E 98 |\...T.D9:S.1.f..|
00000660: 03 8D 32 30 30 30 00 8C 0E A2 03 81 44 B2 32 A4 |..2000......D.2.|
00000670: 32 35 35 A9 33 32 3A 8B 41 28 44 29 B3 B1 30 B0 |255.32:.A(D)..0.|
00000680: 41 28 44 AA 31 29 B2 30 A7 39 38 30 00 B2 0E AC |A(D.1).0.980....|
00000690: 03 8B 4B B2 30 A7 99 22 11 44 4F 20 59 4F 55 20 |..K.0..".DO YOU |
000006A0: 57 41 4E 54 20 54 4F 20 52 45 43 4F 56 45 52 3A |WANT TO RECOVER:|
000006B0: 11 22 00 DA 0E B6 03 A1 58 24 3A 81 4B B2 44 AA |."......X$:.K.D.|
000006C0: 33 A4 44 AA 31 38 3A 99 C7 28 41 28 4B 29 29 3B |3.D.18:..(A(K));|
000006D0: 3A 82 4B 3A 99 22 3F 20 22 3B 00 F7 0E C0 03 A1 |:.K:."? ";......|
000006E0: 58 24 3A 8B 58 24 B3 B1 22 59 22 AF 58 24 B3 B1 |X$:.X$.."Y".X$..|
000006F0: 22 4E 22 A7 39 36 30 00 0C 0F CA 03 99 58 24 3A |"N".960......X$:|
00000700: 8B 58 24 B2 22 59 22 A7 31 30 31 30 00 13 0F D4 |.X$."Y".1010....|
00000710: 03 82 44 00 2F 0F DE 03 54 B2 41 28 30 29 3A 53 |..D./...T.A(0):S|
00000720: B2 41 28 31 29 3A 8B 54 B2 44 39 A7 39 32 30 00 |.A(1):.T.D9.920.|
00000730: 49 0F E8 03 99 22 11 54 48 41 54 27 53 20 41 4C |I....".THAT'S AL|
00000740: 4C 20 22 3A 89 31 32 37 30 00 8D 0F F2 03 54 36 |L ":.1270.....T6|
00000750: B2 54 3A 53 36 B2 53 3A 44 36 B2 44 3A 54 B2 41 |.T:S6.S:D6.D:T.A|
00000760: 28 44 AA 31 29 3A 53 B2 41 28 44 AA 32 29 3A 4C |(D.1):S.A(D.2):L|
00000770: 25 28 30 29 B2 41 28 44 AA 32 38 29 AA 41 28 44 |%(0).A(D.28).A(D|
00000780: AA 32 39 29 AC 32 35 36 3A 4C 25 B2 30 00 A8 0F |.29).256:L%.0...|
00000790: FC 03 A1 58 24 3A 99 22 11 49 53 20 54 48 49 53 |...X$:.".IS THIS|
000007A0: 20 46 49 4C 45 3A 11 22 00 BE 0F 06 04 99 22 20 | FILE:."......" |
000007B0: 31 2E 20 53 45 51 55 45 4E 54 49 41 4C 22 00 D1 |1. SEQUENTIAL"..|
000007C0: 0F 10 04 99 22 20 32 2E 20 50 52 4F 47 52 41 4D |...." 2. PROGRAM|
000007D0: 22 00 E0 0F 1A 04 99 22 20 33 2E 20 55 53 52 22 |"......" 3. USR"|
000007E0: 00 F4 0F 24 04 8B 41 28 44 AA 31 39 29 B2 30 A7 |...$..A(D.19).0.|
000007F0: 31 30 38 30 00 08 10 2E 04 99 22 20 34 2E 20 52 |1080......" 4. R|
00000800: 45 4C 41 54 49 56 45 22 00 22 10 38 04 99 22 11 |ELATIVE".".8..".|
00000810: 20 20 57 48 49 43 48 20 4E 55 4D 42 45 52 3F 20 | WHICH NUMBER? |
00000820: 22 3B 00 36 10 42 04 A1 58 24 3A 8B 58 24 B2 22 |";.6.B..X$:.X$."|
00000830: 22 A7 31 30 39 30 00 53 10 4C 04 58 B2 C6 28 58 |".1090.S.L.X..(X|
00000840: 24 29 AB 34 38 3A 8B 58 B3 31 B0 58 B1 34 A7 31 |$).48:.X.1.X.4.1|
00000850: 30 39 30 00 63 10 56 04 99 58 24 3A 58 B2 58 AA |090.c.V..X$:X.X.|
00000860: 31 32 38 00 9E 10 60 04 8B 58 B2 31 33 32 A7 54 |128...`..X.132.T|
00000870: 25 28 30 2C 31 29 B2 41 28 44 AA 31 39 29 3A 53 |%(0,1).A(D.19):S|
00000880: 25 28 30 2C 31 29 B2 41 28 44 AA 32 30 29 3A 8B |%(0,1).A(D.20):.|
00000890: 54 25 28 30 2C 31 29 B2 30 A7 31 30 32 30 00 B0 |T%(0,1).0.1020..|
000008A0: 10 6A 04 8B 54 B1 54 39 B0 53 B3 30 A7 54 B2 30 |.j..T.T9.S.0.T.0|
000008B0: 00 D7 10 74 04 8B 54 B3 31 B0 53 B1 52 25 28 54 |...t..T.1.S.R%(T|
000008C0: 29 A7 99 22 11 20 42 41 44 20 43 48 41 49 4E 21 |)..". BAD CHAIN!|
000008D0: 22 3A 89 31 32 36 30 00 03 11 7E 04 8B 43 25 28 |":.1260...~..C%(|
000008E0: 54 2C 53 29 B2 30 A7 99 22 11 20 41 4C 4C 4F 43 |T,S).0..". ALLOC|
000008F0: 41 54 45 44 20 42 4C 4F 43 4B 53 21 22 3A 89 31 |ATED BLOCKS!":.1|
00000900: 32 36 30 00 15 11 88 04 8D 33 30 30 30 3A 4C 25 |260......3000:L%|
00000910: B2 4C 25 AA 31 00 3A 11 92 04 81 4A B2 30 A4 31 |.L%.1.:....J.0.1|
00000920: 3A 98 31 35 2C 22 4D 2D 52 22 3B C7 28 4A 29 3B |:.15,"M-R";.(J);|
00000930: 42 24 3A A1 23 31 35 2C 41 24 00 4F 11 9C 04 41 |B$:.#15,A$.O...A|
00000940: 28 4A 29 B2 C6 28 41 24 AA 5A 24 29 3A 82 4A 00 |(J)..(A$.Z$):.J.|
00000950: 76 11 A6 04 54 34 B2 54 3A 53 34 B2 53 3A 54 B2 |v...T4.T:S4.S:T.|
00000960: 41 28 30 29 3A 53 B2 41 28 31 29 3A 8B 54 B3 B1 |A(0):S.A(1):.T..|
00000970: 30 A7 31 31 33 30 00 A3 11 B0 04 54 B2 54 25 28 |0.1130.....T.T%(|
00000980: 30 2C 31 29 3A 53 B2 53 25 28 30 2C 31 29 3A 54 |0,1):S.S%(0,1):T|
00000990: 25 28 30 2C 31 29 B2 30 3A 8B 54 B3 B1 30 A7 31 |%(0,1).0:.T..0.1|
000009A0: 31 33 30 00 D3 11 BA 04 8B 4C 25 B3 B1 4C 25 28 |130......L%..L%(|
000009B0: 30 29 A7 99 22 20 49 4E 43 4F 52 52 45 43 54 20 |0).." INCORRECT |
000009C0: 42 4C 4F 43 4B 20 43 4F 55 4E 54 21 22 3A 89 31 |BLOCK COUNT!":.1|
000009D0: 32 36 30 00 E6 11 C4 04 54 B2 54 36 3A 53 B2 53 |260.....T.T6:S.S|
000009E0: 36 3A 44 B2 44 36 00 F0 11 CE 04 8D 33 30 30 30 |6:D.D6......3000|
000009F0: 00 10 12 D8 04 98 31 35 2C 22 4D 2D 57 22 3B C7 |......15,"M-W";.|
00000A00: 28 44 29 3B 42 24 3B C7 28 31 29 3B C7 28 58 29 |(D);B$;.(1);.(X)|
00000A10: 00 33 12 E2 04 98 31 35 2C 22 55 32 3A 32 2C 22 |.3....15,"U2:2,"|
00000A20: 3B 44 24 3B 54 3B 53 3A 8D 33 30 32 30 3A 89 31 |;D$;T;S:.3020:.1|
00000A30: 33 30 30 00 50 12 EC 04 99 22 53 4F 52 52 59 20 |300.P...."SORRY |
00000A40: 2D 20 49 54 20 57 4F 4E 27 54 20 57 4F 52 4B 22 |- IT WON'T WORK"|
00000A50: 00 57 12 F6 04 A0 32 00 70 12 14 05 A0 32 3A 99 |.W....2.p....2:.|
00000A60: 22 11 56 41 4C 49 44 41 54 45 3F 20 59 2F 4E 22 |".VALIDATE? Y/N"|
00000A70: 00 85 12 16 05 A1 58 24 3A 8B 58 24 B2 22 4E 22 |......X$:.X$."N"|
00000A80: A7 31 33 31 30 00 97 12 18 05 8B 58 24 B3 B1 22 |.1310......X$.."|
00000A90: 59 22 A7 31 33 30 32 00 A4 12 19 05 98 31 35 2C |Y".1302......15,|
00000AA0: 22 56 30 22 00 D0 12 1E 05 A0 31 35 3A 97 31 39 |"V0"......15:.19|
00000AB0: 38 2C 30 3A 99 22 11 12 48 49 54 20 41 4E 59 20 |8,0:."..HIT ANY |
00000AC0: 4B 45 59 20 54 4F 20 52 45 53 54 41 52 54 92 22 |KEY TO RESTART."|
00000AD0: 00 DB 12 28 05 92 31 39 38 2C 31 00 E1 12 32 05 |...(..198,1...2.|
00000AE0: 8A 00 04 13 D0 07 8F 20 2A 2A 2A 20 47 52 41 42 |....... *** GRAB|
00000AF0: 20 46 55 4C 4C 20 44 49 53 4B 20 42 4C 4F 43 4B | FULL DISK BLOCK|
00000B00: 20 2A 2A 2A 00 0E 13 DA 07 8D 33 30 30 30 00 35 | ***......3000.5|
00000B10: 13 E4 07 81 4A B2 30 A4 32 35 35 3A 98 31 35 2C |....J.0.255:.15,|
00000B20: 22 4D 2D 52 22 3B C7 28 4A 29 3B 42 24 3A A1 23 |"M-R";.(J);B$:.#|
00000B30: 31 35 2C 41 24 00 4C 13 EE 07 41 28 4A 29 B2 C6 |15,A$.L...A(J)..|
00000B40: 28 41 24 AA 5A 24 29 3A 82 4A 3A 8E 00 65 13 B8 |(A$.Z$):.J:..e..|
00000B50: 0B 8F 20 2A 2A 2A 20 52 45 41 44 20 42 4C 4F 43 |.. *** READ BLOC|
00000B60: 4B 20 2A 2A 2A 00 7E 13 C2 0B 98 31 35 2C 22 42 |K ***.~....15,"B|
00000B70: 2D 52 22 32 3B C5 28 44 24 29 3B 54 3B 53 00 9D |-R"2;.(D$);T;S..|
00000B80: 13 CC 0B 8F 20 2A 2A 2A 20 47 45 54 20 45 52 52 |.... *** GET ERR|
00000B90: 4F 52 20 53 54 41 54 55 53 20 2A 2A 2A 00 B0 13 |OR STATUS ***...|
00000BA0: D6 0B 84 31 35 2C 45 2C 45 24 2C 45 31 2C 45 32 |...15,E,E$,E1,E2|
00000BB0: 00 DC 13 E0 0B 8B 45 B3 B1 30 A7 99 22 11 12 44 |......E..0.."..D|
00000BC0: 49 53 4B 20 45 52 52 4F 52 3A 92 22 45 3B 45 24 |ISK ERROR:."E;E$|
00000BD0: 3B 45 31 3B 45 32 3A 89 31 33 31 30 00 E2 13 EA |;E1;E2:.1310....|
00000BE0: 0B 8E 00 03 14 10 27 83 31 2C 31 37 2C 32 30 2C |......'.1,17,20,|
00000BF0: 32 34 2C 31 39 2C 33 30 2C 31 37 2C 33 35 2C 31 |24,19,30,17,35,1|
00000C00: 36 2C 30 00 25 14 1A 27 83 36 35 2C 31 37 2C 32 |6,0.%..'.65,17,2|
00000C10: 30 2C 32 34 2C 31 38 2C 33 30 2C 31 37 2C 33 35 |0,24,18,30,17,35|
00000C20: 2C 31 36 2C 30 00 47 14 24 27 83 36 37 2C 33 39 |,16,0.G.$'.67,39|
00000C30: 2C 32 38 2C 35 33 2C 32 36 2C 36 34 2C 32 34 2C |,28,53,26,64,24,|
00000C40: 37 37 2C 32 32 2C 30 00 00 FF 14 |77,22,0.... |
..%.... *** 1540/1541 DISK HOUSEK.***.G.
... *** COMPUTE APRIL/1984 ***.D....532
81,9:.53280,11:.".."......A(255),C%(77,2
8),D%(1),T%(224,1),S%(224,1),L%(224),R%(
77).P...D%(0).58:D%(1).42:Z$.G(0):B$.G(3
):D$."0"......"..... .SCRATCH.":
.......".....S=SCRATCH, U=UNSCRATCH".&.(
..Q$:.Q$."".40.6.-..Q$."U".400.F....Q$..
"S".40.U.2.."...DISK".E.<..1,8,0,"$0".Q.
F.N$.G(0)..P..#1,A$,A$...Z.F$."":B.0:.#
1,A$,A$..._..C.0..".";...D..A$."".X.1:.2
00.H.N..#1,A$,B$.R.X...5);......#1,A$...
...A$.""..:A.A.1:.190......A$.G(34).B.1:
A$."".$. ..B.1.F$.F$.A$:.A$;.<....C(F$).
16.C.C.1:.90.E....130.R....A.18.90.O.H..
".SCRATCH PROGRAM? Y/N"...R..Z$:.Z$."".2
10......Z$."Y".270......Z$.."N".210.....
.X.1. 1:.390.G...."...":A.0:.90..... 1:.
".WHICH PROGRAM";P$:.P$.""........340...
".."........."...,.."OPEN15,8,15".:.6.."
..PR15,"G(34)"S0:"X$G(34)".U.@.."..RUN":
."..........".Z.J..631,13:.632,13:.633,1
3:.198,3:....T..A4.1.C(P$):R$.J(P$,A4,1)
...^.X$.X$.R$...H...I.R..C(X$).10.X$.H(X
$,10)."*".O.|...Y... 15:......."...LOADI
NG FREE SECTORS":.15,8,15,"I".D$:.3020.&
....3,8,3,"$".D$:.3020.A...A0.1:.#3,A$:A
.F(A$.Z$).S....A1:.A.A1.470.I...F%.F%.1:
.F%.3.510.{.B..A1:.A1.0.430...L..450...V
..A1:.A1.0.490......B1:.J.A0.A1:R%(J).B1
:.J:A0.J:.470......A.1.A.65.D1.1:T9.35:S
9.3:D9.18......A.67.D1.257:T9.77:S9.4:D9
.39./....T9.0. 3:."?? DISK NOT RECOGNIZE
D ??":..E....J.1.D1:.#3,A$:.J.V....J.1.T
9:T1.0.P....J.51..#3,A$,A$,A$,A$...&..#3
,A$:C.F(A$.Z$)...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...N..J...X. 3.!.B..2,8,2,"
#0":.3020.O...K.0:.".LOOKING FOR SCRATCH
ED":."FILES...".\...T.D9:S.1.F....2000..
....D.2.255.32:.A(D)..0.A(D.1).0.980....
..K.0..".DO YOU WANT TO RECOVER:.".Z....
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.
I....".THAT'S ALL ":.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%.0......X$:.".IS THIS FILE:."
......" 1. SEQUENTIAL".Q...." 2. PROGRAM
"......" 3. USR"...$..A(D.19).0.1080....
.." 4. RELATIVE".".8..". WHICH NUMBER?
";.6.B..X$:.X$."".1090.S.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.W.T..T.1.S.R%(T
)..". BAD CHAIN!":.1260...~..C%(T,S).0..
". ALLOCATED BLOCKS!":.1260......3000:L%
.L%.1.:....J.0.1:.15,"M-R";G(J);B$:.#15,
A$.O...A(J).F(A$.Z$):.J.V...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.S....L%..L%(
0).." INCORRECT BLOCK COUNT!":.1260...D.
T.T6:S.S6:D.D6...N..3000...X..15,"M-W";G
(D);B$;G(1);G(X).3....15,"U2:2,";D$;T;S:
.3020:.1300.P...."SORRY - IT WON'T WORK"
.W... 2.P... 2:.".VALIDATE? Y/N"......X$
:.X$."N".1310......X$.."Y".1302......15,
"V0".P... 15:.198,0:."..HIT ANY KEY TO R
ESTART."...(..198,1...2.....P.. *** GRAB
FULL DISK BLOCK ***...Z..3000.5....J.0.
255:.15,"M-R";G(J);B$:.#15,A$.L...A(J).F
(A$.Z$):.J:..E.... *** READ BLOCK ***.~.
B..15,"B-R"2;E(D$);T;S...L.. *** GET ERR
OR STATUS ***...V..15,E,E$,E1,E2......E.
.0.."..DISK ERROR:."E;E$;E1;E2:.1310....
......'.1,17,20,24,19,30,17,35,16,0.%..'
.65,17,20,24,18,30,17,35,16,0.G.$'.67,39
,28,53,26,64,24,77,22,0....
> CLICK IMAGE PREVIEW FOR FULL MODAL