Multiple names: UNSCRATC, UNSCRATCH
FILE INFORMATION
FILENAME(S):
• UNSCRATC<br>• UNSCRATCH
FILE TYPE(S): PRG
FILE SIZE: 2.6K
FIRST SEEN: 2025-11-30 16:59:22
APPEARS ON: 3 disk(s)
FILE HASH
6eb35ce382ef1f6a443eb4cea2bb14c1cf7712307c7d1bcaaa73da0fa0b8c147
FOUND ON DISKS (3 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| DEMO 1581 2 2 | UNSCRATC | PRG | High Voltage Complete C64 Collection | 12 | 0 | DOWNLOAD FILE |
| UTIL 3 | UNSCRATCH | PRG | DuncanTwain | 5 | 1 | DOWNLOAD FILE |
| CHRISTER MODIG | UNSCRATCH | PRG | hedning, scooby | 6 | 0 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 17 1C 64 00 97 35 33 32 38 30 2C 30 3A 97 |....d..53280,0:.| 00000010: 35 33 32 38 31 2C 30 00 43 1C 69 00 99 20 22 93 |53281,0.C.i.. ".| 00000020: 9B 1D 1D C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 |................| 00000030: C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 |................| 00000040: C0 C0 22 00 6C 1C 6E 00 99 20 22 1D 1D 1D 1D 9F |..".l.n.. ".....| 00000050: 52 45 56 49 56 45 20 53 43 52 41 54 43 48 45 44 |REVIVE SCRATCHED| 00000060: 20 44 49 53 4B 20 46 49 4C 45 53 22 00 97 1C 73 | DISK FILES"...s| 00000070: 00 99 20 22 9B 1D 1D C0 C0 C0 C0 C0 C0 C0 C0 C0 |.. "............| 00000080: C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 |................| 00000090: C0 C0 C0 C0 C0 C0 22 00 A6 1C 78 00 8B 51 50 B1 |......"...x..QP.| 000000A0: 30 A7 89 31 38 35 00 D2 1C 7D 00 99 20 22 11 1D |0..185...}.. "..| 000000B0: 1D 1D 9B 12 20 44 49 53 4B 20 55 4E 49 54 20 4E |.... DISK UNIT N| 000000C0: 52 20 28 38 2D 31 35 29 20 20 20 20 20 20 20 20 |R (8-15) | 000000D0: 20 22 00 06 1D 82 00 85 22 1D 1D 1D 1D 1D 05 38 | "......"......8| 000000E0: 9D 9D 9D 22 3B 55 3A 20 8B 20 55 B3 38 20 B0 20 |...";U: . U.8 . | 000000F0: 55 B1 31 35 20 A7 20 99 20 22 91 91 91 91 22 3A |U.15 . . "....":| 00000100: 20 89 20 31 32 35 00 37 1D 87 00 99 20 22 11 1D | . 125.7.... "..| 00000110: 1D 1D 9B 12 20 44 49 53 4B 20 44 52 49 56 45 20 |.... DISK DRIVE | 00000120: 4E 52 20 28 30 2F 31 29 20 20 20 20 20 20 20 20 |NR (0/1) | 00000130: 20 22 3A 20 47 B2 30 00 6A 1D 8C 00 85 22 1D 1D | ": G.0.j...."..| 00000140: 1D 1D 1D 05 30 9D 9D 9D 22 3B 44 3A 20 8B 20 44 |....0...";D: . D| 00000150: B3 30 20 B0 20 44 B1 31 20 A7 20 99 20 22 91 91 |.0 . D.1 . . "..| 00000160: 91 91 22 3A 20 89 20 31 33 35 00 74 1D 91 00 8D |..": . 135.t....| 00000170: 39 38 39 30 00 AC 1D 9B 00 99 20 22 9B 12 1D 1D |9890...... "....| 00000180: 1D 11 20 49 4E 53 45 52 54 20 44 49 53 4B 20 49 |.. INSERT DISK I| 00000190: 4E 20 55 4E 49 54 22 55 22 9D 2C 20 44 22 C9 28 |N UNIT"U"., D".(| 000001A0: C4 28 44 29 2C 31 29 22 3B 20 20 22 00 D6 1D A0 |.(D),1)"; "....| 000001B0: 00 99 20 22 12 1D 1D 1D 20 50 52 45 53 53 20 41 |.. ".... PRESS A| 000001C0: 4E 59 20 4B 45 59 20 57 48 45 4E 20 52 45 41 44 |NY KEY WHEN READ| 000001D0: 59 2E 20 20 20 22 00 ED 1D A5 00 A1 20 58 24 3A |Y. "...... X$:| 000001E0: 20 8B 20 58 24 B2 22 22 A7 20 31 36 35 00 32 1E | . X$."". 165.2.| 000001F0: AA 00 99 22 91 91 91 91 91 91 91 91 91 22 3A 42 |...".........":B| 00000200: 4C 24 B2 22 20 20 20 20 20 20 20 20 20 20 20 20 |L$." | 00000210: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00000220: 20 20 20 20 20 20 20 22 3A 99 42 4C 24 3A 99 42 | ":.BL$:.B| 00000230: 4C 24 00 62 1E AF 00 99 42 4C 24 3A 99 42 4C 24 |L$.b....BL$:.BL$| 00000240: 3A 99 42 4C 24 3A 99 42 4C 24 3A 99 42 4C 24 3A |:.BL$:.BL$:.BL$:| 00000250: 99 42 4C 24 3A 99 22 91 91 91 91 91 91 91 91 91 |.BL$:.".........| 00000260: 91 22 00 71 1E B4 00 8B 51 50 B2 30 A7 51 50 B2 |.".q....QP.0.QP.| 00000270: 31 00 9D 1E B9 00 99 20 22 11 12 9B 1D 1D 1D 20 |1...... "...... | 00000280: 45 4E 54 45 52 20 53 43 52 41 54 43 48 45 44 20 |ENTER SCRATCHED | 00000290: 46 49 4C 45 2D 4E 41 4D 45 3B 20 20 22 00 C7 1E |FILE-NAME; "...| 000002A0: BE 00 99 20 22 1D 1D 1D 12 20 55 53 45 20 2A 20 |... ".... USE * | 000002B0: 46 4F 52 20 57 49 4C 44 2D 43 41 52 44 20 53 45 |FOR WILD-CARD SE| 000002C0: 41 52 43 48 2E 20 22 00 F8 1E C3 00 4E 24 B2 22 |ARCH. ".....N$."| 000002D0: 22 3A 85 20 22 1D 1D 1D 1D 1D 05 2A 9D 9D 9D 22 |":. "......*..."| 000002E0: 3B 4E 24 3A 20 8B 20 4E 24 B2 22 22 A7 A0 31 3A |;N$: . N$.""..1:| 000002F0: A0 32 3A A0 31 35 3A 80 00 1E 1F CD 00 56 B2 31 |.2:.15:......V.1| 00000300: 36 3A 20 51 B2 33 32 3A 20 46 B2 32 35 36 3A 20 |6: Q.32: F.256: | 00000310: 54 B2 31 38 3A 20 53 B2 31 3A 20 57 B2 30 00 31 |T.18: S.1: W.0.1| 00000320: 1F D2 00 8B 44 52 B2 38 A7 54 B2 34 30 3A 53 B2 |....DR.8.T.40:S.| 00000330: 33 00 4B 1F D7 00 5A 24 B2 C7 28 30 29 3A 20 44 |3.K...Z$..(0): D| 00000340: 24 B2 C9 28 C4 28 44 29 2C 31 29 00 63 1F DC 00 |$..(.(D),1).c...| 00000350: 4E 24 B2 C8 28 4E 24 2C 56 29 3A 20 4C B2 C3 28 |N$..(N$,V): L..(| 00000360: 4E 24 29 00 7C 1F E1 00 8B 20 C9 28 4E 24 2C 31 |N$).|.... .(N$,1| 00000370: 29 B3 B1 22 2A 22 20 A7 20 32 33 35 00 9D 1F E6 |).."*" . 235....| 00000380: 00 4C B2 4C AB 31 3A 20 4E 24 B2 C8 28 4E 24 2C |.L.L.1: N$..(N$,| 00000390: 4C 29 3A 20 57 B2 31 3A 89 20 32 34 35 00 AD 1F |L): W.1:. 245...| 000003A0: EB 00 8B 20 4C B2 56 20 A7 20 32 34 35 00 D3 1F |... L.V . 245...| 000003B0: F0 00 81 20 58 B2 4C AA 31 20 A4 20 56 3A 20 4E |... X.L.1 . V: N| 000003C0: 24 B2 4E 24 AA C7 28 31 36 30 29 3A 20 82 3A 20 |$.N$..(160): .: | 000003D0: 4C B2 56 00 EE 1F F5 00 9F 20 31 2C 55 2C 31 35 |L.V...... 1,U,15| 000003E0: 2C 22 49 22 AA 44 24 3A 20 8D 20 34 32 35 00 05 |,"I".D$: . 425..| 000003F0: 20 FA 00 9F 20 32 2C 55 2C 32 2C 22 23 22 3A 20 | ... 2,U,2,"#": | 00000400: 8D 20 34 32 35 00 21 20 FF 00 98 31 2C 22 55 31 |. 425.! ...1,"U1| 00000410: 3A 22 3B 32 3B 44 3B 54 3B 53 3A 20 8D 20 34 32 |:";2;D;T;S: . 42| 00000420: 35 00 3E 20 04 01 98 31 2C 22 42 2D 50 3A 22 3B |5.> ...1,"B-P:";| 00000430: 32 3B 30 3A 20 A1 23 32 2C 41 24 2C 42 24 00 60 |2;0: .#2,A$,B$.`| 00000440: 20 09 01 54 52 B2 C6 28 41 24 AA 5A 24 29 3A 20 | ..TR..(A$.Z$): | 00000450: 53 43 B2 C6 28 42 24 AA 5A 24 29 3A 20 48 B2 32 |SC..(B$.Z$): H.2| 00000460: 00 7A 20 0E 01 98 31 2C 22 42 2D 50 3A 22 3B 32 |.z ...1,"B-P:";2| 00000470: 3B 48 3A 20 A1 23 32 2C 54 24 00 96 20 13 01 43 |;H: .#2,T$.. ..C| 00000480: B2 C6 28 54 24 AA 5A 24 29 3A 20 8B 20 43 B1 30 |..(T$.Z$): . C.0| 00000490: 20 A7 20 32 39 35 00 B6 20 18 01 A1 23 32 2C 41 | . 295.. ...#2,A| 000004A0: 24 2C 42 24 3A 20 46 24 B2 22 22 3A 20 81 20 58 |$,B$: F$."": . X| 000004B0: B2 31 20 A4 20 56 00 DD 20 1D 01 A1 23 32 2C 54 |.1 . V.. ...#2,T| 000004C0: 24 3A 20 46 24 B2 46 24 AA 54 24 3A 20 82 3A 20 |$: F$.F$.T$: .: | 000004D0: 8B 20 46 24 B2 22 22 20 A7 20 33 30 35 00 FA 20 |. F$."" . 305.. | 000004E0: 22 01 8B 20 4C B2 30 20 B0 20 4E 24 B2 C8 28 46 |".. L.0 . N$..(F| 000004F0: 24 2C 4C 29 20 A7 20 33 34 30 00 11 21 27 01 48 |$,L) . 340..!'.H| 00000500: B2 48 AA 51 3A 20 8B 20 48 B3 46 20 A7 20 32 37 |.H.Q: . H.F . 27| 00000510: 30 00 30 21 2C 01 8B 20 54 52 B1 30 20 A7 20 54 |0.0!,.. TR.0 . T| 00000520: B2 54 52 3A 20 53 B2 53 43 3A 20 89 20 32 35 35 |.TR: S.SC: . 255| 00000530: 00 69 21 31 01 8B 20 57 20 A7 20 99 20 22 1D 1D |.i!1.. W . . "..| 00000540: 1D 9B 12 11 20 45 4E 44 20 4F 46 20 44 49 52 45 |.... END OF DIRE| 00000550: 43 54 4F 52 59 2E 20 20 20 20 20 20 20 20 20 20 |CTORY. | 00000560: 20 22 3A 20 89 20 34 30 35 00 95 21 36 01 99 20 | ": . 405..!6.. | 00000570: 22 1D 1D 1D 12 9B 11 20 54 48 45 52 45 20 49 53 |"...... THERE IS| 00000580: 20 4E 4F 20 53 43 52 41 54 43 48 45 44 20 46 49 | NO SCRATCHED FI| 00000590: 4C 45 20 20 22 00 BF 21 3B 01 99 20 22 1D 1D 1D |LE "..!;.. "...| 000005A0: 12 20 57 49 54 48 20 54 48 41 54 20 4E 41 4D 45 |. WITH THAT NAME| 000005B0: 20 4F 4E 20 54 48 49 53 20 44 49 53 4B 2E 22 00 | ON THIS DISK.".| 000005C0: D3 21 40 01 81 20 58 B2 31 20 A4 20 34 30 30 30 |.!@.. X.1 . 4000| 000005D0: 3A 20 82 00 10 22 45 01 99 22 91 91 91 91 91 91 |: ..."E.."......| 000005E0: 91 22 3A 42 4C 24 B2 22 20 20 20 20 20 20 20 20 |.":BL$." | 000005F0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00000600: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 22 | "| 00000610: 00 37 22 4A 01 99 42 4C 24 3A 99 42 4C 24 3A 99 |.7"J..BL$:.BL$:.| 00000620: 42 4C 24 3A 99 42 4C 24 3A 99 42 4C 24 3A 99 42 |BL$:.BL$:.BL$:.B| 00000630: 4C 24 3A 99 42 4C 24 00 53 22 4F 01 99 22 91 91 |L$:.BL$.S"O.."..| 00000640: 91 91 91 91 91 91 91 22 3A A0 32 3A A0 31 3A 89 |.......":.2:.1:.| 00000650: 31 38 35 00 6E 22 54 01 41 B2 C6 28 41 24 AA 5A |185.n"T.A..(A$.Z| 00000660: 24 29 3A 20 42 B2 C6 28 42 24 AA 5A 24 29 00 8E |$): B..(B$.Z$)..| 00000670: 22 59 01 99 22 11 9B 1D 1D 1D 53 43 52 41 54 43 |"Y..".....SCRATC| 00000680: 48 45 44 20 46 49 4C 45 3A 20 05 22 46 24 00 B6 |HED FILE: ."F$..| 00000690: 22 5E 01 99 20 22 1D 1D 1D 9B 46 4F 55 4E 44 20 |"^.. "....FOUND | 000006A0: 41 54 20 54 52 41 43 4B 22 41 22 9D 2C 20 53 45 |AT TRACK"A"., SE| 000006B0: 43 54 4F 52 22 42 00 E1 22 63 01 99 20 22 11 1D |CTOR"B.."c.. "..| 000006C0: 1D 1D 12 20 57 41 4E 54 20 54 4F 20 52 45 56 49 |... WANT TO REVI| 000006D0: 56 45 20 54 48 49 53 20 46 49 4C 45 20 3F 20 20 |VE THIS FILE ? | 000006E0: 22 00 06 23 68 01 85 22 1D 1D 1D 1D 1D 05 59 9D |"..#h.."......Y.| 000006F0: 9D 9D 22 3B 58 24 3A 20 8B 20 58 24 B2 22 59 22 |..";X$: . X$."Y"| 00000700: 20 A7 20 33 37 35 00 18 23 6D 01 8B 57 A7 8D 36 | . 375..#m..W..6| 00000710: 33 36 35 3A 89 32 39 35 00 23 23 72 01 99 3A 89 |365:.295.##r..:.| 00000720: 34 30 35 00 56 23 77 01 99 20 22 11 1D 1D 1D 12 |405.V#w.. ".....| 00000730: 9B 20 31 3D 53 45 51 20 20 32 3D 50 52 47 20 20 |. 1=SEQ 2=PRG | 00000740: 33 3D 55 53 52 20 20 34 3D 52 45 4C 20 20 35 3D |3=USR 4=REL 5=| 00000750: 43 42 4D 20 20 22 00 80 23 7C 01 99 20 22 1D 1D |CBM "..#|.. "..| 00000760: 1D 12 20 45 4E 54 45 52 20 46 49 4C 45 2D 54 59 |.. ENTER FILE-TY| 00000770: 50 45 20 28 31 2D 34 29 20 20 20 20 20 20 20 22 |PE (1-4) "| 00000780: 00 B2 23 81 01 85 22 1D 1D 1D 1D 1D 05 32 9D 9D |..#..."......2..| 00000790: 9D 22 3B 50 3A 8B 20 20 50 B3 31 20 B0 20 50 B1 |.";P:. P.1 . P.| 000007A0: 35 20 A7 20 99 20 22 91 91 91 22 3A 20 89 20 33 |5 . . "...": . 3| 000007B0: 36 35 00 D2 23 86 01 98 31 2C 22 42 2D 50 3A 22 |65..#...1,"B-P:"| 000007C0: 3B 32 3B 48 3A 20 98 32 2C C7 28 50 AA 31 32 38 |;2;H: .2,.(P.128| 000007D0: 29 3B 00 F1 23 8B 01 98 31 2C 22 55 32 3A 22 3B |);..#...1,"U2:";| 000007E0: 32 3B 44 3B 54 3B 53 3A 8D 20 34 32 35 3A 47 B2 |2;D;T;S:. 425:G.| 000007F0: 31 00 2E 24 90 01 99 20 22 1D 1D 1D 9B 12 11 20 |1..$... "...... | 00000800: 4F 4B 2C 20 46 49 4C 45 20 49 53 20 55 4E 2D 53 |OK, FILE IS UN-S| 00000810: 43 52 41 54 43 48 45 44 20 20 20 20 22 3A 20 8B |CRATCHED ": .| 00000820: 20 57 20 A7 99 22 91 91 22 3A 89 32 39 35 00 59 | W .."..":.295.Y| 00000830: 24 95 01 99 20 22 1D 1D 1D 12 9B 20 52 45 56 49 |$... "..... REVI| 00000840: 56 45 20 4D 4F 52 45 20 46 49 4C 45 53 20 28 59 |VE MORE FILES (Y| 00000850: 2F 4E 29 20 20 3F 20 20 22 00 81 24 9A 01 85 22 |/N) ? "..$..."| 00000860: 1D 1D 1D 1D 1D 05 59 9D 9D 9D 22 3B 58 24 3A 8B |......Y...";X$:.| 00000870: 58 24 B2 22 59 22 A7 A0 32 3A A0 31 3A 89 31 30 |X$."Y"..2:.1:.10| 00000880: 30 00 9C 24 9F 01 8B 47 B3 B1 30 A7 A0 32 3A A0 |0..$...G..0..2:.| 00000890: 31 3A 8D 37 30 30 30 3A 89 34 35 35 00 B1 24 A4 |1:.7000:.455..$.| 000008A0: 01 A0 31 3A A0 32 3A A0 31 35 3A 99 22 93 22 3A |..1:.2:.15:.".":| 000008B0: 80 00 CB 24 A9 01 84 31 2C 45 2C 4D 24 2C 4A 2C |...$...1,E,M$,J,| 000008C0: 4B 3A 8B 20 45 B2 30 20 A7 20 8E 00 EA 24 AE 01 |K:. E.0 . ...$..| 000008D0: 99 20 22 1D 1D 1D 11 9B 45 52 52 4F 52 3A 20 05 |. ".....ERROR: .| 000008E0: 22 3B 45 3B 4D 24 3B 4A 3B 4B 00 1A 25 B8 01 A0 |";E;M$;J;K..%...| 000008F0: 32 3A A0 31 3A A0 31 35 3A 99 22 11 1D 1D 1D 9B |2:.1:.15:.".....| 00000900: 50 52 45 53 53 20 41 4E 59 20 4B 45 59 20 54 4F |PRESS ANY KEY TO| 00000910: 20 43 4F 4E 54 49 4E 55 45 22 00 2D 25 BD 01 A1 | CONTINUE".-%...| 00000920: 4B 24 3A 8B 4B 24 B2 22 22 A7 34 34 35 00 38 25 |K$:.K$."".445.8%| 00000930: C2 01 9C 3A 89 31 30 30 00 64 25 C7 01 99 20 22 |...:.100.d%... "| 00000940: 1D 1D 1D 12 9B 11 20 52 45 2D 42 55 49 4C 44 49 |...... RE-BUILDI| 00000950: 4E 47 20 56 41 4C 49 44 20 42 41 4D 20 4F 4E 20 |NG VALID BAM ON | 00000960: 20 20 20 22 00 95 25 CC 01 99 20 22 1D 1D 1D 12 | "..%... "....| 00000970: 20 44 49 53 4B 2D 55 4E 49 54 22 3B 55 3B 22 9D | DISK-UNIT";U;".| 00000980: 2C 20 44 52 49 56 45 22 3B 44 22 9D 20 20 20 20 |, DRIVE";D". | 00000990: 20 20 20 20 22 00 B3 25 D1 01 9F 20 31 2C 55 2C | "..%... 1,U,| 000009A0: 31 35 2C 22 56 22 AA 44 24 3A A0 31 3A 9C 3A 89 |15,"V".D$:.1:.:.| 000009B0: 31 30 30 00 E0 25 DD 18 99 22 91 91 91 91 91 91 |100..%..."......| 000009C0: 91 22 3A 99 42 4C 24 3A 99 42 4C 24 3A 99 42 4C |.":.BL$:.BL$:.BL| 000009D0: 24 3A 99 42 4C 24 3A 99 42 4C 24 3A 99 42 4C 24 |$:.BL$:.BL$:.BL$| 000009E0: 00 F1 25 E2 18 99 22 91 91 91 91 91 91 91 22 3A |..%...".......":| 000009F0: 8E 00 17 26 58 1B 99 22 91 91 91 91 22 3A 99 42 |...&X.."....":.B| 00000A00: 4C 24 3A 99 42 4C 24 3A 99 42 4C 24 3A 99 22 91 |L$:.BL$:.BL$:.".| 00000A10: 91 91 91 91 22 3A 8E 00 30 26 A2 26 9F 31 35 2C |....":..0&.&.15,| 00000A20: 55 2C 31 35 3A 8D 39 39 30 30 3A A0 31 35 3A 8E |U,15:.9900:.15:.| 00000A30: 00 61 26 AC 26 98 31 35 2C 22 4D 2D 52 22 C7 28 |.a&.&.15,"M-R".(| 00000A40: 31 39 38 29 C7 28 32 32 39 29 C7 28 31 29 3A A1 |198).(229).(1):.| 00000A50: 23 31 35 2C 41 24 3A 41 24 B2 41 24 AA C7 28 30 |#15,A$:A$.A$..(0| 00000A60: 29 00 77 26 B6 26 8B C6 28 41 24 29 B2 32 35 35 |).w&.&..(A$).255| 00000A70: A7 44 52 B2 38 3A 8E 00 82 26 C0 26 44 52 B2 37 |.DR.8:...&.&DR.7| 00000A80: 3A 8E 00 00 00 |:.... |
....D..53280,0:.53281,0.C.I.. ".........
..........................".L.N.. ".....
REVIVE SCRATCHED DISK FILES"...S.. "....
.............................."...X..QP.
0..185.R.}.. "...... DISK UNIT NR (8-15)
"......"......8...";U: . U.8 .
U.15 . . "....": . 125.7.... "...... DIS
K DRIVE NR (0/1) ": G.0.J...."..
....0...";D: . D.0 . D.1 . . "....": . 1
35.T....9890...... "...... INSERT DISK I
N UNIT"U"., D"I(D(D),1)"; ".V. .. "....
PRESS ANY KEY WHEN READY. "...... X$:
. X$."". 165.2....".........":BL$."
":.BL$:.B
L$.B....BL$:.BL$:.BL$:.BL$:.BL$:.BL$:.".
.........".Q....QP.0.QP.1...... "......
ENTER SCRATCHED FILE-NAME; ".G.... "...
. USE * FOR WILD-CARD SEARCH. "...C.N$."
":. "......*...";N$: . N$."". 1: 2: 15:.
...M.V.16: Q.32: F.256: T.18: S.1: W.0.1
.R..DR.8.T.40:S.3.K.W.Z$.G(0): D$.I(D(D)
,1).C...N$.H(N$,V): L.C(N$).|.... I(N$,1
).."*" . 235.....L.L.1: N$.H(N$,L): W.1:
. 245...... L.V . 245.S.... X.L.1 . V: N
$.N$.G(160): .: L.V...... 1,U,15,"I".D$:
. 425.. ... 2,U,2,"#": . 425.! ...1,"U1
:";2;D;T;S: . 425.> ...1,"B-P:";2;0: .#2
,A$,B$.` ..TR.F(A$.Z$): SC.F(B$.Z$): H.2
.Z ...1,"B-P:";2;H: .#2,T$.. ..C.F(T$.Z$
): . C.0 . 295.. ...#2,A$,B$: F$."": . X
.1 . V.. ...#2,T$: F$.F$.T$: .: . F$.""
. 305.. ".. L.0 . N$.H(F$,L) . 340..!'.H
.H.Q: . H.F . 270.0!,.. TR.0 . T.TR: S.S
C: . 255.I!1.. W . . "...... END OF DIRE
CTORY. ": . 405..!6.. "......
THERE IS NO SCRATCHED FILE "..!;.. "...
. WITH THAT NAME ON THIS DISK.".S!@.. X.
1 . 4000: ..."E..".......":BL$."
".7"J..BL
$:.BL$:.BL$:.BL$:.BL$:.BL$:.BL$.S"O.."..
.......": 2: 1:.185.N"T.A.F(A$.Z$): B.F(
B$.Z$).."Y..".....SCRATCHED FILE: ."F$..
"^.. "....FOUND AT TRACK"A"., SECTOR"B..
"C.. "..... WANT TO REVIVE THIS FILE ?
"..#H.."......Y...";X$: . X$."Y" . 375..
#M..W..6365:.295.##R..:.405.V#W.. ".....
. 1=SEQ 2=PRG 3=USR 4=REL 5=CBM "..
#|.. ".... ENTER FILE-TYPE (1-4) "
..#..."......2...";P:. P.1 . P.5 . . ".
..": . 365.R#...1,"B-P:";2;H: .2,G(P.128
);..#...1,"U2:";2;D;T;S:. 425:G.1..$...
"...... OK, FILE IS UN-SCRATCHED ": .
W .."..":.295.Y$... "..... REVIVE MORE
FILES (Y/N) ? "..$..."......Y...";X$:.
X$."Y". 2: 1:.100..$...G..0. 2: 1:.7000:
.455..$.. 1: 2: 15:.".":..K$...1,E,M$,J,
K:. E.0 . ...$... ".....ERROR: .";E;M$;J
;K..%.. 2: 1: 15:.".....PRESS ANY KEY TO
CONTINUE".-%...K$:.K$."".445.8%B..:.100
.D%G.. "...... RE-BUILDING VALID BAM ON
"..%L.. ".... DISK-UNIT";U;"., DRIVE"
;D". "..%Q.. 1,U,15,"V".D$: 1:.:.
100..%...".......":.BL$:.BL$:.BL$:.BL$:.
BL$:.BL$..%...".......":...&X.."....":.B
L$:.BL$:.BL$:.".....":..0&.&.15,U,15:.99
00: 15:..A&.&.15,"M-R"G(198)G(229)G(1):.
#15,A$:A$.A$.G(0).W&.&.F(A$).255.DR.8:..
.&.&DR.7:....
> CLICK IMAGE PREVIEW FOR FULL MODAL