CHOMPER/VIC

FILE INFORMATION

FILENAME(S): CHOMPER/VIC

FILE TYPE(S): DEL

FILE SIZE: 1.1K

FIRST SEEN: 2025-10-19 22:48:23

APPEARS ON: 1 disk(s)

FILE HASH

af2c8f4828657c37c7e55c79e4bf81ff509fca75cb169cd21e232a62b0268e1c

FOUND ON DISKS (1 DISKS)

DISK TITLE	FILENAME	FILE TYPE	COLLECTION	TRACK	SECTOR	ACTIONS
GAZETTE JAN 85	CHOMPER/VIC	DEL	Radd Maxx	10	9	DOWNLOAD FILE

FILE CONTENT & ANALYSIS

00000000: 52 45 4D 20 50 52 4F 47  52 41 4D 20 34 2C 20 53  |REM PROGRAM 4, S|
00000010: 43 52 41 54 43 48 20 4F  52 20 53 43 52 41 54 43  |CRATCH OR SCRATC|
00000020: 48 20 41 4E 44 20 4C 45  41 56 45 20 4F 4E 20 44  |H AND LEAVE ON D|
00000030: 49 52 45 43 54 4F 52 59  00 4D 09 A0 0F 99 22 93  |IRECTORY.M....".|
00000040: 53 45 4C 45 43 54 20 4F  50 54 49 4F 4E 3A 22 00  |SELECT OPTION:".|
00000050: 69 09 AA 0F 99 22 11 31  2E 20 43 4F 4D 50 4C 45  |i....".1. COMPLE|
00000060: 54 45 20 53 43 52 41 54  43 48 22 00 86 09 B4 0F  |TE SCRATCH".....|
00000070: 99 22 32 2E 20 53 43 52  41 54 43 48 2C 20 42 55  |."2. SCRATCH, BU|
00000080: 54 20 4C 45 41 56 45 22  00 9D 09 B5 0F 99 22 20  |T LEAVE"......" |
00000090: 20 20 4F 4E 20 44 49 52  45 43 54 4F 52 59 22 00  |  ON DIRECTORY".|
000000A0: B1 09 BE 0F 99 22 11 11  57 48 49 43 48 20 4F 4E  |....."..WHICH ON|
000000B0: 45 3F 22 00 CA 09 C8 0F  A1 20 41 24 3A 20 8B 20  |E?"...... A$: . |
000000C0: 41 24 B2 22 22 20 A7 20  34 30 34 30 00 02 0A D2  |A$."" . 4040....|
000000D0: 0F 41 B2 C5 28 41 24 29  3A 20 8B 20 41 B3 31 20  |.A..(A$): . A.1 |
000000E0: B0 20 41 B1 32 20 A7 20  34 30 34 30 3A 20 8F 20  |. A.2 . 4040: . |
000000F0: 52 45 4A 45 43 54 20 49  4E 56 41 4C 49 44 20 49  |REJECT INVALID I|
00000100: 4E 50 55 54 00 2F 0A DC  0F 8B 20 41 B2 31 20 A7  |NPUT./.... A.1 .|
00000110: 20 42 B2 30 3A 20 8F 20  53 45 54 20 54 4F 20 50  | B.0: . SET TO P|
00000120: 45 52 4D 41 4E 45 4E 54  4C 59 20 44 45 4C 45 54  |ERMANENTLY DELET|
00000130: 45 00 5E 0A E6 0F 8B 20  41 B2 32 20 A7 20 42 B2  |E.^.... A.2 . B.|
00000140: 31 32 38 3A 20 8F 20 53  45 54 20 54 4F 20 4C 45  |128: . SET TO LE|
00000150: 41 56 45 20 4F 4E 20 44  49 52 45 43 54 4F 52 59  |AVE ON DIRECTORY|
00000160: 00 95 0A F0 0F 85 22 11  11 57 48 49 43 48 20 53  |......"..WHICH S|
00000170: 45 43 54 4F 52 22 3B 53  24 3A 20 53 B2 C5 28 53  |ECTOR";S$: S..(S|
00000180: 24 29 3A 20 8B 20 53 B3  30 20 B0 20 53 B1 31 39  |$): . S.0 . S.19|
00000190: 20 A7 20 34 30 38 30 00  CE 0A FA 0F 99 20 22 11  | . 4080...... ".|
000001A0: 11 57 48 41 54 20 49 53  20 54 48 45 20 46 49 52  |.WHAT IS THE FIR|
000001B0: 53 54 20 42 59 54 45 22  3A 99 22 4F 46 20 54 48  |ST BYTE":."OF TH|
000001C0: 45 20 46 49 4C 45 20 59  4F 55 20 57 49 53 48 22  |E FILE YOU WISH"|
000001D0: 00 E2 0A FB 0F 99 20 22  54 4F 20 53 43 52 41 54  |...... "TO SCRAT|
000001E0: 43 48 3F 22 00 1D 0B 04  10 85 20 42 50 24 3A 20  |CH?"...... BP$: |
000001F0: 42 50 B2 C5 28 42 50 24  29 3A 20 8F 20 49 4E 50  |BP..(BP$): . INP|
00000200: 55 54 20 46 49 4C 45 20  54 41 52 47 45 54 20 42  |UT FILE TARGET B|
00000210: 59 54 45 20 46 4F 52 20  53 43 52 41 54 43 48 00  |YTE FOR SCRATCH.|
00000220: 67 0B 0E 10 42 53 B2 28  42 50 B2 32 29 AA 28 42  |g...BS.(BP.2).(B|
00000230: 50 B2 33 34 29 AA 28 42  50 B2 36 36 29 AA 28 42  |P.34).(BP.66).(B|
00000240: 50 B2 39 38 29 AA 28 42  50 B2 31 33 30 29 AA 28  |P.98).(BP.130).(|
00000250: 42 50 B2 31 36 32 29 AA  28 42 50 B2 31 39 34 29  |BP.162).(BP.194)|
00000260: AA 28 42 50 B2 32 32 36  29 00 8F 0B 18 10 8B 42  |.(BP.226)......B|
00000270: 53 B3 B1 AB 31 A7 34 31  30 30 3A 8F 20 52 45 4A  |S...1.4100:. REJ|
00000280: 45 43 54 20 49 4E 56 41  4C 49 44 20 49 4E 50 55  |ECT INVALID INPU|
00000290: 54 00 C1 0B 22 10 9F 20  31 35 2C 38 2C 31 35 2C  |T...".. 15,8,15,|
000002A0: 22 49 22 3A 20 8F 20 4F  50 45 4E 20 43 4F 4D 4D  |"I": . OPEN COMM|
000002B0: 41 4E 44 20 43 48 41 4E  4E 45 4C 20 54 4F 20 44  |AND CHANNEL TO D|
000002C0: 49 53 4B 00 F6 0B 2C 10  9F 38 2C 38 2C 38 2C 22  |ISK...,..8,8,8,"|
000002D0: 23 22 3A 20 8F 20 4F 50  45 4E 20 44 49 52 45 43  |#": . OPEN DIREC|
000002E0: 54 20 41 43 43 45 53 53  20 43 48 41 4E 4E 45 4C  |T ACCESS CHANNEL|
000002F0: 20 54 4F 20 44 49 53 4B  00 3C 0C 36 10 98 31 35  | TO DISK.<.6..15|
00000300: 2C 20 22 55 31 3A 22 38  3B 30 3B 31 38 3B 53 3A  |, "U1:"8;0;18;S:|
00000310: 20 8F 20 4C 4F 41 44 20  53 45 43 54 4F 52 20 43  | . LOAD SECTOR C|
00000320: 4F 4E 54 41 49 4E 49 4E  47 20 46 49 4C 45 20 54  |ONTAINING FILE T|
00000330: 4F 20 42 45 20 53 43 52  41 54 43 48 45 44 00 78  |O BE SCRATCHED.x|
00000340: 0C 40 10 98 31 35 2C 20  22 42 2D 50 3A 22 38 3B  |.@..15, "B-P:"8;|
00000350: 42 50 3A 20 8F 20 53 45  54 20 42 55 46 46 45 52  |BP: . SET BUFFER|
00000360: 20 50 4F 49 4E 54 45 52  20 54 4F 20 54 41 52 47  | POINTER TO TARG|
00000370: 45 54 20 41 44 44 52 45  53 53 00 B5 0C 4A 10 98  |ET ADDRESS...J..|
00000380: 38 2C 20 C7 28 42 29 3B  3A 20 8F 20 43 48 41 4E  |8, .(B);: . CHAN|
00000390: 47 45 20 54 41 52 47 45  54 20 46 49 4C 45 20 43  |GE TARGET FILE C|
000003A0: 4F 44 45 20 49 4E 20 43  48 41 4E 4E 45 4C 20 38  |ODE IN CHANNEL 8|
000003B0: 20 42 55 46 46 45 52 00  F6 0C 54 10 98 31 35 2C  | BUFFER...T..15,|
000003C0: 22 55 32 3A 22 38 3B 30  3B 31 38 3B 53 3A 8F 20  |"U2:"8;0;18;S:. |
000003D0: 52 45 54 55 52 4E 20 43  48 41 4E 47 45 44 20 43  |RETURN CHANGED C|
000003E0: 4F 4E 54 45 4E 54 53 20  54 4F 20 54 41 52 47 45  |ONTENTS TO TARGE|
000003F0: 54 20 53 45 43 54 4F 52  00 1D 0D 5E 10 A0 20 38  |T SECTOR...^.. 8|
00000400: 3A 20 8F 20 43 4C 4F 53  45 20 44 49 52 45 43 54  |: . CLOSE DIRECT|
00000410: 20 41 43 43 45 53 53 20  43 48 41 4E 4E 45 4C 00  | ACCESS CHANNEL.|
00000420: 3F 0D 68 10 A0 20 31 35  3A 20 8F 20 43 4C 4F 53  |?.h.. 15: . CLOS|
00000430: 45 20 43 4F 4D 4D 41 4E  44 20 43 48 41 4E 4E 45  |E COMMAND CHANNE|
00000440: 4C 00 86 0D 72 10 8F 20  47 4F 54 4F 20 31 30 30  |L...r.. GOTO 100|
00000450: 3A 20 52 45 4D 20 52 45  53 54 41 52 54 20 44 49  |: REM RESTART DI|
00000460: 53 50 4C 41 59 20 54 26  53 20 50 52 4F 47 52 41  |SPLAY T&S PROGRA|
00000470: 4D 20 57 48 45 4E 20 46  49 52 53 54 20 52 45 4D  |M WHEN FIRST REM|
00000480: 20 52 45 4D 4F 56 45 44  00 00 00                 | REMOVED...     |

