> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 4A 08 01 00 8F 3A 2A 2A 2A 20 50 52 4F 47 |..J....:*** PROG|
00000010: 46 52 4F 47 20 2D 20 42 59 20 52 4F 42 49 4E 20 |FROG - BY ROBIN |
00000020: 45 56 41 4E 53 20 2A 2A 2A 20 20 20 20 20 54 4F |EVANS *** TO|
00000030: 20 53 41 56 45 20 50 52 4F 47 52 41 4D 2C 20 54 | SAVE PROGRAM, T|
00000040: 59 50 45 27 52 55 4E 20 33 27 00 6C 08 02 00 42 |YPE'RUN 3'.l...B|
00000050: B2 35 33 32 38 30 3A 97 42 2C 30 3A 97 42 AA 31 |.53280:.B,0:.B.1|
00000060: 2C 30 3A 97 36 34 36 2C 31 35 3A 80 00 AB 08 03 |,0:.646,15:.....|
00000070: 00 99 C7 28 31 34 37 29 3A 5A B2 30 3A 85 22 46 |...(147):Z.0:."F|
00000080: 49 4C 45 4E 41 4D 45 22 3B 4E 24 3A 85 22 46 49 |ILENAME";N$:."FI|
00000090: 52 53 54 20 4C 49 4E 45 20 4F 46 20 4D 41 49 4E |RST LINE OF MAIN|
000000A0: 20 50 52 4F 47 52 41 4D 22 3B 4C 00 E9 08 04 00 | PROGRAM";L.....|
000000B0: 5A B2 5A AA 31 3A 99 22 11 11 33 20 50 52 49 4E |Z.Z.1:."..3 PRIN|
000000C0: 54 43 48 52 24 28 31 34 37 29 3A 5A 3D 22 5A 22 |TCHR$(147):Z="Z"|
000000D0: 3A 4C 3D 22 4C 22 3A 4E 24 3D 22 C7 28 33 34 29 |:L="L":N$=".(34)|
000000E0: 20 4E 24 20 C7 28 33 34 29 00 23 09 05 00 99 22 | N$ .(34).#...."|
000000F0: 31 20 47 4F 54 4F 22 4C 22 3A 52 45 4D 20 22 4E |1 GOTO"L":REM "N|
00000100: 24 22 2C 20 56 45 52 53 49 4F 4E 22 5A 3A 99 22 |$", VERSION"Z:."|
00000110: 4E 24 3D 22 C7 28 33 34 29 20 4E 24 20 C7 28 33 |N$=".(34) N$ .(3|
00000120: 34 29 3B 00 5D 09 06 00 99 22 3A 5A 3D 22 5A 22 |4);.]....":Z="Z"|
00000130: 3A 47 4F 54 4F 20 37 22 C7 28 31 39 29 3A 81 20 |:GOTO 7".(19):. |
00000140: 49 B2 36 33 31 A4 36 33 35 3A 20 97 20 49 2C 31 |I.631.635: . I,1|
00000150: 33 3A 82 3A 97 20 31 39 38 2C 35 3A 80 00 9C 09 |3:.:. 198,5:....|
00000160: 07 00 9F 20 31 35 2C 38 2C 31 35 2C 22 49 30 22 |... 15,8,15,"I0"|
00000170: 3A 8B 28 28 5A AF 31 35 29 B0 38 29 B3 B1 38 A7 |:.((Z.15).8)..8.|
00000180: 99 22 11 52 45 4E 41 4D 49 4E 47 20 4F 4C 44 20 |.".RENAMING OLD |
00000190: 56 45 52 53 49 4F 4E 22 3B 3A 89 39 00 D2 09 08 |VERSION";:.9....|
000001A0: 00 56 B2 30 3A 97 31 39 38 2C 30 3A 85 22 11 56 |.V.0:.198,0:.".V|
000001B0: 41 4C 49 44 41 54 45 20 44 49 53 4B 20 20 59 9D |ALIDATE DISK Y.|
000001C0: 9D 9D 22 3B 5A 24 3A 8B 5A 24 B2 22 59 22 A7 56 |..";Z$:.Z$."Y".V|
000001D0: B2 31 00 10 0A 09 00 98 31 35 2C 22 53 30 3A 22 |.1......15,"S0:"|
000001E0: AA 4E 24 AA 22 2E 4F 4C 44 22 3A 98 31 35 2C 22 |.N$.".OLD":.15,"|
000001F0: 52 30 3A 22 AA 4E 24 AA 22 2E 4F 4C 44 3D 30 3A |R0:".N$.".OLD=0:|
00000200: 22 AA 4E 24 3A 8B 56 A7 98 31 35 2C 22 56 30 22 |".N$:.V..15,"V0"|
00000210: 00 45 0A 0A 00 84 31 35 2C 45 2C 45 24 3A 99 22 |.E....15,E,E$:."|
00000220: 20 22 45 24 3A 94 22 30 3A 22 AA 4E 24 2C 38 3A | "E$:."0:".N$,8:|
00000230: 84 31 35 2C 45 2C 45 24 3A 99 22 20 22 45 24 3A |.15,E,E$:." "E$:|
00000240: A0 31 35 3A 80 00 00 00 |.15:.... |
..J....:*** PROGFROG - BY ROBIN EVANS **
* TO SAVE PROGRAM, TYPE'RUN 3'.L...B
.53280:.B,0:.B.1,0:.646,15:.......G(147)
:Z.0:."FILENAME";N$:."FIRST LINE OF MAIN
PROGRAM";L.....Z.Z.1:."..3 PRINTCHR$(14
7):Z="Z":L="L":N$="G(34) N$ G(34).#...."
1 GOTO"L":REM "N$", VERSION"Z:."N$="G(34
) N$ G(34);.]....":Z="Z":GOTO 7"G(19):.
I.631.635: . I,13:.:. 198,5:....... 15,8
,15,"I0":.((Z.15).8)..8..".RENAMING OLD
VERSION";:.9.R...V.0:.198,0:.".VALIDATE
DISK Y...";Z$:.Z$."Y".V.1......15,"S0:"
.N$.".OLD":.15,"R0:".N$.".OLD=0:".N$:.V.
.15,"V0".E....15,E,E$:." "E$:."0:".N$,8:
.15,E,E$:." "E$: 15:....
×
C64 Image
> CLICK IMAGE PREVIEW FOR FULL MODAL