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

SHOTGUN

FILE INFORMATION

FILENAME(S): SHOTGUN

FILE TYPE(S): PRG

FILE SIZE: 1.3K

FIRST SEEN: 2025-11-30 16:59:33

APPEARS ON: 2 disk(s)

FILE HASH

c026a25148b4bd67e97087e1b7af2f6dbdd75d5cde00fe420a4e9f050c8930b2

FOUND ON DISKS (2 DISKS)

DISK TITLE FILENAME FILE TYPE COLLECTION TRACK SECTOR ACTIONS
UTILITIES SHOTGUN PRG High Voltage Complete C64 Collection 31 13 DOWNLOAD FILE
UTILITIES SHOTGUN PRG High Voltage Complete C64 Collection 31 13 DOWNLOAD FILE

FILE CONTENT & ANALYSIS

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

00000000: 01 08 1B 08 00 00 8B 53  47 B3 B1 31 A7 53 47 B2  |.......SG..1.SG.|
00000010: 31 3A 93 22 45 58 22 2C  38 2C 31 00 48 08 01 00  |1:."EX",8,1.H...|
00000020: 99 C7 28 31 33 29 22 54  48 49 53 20 50 52 4F 47  |..(13)"THIS PROG|
00000030: 52 41 4D 20 43 52 45 41  54 45 53 20 41 4E 20 41  |RAM CREATES AN A|
00000040: 55 54 4F 2D 4D 45 4E 55  00 62 08 02 00 99 22 20  |UTO-MENU.b...." |
00000050: 20 46 4F 52 20 41 20 47  49 56 45 4E 20 44 49 53  | FOR A GIVEN DIS|
00000060: 4B 11 00 84 08 03 00 99  22 53 59 53 35 31 32 30  |K......."SYS5120|
00000070: 30 20 45 4E 41 42 4C 45  53 20 59 4F 55 52 20 4D  |0 ENABLES YOUR M|
00000080: 45 4E 55 3A 00 A8 08 04  00 99 22 20 53 48 49 46  |ENU:......" SHIF|
00000090: 54 2F 52 45 53 54 4F 52  45 20 42 52 45 41 4B 53  |T/RESTORE BREAKS|
000000A0: 20 54 4F 20 4D 45 4E 55  00 D6 08 05 00 99 22 20  | TO MENU......" |
000000B0: 53 50 41 43 45 2F 52 45  53 54 4F 52 45 20 52 45  |SPACE/RESTORE RE|
000000C0: 52 55 4E 53 20 57 49 54  48 4F 55 52 20 52 45 4C  |RUNS WITHOUR REL|
000000D0: 4F 41 44 49 4E 47 00 F7  08 06 00 99 22 20 52 55  |OADING......" RU|
000000E0: 4E 2D 53 54 4F 50 2F 52  45 53 54 4F 52 45 20 44  |N-STOP/RESTORE D|
000000F0: 49 53 41 42 4C 45 53 00  23 09 07 00 99 22 20 43  |ISABLES.#...." C|
00000100: 4F 4D 4D 4F 44 4F 52 45  2F 52 45 53 54 4F 52 45  |OMMODORE/RESTORE|
00000110: 20 44 4F 45 53 20 4E 4F  4E 2D 44 49 53 41 42 4C  | DOES NON-DISABL|
00000120: 49 4E 47 00 38 09 08 00  99 22 20 20 20 57 41 52  |ING.8...."   WAR|
00000130: 4D 20 53 54 41 52 54 11  00 55 09 09 00 99 22 49  |M START..U...."I|
00000140: 4E 53 45 52 54 20 41 20  44 49 53 4B 20 43 4F 4E  |NSERT A DISK CON|
00000150: 54 41 49 4E 47 00 71 09  0A 00 99 22 20 20 42 41  |TAING.q...."  BA|
00000160: 53 49 43 20 50 52 4F 47  52 41 4D 20 46 49 4C 45  |SIC PROGRAM FILE|
00000170: 53 00 8B 09 0B 00 99 22  20 20 54 48 45 4E 20 50  |S......"  THEN P|
00000180: 52 45 53 53 20 41 20 4B  45 59 11 00 9D 09 0C 00  |RESS A KEY......|
00000190: 97 31 39 38 2C 30 3A 92  31 39 38 2C 31 00 AF 09  |.198,0:.198,1...|
000001A0: 0D 00 50 4E B2 31 3A 50  54 B2 35 31 37 36 39 00  |..PN.1:PT.51769.|
000001B0: BF 09 0E 00 9F 31 2C 38  2C 30 2C 22 24 30 22 00  |.....1,8,0,"$0".|
000001C0: C8 09 0F 00 46 4C B2 31  00 E2 09 10 00 46 24 B2  |....FL.1.....F$.|
000001D0: 22 22 3A A1 23 31 2C 42  24 2C 42 24 2C 42 24 2C  |"":.#1,B$,B$,B$,|
000001E0: 42 24 00 F7 09 11 00 A1  23 31 2C 42 24 3A 8B 53  |B$......#1,B$:.S|
000001F0: 54 B3 B1 30 A7 33 39 00  09 0A 12 00 8B 42 24 B3  |T..0.39......B$.|
00000200: B1 C7 28 33 34 29 A7 31  37 00 2C 0A 13 00 A1 23  |..(34).17.,....#|
00000210: 31 2C 42 24 3A 8B 42 24  B3 B1 C7 28 33 34 29 A7  |1,B$:.B$...(34).|
00000220: 46 24 B2 46 24 AA 42 24  3A 89 31 39 00 44 0A 14  |F$.F$.B$:.19.D..|
00000230: 00 A1 23 31 2C 42 24 3A  8B 42 24 B2 C7 28 33 32  |..#1,B$:.B$..(32|
00000240: 29 A7 32 30 00 5A 0A 15  00 A1 23 31 2C 42 24 3A  |).20.Z....#1,B$:|
00000250: 8B 42 24 B3 B1 22 22 A7  32 31 00 68 0A 16 00 8B  |.B$.."".21.h....|
00000260: 53 54 B3 B1 30 A7 33 39  00 75 0A 17 00 8B 46 4C  |ST..0.39.u....FL|
00000270: B2 30 A7 33 30 00 A4 0A  18 00 46 4C B2 30 3A 44  |.0.30.....FL.0:D|
00000280: 4E 24 28 44 4E 29 B2 46  24 3A 99 22 44 49 53 4B  |N$(DN).F$:."DISK|
00000290: 20 4E 41 4D 45 3A 20 22  44 4E 24 28 44 4E 29 C7  | NAME: "DN$(DN).|
000002A0: 28 31 33 29 00 CA 0A 19  00 99 22 49 4E 44 49 43  |(13)......"INDIC|
000002B0: 41 54 45 20 57 48 45 54  48 45 52 20 41 20 46 49  |ATE WHETHER A FI|
000002C0: 4C 45 20 53 48 4F 55 4C  44 22 00 F0 0A 1A 00 99  |LE SHOULD"......|
000002D0: 22 20 20 42 45 20 49 4E  43 4C 55 44 45 44 20 49  |"  BE INCLUDED I|
000002E0: 4E 20 54 48 45 20 41 55  54 4F 2D 4D 45 4E 55 22  |N THE AUTO-MENU"|
000002F0: 00 0C 0B 1B 00 99 22 20  20 42 59 20 50 52 45 53  |......"  BY PRES|
00000300: 53 49 4E 47 20 59 20 4F  52 20 4E 22 00 30 0B 1C  |SING Y OR N".0..|
00000310: 00 99 22 20 20 43 41 50  41 43 49 54 59 20 49 53  |.."  CAPACITY IS|
00000320: 20 32 36 20 46 49 4C 45  53 21 22 C7 28 31 33 29  | 26 FILES!".(13)|
00000330: 00 38 0B 1D 00 89 31 36  00 41 0B 1E 00 99 46 24  |.8....16.A....F$|
00000340: 3B 00 62 0B 1F 00 97 31  39 38 2C 30 3A 92 31 39  |;.b....198,0:.19|
00000350: 38 2C 31 3A A1 41 24 3A  8B 41 24 B2 22 59 22 A7  |8,1:.A$:.A$."Y".|
00000360: 33 34 00 95 0B 20 00 8B  41 24 B2 22 4E 22 A7 97  |34... ..A$."N"..|
00000370: 32 31 31 2C 30 3A 99 22  20 20 20 20 20 20 20 20  |211,0:."        |
00000380: 20 20 20 20 20 20 20 20  22 3B 3A 97 32 31 31 2C  |        ";:.211,|
00000390: 30 3A 89 31 36 00 9D 0B  21 00 89 33 31 00 A3 0B  |0:.16...!..31...|
000003A0: 22 00 99 00 C3 0B 23 00  8B C3 28 46 24 29 B3 B1  |".....#...(F$)..|
000003B0: 31 36 A7 46 24 B2 46 24  AA C7 28 31 36 30 29 3A  |16.F$.F$..(160):|
000003C0: 89 33 35 00 EA 0B 24 00  81 41 B2 31 A4 31 36 3A  |.35...$..A.1.16:|
000003D0: 97 50 54 2C C6 28 CA 28  46 24 2C 41 2C 31 29 29  |.PT,.(.(F$,A,1))|
000003E0: 3A 50 54 B2 50 54 AA 31  3A 82 00 00 0C 25 00 50  |:PT.PT.1:....%.P|
000003F0: 4E B2 50 4E AA 31 3A 8B  50 4E B1 32 37 A7 34 36  |N.PN.1:.PN.27.46|
00000400: 00 08 0C 26 00 89 31 36  00 21 0C 27 00 A0 31 3A  |...&..16.!.'..1:|
00000410: 97 35 31 37 36 38 2C 50  4E 3A 50 54 B2 50 54 AA  |.51768,PN:PT.PT.|
00000420: 31 00 53 0C 28 00 99 3A  85 22 41 55 54 4F 20 4D  |1.S.(..:."AUTO M|
00000430: 45 4E 55 20 46 49 4C 45  4E 41 4D 45 20 20 53 48  |ENU FILENAME  SH|
00000440: 4F 54 47 55 4E 9D 9D 9D  9D 9D 9D 9D 9D 9D 22 3B  |OTGUN.........";|
00000450: 50 47 24 00 69 0C 29 00  9F 38 2C 38 2C 38 2C 50  |PG$.i.)..8,8,8,P|
00000460: 47 24 AA 22 2C 50 2C 57  22 00 81 0C 2A 00 98 38  |G$.",P,W"...*..8|
00000470: 2C C7 28 30 29 3B 3A 98  38 2C C7 28 32 30 30 29  |,.(0);:.8,.(200)|
00000480: 3B 00 9F 0C 2B 00 81 41  B2 35 31 32 30 30 A4 50  |;...+..A.51200.P|
00000490: 54 3A 98 38 2C C7 28 C2  28 41 29 29 3B 3A 82 00  |T:.8,.(.(A));:..|
000004A0: C1 0C 2C 00 A0 38 3A 99  22 93 54 4F 20 55 53 45  |..,..8:.".TO USE|
000004B0: 3A 20 4C 4F 41 44 20 22  50 47 24 22 2C 38 2C 31  |: LOAD "PG$",8,1|
000004C0: 22 00 F5 0C 2D 00 99 22  4E 45 57 22 3A 99 22 53  |"...-.."NEW":."S|
000004D0: 59 53 35 31 32 30 30 22  3A 99 22 41 4E 44 20 50  |YS51200":."AND P|
000004E0: 52 45 53 53 20 53 48 49  46 54 2F 52 45 53 54 4F  |RESS SHIFT/RESTO|
000004F0: 52 45 22 3A 80 00 29 0D  2E 00 99 22 4D 45 4E 55  |RE":..)...."MENU|
00000500: 20 43 41 50 41 43 49 54  59 20 45 58 43 45 45 44  | CAPACITY EXCEED|
00000510: 45 44 21 20 20 54 52 59  20 41 47 41 49 4E 2E 2E  |ED!  TRY AGAIN..|
00000520: 2E 22 3A A0 31 3A 89 31  33 00 57 0D 37 00 99 22  |.":.1:.13.W.7.."|
00000530: 20 53 50 41 43 45 2F 52  45 53 54 4F 52 45 20 52  | SPACE/RESTORE R|
00000540: 45 52 55 4E 53 20 57 49  54 48 4F 55 54 20 52 45  |ERUNS WITHOUT RE|
00000550: 4C 4F 41 44 49 4E 47 00  00 00                    |LOADING...      |

