_  __   _  _         _ _     _      _           _           
  __| |/ /_ | || |     __| (_)___| | __ (_)_ __   __| | _____  __
 / _` | '_ \| || |_   / _` | / __| |/ / | | '_ \ / _` |/ _ \ \/ /
| (_| | (_) |__   _| | (_| | \__ \   <  | | | | | (_| |  __/>  < 
 \__,_|\___/   |_|    \__,_|_|___/_|\_\ |_|_| |_|\__,_|\___/_/\_\
                                                                 
            

Multiple names: UNSCRATCH, DSK UN NEW, DISK TRICKS 3

FILE INFORMATION

FILENAME(S):
• UNSCRATCH<br>• DSK&nbspUN&nbspNEW<br>• DISK&nbspTRICKS&nbsp3

FILE TYPE(S): PRG

FILE SIZE: 1.2K

FIRST SEEN: 2025-10-19 22:35:18

APPEARS ON: 4 disk(s)

FILE HASH

26d7be75c8f8c99ebf24cb9d81c8b3d112bf2f6a2db78158c3ea9a85bfecb2ee

FOUND ON DISKS (4 DISKS)

DISK TITLE FILENAME FILE TYPE COLLECTION TRACK SECTOR ACTIONS
COPY UTILITY UNSCRATCH PRG Radd Maxx 24 7 DOWNLOAD FILE
COPY UTILITY UNSCRATCH PRG Radd Maxx 24 7 DOWNLOAD FILE
GAZETTE JAN 85 DSK UN NEW PRG Radd Maxx 11 12 DOWNLOAD FILE
0132A DISK TRICKS 3 PRG Sailor, Ganheden 21 9 DOWNLOAD FILE

FILE CONTENT & ANALYSIS

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

00000000: 01 08 25 08 64 00 9E 36  35 35 31 37 3A 8B C2 28  |..%.d..65517:..(|
00000010: 37 38 31 29 B2 32 32 A7  4D 54 24 B2 22 1F 22 3A  |781).22.MT$.".":|
00000020: 89 32 39 39 39 00 31 08  6E 00 4D 54 24 B2 22 05  |.2999.1.n.MT$.".|
00000030: 22 00 5B 08 B6 0B 8F 20  45 4E 44 3A 20 52 45 4D  |".[.... END: REM|
00000040: 20 50 52 4F 47 52 41 4D  20 33 2C 20 55 4E 53 43  | PROGRAM 3, UNSC|
00000050: 52 41 54 43 48 20 46 49  4C 45 53 00 64 08 B7 0B  |RATCH FILES.d...|
00000060: 99 4D 54 24 00 9B 08 B8  0B 85 20 22 93 57 48 49  |.MT$...... ".WHI|
00000070: 43 48 20 53 45 43 54 4F  52 22 3B 53 24 3A 20 53  |CH SECTOR";S$: S|
00000080: B2 C5 28 53 24 29 3A 20  8B 20 53 B3 30 20 B0 20  |..(S$): . S.0 . |
00000090: 53 B1 31 39 20 A7 20 33  30 30 30 00 D4 08 C2 0B  |S.19 . 3000.....|
000000A0: 99 20 22 11 11 57 48 41  54 20 49 53 20 54 48 45  |. "..WHAT IS THE|
000000B0: 20 46 49 52 53 54 20 42  59 54 45 22 3A 99 22 4F  | FIRST BYTE":."O|
000000C0: 46 20 54 48 45 20 46 49  4C 45 20 59 4F 55 20 57  |F THE FILE YOU W|
000000D0: 49 53 48 22 00 E9 08 C3  0B 99 22 54 4F 20 55 4E  |ISH"......"TO UN|
000000E0: 53 43 52 41 54 43 48 3F  22 00 26 09 CC 0B 85 20  |SCRATCH?".&.... |
000000F0: 42 50 24 3A 20 42 50 B2  C5 28 42 50 24 29 3A 20  |BP$: BP..(BP$): |
00000100: 8F 20 49 4E 50 55 54 20  46 49 4C 45 20 54 41 52  |. INPUT FILE TAR|
00000110: 47 45 54 20 42 59 54 45  20 46 4F 52 20 55 4E 53  |GET BYTE FOR UNS|
00000120: 43 52 41 54 43 48 00 70  09 D6 0B 42 53 B2 28 42  |CRATCH.p...BS.(B|
00000130: 50 B2 32 29 AA 28 42 50  B2 33 34 29 AA 28 42 50  |P.2).(BP.34).(BP|
00000140: B2 36 36 29 AA 28 42 50  B2 39 38 29 AA 28 42 50  |.66).(BP.98).(BP|
00000150: B2 31 33 30 29 AA 28 42  50 B2 31 36 32 29 AA 28  |.130).(BP.162).(|
00000160: 42 50 B2 31 39 34 29 AA  28 42 50 B2 32 32 36 29  |BP.194).(BP.226)|
00000170: 00 98 09 DB 0B 8B 42 53  B3 B1 AB 31 A7 33 30 32  |......BS...1.302|
00000180: 30 3A 8F 20 52 45 4A 45  43 54 20 49 4E 56 41 4C  |0:. REJECT INVAL|
00000190: 49 44 20 49 4E 50 55 54  00 B4 09 E0 0B 99 20 22  |ID INPUT...... "|
000001A0: 11 11 53 45 4C 45 43 54  20 46 49 4C 45 20 54 59  |..SELECT FILE TY|
000001B0: 50 45 3A 22 00 CD 09 EA  0B 99 20 22 11 20 20 31  |PE:"...... ".  1|
000001C0: 2E 20 53 45 51 55 45 4E  54 49 41 4C 22 00 E2 09  |. SEQUENTIAL"...|
000001D0: F4 0B 99 20 22 20 20 32  2E 20 50 52 4F 47 52 41  |... "  2. PROGRA|
000001E0: 4D 22 00 F4 09 FE 0B 99  20 22 20 20 33 2E 20 55  |M"...... "  3. U|
000001F0: 53 45 52 22 00 0A 0A 08  0C 99 20 22 20 20 34 2E  |SER"...... "  4.|
00000200: 20 52 45 4C 41 54 49 56  45 22 00 1F 0A 12 0C 99  | RELATIVE"......|
00000210: 20 22 11 11 57 48 49 43  48 20 4F 4E 45 3F 22 00  | "..WHICH ONE?".|
00000220: 38 0A 1C 0C A1 20 41 24  3A 20 8B 20 41 24 B2 22  |8.... A$: . A$."|
00000230: 22 20 A7 20 33 31 30 30  00 71 0A 26 0C 41 B2 C5  |" . 3100.q.&.A..|
00000240: 28 41 24 29 3A 20 8B 20  41 B3 31 20 B0 20 41 B1  |(A$): . A.1 . A.|
00000250: 34 20 A7 20 33 31 30 30  3A 20 8F 20 52 45 4A 45  |4 . 3100: . REJE|
00000260: 43 54 20 49 4E 56 41 4C  49 44 20 43 48 4F 49 43  |CT INVALID CHOIC|
00000270: 45 00 A7 0A 30 0C 42 B2  41 AA 31 32 38 3A 20 8F  |E...0.B.A.128: .|
00000280: 20 53 45 54 20 49 4E 50  55 54 20 42 59 54 45 20  | SET INPUT BYTE |
00000290: 54 4F 20 4D 41 54 43 48  20 44 4F 53 20 46 49 4C  |TO MATCH DOS FIL|
000002A0: 45 20 43 4F 44 45 53 00  D9 0A 3A 0C 9F 20 31 35  |E CODES...:.. 15|
000002B0: 2C 38 2C 31 35 2C 22 49  22 3A 20 8F 20 4F 50 45  |,8,15,"I": . OPE|
000002C0: 4E 20 43 4F 4D 4D 41 4E  44 20 43 48 41 4E 4E 45  |N COMMAND CHANNE|
000002D0: 4C 20 54 4F 20 44 49 53  4B 00 0E 0B 44 0C 9F 38  |L TO DISK...D..8|
000002E0: 2C 38 2C 38 2C 22 23 22  3A 20 8F 20 4F 50 45 4E  |,8,8,"#": . OPEN|
000002F0: 20 44 49 52 45 43 54 20  41 43 43 45 53 53 20 43  | DIRECT ACCESS C|
00000300: 48 41 4E 4E 45 4C 20 54  4F 20 44 49 53 4B 00 56  |HANNEL TO DISK.V|
00000310: 0B 4E 0C 98 31 35 2C 20  22 55 31 3A 22 38 3B 30  |.N..15, "U1:"8;0|
00000320: 3B 31 38 3B 53 3A 20 8F  20 4C 4F 41 44 20 53 45  |;18;S: . LOAD SE|
00000330: 43 54 4F 52 20 43 4F 4E  54 41 49 4E 49 4E 47 20  |CTOR CONTAINING |
00000340: 46 49 4C 45 20 54 4F 20  42 45 20 55 4E 53 43 52  |FILE TO BE UNSCR|
00000350: 41 54 43 48 45 44 00 92  0B 58 0C 98 31 35 2C 20  |ATCHED...X..15, |
00000360: 22 42 2D 50 3A 22 38 3B  42 50 3A 20 8F 20 53 45  |"B-P:"8;BP: . SE|
00000370: 54 20 42 55 46 46 45 52  20 50 4F 49 4E 54 45 52  |T BUFFER POINTER|
00000380: 20 54 4F 20 54 41 52 47  45 54 20 41 44 44 52 45  | TO TARGET ADDRE|
00000390: 53 53 00 CF 0B 62 0C 98  38 2C 20 C7 28 42 29 3B  |SS...b..8, .(B);|
000003A0: 3A 20 8F 20 43 48 41 4E  47 45 20 54 41 52 47 45  |: . CHANGE TARGE|
000003B0: 54 20 46 49 4C 45 20 43  4F 44 45 20 49 4E 20 43  |T FILE CODE IN C|
000003C0: 48 41 4E 4E 45 4C 20 38  20 42 55 46 46 45 52 00  |HANNEL 8 BUFFER.|
000003D0: 12 0C 6C 0C 98 31 35 2C  20 22 55 32 3A 22 38 3B  |..l..15, "U2:"8;|
000003E0: 30 3B 31 38 3B 53 3A 20  8F 20 52 45 54 55 52 4E  |0;18;S: . RETURN|
000003F0: 20 43 48 41 4E 47 45 44  20 43 4F 4E 54 45 4E 54  | CHANGED CONTENT|
00000400: 53 20 54 4F 20 54 41 52  47 45 54 20 53 45 43 54  |S TO TARGET SECT|
00000410: 4F 52 00 39 0C 76 0C A0  20 38 3A 20 8F 20 43 4C  |OR.9.v.. 8: . CL|
00000420: 4F 53 45 20 44 49 52 45  43 54 20 41 43 43 45 53  |OSE DIRECT ACCES|
00000430: 53 20 43 48 41 4E 4E 45  4C 00 5B 0C 80 0C A0 20  |S CHANNEL.[.... |
00000440: 31 35 3A 20 8F 20 43 4C  4F 53 45 20 43 4F 4D 4D  |15: . CLOSE COMM|
00000450: 41 4E 44 20 43 48 41 4E  4E 45 4C 00 A2 0C 8A 0C  |AND CHANNEL.....|
00000460: 8F 20 47 4F 54 4F 20 31  30 30 3A 20 52 45 4D 20  |. GOTO 100: REM |
00000470: 52 45 53 54 41 52 54 20  44 49 53 50 4C 41 59 20  |RESTART DISPLAY |
00000480: 54 26 53 20 50 52 4F 47  52 41 4D 20 57 48 45 4E  |T&S PROGRAM WHEN|
00000490: 20 46 49 52 53 54 20 52  45 4D 20 52 45 4D 4F 56  | FIRST REM REMOV|
000004A0: 45 44 00 00 00                                    |ED...           |
..%.D..65517:.B(781).22.MT$.".":.2999.1.
N.MT$.".".[.... END: REM PROGRAM 3, UNSC
RATCH FILES.D....MT$...... ".WHICH SECTO
R";S$: S.E(S$): . S.0 . S.19 . 3000.T.B.
. "..WHAT IS THE FIRST BYTE":."OF THE FI
LE YOU WISH"...C.."TO UNSCRATCH?".&.L.. 
BP$: BP.E(BP$): . INPUT FILE TARGET BYTE
 FOR UNSCRATCH.P.V.BS.(BP.2).(BP.34).(BP
.66).(BP.98).(BP.130).(BP.162).(BP.194).
(BP.226)......BS...1.3020:. REJECT INVAL
ID INPUT...... "..SELECT FILE TYPE:".M..
.. ".  1. SEQUENTIAL"...... "  2. PROGRA
M"...... "  3. USER"...... "  4. RELATIV
E"...... "..WHICH ONE?".8.... A$: . A$."
" . 3100.Q.&.A.E(A$): . A.1 . A.4 . 3100
: . REJECT INVALID CHOICE...0.B.A.128: .
 SET INPUT BYTE TO MATCH DOS FILE CODES.
Y.:.. 15,8,15,"I": . OPEN COMMAND CHANNE
L TO DISK...D..8,8,8,"#": . OPEN DIRECT 
ACCESS CHANNEL TO DISK.V.N..15, "U1:"8;0
;18;S: . LOAD SECTOR CONTAINING FILE TO 
BE UNSCRATCHED...X..15, "B-P:"8;BP: . SE
T BUFFER POINTER TO TARGET ADDRESS.O.B..
8, G(B);: . CHANGE TARGET FILE CODE IN C
HANNEL 8 BUFFER...L..15, "U2:"8;0;18;S: 
. RETURN CHANGED CONTENTS TO TARGET SECT
OR.9.V.  8: . CLOSE DIRECT ACCESS CHANNE
L.[...  15: . CLOSE COMMAND CHANNEL.....
. GOTO 100: REM RESTART DISPLAY T&S PROG
RAM WHEN FIRST REM REMOVED...
C64 Preview

> CLICK IMAGE PREVIEW FOR FULL MODAL