UNSCRATCH AUTO.C

FILE INFORMATION

FILENAME(S): UNSCRATCH AUTO.C

FILE TYPE(S): PRG

FILE SIZE: 1.9K

FIRST SEEN: 2025-12-01 01:48:21

APPEARS ON: 3 disk(s)

FILE HASH

359467e8c946367638d0617ec0afb7f09fb1856baff56cca9ffda52ea7351725

FOUND ON DISKS (3 DISKS)

DISK TITLE	FILENAME	FILE TYPE	COLLECTION	TRACK	SECTOR	ACTIONS
CCS64 6 KOPIA	UNSCRATCH AUTO.C	PRG	hedning, Mattias H00r	17	9	DOWNLOAD FILE
CCS 64 6	UNSCRATCH AUTO.C	PRG	hedning, Mattias H00r	17	9	DOWNLOAD FILE
C64 6	UNSCRATCH AUTO.C	PRG	hedning, Mattias H00r	17	9	DOWNLOAD FILE

FILE CONTENT & ANALYSIS

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

00000000: 01 08 13 08 00 00 97 35  35 2C 30 3A 97 35 36 2C  |.......55,0:.56,|
00000010: 31 36 30 00 2D 08 01 00  81 49 B2 38 32 38 A4 38  |160.-....I.828.8|
00000020: 38 33 3A 87 41 3A 97 49  2C 41 3A 82 49 00 45 08  |83:.A:.I,A:.I.E.|
00000030: 14 00 42 42 B2 C2 28 34  34 29 AA 32 37 3A 97 39  |..BB..(44).27:.9|
00000040: 39 35 2C 42 42 00 6E 08  1E 00 97 39 39 38 2C C2  |95,BB.n....998,.|
00000050: 28 35 35 29 3A 97 39 39  39 2C C2 28 35 36 29 3A  |(55):.999,.(56):|
00000060: 97 35 35 2C 30 3A 97 35  36 2C 42 42 3A 9C 00 7C  |.55,0:.56,BB:..||
00000070: 08 28 00 42 42 B2 C2 28  39 39 35 29 00 9F 08 32  |.(.BB..(995)...2|
00000080: 00 4E B2 C2 28 39 39 39  29 AB 42 42 AB 31 3A 42  |.N..(999).BB.1:B|
00000090: 41 B2 42 42 AC 32 35 36  3A 4D 41 B2 38 32 38 00  |A.BB.256:MA.828.|
000000A0: AB 08 6E 00 9F 31 2C 38  2C 31 35 00 C1 08 C1 00  |..n..1,8,15.....|
000000B0: 99 22 93 55 4E 53 43 52  41 54 43 48 34 2B 13 11  |.".UNSCRATCH4+..|
000000C0: 11 00 0E 09 C2 00 99 22  54 48 49 53 20 50 52 4F  |......."THIS PRO|
000000D0: 47 52 41 4D 20 43 41 4E  20 27 55 4E 53 43 52 41  |GRAM CAN 'UNSCRA|
000000E0: 54 43 48 27 20 41 20 44  49 53 4B 20 57 49 54 48  |TCH' A DISK WITH|
000000F0: 20 4A 55 53 54 20 50 52  4F 47 52 41 4D 53 20 4F  | JUST PROGRAMS O|
00000100: 4E 20 49 54 20 28 49 54  20 43 4F 55 4C 44 00 36  |N IT (IT COULD.6|
00000110: 09 C3 00 99 22 4D 4F 44  49 46 49 45 44 20 46 4F  |...."MODIFIED FO|
00000120: 52 20 4F 54 48 45 52 20  46 49 4C 45 20 54 59 50  |R OTHER FILE TYP|
00000130: 45 53 29 22 3A 99 00 87  09 C4 00 99 22 49 54 20  |ES)":......."IT |
00000140: 52 45 41 44 53 20 45 41  43 48 20 53 45 43 54 4F  |READS EACH SECTO|
00000150: 52 20 4F 46 20 54 48 45  20 44 49 52 45 43 54 4F  |R OF THE DIRECTO|
00000160: 52 59 20 20 20 28 49 54  20 53 54 41 52 54 53 20  |RY   (IT STARTS |
00000170: 57 49 54 48 20 54 52 41  43 4B 2D 31 38 20 53 45  |WITH TRACK-18 SE|
00000180: 43 54 4F 52 2D 31 29 00  AF 09 C5 00 99 22 49 54  |CTOR-1)......"IT|
00000190: 20 54 48 45 4E 20 43 4F  52 52 45 43 54 53 20 54  | THEN CORRECTS T|
000001A0: 48 45 20 43 48 41 4E 47  45 53 20 4D 41 44 45 00  |HE CHANGES MADE.|
000001B0: D3 09 C6 00 99 22 57 48  45 4E 20 54 48 45 20 44  |....."WHEN THE D|
000001C0: 49 53 4B 20 57 41 53 20  27 53 43 52 41 54 43 48  |ISK WAS 'SCRATCH|
000001D0: 45 44 27 00 E2 09 C7 00  54 31 B2 31 38 3A 53 31  |ED'.....T1.18:S1|
000001E0: B2 31 00 EB 09 CA 00 89  32 37 30 00 21 0A CD 00  |.1......270.!...|
000001F0: A0 31 3A A0 33 3A 9F 31  35 2C 38 2C 31 35 3A 98  |.1:.3:.15,8,15:.|
00000200: 31 35 2C 22 56 22 3A A0  31 35 3A 99 22 49 47 4E  |15,"V":.15:."IGN|
00000210: 4F 52 45 20 54 48 45 20  49 4C 4C 45 47 41 4C 22  |ORE THE ILLEGAL"|
00000220: 3B 00 44 0A CE 00 99 22  54 52 41 43 4B 20 45 52  |;.D...."TRACK ER|
00000230: 52 4F 52 20 4D 53 47 20  46 52 4F 4D 20 44 49 53  |ROR MSG FROM DIS|
00000240: 4B 22 3A 80 00 69 0A 0E  01 A0 31 3A A0 33 3A 9F  |K":..i....1:.3:.|
00000250: 31 2C 38 2C 31 35 3A 98  31 2C 22 49 30 22 3A 9F  |1,8,15:.1,"I0":.|
00000260: 33 2C 38 2C 33 2C 22 23  22 00 73 0A 0F 01 8D 32  |3,8,3,"#".s....2|
00000270: 30 30 30 00 9A 0A 11 01  99 3A 99 22 54 52 41 43  |000......:."TRAC|
00000280: 4B 22 3B 54 31 3B 22 20  20 53 45 43 54 4F 52 22  |K";T1;"  SECTOR"|
00000290: 3B 53 31 3A 99 3A 50 47  B2 30 00 DD 0A 12 01 81  |;S1:.:PG.0......|
000002A0: 52 B2 30 A4 37 3A 81 52  31 B2 30 A4 31 36 3A 43  |R.0.7:.R1.0.16:C|
000002B0: 31 B2 42 42 AC 32 35 36  AA 33 AA 52 31 AA 52 AC  |1.BB.256.3.R1.R.|
000002C0: 33 32 3A 43 B2 C2 28 43  31 29 3A 8B 52 31 B2 30  |32:C..(C1):.R1.0|
000002D0: AF 43 B3 B1 30 A7 50 47  B2 50 47 AA 31 00 00 0B  |.C..0.PG.PG.1...|
000002E0: 13 01 8B 43 B1 33 31 AF  43 B3 31 32 38 B0 43 B1  |...C.31.C.128.C.|
000002F0: 31 36 30 AF 43 B3 31 39  32 A7 99 C7 28 43 29 3B  |160.C.192...(C);|
00000300: 00 0A 0B 14 01 82 52 31  3A 99 00 13 0B 15 01 82  |......R1:.......|
00000310: 52 3A 99 00 57 0B 16 01  99 22 23 20 4F 46 20 50  |R:..W...."# OF P|
00000320: 52 47 27 53 20 49 4E 20  42 4C 4F 43 4B 3A 22 3B  |RG'S IN BLOCK:";|
00000330: 50 47 3A 99 3A 99 22 B9  B9 B9 B9 B9 B9 B9 B9 B9  |PG:.:.".........|
00000340: B9 B9 B9 B9 B9 B9 B9 B9  B9 B9 B9 B9 B9 B9 B9 B9  |................|
00000350: B9 B9 B9 B9 B9 B9 22 00  85 0B 17 01 81 58 B2 30  |......"......X.0|
00000360: A4 50 47 AB 31 3A 97 28  42 42 AC 32 35 36 AA 32  |.PG.1:.(BB.256.2|
00000370: AA 58 AC 33 32 29 2C 31  33 30 3A 82 58 3A A0 33  |.X.32),130:.X:.3|
00000380: 3A 89 33 35 30 00 8C 0B  4A 01 A0 33 00 A3 0B 5E  |:.350...J..3...^|
00000390: 01 98 31 2C 22 49 30 22  3A 9F 33 2C 38 2C 33 2C  |..1,"I0":.3,8,3,|
000003A0: 22 23 22 00 D8 0B 5F 01  8D 32 32 30 30 3A A0 31  |"#"..._..2200:.1|
000003B0: 3A 54 31 B2 C2 28 42 42  AC 32 35 36 29 3A 53 31  |:T1..(BB.256):S1|
000003C0: B2 C2 28 42 42 AC 32 35  36 AA 31 29 3A 8B 53 31  |..(BB.256.1):.S1|
000003D0: B2 32 35 35 89 32 30 35  00 E1 0B 60 01 89 32 37  |.255.205...`..27|
000003E0: 30 00 2F 0C D0 07 8F 20  52 45 41 44 20 42 4C 4F  |0./.... READ BLO|
000003F0: 43 4B 20 54 31 2C 53 31  20 54 4F 20 42 55 46 46  |CK T1,S1 TO BUFF|
00000400: 45 52 20 23 20 4E 55 32  37 34 46 CF 52 3D 30 54  |ER # NU274F.R=0T|
00000410: 4F 37 3A 46 CF 52 31 3D  30 54 4F 31 35 3A 3F 43  |O7:F.R1=0TO15:?C|
00000420: 48 52 24 28 42 42 2A 32  35 36 2B 33 2B 52 31 00  |HR$(BB*256+3+R1.|
00000430: 37 0C DA 07 43 B2 2E 00  4D 0C E4 07 98 31 2C 22  |7...C...M....1,"|
00000440: 55 31 22 3B 33 3B 30 3B  54 31 3B 53 31 00 61 0C  |U1";3;0;T1;S1.a.|
00000450: EE 07 8D 33 30 30 30 3A  8B A8 45 52 A7 32 30 36  |...3000:..ER.206|
00000460: 30 00 75 0C F8 07 43 B2  43 AA 31 3A 8B 43 B3 33  |0.u...C.C.1:.C.3|
00000470: 89 32 30 32 30 00 AB 0C  02 08 99 45 52 24 3A 81  |.2020......ER$:.|
00000480: 4A B2 28 42 42 AA 4E 55  29 AC 32 35 36 A4 28 42  |J.(BB.NU).256.(B|
00000490: 42 AA 4E 55 29 AC 32 35  36 AA 32 35 35 3A 97 4A  |B.NU).256.255:.J|
000004A0: 2C 2E 3A 82 4A 3A 89 32  31 30 30 00 BC 0C 0C 08  |,.:.J:.2100.....|
000004B0: 98 31 2C 22 42 2D 50 22  3B 33 3B 30 00 E1 0C 20  |.1,"B-P";3;0... |
000004C0: 08 97 39 39 36 2C C2 28  33 29 3A 97 39 39 37 2C  |..996,.(3):.997,|
000004D0: C2 28 34 29 3A 97 34 2C  42 42 AA 4E 55 3A 9E 4D  |.(4):.4,BB.NU:.M|
000004E0: 41 00 F9 0C 25 08 97 33  2C C2 28 39 39 36 29 3A  |A...%..3,.(996):|
000004F0: 97 34 2C C2 28 39 39 37  29 00 17 0D 2A 08 8B 53  |.4,.(997)...*..S|
00000500: 54 B3 B1 2E AF 53 54 B3  B1 36 34 A7 8D 33 30 30  |T....ST..64..300|
00000510: 30 3A 89 32 30 35 30 00  1D 0D 34 08 8E 00 46 0D  |0:.2050...4...F.|
00000520: 98 08 8F 20 57 52 49 54  45 20 42 4C 4F 43 4B 20  |... WRITE BLOCK |
00000530: 54 31 2C 53 31 20 46 52  4F 4D 20 42 55 46 46 45  |T1,S1 FROM BUFFE|
00000540: 52 20 23 20 4E 55 00 4E  0D A2 08 43 B2 2E 00 70  |R # NU.N...C...p|
00000550: 0D AC 08 98 31 2C 22 42  2D 41 22 3B 30 3B 54 31  |....1,"B-A";0;T1|
00000560: 3B 53 31 3A 98 31 2C 22  42 2D 50 22 3B 33 3B 30  |;S1:.1,"B-P";3;0|
00000570: 00 97 0D C0 08 97 39 39  36 2C C2 28 33 29 3A 97  |......996,.(3):.|
00000580: 39 39 37 2C C2 28 34 29  3A 97 34 2C 42 42 AA 4E  |997,.(4):.4,BB.N|
00000590: 55 3A 9E 4D 41 AA 33 00  AF 0D C5 08 97 33 2C C2  |U:.MA.3......3,.|
000005A0: 28 39 39 36 29 3A 97 34  2C C2 28 39 39 37 29 00  |(996):.4,.(997).|
000005B0: E2 0D CA 08 8B 53 54 B3  B1 2E AF 53 54 B3 B1 36  |.....ST....ST..6|
000005C0: 34 A7 99 22 12 49 45 45  45 20 57 52 49 54 45 20  |4..".IEEE WRITE |
000005D0: 45 52 52 4F 52 22 53 54  22 92 22 3A 89 31 30 30  |ERROR"ST".":.100|
000005E0: 30 30 00 F8 0D D4 08 98  31 2C 22 55 32 22 3B 33  |00......1,"U2";3|
000005F0: 3B 30 3B 54 31 3B 53 31  00 0C 0E DE 08 8D 33 30  |;0;T1;S1......30|
00000600: 30 30 3A 8B A8 45 52 A7  32 33 30 30 00 20 0E E8  |00:..ER.2300. ..|
00000610: 08 43 B2 43 AA 31 3A 8B  43 B3 33 A7 32 32 36 30  |.C.C.1:.C.3.2260|
00000620: 00 4C 0E F2 08 99 22 12  55 4E 52 45 43 4F 56 45  |.L....".UNRECOVE|
00000630: 52 41 42 4C 45 20 57 52  49 54 45 20 45 52 52 4F  |RABLE WRITE ERRO|
00000640: 52 22 45 52 24 3A 89 31  30 30 30 30 00 52 0E FC  |R"ER$:.10000.R..|
00000650: 08 8E 00 6E 0E B8 0B 8F  20 52 45 41 44 20 45 52  |...n.... READ ER|
00000660: 52 20 43 48 20 54 4F 20  45 52 2C 45 52 24 00 A5  |R CH TO ER,ER$..|
00000670: 0E C2 0B 84 31 2C 45 30  24 2C 45 31 24 2C 45 32  |....1,E0$,E1$,E2|
00000680: 24 2C 45 33 24 3A 45 52  24 B2 45 30 24 AA 22 2C  |$,E3$:ER$.E0$.",|
00000690: 22 AA 45 31 24 AA 22 2C  22 AA 45 32 24 AA 22 2C  |".E1$.",".E2$.",|
000006A0: 22 AA 45 33 24 00 C1 0E  CC 0B 45 52 B2 C3 28 45  |".E3$.....ER..(E|
000006B0: 30 24 29 3A 8B 45 52 A7  45 52 B2 C5 28 45 30 24  |0$):.ER.ER..(E0$|
000006C0: 29 00 C7 0E D6 0B 8E 00  D6 0E 10 27 8F 20 44 52  |)..........'. DR|
000006D0: 4F 50 20 4F 55 54 00 F4  0E 1A 27 97 35 35 2C C2  |OP OUT....'.55,.|
000006E0: 28 39 39 38 29 3A 97 35  36 2C C2 28 39 39 39 29  |(998):.56,.(999)|
000006F0: 3A 9C 3A 90 00 35 0F 98  3A 83 37 36 2C 36 36 2C  |:.:..5..:.76,66,|
00000700: 33 2C 37 36 2C 39 31 2C  33 2C 31 36 32 2C 33 2C  |3,76,91,3,162,3,|
00000710: 33 32 2C 31 39 38 2C 32  35 35 2C 31 36 30 2C 30  |32,198,255,160,0|
00000720: 2C 31 33 32 2C 33 2C 33  32 2C 32 30 37 2C 32 35  |,132,3,32,207,25|
00000730: 35 2C 31 34 35 00 79 0F  A2 3A 83 33 2C 31 36 35  |5,145.y..:.3,165|
00000740: 2C 31 34 34 2C 32 30 38  2C 33 2C 32 30 30 2C 32  |,144,208,3,200,2|
00000750: 30 38 2C 32 34 34 2C 33  32 2C 32 30 34 2C 32 35  |08,244,32,204,25|
00000760: 35 2C 39 36 2C 31 36 32  2C 33 2C 33 32 2C 32 30  |5,96,162,3,32,20|
00000770: 31 2C 32 35 35 2C 31 36  30 00 BF 0F AC 3A 83 30  |1,255,160....:.0|
00000780: 2C 31 33 32 2C 33 2C 31  37 37 2C 33 2C 33 32 2C  |,132,3,177,3,32,|
00000790: 32 31 30 2C 32 35 35 2C  31 36 35 2C 31 34 34 2C  |210,255,165,144,|
000007A0: 32 30 38 2C 33 2C 32 30  30 2C 32 30 38 2C 32 34  |208,3,200,208,24|
000007B0: 34 2C 33 32 2C 32 30 34  2C 32 35 35 2C 39 36 00  |4,32,204,255,96.|
000007C0: 00 00                                             |..              |

.......55,0:.56,160.-....I.828.883:.A:.I
,A:.I.E...BB.B(44).27:.995,BB.N....998,B
(55):.999,B(56):.55,0:.56,BB:..|.(.BB.B(
995)...2.N.B(999).BB.1:BA.BB.256:MA.828.
..N..1,8,15.A.A..".UNSCRATCH4+......B.."
THIS PROGRAM CAN 'UNSCRATCH' A DISK WITH
 JUST PROGRAMS ON IT (IT COULD.6.C.."MOD
IFIED FOR OTHER FILE TYPES)":....D.."IT 
READS EACH SECTOR OF THE DIRECTORY   (IT
 STARTS WITH TRACK-18 SECTOR-1)...E.."IT
 THEN CORRECTS THE CHANGES MADE.S.F.."WH
EN THE DISK WAS 'SCRATCHED'...G.T1.18:S1
.1...J..270.!.M. 1: 3:.15,8,15:.15,"V": 
15:."IGNORE THE ILLEGAL";.D.N.."TRACK ER
ROR MSG FROM DISK":..I... 1: 3:.1,8,15:.
1,"I0":.3,8,3,"#".S....2000......:."TRAC
K";T1;"  SECTOR";S1:.:PG.0......R.0.7:.R
1.0.16:C1.BB.256.3.R1.R.32:C.B(C1):.R1.0
.C..0.PG.PG.1......C.31.C.128.C.160.C.19
2..G(C);......R1:.......R:..W...."# OF P
RG'S IN BLOCK:";PG:.:.".................
.............."......X.0.PG.1:.(BB.256.2
.X.32),130:.X: 3:.350...J. 3...^..1,"I0"
:.3,8,3,"#".X._..2200: 1:T1.B(BB.256):S1
.B(BB.256.1):.S1.255.205...`..270./.P.. 
READ BLOCK T1,S1 TO BUFFER # NU274FOR=0T
O7:FOR1=0TO15:?CHR$(BB*256+3+R1.7.Z.C...
M....1,"U1";3;0;T1;S1.A....3000:..ER.206
0.U...C.C.1:.C.3.2020......ER$:.J.(BB.NU
).256.(BB.NU).256.255:.J,.:.J:.2100.....
.1,"B-P";3;0... ..996,B(3):.997,B(4):.4,
BB.NU:.MA...%..3,B(996):.4,B(997)...*..S
T....ST..64..3000:.2050...4...F.... WRIT
E BLOCK T1,S1 FROM BUFFER # NU.N...C...P
....1,"B-A";0;T1;S1:.1,"B-P";3;0......99
6,B(3):.997,B(4):.4,BB.NU:.MA.3...E..3,B
(996):.4,B(997)...J..ST....ST..64..".IEE
E WRITE ERROR"ST".":.10000...T..1,"U2";3
;0;T1;S1......3000:..ER.2300. ...C.C.1:.
C.3.2260.L....".UNRECOVERABLE WRITE ERRO
R"ER$:.10000.R.....N.... READ ERR CH TO 
ER,ER$...B..1,E0$,E1$,E2$,E3$:ER$.E0$.",
".E1$.",".E2$.",".E3$.A.L.ER.C(E0$):.ER.
ER.E(E0$).G.V...V..'. DROP OUT....'.55,B
(998):.56,B(999):.:..5..:.76,66,3,76,91,
3,162,3,32,198,255,160,0,132,3,32,207,25
5,145.Y..:.3,165,144,208,3,200,208,244,3
2,204,255,96,162,3,32,201,255,160....:.0
,132,3,177,3,32,210,255,165,144,208,3,20
0,208,244,32,204,255,96...

Visualization:

Width: Skip load address (+2) Invert

> CLICK IMAGE PREVIEW FOR FULL MODAL