REM PROGRAM 4, SCRATCH OR SCRATCH AND LE
AVE ON DIRECTORY.M. ..".SELECT OPTION:".
I....".1. COMPLETE SCRATCH"......"2. SCR
ATCH, 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 DIRECTORY......".
.WHICH SECTOR";S$: S.E(S$): . S.0 . S.19
 . 4080.N.... "..WHAT IS THE FIRST BYTE"
:."OF THE FILE YOU WISH"...... "TO SCRAT
CH?"...... BP$: BP.E(BP$): . INPUT FILE 
TARGET BYTE FOR SCRATCH.G...BS.(BP.2).(B
P.34).(BP.66).(BP.98).(BP.130).(BP.162).
(BP.194).(BP.226)......BS...1.4100:. REJ
ECT INVALID INPUT.A.".. 15,8,15,"I": . O
PEN COMMAND CHANNEL TO DISK...,..8,8,8,"
#": . OPEN DIRECT ACCESS CHANNEL TO DISK
.<.6..15, "U1:"8;0;18;S: . LOAD SECTOR C
ONTAINING FILE TO BE SCRATCHED.X.@..15, 
"B-P:"8;BP: . SET BUFFER POINTER TO TARG
ET ADDRESS...J..8, G(B);: . CHANGE TARGE
T FILE CODE IN CHANNEL 8 BUFFER...T..15,
"U2:"8;0;18;S:. RETURN CHANGED CONTENTS 
TO TARGET SECTOR...^.  8: . CLOSE DIRECT
 ACCESS CHANNEL.?.H.  15: . CLOSE COMMAN
D CHANNEL...R.. GOTO 100: REM RESTART DI
SPLAY T&S PROGRAM WHEN FIRST REM REMOVED
...

Visualization:

Width: Skip load address (+2) Invert

> CLICK IMAGE PREVIEW FOR FULL MODAL