> 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 Image
> CLICK IMAGE PREVIEW FOR FULL MODAL