UNSCRATCH
FILE INFORMATION
FILENAME(S): UNSCRATCH
FILE TYPE(S): PRG
FILE SIZE: 1.8K
FIRST SEEN: 2025-12-01 19:06:18
APPEARS ON: 1 disk(s)
FILE HASH
8d256db31894db0e6d4c49de008e2951d869f9cae6dcb5d21b3e2e8b079f2c67
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| TRA DISK 27 | UNSCRATCH | PRG | Icebreaker | 7 | 0 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 1C 08 01 00 97 35 33 32 38 31 2C 30 3A 97 |.......53281,0:.|
00000010: 35 33 32 38 30 2C 30 3A 99 22 93 22 00 4B 08 05 |53280,0:.".".K..|
00000020: 00 99 22 1F 50 52 4F 47 52 41 4D 20 55 4E 53 43 |..".PROGRAM UNSC|
00000030: 52 41 54 43 48 45 52 20 28 43 29 20 31 39 38 39 |RATCHER (C) 1989|
00000040: 20 54 52 41 20 47 52 4F 55 50 22 00 7B 08 06 00 | TRA GROUP".{...|
00000050: 99 22 9A 57 52 49 54 54 45 4E 20 41 4E 44 20 28 |.".WRITTEN AND (|
00000060: 43 29 20 31 39 38 39 20 49 43 45 20 42 52 45 41 |C) 1989 ICE BREA|
00000070: 4B 45 52 20 4F 46 20 54 52 41 22 00 A4 08 14 00 |KER OF TRA".....|
00000080: 99 20 22 11 11 20 44 49 53 4B 20 55 4E 49 54 20 |. ".. DISK UNIT |
00000090: 4E 52 20 28 38 2D 31 35 29 20 3F A0 38 20 9D 9D |NR (8-15) ?.8 ..|
000000A0: 9D 9D 22 3B 00 CA 08 1E 00 85 20 55 3A 20 8B 20 |..";...... U: . |
000000B0: 55 B3 38 20 B0 20 55 B1 31 35 20 A7 20 99 20 22 |U.8 . U.15 . . "|
000000C0: 91 91 91 22 3A 20 89 20 32 30 00 F5 08 28 00 99 |...": . 20...(..|
000000D0: 20 22 11 20 44 49 53 4B 20 44 52 49 56 45 20 4E | ". DISK DRIVE N|
000000E0: 52 20 28 30 2F 31 29 20 3F A0 30 9D 9D 9D 22 3B |R (0/1) ?.0...";|
000000F0: 3A 20 47 B2 30 00 1A 09 32 00 85 20 44 3A 20 8B |: G.0...2.. D: .|
00000100: 20 44 B3 30 20 B0 20 44 B1 31 20 A7 20 99 20 22 | D.0 . D.1 . . "|
00000110: 91 91 91 22 3A 20 89 20 34 30 00 49 09 3C 00 99 |...": . 40.I.<..|
00000120: 20 22 11 11 20 50 55 54 20 54 41 52 47 45 54 20 | ".. PUT TARGET |
00000130: 44 49 53 4B 20 49 4E 20 55 4E 49 54 22 3B 55 3B |DISK IN UNIT";U;|
00000140: 22 44 52 49 56 45 22 3B 44 00 71 09 46 00 99 20 |"DRIVE";D.q.F.. |
00000150: 22 20 54 48 45 4E 20 50 52 45 53 53 20 41 4E 59 |" THEN PRESS ANY|
00000160: 20 4B 45 59 20 54 4F 20 43 4F 4E 54 49 4E 55 45 | KEY TO CONTINUE|
00000170: 22 00 87 09 50 00 A1 20 58 24 3A 20 8B 20 58 24 |"...P.. X$: . X$|
00000180: B2 22 22 A7 20 38 30 00 B5 09 5A 00 99 20 22 93 |."". 80...Z.. ".|
00000190: 11 20 45 4E 54 45 52 20 53 43 52 41 54 43 48 45 |. ENTER SCRATCHE|
000001A0: 44 20 46 49 4C 45 2D 4E 41 4D 45 20 28 4F 52 20 |D FILE-NAME (OR |
000001B0: 45 4E 44 29 22 00 E5 09 64 00 99 20 22 20 55 53 |END)"...d.. " US|
000001C0: 45 20 2A 20 41 54 20 4E 41 4D 45 2D 45 4E 44 20 |E * AT NAME-END |
000001D0: 46 4F 52 20 57 49 4C 44 2D 43 41 52 44 20 53 45 |FOR WILD-CARD SE|
000001E0: 41 52 43 48 22 00 0E 0A 6E 00 85 20 22 20 3F 20 |ARCH"...n.. " ? |
000001F0: 45 4E 44 9D 9D 9D 9D 9D 22 3B 4E 24 3A 20 8B 20 |END.....";N$: . |
00000200: 4E 24 B2 22 45 4E 44 22 20 A7 20 35 32 30 00 34 |N$."END" . 520.4|
00000210: 0A 78 00 56 B2 31 36 3A 20 51 B2 33 32 3A 20 46 |.x.V.16: Q.32: F|
00000220: B2 32 35 36 3A 20 54 B2 31 38 3A 20 53 B2 31 3A |.256: T.18: S.1:|
00000230: 20 57 B2 30 00 4E 0A 82 00 5A 24 B2 C7 28 30 29 | W.0.N...Z$..(0)|
00000240: 3A 20 44 24 B2 C9 28 C4 28 44 29 2C 31 29 00 66 |: D$..(.(D),1).f|
00000250: 0A 8C 00 4E 24 B2 C8 28 4E 24 2C 56 29 3A 20 4C |...N$..(N$,V): L|
00000260: B2 C3 28 4E 24 29 00 7F 0A 96 00 8B 20 C9 28 4E |..(N$)...... .(N|
00000270: 24 2C 31 29 B3 B1 22 2A 22 20 A7 20 31 37 30 00 |$,1).."*" . 170.|
00000280: A0 0A A0 00 4C B2 4C AB 31 3A 20 4E 24 B2 C8 28 |....L.L.1: N$..(|
00000290: 4E 24 2C 4C 29 3A 20 57 B2 31 3A 89 20 31 39 30 |N$,L): W.1:. 190|
000002A0: 00 B0 0A AA 00 8B 20 4C B2 56 20 A7 20 31 39 30 |...... L.V . 190|
000002B0: 00 D6 0A B4 00 81 20 58 B2 4C AA 31 20 A4 20 56 |...... X.L.1 . V|
000002C0: 3A 20 4E 24 B2 4E 24 AA C7 28 31 36 30 29 3A 20 |: N$.N$..(160): |
000002D0: 82 3A 20 4C B2 56 00 F1 0A BE 00 9F 20 31 2C 55 |.: L.V...... 1,U|
000002E0: 2C 31 35 2C 22 49 22 AA 44 24 3A 20 8D 20 35 30 |,15,"I".D$: . 50|
000002F0: 30 00 08 0B C8 00 9F 20 32 2C 55 2C 32 2C 22 23 |0...... 2,U,2,"#|
00000300: 22 3A 20 8D 20 35 30 30 00 24 0B D2 00 98 31 2C |": . 500.$....1,|
00000310: 22 55 31 3A 22 3B 32 3B 44 3B 54 3B 53 3A 20 8D |"U1:";2;D;T;S: .|
00000320: 20 35 30 30 00 41 0B DC 00 98 31 2C 22 42 2D 50 | 500.A....1,"B-P|
00000330: 3A 22 3B 32 3B 30 3A 20 A1 23 32 2C 41 24 2C 42 |:";2;0: .#2,A$,B|
00000340: 24 00 63 0B E6 00 54 52 B2 C6 28 41 24 AA 5A 24 |$.c...TR..(A$.Z$|
00000350: 29 3A 20 53 43 B2 C6 28 42 24 AA 5A 24 29 3A 20 |): SC..(B$.Z$): |
00000360: 48 B2 32 00 7D 0B F0 00 98 31 2C 22 42 2D 50 3A |H.2.}....1,"B-P:|
00000370: 22 3B 32 3B 48 3A 20 A1 23 32 2C 54 24 00 99 0B |";2;H: .#2,T$...|
00000380: FA 00 43 B2 C6 28 54 24 AA 5A 24 29 3A 20 8B 20 |..C..(T$.Z$): . |
00000390: 43 B1 30 20 A7 20 32 39 30 00 B9 0B 04 01 A1 23 |C.0 . 290......#|
000003A0: 32 2C 41 24 2C 42 24 3A 20 46 24 B2 22 22 3A 20 |2,A$,B$: F$."": |
000003B0: 81 20 58 B2 31 20 A4 20 56 00 E0 0B 0E 01 A1 23 |. X.1 . V......#|
000003C0: 32 2C 54 24 3A 20 46 24 B2 46 24 AA 54 24 3A 20 |2,T$: F$.F$.T$: |
000003D0: 82 3A 20 8B 20 46 24 B2 22 22 20 A7 20 33 31 30 |.: . F$."" . 310|
000003E0: 00 FD 0B 18 01 8B 20 4C B2 30 20 B0 20 4E 24 B2 |...... L.0 . N$.|
000003F0: C8 28 46 24 2C 4C 29 20 A7 20 33 35 30 00 14 0C |.(F$,L) . 350...|
00000400: 22 01 48 B2 48 AA 51 3A 20 8B 20 48 B3 46 20 A7 |".H.H.Q: . H.F .|
00000410: 20 32 34 30 00 33 0C 2C 01 8B 20 54 52 B1 30 20 | 240.3.,.. TR.0 |
00000420: A7 20 54 B2 54 52 3A 20 53 B2 53 43 3A 20 89 20 |. T.TR: S.SC: . |
00000430: 32 31 30 00 5B 0C 36 01 8B 20 57 20 A7 20 99 20 |210.[.6.. W . . |
00000440: 22 11 20 45 4E 44 20 4F 46 20 44 49 52 45 43 54 |". END OF DIRECT|
00000450: 4F 52 59 22 3A 20 89 20 34 37 30 00 75 0C 40 01 |ORY": . 470.u.@.|
00000460: 99 20 22 11 20 46 49 4C 45 2D 4E 41 4D 45 3A 20 |. ". FILE-NAME: |
00000470: 20 22 3B 4E 24 00 95 0C 4A 01 99 20 22 20 4E 4F | ";N$...J.. " NO|
00000480: 54 20 46 4F 55 4E 44 20 49 4E 20 44 49 52 45 43 |T FOUND IN DIREC|
00000490: 54 4F 52 59 22 00 B0 0C 54 01 81 20 58 B2 31 20 |TORY"...T.. X.1 |
000004A0: A4 20 32 30 30 30 3A 20 82 3A 20 89 20 34 39 30 |. 2000: .: . 490|
000004B0: 00 CB 0C 5E 01 41 B2 C6 28 41 24 AA 5A 24 29 3A |...^.A..(A$.Z$):|
000004C0: 20 42 B2 C6 28 42 24 AA 5A 24 29 00 E6 0C 68 01 | B..(B$.Z$)...h.|
000004D0: 99 20 22 11 20 46 4F 55 4E 44 20 46 49 4C 45 3A |. ". FOUND FILE:|
000004E0: 20 20 22 3B 46 24 00 06 0D 72 01 99 20 22 20 41 | ";F$...r.. " A|
000004F0: 54 20 54 52 41 43 4B 22 3B 41 3B 22 20 53 45 43 |T TRACK";A;" SEC|
00000500: 54 4F 52 22 3B 42 00 37 0D 7C 01 99 20 22 11 20 |TOR";B.7.|.. ". |
00000510: 57 41 4E 54 20 54 4F 20 52 45 56 49 56 45 20 54 |WANT TO REVIVE T|
00000520: 48 49 53 20 46 49 4C 45 20 28 59 2F 4E 29 20 3F |HIS FILE (Y/N) ?|
00000530: 20 59 9D 9D 9D 22 3B 00 50 0D 86 01 85 20 58 24 | Y...";.P.... X$|
00000540: 3A 20 8B 20 58 24 B2 22 59 22 20 A7 20 34 31 30 |: . X$."Y" . 410|
00000550: 00 5E 0D 90 01 8B 20 57 20 A7 20 32 39 30 00 83 |.^.... W . 290..|
00000560: 0D 9A 01 99 20 22 11 20 31 3D 53 45 51 20 20 32 |.... ". 1=SEQ 2|
00000570: 3D 50 52 47 20 20 33 3D 55 53 52 20 20 34 3D 52 |=PRG 3=USR 4=R|
00000580: 45 4C 22 00 AA 0D A4 01 99 20 22 20 45 4E 54 45 |EL"...... " ENTE|
00000590: 52 20 46 49 4C 45 2D 54 59 50 45 20 28 31 2D 34 |R FILE-TYPE (1-4|
000005A0: 29 20 3F 20 31 9D 9D 9D 22 3B 00 CF 0D AE 01 85 |) ? 1...";......|
000005B0: 20 50 3A 20 8B 20 50 B3 31 20 B0 20 50 B1 34 20 | P: . P.1 . P.4 |
000005C0: A7 20 99 20 22 91 91 22 3A 20 89 20 34 30 30 00 |. . "..": . 400.|
000005D0: EF 0D B8 01 98 31 2C 22 42 2D 50 3A 22 3B 32 3B |.....1,"B-P:";2;|
000005E0: 48 3A 20 98 32 2C C7 28 50 AA 31 32 38 29 3B 00 |H: .2,.(P.128);.|
000005F0: 0E 0E C2 01 98 31 2C 22 55 32 3A 22 3B 32 3B 44 |.....1,"U2:";2;D|
00000600: 3B 54 3B 53 3A 8D 20 35 30 30 3A 47 B2 31 00 3B |;T;S:. 500:G.1.;|
00000610: 0E CC 01 99 20 22 11 20 55 4E 2D 53 43 52 41 54 |.... ". UN-SCRAT|
00000620: 43 48 45 44 20 46 49 4C 45 3A 20 20 22 3B 46 24 |CHED FILE: ";F$|
00000630: 3A 20 8B 20 57 20 A7 20 32 39 30 00 65 0E D6 01 |: . W . 290.e...|
00000640: 99 20 22 11 20 52 45 56 49 56 45 20 4D 4F 52 45 |. ". REVIVE MORE|
00000650: 20 46 49 4C 45 53 20 28 59 2F 4E 29 20 3F 20 59 | FILES (Y/N) ? Y|
00000660: 9D 9D 9D 22 3B 00 7F 0E E0 01 85 20 58 24 3A 20 |...";...... X$: |
00000670: 8B 20 58 24 B3 B1 22 59 22 20 A7 20 35 32 30 00 |. X$.."Y" . 520.|
00000680: 92 0E EA 01 A0 20 32 3A 20 A0 20 31 3A 20 89 20 |..... 2: . 1: . |
00000690: 39 30 00 AC 0E F4 01 84 31 2C 45 2C 4D 24 2C 4A |90......1,E,M$,J|
000006A0: 2C 4B 3A 8B 20 45 B2 30 20 A7 20 8E 00 C7 0E FE |,K:. E.0 . .....|
000006B0: 01 99 20 22 11 20 45 52 52 4F 52 3A 20 22 3B 45 |.. ". ERROR: ";E|
000006C0: 3B 4D 24 3B 4A 3B 4B 00 DF 0E 08 02 A0 20 32 3A |;M$;J;K...... 2:|
000006D0: 20 A0 20 31 3A 20 8B 20 47 B2 30 20 A7 20 80 00 | . 1: . G.0 . ..|
000006E0: 00 0F 12 02 99 20 22 93 11 20 52 45 2D 42 55 49 |..... ".. RE-BUI|
000006F0: 4C 44 49 4E 47 20 56 41 4C 49 44 20 42 41 4D 22 |LDING VALID BAM"|
00000700: 00 23 0F 1C 02 99 20 22 20 4F 4E 20 44 49 53 4B |.#.... " ON DISK|
00000710: 2D 55 4E 49 54 22 3B 55 3B 22 20 44 52 49 56 45 |-UNIT";U;" DRIVE|
00000720: 22 3B 44 00 3F 0F 26 02 9F 20 31 2C 55 2C 31 35 |";D.?.&.. 1,U,15|
00000730: 2C 22 56 22 AA 44 24 3A 20 A0 20 31 3A 20 80 00 |,"V".D$: . 1: ..|
00000740: 00 00 |.. |
.......53281,0:.53280,0:.".".K....".PROG
RAM UNSCRATCHER (C) 1989 TRA GROUP".{...
.".WRITTEN AND (C) 1989 ICE BREAKER OF T
RA"...... ".. DISK UNIT NR (8-15) ? 8 ..
..";.J.... U: . U.8 . U.15 . . "...": .
20...(.. ". DISK DRIVE NR (0/1) ? 0...";
: G.0...2.. D: . D.0 . D.1 . . "...": .
40.I.<.. ".. PUT TARGET DISK IN UNIT";U;
"DRIVE";D.Q.F.. " THEN PRESS ANY KEY TO
CONTINUE"...P.. X$: . X$."". 80...Z.. ".
. ENTER SCRATCHED FILE-NAME (OR END)"...
D.. " USE * AT NAME-END FOR WILD-CARD SE
ARCH"...N.. " ? END.....";N$: . N$."END"
. 520.4.X.V.16: Q.32: F.256: T.18: S.1:
W.0.N...Z$.G(0): D$.I(D(D),1).F...N$.H(
N$,V): L.C(N$)..... I(N$,1).."*" . 170.
. .L.L.1: N$.H(N$,L): W.1:. 190...... L
.V . 190.V.... X.L.1 . V: N$.N$.G(160):
.: L.V...... 1,U,15,"I".D$: . 500...H..
2,U,2,"#": . 500.$.R..1,"U1:";2;D;T;S: .
500.A....1,"B-P:";2;0: .#2,A$,B$.C...TR
.F(A$.Z$): SC.F(B$.Z$): H.2.}....1,"B-P:
";2;H: .#2,T$.....C.F(T$.Z$): . C.0 . 29
0......#2,A$,B$: F$."": . X.1 . V......#
2,T$: F$.F$.T$: .: . F$."" . 310...... L
.0 . N$.H(F$,L) . 350...".H.H.Q: . H.F .
240.3.,.. TR.0 . T.TR: S.SC: . 210.[.6.
. W . . ". END OF DIRECTORY": . 470.U.@.
. ". FILE-NAME: ";N$...J.. " NOT FOUND
IN DIRECTORY"...T.. X.1 . 2000: .: . 490
.K.^.A.F(A$.Z$): B.F(B$.Z$)...H.. ". FOU
ND FILE: ";F$...R.. " AT TRACK";A;" SEC
TOR";B.7.|.. ". WANT TO REVIVE THIS FILE
(Y/N) ? Y...";.P.... X$: . X$."Y" . 410
.^.... W . 290...... ". 1=SEQ 2=PRG 3=
USR 4=REL"...... " ENTER FILE-TYPE (1-4
) ? 1...";.O.... P: . P.1 . P.4 . . ".."
: . 400......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.E.V.
. ". REVIVE MORE FILES (Y/N) ? Y...";..
... X$: . X$.."Y" . 520..... 2: 1: .
90......1,E,M$,J,K:. E.0 . ..G.... ". ER
ROR: ";E;M$;J;K..... 2: 1: . G.0 . ..
..... ".. RE-BUILDING VALID BAM".#.... "
ON DISK-UNIT";U;" DRIVE";D.?.&.. 1,U,15
,"V".D$: 1: ....
> CLICK IMAGE PREVIEW FOR FULL MODAL