UNSCRATCHER

FILE INFORMATION

FILENAME(S): UNSCRATCHER

FILE TYPE(S): PRG

FILE SIZE: 1.7K

FIRST SEEN: 2025-11-30 21:05:28

APPEARS ON: 2 disk(s)

FILE HASH

741699fe52f08f6f87f2ced368a4af7f7d43312dc218d3af0c2c7c84aa5c7407

FOUND ON DISKS (2 DISKS)

DISK TITLE	FILENAME	FILE TYPE	COLLECTION	TRACK	SECTOR	ACTIONS
DE BRUIN 12B	UNSCRATCHER	PRG	DuncanTwain	4	10	DOWNLOAD FILE
QST DE WB4ZOJ	UNSCRATCHER	PRG	DuncanTwain	4	10	DOWNLOAD FILE

FILE CONTENT & ANALYSIS

> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)

00000000: 01 08 2D 08 00 00 99 C7  28 31 34 37 29 3A 99 22  |..-.....(147):."|
00000010: 20 52 45 56 49 56 45 20  53 43 52 41 54 43 48 45  | REVIVE SCRATCHE|
00000020: 44 20 44 49 53 4B 20 46  49 4C 45 53 22 00 69 08  |D DISK FILES".i.|
00000030: 01 00 99 3A 99 22 20 44  49 53 4B 20 55 4E 49 54  |...:." DISK UNIT|
00000040: 20 4E 52 20 28 38 2D 31  35 29 20 3F A0 38 20 22  | NR (8-15) ?.8 "|
00000050: C7 28 31 35 37 29 C7 28  31 35 37 29 C7 28 31 35  |.(157).(157).(15|
00000060: 37 29 C7 28 31 35 37 29  3B 00 91 08 02 00 85 55  |7).(157);......U|
00000070: 3A 8B 55 B3 38 B0 55 B1  31 35 A7 99 C7 28 31 34  |:.U.8.U.15...(14|
00000080: 35 29 C7 28 31 34 35 29  C7 28 31 34 35 29 3A 89  |5).(145).(145):.|
00000090: 31 00 CA 08 03 00 99 3A  99 22 20 44 49 53 4B 20  |1......:." DISK |
000000A0: 44 52 49 56 45 20 4E 52  20 28 30 2F 31 29 20 3F  |DRIVE NR (0/1) ?|
000000B0: A0 30 22 C7 28 31 35 37  29 C7 28 31 35 37 29 C7  |.0".(157).(157).|
000000C0: 28 31 35 37 29 3B 3A 47  B2 30 00 F1 08 04 00 85  |(157);:G.0......|
000000D0: 44 3A 8B 44 B3 30 B0 44  B1 31 A7 99 C7 28 31 34  |D:.D.0.D.1...(14|
000000E0: 35 29 C7 28 31 34 35 29  C7 28 31 34 35 29 3A 89  |5).(145).(145):.|
000000F0: 33 00 1F 09 05 00 99 3A  99 22 20 50 55 54 20 54  |3......:." PUT T|
00000100: 41 52 47 45 54 20 44 49  53 4B 20 49 4E 20 55 4E  |ARGET DISK IN UN|
00000110: 49 54 22 3B 55 3B 22 44  52 49 56 45 22 3B 44 00  |IT";U;"DRIVE";D.|
00000120: 46 09 06 00 99 22 20 54  48 45 4E 20 50 52 45 53  |F...." THEN PRES|
00000130: 53 20 41 4E 59 20 4B 45  59 20 54 4F 20 43 4F 4E  |S ANY KEY TO CON|
00000140: 54 49 4E 55 45 22 00 57  09 07 00 A1 58 24 3A 8B  |TINUE".W....X$:.|
00000150: 58 24 B2 22 22 A7 37 00  8A 09 08 00 99 C7 28 31  |X$."".7.......(1|
00000160: 34 37 29 3A 99 22 20 45  4E 54 45 52 20 53 43 52  |47):." ENTER SCR|
00000170: 41 54 43 48 45 44 20 46  49 4C 45 2D 4E 41 4D 45  |ATCHED FILE-NAME|
00000180: 20 28 4F 52 20 45 4E 44  29 22 00 B9 09 09 00 99  | (OR END)"......|
00000190: 22 20 55 53 45 20 2A 20  41 54 20 4E 41 4D 45 2D  |" USE * AT NAME-|
000001A0: 45 4E 44 20 46 4F 52 20  57 49 4C 44 2D 43 41 52  |END FOR WILD-CAR|
000001B0: 44 20 53 45 41 52 43 48  22 00 E6 09 0A 00 99 22  |D SEARCH"......"|
000001C0: 20 3F 20 45 4E 44 22 C7  28 31 35 37 29 C7 28 31  | ? END".(157).(1|
000001D0: 35 37 29 C7 28 31 35 37  29 C7 28 31 35 37 29 C7  |57).(157).(157).|
000001E0: 28 31 35 37 29 3B 00 FB  09 0B 00 85 4E 24 3A 8B  |(157);......N$:.|
000001F0: 4E 24 B2 22 45 4E 44 22  A7 35 34 00 1C 0A 0C 00  |N$."END".54.....|
00000200: 56 B2 31 36 3A 51 B2 33  32 3A 46 B2 32 35 36 3A  |V.16:Q.32:F.256:|
00000210: 54 B2 31 38 3A 53 B2 31  3A 57 B2 30 00 35 0A 0D  |T.18:S.1:W.0.5..|
00000220: 00 5A 24 B2 C7 28 30 29  3A 44 24 B2 C9 28 C4 28  |.Z$..(0):D$..(.(|
00000230: 44 29 2C 31 29 00 4C 0A  0E 00 4E 24 B2 C8 28 4E  |D),1).L...N$..(N|
00000240: 24 2C 56 29 3A 4C B2 C3  28 4E 24 29 00 61 0A 0F  |$,V):L..(N$).a..|
00000250: 00 8B C9 28 4E 24 2C 31  29 B3 B1 22 2A 22 A7 31  |...(N$,1).."*".1|
00000260: 37 00 7E 0A 10 00 4C B2  4C AB 31 3A 4E 24 B2 C8  |7.~...L.L.1:N$..|
00000270: 28 4E 24 2C 4C 29 3A 57  B2 31 3A 89 31 39 00 8A  |(N$,L):W.1:.19..|
00000280: 0A 11 00 8B 4C B2 56 A7  31 39 00 AA 0A 12 00 81  |....L.V.19......|
00000290: 58 B2 4C AA 31 A4 56 3A  4E 24 B2 4E 24 AA C7 28  |X.L.1.V:N$.N$..(|
000002A0: 31 36 30 29 3A 82 3A 4C  B2 56 00 C1 0A 13 00 9F  |160):.:L.V......|
000002B0: 31 2C 55 2C 31 35 2C 22  49 22 AA 44 24 3A 8D 35  |1,U,15,"I".D$:.5|
000002C0: 32 00 D4 0A 14 00 9F 32  2C 55 2C 32 2C 22 23 22  |2......2,U,2,"#"|
000002D0: 3A 8D 35 32 00 ED 0A 15  00 98 31 2C 22 55 31 3A  |:.52......1,"U1:|
000002E0: 22 3B 32 3B 44 3B 54 3B  53 3A 8D 35 32 00 09 0B  |";2;D;T;S:.52...|
000002F0: 16 00 98 31 2C 22 42 2D  50 3A 22 3B 32 3B 30 3A  |...1,"B-P:";2;0:|
00000300: A1 23 32 2C 41 24 2C 42  24 00 29 0B 17 00 54 52  |.#2,A$,B$.)...TR|
00000310: B2 C6 28 41 24 AA 5A 24  29 3A 53 43 B2 C6 28 42  |..(A$.Z$):SC..(B|
00000320: 24 AA 5A 24 29 3A 48 B2  32 00 42 0B 18 00 98 31  |$.Z$):H.2.B....1|
00000330: 2C 22 42 2D 50 3A 22 3B  32 3B 48 3A A1 23 32 2C  |,"B-P:";2;H:.#2,|
00000340: 54 24 00 59 0B 19 00 43  B2 C6 28 54 24 AA 5A 24  |T$.Y...C..(T$.Z$|
00000350: 29 3A 8B 43 B1 30 A7 32  39 00 74 0B 1A 00 A1 23  |):.C.0.29.t....#|
00000360: 32 2C 41 24 2C 42 24 3A  46 24 B2 22 22 3A 81 58  |2,A$,B$:F$."":.X|
00000370: B2 31 A4 56 00 94 0B 1B  00 A1 23 32 2C 54 24 3A  |.1.V......#2,T$:|
00000380: 46 24 B2 46 24 AA 54 24  3A 82 3A 8B 46 24 B2 22  |F$.F$.T$:.:.F$."|
00000390: 22 A7 33 31 00 AB 0B 1C  00 8B 4C B2 30 B0 4E 24  |".31......L.0.N$|
000003A0: B2 C8 28 46 24 2C 4C 29  A7 33 36 00 BD 0B 1D 00  |..(F$,L).36.....|
000003B0: 48 B2 48 AA 51 3A 8B 48  B3 46 A7 32 34 00 D5 0B  |H.H.Q:.H.F.24...|
000003C0: 1E 00 8B 54 52 B1 30 A7  54 B2 54 52 3A 53 B2 53  |...TR.0.T.TR:S.S|
000003D0: 43 3A 89 32 31 00 F7 0B  1F 00 8B 57 A7 99 3A 99  |C:.21......W..:.|
000003E0: 22 20 45 4E 44 20 4F 46  20 44 49 52 45 43 54 4F  |" END OF DIRECTO|
000003F0: 52 59 22 3A 89 34 39 00  17 0C 20 00 99 3A 99 22  |RY":.49... ..:."|
00000400: 20 54 48 45 52 45 20 49  53 20 4E 4F 20 53 43 52  | THERE IS NO SCR|
00000410: 41 54 43 48 45 44 22 00  38 0C 21 00 99 22 20 46  |ATCHED".8.!.." F|
00000420: 49 4C 45 20 57 49 54 48  20 54 48 45 20 4E 41 4D  |ILE WITH THE NAM|
00000430: 45 3A 20 20 22 3B 4E 24  00 51 0C 22 00 99 22 20  |E:  ";N$.Q.".." |
00000440: 49 4E 20 54 48 45 20 44  49 52 45 43 54 4F 52 59  |IN THE DIRECTORY|
00000450: 22 00 65 0C 23 00 81 58  B2 31 A4 34 30 30 30 3A  |".e.#..X.1.4000:|
00000460: 82 3A 89 35 31 00 7F 0C  24 00 41 B2 C6 28 41 24  |.:.51...$.A..(A$|
00000470: AA 5A 24 29 3A 42 B2 C6  28 42 24 AA 5A 24 29 00  |.Z$):B..(B$.Z$).|
00000480: 9A 0C 25 00 99 3A 99 22  20 46 4F 55 4E 44 20 46  |..%..:." FOUND F|
00000490: 49 4C 45 3A 20 20 22 3B  46 24 00 B9 0C 26 00 99  |ILE:  ";F$...&..|
000004A0: 22 20 41 54 20 54 52 41  43 4B 22 3B 41 3B 22 20  |" AT TRACK";A;" |
000004B0: 53 45 43 54 4F 52 22 3B  42 00 F9 0C 27 00 99 3A  |SECTOR";B...'..:|
000004C0: 99 22 20 57 41 4E 54 20  54 4F 20 52 45 56 49 56  |." WANT TO REVIV|
000004D0: 45 20 54 48 49 53 20 46  49 4C 45 20 28 59 2F 4E  |E THIS FILE (Y/N|
000004E0: 29 20 3F 20 59 22 C7 28  31 35 37 29 C7 28 31 35  |) ? Y".(157).(15|
000004F0: 37 29 C7 28 31 35 37 29  3B 00 0C 0D 28 00 85 58  |7).(157);...(..X|
00000500: 24 3A 8B 58 24 B2 22 59  22 A7 34 33 00 16 0D 29  |$:.X$."Y".43...)|
00000510: 00 8B 57 A7 32 39 00 1E  0D 2A 00 89 34 39 00 43  |..W.29...*..49.C|
00000520: 0D 2B 00 99 3A 99 22 20  31 3D 53 45 51 20 20 32  |.+..:." 1=SEQ  2|
00000530: 3D 50 52 47 20 20 33 3D  55 53 52 20 20 34 3D 52  |=PRG  3=USR  4=R|
00000540: 45 4C 22 00 78 0D 2C 00  99 22 20 45 4E 54 45 52  |EL".x.,.." ENTER|
00000550: 20 46 49 4C 45 2D 54 59  50 45 20 28 31 2D 34 29  | FILE-TYPE (1-4)|
00000560: 20 3F 20 32 22 C7 28 31  35 37 29 C7 28 31 35 37  | ? 2".(157).(157|
00000570: 29 C7 28 31 35 37 29 3B  00 9A 0D 2D 00 85 50 3A  |).(157);...-..P:|
00000580: 8B 50 B3 31 B0 50 B1 34  A7 99 C7 28 31 34 35 29  |.P.1.P.4...(145)|
00000590: C7 28 31 34 35 29 3A 89  34 31 00 B9 0D 2E 00 98  |.(145):.41......|
000005A0: 31 2C 22 42 2D 50 3A 22  3B 32 3B 48 3A 98 32 2C  |1,"B-P:";2;H:.2,|
000005B0: C7 28 50 AA 31 32 38 29  3B 00 D6 0D 2F 00 98 31  |.(P.128);.../..1|
000005C0: 2C 22 55 32 3A 22 3B 32  3B 44 3B 54 3B 53 3A 8D  |,"U2:";2;D;T;S:.|
000005D0: 35 32 3A 47 B2 31 00 FE  0D 30 00 99 3A 99 22 20  |52:G.1...0..:." |
000005E0: 55 4E 2D 53 43 52 41 54  43 48 45 44 20 46 49 4C  |UN-SCRATCHED FIL|
000005F0: 45 3A 20 20 22 3B 46 24  3A 8B 57 A7 32 39 00 37  |E:  ";F$:.W.29.7|
00000600: 0E 31 00 99 3A 99 22 20  52 45 56 49 56 45 20 4D  |.1..:." REVIVE M|
00000610: 4F 52 45 20 46 49 4C 45  53 20 28 59 2F 4E 29 20  |ORE FILES (Y/N) |
00000620: 3F 20 59 22 C7 28 31 35  37 29 C7 28 31 35 37 29  |? Y".(157).(157)|
00000630: C7 28 31 35 37 29 3B 00  4B 0E 32 00 85 58 24 3A  |.(157);.K.2..X$:|
00000640: 8B 58 24 B3 B1 22 59 22  A7 35 34 00 58 0E 33 00  |.X$.."Y".54.X.3.|
00000650: A0 32 3A A0 31 3A 89 38  00 6F 0E 34 00 84 31 2C  |.2:.1:.8.o.4..1,|
00000660: 45 2C 4D 24 2C 4A 2C 4B  3A 8B 45 B2 30 A7 8E 00  |E,M$,J,K:.E.0...|
00000670: 8A 0E 35 00 99 3A 99 22  20 45 52 52 4F 52 3A 20  |..5..:." ERROR: |
00000680: 22 3B 45 3B 4D 24 3B 4A  3B 4B 00 9B 0E 36 00 A0  |";E;M$;J;K...6..|
00000690: 32 3A A0 31 3A 8B 47 B2  30 A7 80 00 C1 0E 37 00  |2:.1:.G.0.....7.|
000006A0: 99 C7 28 31 34 37 29 3A  99 22 20 52 45 2D 42 55  |..(147):." RE-BU|
000006B0: 49 4C 44 49 4E 47 20 56  41 4C 49 44 20 42 41 4D  |ILDING VALID BAM|
000006C0: 22 00 E3 0E 38 00 99 22  20 4F 4E 20 44 49 53 4B  |"...8.." ON DISK|
000006D0: 2D 55 4E 49 54 22 3B 55  3B 22 20 44 52 49 56 45  |-UNIT";U;" DRIVE|
000006E0: 22 3B 44 00 FB 0E 39 00  9F 31 2C 55 2C 31 35 2C  |";D...9..1,U,15,|
000006F0: 22 56 22 AA 44 24 3A A0  31 3A 80 00 00 00        |"V".D$:.1:....  |

