> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 2B 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: 54 4D 24 B2 22 22 3A 89 35 30 30 00 3F 08 6E 00 |TM$."":.500.?.n.|
00000030: 4D 54 24 B2 22 05 22 3A 54 4D 24 B2 22 11 22 00 |MT$.".":TM$.".".|
00000040: 74 08 F4 01 99 22 93 11 11 11 22 4D 54 24 22 20 |t...."...."MT$" |
00000050: 20 20 20 20 12 57 41 52 4E 49 4E 47 22 3A 99 22 | .WARNING":."|
00000060: 11 20 54 48 49 53 20 50 52 4F 47 52 41 4D 20 57 |. THIS PROGRAM W|
00000070: 49 4C 4C 22 00 A5 08 F5 01 99 22 11 20 12 53 43 |ILL"......". .SC|
00000080: 52 41 54 43 48 92 20 41 20 46 49 4C 45 2E 22 3A |RATCH. A FILE.":|
00000090: 99 22 11 20 50 4C 45 41 53 45 20 4D 41 4B 45 20 |.". PLEASE MAKE |
000000A0: 53 55 52 45 22 00 E2 08 F6 01 99 22 11 20 54 48 |SURE"......". TH|
000000B0: 41 54 20 54 48 45 20 12 47 41 5A 45 54 54 45 20 |AT THE .GAZETTE |
000000C0: 44 49 53 4B 92 22 3A 99 54 4D 24 22 20 49 53 20 |DISK.":.TM$" IS |
000000D0: 4E 4F 54 20 49 4E 20 54 48 45 20 44 52 49 56 45 |NOT IN THE DRIVE|
000000E0: 2E 22 00 F2 08 E8 03 81 49 B2 31 A4 37 30 30 30 |."......I.1.7000|
000000F0: 3A 82 00 36 09 9F 0F 8F 20 45 4E 44 3A 20 52 45 |:..6.... END: RE|
00000100: 4D 20 50 52 4F 47 52 41 4D 20 34 2C 20 53 43 52 |M PROGRAM 4, SCR|
00000110: 41 54 43 48 20 4F 52 20 53 43 52 41 54 43 48 20 |ATCH OR SCRATCH |
00000120: 41 4E 44 20 4C 45 41 56 45 20 4F 4E 20 44 49 52 |AND LEAVE ON DIR|
00000130: 45 43 54 4F 52 59 00 4D 09 A0 0F 99 22 93 53 45 |ECTORY.M....".SE|
00000140: 4C 45 43 54 20 4F 50 54 49 4F 4E 3A 22 00 69 09 |LECT OPTION:".i.|
00000150: AA 0F 99 22 11 31 2E 20 43 4F 4D 50 4C 45 54 45 |...".1. COMPLETE|
00000160: 20 53 43 52 41 54 43 48 22 00 86 09 B4 0F 99 22 | SCRATCH"......"|
00000170: 32 2E 20 53 43 52 41 54 43 48 2C 20 42 55 54 20 |2. SCRATCH, BUT |
00000180: 4C 45 41 56 45 22 00 9D 09 B5 0F 99 22 20 20 20 |LEAVE"......" |
00000190: 4F 4E 20 44 49 52 45 43 54 4F 52 59 22 00 B1 09 |ON DIRECTORY"...|
000001A0: BE 0F 99 22 11 11 57 48 49 43 48 20 4F 4E 45 3F |..."..WHICH ONE?|
000001B0: 22 00 CA 09 C8 0F A1 20 41 24 3A 20 8B 20 41 24 |"...... A$: . A$|
000001C0: B2 22 22 20 A7 20 34 30 34 30 00 02 0A D2 0F 41 |."" . 4040.....A|
000001D0: B2 C5 28 41 24 29 3A 20 8B 20 41 B3 31 20 B0 20 |..(A$): . A.1 . |
000001E0: 41 B1 32 20 A7 20 34 30 34 30 3A 20 8F 20 52 45 |A.2 . 4040: . RE|
000001F0: 4A 45 43 54 20 49 4E 56 41 4C 49 44 20 49 4E 50 |JECT INVALID INP|
00000200: 55 54 00 2F 0A DC 0F 8B 20 41 B2 31 20 A7 20 42 |UT./.... A.1 . B|
00000210: B2 30 3A 20 8F 20 53 45 54 20 54 4F 20 50 45 52 |.0: . SET TO PER|
00000220: 4D 41 4E 45 4E 54 4C 59 20 44 45 4C 45 54 45 00 |MANENTLY DELETE.|
00000230: 5E 0A E6 0F 8B 20 41 B2 32 20 A7 20 42 B2 31 32 |^.... A.2 . B.12|
00000240: 38 3A 20 8F 20 53 45 54 20 54 4F 20 4C 45 41 56 |8: . SET TO LEAV|
00000250: 45 20 4F 4E 20 44 49 52 45 43 54 4F 52 59 00 95 |E ON DIRECTORY..|
00000260: 0A F0 0F 85 22 11 11 57 48 49 43 48 20 53 45 43 |...."..WHICH SEC|
00000270: 54 4F 52 22 3B 53 24 3A 20 53 B2 C5 28 53 24 29 |TOR";S$: S..(S$)|
00000280: 3A 20 8B 20 53 B3 30 20 B0 20 53 B1 31 39 20 A7 |: . S.0 . S.19 .|
00000290: 20 34 30 38 30 00 CE 0A FA 0F 99 20 22 11 11 57 | 4080...... "..W|
000002A0: 48 41 54 20 49 53 20 54 48 45 20 46 49 52 53 54 |HAT IS THE FIRST|
000002B0: 20 42 59 54 45 22 3A 99 22 4F 46 20 54 48 45 20 | BYTE":."OF THE |
000002C0: 46 49 4C 45 20 59 4F 55 20 57 49 53 48 22 00 E2 |FILE YOU WISH"..|
000002D0: 0A FB 0F 99 20 22 54 4F 20 53 43 52 41 54 43 48 |.... "TO SCRATCH|
000002E0: 3F 22 00 1D 0B 04 10 85 20 42 50 24 3A 20 42 50 |?"...... BP$: BP|
000002F0: B2 C5 28 42 50 24 29 3A 20 8F 20 49 4E 50 55 54 |..(BP$): . INPUT|
00000300: 20 46 49 4C 45 20 54 41 52 47 45 54 20 42 59 54 | FILE TARGET BYT|
00000310: 45 20 46 4F 52 20 53 43 52 41 54 43 48 00 67 0B |E FOR SCRATCH.g.|
00000320: 0E 10 42 53 B2 28 42 50 B2 32 29 AA 28 42 50 B2 |..BS.(BP.2).(BP.|
00000330: 33 34 29 AA 28 42 50 B2 36 36 29 AA 28 42 50 B2 |34).(BP.66).(BP.|
00000340: 39 38 29 AA 28 42 50 B2 31 33 30 29 AA 28 42 50 |98).(BP.130).(BP|
00000350: B2 31 36 32 29 AA 28 42 50 B2 31 39 34 29 AA 28 |.162).(BP.194).(|
00000360: 42 50 B2 32 32 36 29 00 8F 0B 18 10 8B 42 53 B3 |BP.226)......BS.|
00000370: B1 AB 31 A7 34 31 30 30 3A 8F 20 52 45 4A 45 43 |..1.4100:. REJEC|
00000380: 54 20 49 4E 56 41 4C 49 44 20 49 4E 50 55 54 00 |T INVALID INPUT.|
00000390: C1 0B 22 10 9F 20 31 35 2C 38 2C 31 35 2C 22 49 |..".. 15,8,15,"I|
000003A0: 22 3A 20 8F 20 4F 50 45 4E 20 43 4F 4D 4D 41 4E |": . OPEN COMMAN|
000003B0: 44 20 43 48 41 4E 4E 45 4C 20 54 4F 20 44 49 53 |D CHANNEL TO DIS|
000003C0: 4B 00 F6 0B 2C 10 9F 38 2C 38 2C 38 2C 22 23 22 |K...,..8,8,8,"#"|
000003D0: 3A 20 8F 20 4F 50 45 4E 20 44 49 52 45 43 54 20 |: . OPEN DIRECT |
000003E0: 41 43 43 45 53 53 20 43 48 41 4E 4E 45 4C 20 54 |ACCESS CHANNEL T|
000003F0: 4F 20 44 49 53 4B 00 3C 0C 36 10 98 31 35 2C 20 |O DISK.<.6..15, |
00000400: 22 55 31 3A 22 38 3B 30 3B 31 38 3B 53 3A 20 8F |"U1:"8;0;18;S: .|
00000410: 20 4C 4F 41 44 20 53 45 43 54 4F 52 20 43 4F 4E | LOAD SECTOR CON|
00000420: 54 41 49 4E 49 4E 47 20 46 49 4C 45 20 54 4F 20 |TAINING FILE TO |
00000430: 42 45 20 53 43 52 41 54 43 48 45 44 00 78 0C 40 |BE SCRATCHED.x.@|
00000440: 10 98 31 35 2C 20 22 42 2D 50 3A 22 38 3B 42 50 |..15, "B-P:"8;BP|
00000450: 3A 20 8F 20 53 45 54 20 42 55 46 46 45 52 20 50 |: . SET BUFFER P|
00000460: 4F 49 4E 54 45 52 20 54 4F 20 54 41 52 47 45 54 |OINTER TO TARGET|
00000470: 20 41 44 44 52 45 53 53 00 B5 0C 4A 10 98 38 2C | ADDRESS...J..8,|
00000480: 20 C7 28 42 29 3B 3A 20 8F 20 43 48 41 4E 47 45 | .(B);: . CHANGE|
00000490: 20 54 41 52 47 45 54 20 46 49 4C 45 20 43 4F 44 | TARGET FILE COD|
000004A0: 45 20 49 4E 20 43 48 41 4E 4E 45 4C 20 38 20 42 |E IN CHANNEL 8 B|
000004B0: 55 46 46 45 52 00 F6 0C 54 10 98 31 35 2C 22 55 |UFFER...T..15,"U|
000004C0: 32 3A 22 38 3B 30 3B 31 38 3B 53 3A 8F 20 52 45 |2:"8;0;18;S:. RE|
000004D0: 54 55 52 4E 20 43 48 41 4E 47 45 44 20 43 4F 4E |TURN CHANGED CON|
000004E0: 54 45 4E 54 53 20 54 4F 20 54 41 52 47 45 54 20 |TENTS TO TARGET |
000004F0: 53 45 43 54 4F 52 00 1D 0D 5E 10 A0 20 38 3A 20 |SECTOR...^.. 8: |
00000500: 8F 20 43 4C 4F 53 45 20 44 49 52 45 43 54 20 41 |. CLOSE DIRECT A|
00000510: 43 43 45 53 53 20 43 48 41 4E 4E 45 4C 00 3F 0D |CCESS CHANNEL.?.|
00000520: 68 10 A0 20 31 35 3A 20 8F 20 43 4C 4F 53 45 20 |h.. 15: . CLOSE |
00000530: 43 4F 4D 4D 41 4E 44 20 43 48 41 4E 4E 45 4C 00 |COMMAND CHANNEL.|
00000540: 86 0D 72 10 8F 20 47 4F 54 4F 20 31 30 30 3A 20 |..r.. GOTO 100: |
00000550: 52 45 4D 20 52 45 53 54 41 52 54 20 44 49 53 50 |REM RESTART DISP|
00000560: 4C 41 59 20 54 26 53 20 50 52 4F 47 52 41 4D 20 |LAY T&S PROGRAM |
00000570: 57 48 45 4E 20 46 49 52 53 54 20 52 45 4D 20 52 |WHEN FIRST REM R|
00000580: 45 4D 4F 56 45 44 00 00 00 |EMOVED... |
..+.D..65517:.B(781).22.MT$.".":TM$."":.
500.?.N.MT$.".":TM$.".".T...."...."MT$"
.WARNING":.". THIS PROGRAM WILL"....
..". .SCRATCH. A FILE.":.". PLEASE MAKE
SURE"......". THAT THE .GAZETTE DISK.":.
TM$" IS NOT IN THE DRIVE."......I.1.7000
:..6.... END: REM PROGRAM 4, SCRATCH OR
SCRATCH AND LEAVE ON DIRECTORY.M. ..".SE
LECT OPTION:".I....".1. COMPLETE SCRATCH
"......"2. SCRATCH, BUT LEAVE"......"
ON DIRECTORY"......"..WHICH ONE?".J.H..
A$: . A$."" . 4040...R.A.E(A$): . A.1 .
A.2 . 4040: . REJECT INVALID INPUT./....
A.1 . B.0: . SET TO PERMANENTLY DELETE.
^.... A.2 . B.128: . SET TO LEAVE ON DIR
ECTORY......"..WHICH SECTOR";S$: S.E(S$)
: . S.0 . S.19 . 4080.N.... "..WHAT IS T
HE FIRST BYTE":."OF THE FILE YOU WISH"..
.... "TO SCRATCH?"...... BP$: BP.E(BP$):
. INPUT FILE TARGET BYTE FOR SCRATCH.G.
..BS.(BP.2).(BP.34).(BP.66).(BP.98).(BP.
130).(BP.162).(BP.194).(BP.226)......BS.
..1.4100:. REJECT INVALID INPUT.A.".. 15
,8,15,"I": . OPEN COMMAND CHANNEL TO DIS
K...,..8,8,8,"#": . OPEN DIRECT ACCESS C
HANNEL TO DISK.<.6..15, "U1:"8;0;18;S: .
LOAD SECTOR CONTAINING FILE TO BE SCRAT
CHED.X.@..15, "B-P:"8;BP: . SET BUFFER P
OINTER TO TARGET ADDRESS...J..8, G(B);:
. CHANGE TARGET FILE CODE IN CHANNEL 8 B
UFFER...T..15,"U2:"8;0;18;S:. RETURN CHA
NGED CONTENTS TO TARGET SECTOR...^. 8:
. CLOSE DIRECT ACCESS CHANNEL.?.H. 15:
. CLOSE COMMAND CHANNEL...R.. GOTO 100:
REM RESTART DISPLAY T&S PROGRAM WHEN FIR
ST REM REMOVED...
×
C64 Image
> CLICK IMAGE PREVIEW FOR FULL MODAL