.......SG..1.SG.1:."EX",8,1.H....G(13)"T
HIS PROGRAM CREATES AN AUTO-MENU.B...." 
 FOR A GIVEN DISK......."SYS51200 ENABLE
S YOUR MENU:......" SHIFT/RESTORE BREAKS
 TO MENU.V...." SPACE/RESTORE RERUNS WIT
HOUR RELOADING......" RUN-STOP/RESTORE D
ISABLES.#...." COMMODORE/RESTORE DOES NO
N-DISABLING.8...."   WARM START..U...."I
NSERT A DISK CONTAING.Q...."  BASIC PROG
RAM FILES......"  THEN PRESS A KEY......
.198,0:.198,1.....PN.1:PT.51769......1,8
,0,"$0".H...FL.1.....F$."":.#1,B$,B$,B$,
B$......#1,B$:.ST..0.39......B$..G(34).1
7.,....#1,B$:.B$..G(34).F$.F$.B$:.19.D..
..#1,B$:.B$.G(32).20.Z....#1,B$:.B$.."".
21.H....ST..0.39.U....FL.0.30.....FL.0:D
N$(DN).F$:."DISK NAME: "DN$(DN)G(13).J..
.."INDICATE WHETHER A FILE SHOULD"......
"  BE INCLUDED IN THE AUTO-MENU"......" 
 BY PRESSING Y OR N".0...."  CAPACITY IS
 26 FILES!"G(13).8....16.A....F$;.B....1
98,0:.198,1:.A$:.A$."Y".34... ..A$."N"..
211,0:."                ";:.211,0:.16...
!..31..."...C.#..C(F$)..16.F$.F$.G(160):
.35...$..A.1.16:.PT,F(J(F$,A,1)):PT.PT.1
:....%.PN.PN.1:.PN.27.46...&..16.!.'. 1:
.51768,PN:PT.PT.1.S.(..:."AUTO MENU FILE
NAME  SHOTGUN.........";PG$.I.)..8,8,8,P
G$.",P,W"...*..8,G(0);:.8,G(200);...+..A
.51200.PT:.8,G(B(A));:..A.,. 8:.".TO USE
: LOAD "PG$",8,1"...-.."NEW":."SYS51200"
:."AND PRESS SHIFT/RESTORE":..)...."MENU
 CAPACITY EXCEEDED!  TRY AGAIN...": 1:.1
3.W.7.." SPACE/RESTORE RERUNS WITHOUT RE
LOADING...
C64 Preview

> CLICK IMAGE PREVIEW FOR FULL MODAL