..-....G(147):." REVIVE SCRATCHED DISK F
ILES".I....:." DISK UNIT NR (8-15) ? 8 "
G(157)G(157)G(157)G(157);......U:.U.8.U.
15..G(145)G(145)G(145):.1.J....:." DISK 
DRIVE NR (0/1) ? 0"G(157)G(157)G(157);:G
.0......D:.D.0.D.1..G(145)G(145)G(145):.
3......:." PUT TARGET DISK IN UNIT";U;"D
RIVE";D.F...." THEN PRESS ANY KEY TO CON
TINUE".W....X$:.X$."".7......G(147):." E
NTER SCRATCHED FILE-NAME (OR END)"......
" USE * AT NAME-END FOR WILD-CARD SEARCH
"......" ? END"G(157)G(157)G(157)G(157)G
(157);......N$:.N$."END".54.....V.16:Q.3
2:F.256:T.18:S.1:W.0.5...Z$.G(0):D$.I(D(
D),1).L...N$.H(N$,V):L.C(N$).A....I(N$,1
).."*".17.~...L.L.1:N$.H(N$,L):W.1:.19..
....L.V.19......X.L.1.V:N$.N$.G(160):.:L
.V.A....1,U,15,"I".D$:.52.T....2,U,2,"#"
:.52......1,"U1:";2;D;T;S:.52......1,"B-
P:";2;0:.#2,A$,B$.)...TR.F(A$.Z$):SC.F(B
$.Z$):H.2.B....1,"B-P:";2;H:.#2,T$.Y...C
.F(T$.Z$):.C.0.29.T....#2,A$,B$:F$."":.X
.1.V......#2,T$:F$.F$.T$:.:.F$."".31....
..L.0.N$.H(F$,L).36.....H.H.Q:.H.F.24.U.
...TR.0.T.TR:S.SC:.21......W..:." END OF
 DIRECTORY":.49... ..:." THERE IS NO SCR
