00000000: 01 04 28 10 0A 00 99 20 22 93 11 20 52 45 56 49 |..(.... ".. REVI|
00000010: 56 45 20 53 43 52 41 54 43 48 45 44 20 44 49 53 |VE SCRATCHED DIS|
00000020: 4B 20 46 49 4C 45 53 22 00 51 10 14 00 99 20 22 |K FILES".Q.... "|
00000030: 11 11 20 44 49 53 4B 20 55 4E 49 54 20 4E 52 20 |.. DISK UNIT NR |
00000040: 28 38 2D 31 35 29 20 3F A0 38 20 9D 9D 9D 9D 22 |(8-15) ?.8 ...."|
00000050: 3B 00 77 10 1E 00 85 20 55 3A 20 8B 20 55 B3 38 |;.w.... U: . U.8|
00000060: 20 B0 20 55 B1 31 35 20 A7 20 99 20 22 91 91 91 | . U.15 . . "...|
00000070: 22 3A 20 89 20 32 30 00 A2 10 28 00 99 20 22 11 |": . 20...(.. ".|
00000080: 20 44 49 53 4B 20 44 52 49 56 45 20 4E 52 20 28 | DISK DRIVE NR (|
00000090: 30 2F 31 29 20 3F A0 30 9D 9D 9D 22 3B 3A 20 47 |0/1) ?.0...";: G|
000000A0: B2 30 00 C7 10 32 00 85 20 44 3A 20 8B 20 44 B3 |.0...2.. D: . D.|
000000B0: 30 20 B0 20 44 B1 31 20 A7 20 99 20 22 91 91 91 |0 . D.1 . . "...|
000000C0: 22 3A 20 89 20 34 30 00 F6 10 3C 00 99 20 22 11 |": . 40...<.. ".|
000000D0: 11 20 50 55 54 20 54 41 52 47 45 54 20 44 49 53 |. PUT TARGET DIS|
000000E0: 4B 20 49 4E 20 55 4E 49 54 22 3B 55 3B 22 44 52 |K IN UNIT";U;"DR|
000000F0: 49 56 45 22 3B 44 00 1E 11 46 00 99 20 22 A0 54 |IVE";D...F.. ".T|
00000100: 48 45 4E 20 50 52 45 53 53 20 41 4E 59 20 4B 45 |HEN PRESS ANY KE|
00000110: 59 20 54 4F 20 43 4F 4E 54 49 4E 55 45 22 00 34 |Y TO CONTINUE".4|
00000120: 11 50 00 A1 20 58 24 3A 20 8B 20 58 24 B2 22 22 |.P.. X$: . X$.""|
00000130: A7 20 38 30 00 62 11 5A 00 99 20 22 93 11 20 45 |. 80.b.Z.. ".. E|
00000140: 4E 54 45 52 20 53 43 52 41 54 43 48 45 44 20 46 |NTER SCRATCHED F|
00000150: 49 4C 45 2D 4E 41 4D 45 20 28 4F 52 20 45 4E 44 |ILE-NAME (OR END|
00000160: 29 22 00 92 11 64 00 99 20 22 20 55 53 45 20 2A |)"...d.. " USE *|
00000170: 20 41 54 20 4E 41 4D 45 2D 45 4E 44 20 46 4F 52 | AT NAME-END FOR|
00000180: 20 57 49 4C 44 2D 43 41 52 44 20 53 45 41 52 43 | WILD-CARD SEARC|
00000190: 48 22 00 BB 11 6E 00 85 20 22 20 3F 20 45 4E 44 |H"...n.. " ? END|
000001A0: 9D 9D 9D 9D 9D 22 3B 4E 24 3A 20 8B 20 4E 24 B2 |.....";N$: . N$.|
000001B0: 22 C5 4E 44 22 20 A7 20 35 32 30 00 E1 11 78 00 |".ND" . 520...x.|
000001C0: 56 B2 31 36 3A 20 51 B2 33 32 3A 20 46 B2 32 35 |V.16: Q.32: F.25|
000001D0: 36 3A 20 54 B2 31 38 3A 20 53 B2 31 3A 20 57 B2 |6: T.18: S.1: W.|
000001E0: 30 00 FB 11 82 00 5A 24 B2 C7 28 30 29 3A 20 44 |0.....Z$..(0): D|
000001F0: 24 B2 C9 28 C4 28 44 29 2C 31 29 00 13 12 8C 00 |$..(.(D),1).....|
00000200: 4E 24 B2 C8 28 4E 24 2C 56 29 3A 20 4C B2 C3 28 |N$..(N$,V): L..(|
00000210: 4E 24 29 00 2C 12 96 00 8B 20 C9 28 4E 24 2C 31 |N$).,.... .(N$,1|
00000220: 29 B3 B1 22 2A 22 20 A7 20 31 37 30 00 4D 12 A0 |).."*" . 170.M..|
00000230: 00 4C B2 4C AB 31 3A 20 4E 24 B2 C8 28 4E 24 2C |.L.L.1: N$..(N$,|
00000240: 4C 29 3A 20 57 B2 31 3A 89 20 31 39 30 00 5D 12 |L): W.1:. 190.].|
00000250: AA 00 8B 20 4C B2 56 20 A7 20 31 39 30 00 83 12 |... L.V . 190...|
00000260: B4 00 81 20 58 B2 4C AA 31 20 A4 20 56 3A 20 4E |... X.L.1 . V: N|
00000270: 24 B2 4E 24 AA C7 28 31 36 30 29 3A 20 82 3A 20 |$.N$..(160): .: |
00000280: 4C B2 56 00 9E 12 BE 00 9F 20 31 2C 55 2C 31 35 |L.V...... 1,U,15|
00000290: 2C 22 49 22 AA 44 24 3A 20 8D 20 35 30 30 00 B5 |,"I".D$: . 500..|
000002A0: 12 C8 00 9F 20 32 2C 55 2C 32 2C 22 23 22 3A 20 |.... 2,U,2,"#": |
000002B0: 8D 20 35 30 30 00 D1 12 D2 00 98 31 2C 22 55 31 |. 500......1,"U1|
000002C0: 3A 22 3B 32 3B 44 3B 54 3B 53 3A 20 8D 20 35 30 |:";2;D;T;S: . 50|
000002D0: 30 00 EE 12 DC 00 98 31 2C 22 42 2D 50 3A 22 3B |0......1,"B-P:";|
000002E0: 32 3B 30 3A 20 A1 23 32 2C 41 24 2C 42 24 00 10 |2;0: .#2,A$,B$..|
000002F0: 13 E6 00 54 52 B2 C6 28 41 24 AA 5A 24 29 3A 20 |...TR..(A$.Z$): |
00000300: 53 43 B2 C6 28 42 24 AA 5A 24 29 3A 20 48 B2 32 |SC..(B$.Z$): H.2|
00000310: 00 2A 13 F0 00 98 31 2C 22 42 2D 50 3A 22 3B 32 |.*....1,"B-P:";2|
00000320: 3B 48 3A 20 A1 23 32 2C 54 24 00 46 13 FA 00 43 |;H: .#2,T$.F...C|
00000330: B2 C6 28 54 24 AA 5A 24 29 3A 20 8B 20 43 B1 30 |..(T$.Z$): . C.0|
00000340: 20 A7 20 32 39 30 00 66 13 04 01 A1 23 32 2C 41 | . 290.f....#2,A|
00000350: 24 2C 42 24 3A 20 46 24 B2 22 22 3A 20 81 20 58 |$,B$: F$."": . X|
00000360: B2 31 20 A4 20 56 00 8D 13 0E 01 A1 23 32 2C 54 |.1 . V......#2,T|
00000370: 24 3A 20 46 24 B2 46 24 AA 54 24 3A 20 82 3A 20 |$: F$.F$.T$: .: |
00000380: 8B 20 46 24 B2 22 22 20 A7 20 33 31 30 00 AA 13 |. F$."" . 310...|
00000390: 18 01 8B 20 4C B2 30 20 B0 20 4E 24 B2 C8 28 46 |... L.0 . N$..(F|
000003A0: 24 2C 4C 29 20 A7 20 33 35 30 00 C1 13 22 01 48 |$,L) . 350...".H|
000003B0: B2 48 AA 51 3A 20 8B 20 48 B3 46 20 A7 20 32 34 |.H.Q: . H.F . 24|
000003C0: 30 00 E0 13 2C 01 8B 20 54 52 B1 30 20 A7 20 54 |0...,.. TR.0 . T|
000003D0: B2 54 52 3A 20 53 B2 53 43 3A 20 89 20 32 31 30 |.TR: S.SC: . 210|
000003E0: 00 08 14 36 01 8B 20 57 20 A7 20 99 20 22 11 20 |...6.. W . . ". |
000003F0: 45 4E 44 20 4F 46 20 44 49 52 45 43 54 4F 52 59 |END OF DIRECTORY|
00000400: 22 3A 20 89 20 34 37 30 00 28 14 40 01 99 20 22 |": . 470.(.@.. "|
00000410: 11 20 54 48 45 52 45 20 49 53 20 4E 4F 20 53 43 |. THERE IS NO SC|
00000420: 52 41 54 43 48 45 44 22 00 4A 14 45 01 99 20 22 |RATCHED".J.E.. "|
00000430: 20 46 49 4C 45 20 57 49 54 48 20 54 48 45 20 4E | FILE WITH THE N|
00000440: 41 4D 45 3A 20 20 22 3B 4E 24 00 64 14 4A 01 99 |AME: ";N$.d.J..|
00000450: 20 22 20 49 4E 20 54 48 45 20 44 49 52 45 43 54 | " IN THE DIRECT|
00000460: 4F 52 59 22 00 7F 14 54 01 81 20 58 B2 31 20 A4 |ORY"...T.. X.1 .|
00000470: 20 34 30 30 30 3A 20 82 3A 20 89 20 34 39 30 00 | 4000: .: . 490.|
00000480: 9A 14 5E 01 41 B2 C6 28 41 24 AA 5A 24 29 3A 20 |..^.A..(A$.Z$): |
00000490: 42 B2 C6 28 42 24 AA 5A 24 29 00 B5 14 68 01 99 |B..(B$.Z$)...h..|
000004A0: 20 22 11 20 46 4F 55 4E 44 20 46 49 4C 45 3A 20 | ". FOUND FILE: |
000004B0: 20 22 3B 46 24 00 D5 14 72 01 99 20 22 20 41 54 | ";F$...r.. " AT|
000004C0: 20 54 52 41 43 4B 22 3B 41 3B 22 20 53 45 43 54 | TRACK";A;" SECT|
000004D0: 4F 52 22 3B 42 00 06 15 7C 01 99 20 22 11 20 57 |OR";B...|.. ". W|
000004E0: 41 4E 54 20 54 4F 20 52 45 56 49 56 45 20 54 48 |ANT TO REVIVE TH|
000004F0: 49 53 20 46 49 4C 45 20 28 59 2F 4E 29 20 3F 20 |IS FILE (Y/N) ? |
00000500: 59 9D 9D 9D 22 3B 00 1F 15 86 01 85 20 58 24 3A |Y...";...... X$:|
00000510: 20 8B 20 58 24 B2 22 59 22 20 A7 20 34 31 30 00 | . X$."Y" . 410.|
00000520: 2D 15 90 01 8B 20 57 20 A7 20 32 39 30 00 36 15 |-.... W . 290.6.|
00000530: 95 01 89 34 37 30 00 5B 15 9A 01 99 20 22 11 20 |...470.[.... ". |
00000540: 31 3D 53 45 51 20 20 32 3D 50 52 47 20 20 33 3D |1=SEQ 2=PRG 3=|
00000550: 55 53 52 20 20 34 3D 52 45 4C 22 00 82 15 A4 01 |USR 4=REL".....|
00000560: 99 20 22 20 45 4E 54 45 52 20 46 49 4C 45 2D 54 |. " ENTER FILE-T|
00000570: 59 50 45 20 28 31 2D 34 29 20 3F 20 31 9D 9D 9D |YPE (1-4) ? 1...|
00000580: 22 3B 00 A7 15 AE 01 85 20 50 3A 20 8B 20 50 B3 |";...... P: . P.|
00000590: 31 20 B0 20 50 B1 34 20 A7 20 99 20 22 91 91 22 |1 . P.4 . . ".."|
000005A0: 3A 20 89 20 34 30 30 00 C7 15 B8 01 98 31 2C 22 |: . 400......1,"|
000005B0: 42 2D 50 3A 22 3B 32 3B 48 3A 20 98 32 2C C7 28 |B-P:";2;H: .2,.(|
000005C0: 50 AA 31 32 38 29 3B 00 E6 15 C2 01 98 31 2C 22 |P.128);......1,"|
000005D0: 55 32 3A 22 3B 32 3B 44 3B 54 3B 53 3A 8D 20 35 |U2:";2;D;T;S:. 5|
000005E0: 30 30 3A 47 B2 31 00 13 16 CC 01 99 20 22 11 20 |00:G.1...... ". |
000005F0: 55 4E 2D 53 43 52 41 54 43 48 45 44 20 46 49 4C |UN-SCRATCHED FIL|
00000600: 45 3A 20 20 22 3B 46 24 3A 20 8B 20 57 20 A7 20 |E: ";F$: . W . |
00000610: 32 39 30 00 3D 16 D6 01 99 20 22 11 20 52 45 56 |290.=.... ". REV|
00000620: 49 56 45 20 4D 4F 52 45 20 46 49 4C 45 53 20 28 |IVE MORE FILES (|
00000630: 59 2F 4E 29 20 3F 20 59 9D 9D 9D 22 3B 00 57 16 |Y/N) ? Y...";.W.|
00000640: E0 01 85 20 58 24 3A 20 8B 20 58 24 B3 B1 22 59 |... X$: . X$.."Y|
00000650: 22 20 A7 20 35 32 30 00 6A 16 EA 01 A0 20 32 3A |" . 520.j.... 2:|
00000660: 20 A0 20 31 3A 20 89 20 39 30 00 84 16 F4 01 84 | . 1: . 90......|
00000670: 31 2C 45 2C 4D 24 2C 4A 2C 4B 3A 8B 20 45 B2 30 |1,E,M$,J,K:. E.0|
00000680: 20 A7 20 8E 00 9F 16 FE 01 99 20 22 11 20 45 52 | . ....... ". ER|
00000690: 52 4F 52 3A 20 22 3B 45 3B 4D 24 3B 4A 3B 4B 00 |ROR: ";E;M$;J;K.|
000006A0: B7 16 08 02 A0 20 32 3A 20 A0 20 31 3A 20 8B 20 |..... 2: . 1: . |
000006B0: 47 B2 30 20 A7 20 80 00 D8 16 12 02 99 20 22 93 |G.0 . ....... ".|
000006C0: 11 20 52 45 2D 42 55 49 4C 44 49 4E 47 20 56 41 |. RE-BUILDING VA|
000006D0: 4C 49 44 20 42 41 4D 22 00 FB 16 1C 02 99 20 22 |LID BAM"...... "|
000006E0: 20 4F 4E 20 44 49 53 4B 2D 55 4E 49 54 22 3B 55 | ON DISK-UNIT";U|
000006F0: 3B 22 20 44 52 49 56 45 22 3B 44 00 17 17 26 02 |;" DRIVE";D...&.|
00000700: 9F 20 31 2C 55 2C 31 35 2C 22 56 22 AA 44 24 3A |. 1,U,15,"V".D$:|
00000710: 20 A0 20 31 3A 20 80 00 00 00 | . 1: .... |
..(.... ".. REVIVE SCRATCHED DISK FILES"
.Q.... ".. DISK UNIT NR (8-15) ? 8 ...."
;.W.... U: . U.8 . U.15 . . "...": . 20.
..(.. ". DISK DRIVE NR (0/1) ? 0...";: G
.0.G.2.. D: . D.0 . D.1 . . "...": . 40.
..<.. ".. PUT TARGET DISK IN UNIT";U;"DR
IVE";D...F.. " THEN PRESS ANY KEY TO CON
TINUE".4.P.. X$: . X$."". 80.B.Z.. ".. E
NTER SCRATCHED FILE-NAME (OR END)"...D..
" USE * AT NAME-END FOR WILD-CARD SEARC
H"...N.. " ? END.....";N$: . N$."END" .
520...X.V.16: Q.32: F.256: T.18: S.1: W.
0.....Z$.G(0): D$.I(D(D),1).....N$.H(N$,
V): L.C(N$).,.... I(N$,1).."*" . 170.M.
.L.L.1: N$.H(N$,L): W.1:. 190.].... L.V
. 190...... X.L.1 . V: N$.N$.G(160): .:
L.V...... 1,U,15,"I".D$: . 500...H.. 2,U
,2,"#": . 500.Q.R..1,"U1:";2;D;T;S: . 50
0......1,"B-P:";2;0: .#2,A$,B$.....TR.F(
A$.Z$): SC.F(B$.Z$): H.2.*....1,"B-P:";2
;H: .#2,T$.F...C.F(T$.Z$): . C.0 . 290.F
....#2,A$,B$: F$."": . X.1 . V......#2,T
$: F$.F$.T$: .: . F$."" . 310...... L.0
. N$.H(F$,L) . 350.A.".H.H.Q: . H.F . 24
0...,.. TR.0 . T.TR: S.SC: . 210...6.. W
. . ". END OF DIRECTORY": . 470.(.@.. "
. THERE IS NO SCRATCHED".J.E.. " FILE WI
TH THE NAME: ";N$.D.J.. " IN THE DIRECT
ORY"..T.. X.1 . 4000: .: . 490...^.A.F(
A$.Z$): B.F(B$.Z$)...H.. ". FOUND FILE:
";F$.U.R.. " AT TRACK";A;" SECTOR";B...
|.. ". WANT TO REVIVE THIS FILE (Y/N) ?
Y...";...... X$: . X$."Y" . 410.-.... W
. 290.6....470.[.... ". 1=SEQ 2=PRG 3=
USR 4=REL"...... " ENTER FILE-TYPE (1-4
) ? 1...";...... P: . P.1 . P.4 . . ".."
: . 400.G....1,"B-P:";2;H: .2,G(P.128);.
..B..1,"U2:";2;D;T;S:. 500:G.1...L.. ".
UN-SCRATCHED FILE: ";F$: . W . 290.=.V.
. ". REVIVE MORE FILES (Y/N) ? Y...";.W.
... X$: . X$.."Y" . 520.J... 2: 1: .
90......1,E,M$,J,K:. E.0 . ....... ". ER
ROR: ";E;M$;J;K..... 2: 1: . G.0 . ..
X.... ".. RE-BUILDING VALID BAM"...... "
ON DISK-UNIT";U;" DRIVE";D...&.. 1,U,15
,"V".D$: 1: ....
×
C64 Image
> CLICK IMAGE PREVIEW FOR FULL MODAL