ATCHED".8.!.." FILE WITH THE NAME:  ";N$
.Q.".." IN THE DIRECTORY".E.#..X.1.4000:
.:.51..$.A.F(A$.Z$):B.F(B$.Z$)...%..:."
 FOUND FILE:  ";F$...&.." AT TRACK";A;" 
SECTOR";B...'..:." WANT TO REVIVE THIS F
ILE (Y/N) ? Y"G(157)G(157)G(157);...(..X
$:.X$."Y".43...)..W.29...*..49.C.+..:." 
1=SEQ  2=PRG  3=USR  4=REL".X.,.." ENTER
 FILE-TYPE (1-4) ? 2"G(157)G(157)G(157);
...-..P:.P.1.P.4..G(145)G(145):.41......
1,"B-P:";2;H:.2,G(P.128);.V./..1,"U2:";2
;D;T;S:.52:G.1...0..:." UN-SCRATCHED FIL
E:  ";F$:.W.29.7.1..:." REVIVE MORE FILE
S (Y/N) ? Y"G(157)G(157)G(157);.K.2..X$:
.X$.."Y".54.X.3. 2: 1:.8.O.4..1,E,M$,J,K
:.E.0.....5..:." ERROR: ";E;M$;J;K...6. 
2: 1:.G.0...A.7..G(147):." RE-BUILDING V
ALID BAM"...8.." ON DISK-UNIT";U;" DRIVE
";D...9..1,U,15,"V".D$: 1:....

Visualization:

Width: Skip load address (+2) Invert

> CLICK IMAGE PREVIEW FOR FULL MODAL