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

PROGFROG 1.3

FILE INFORMATION

FILENAME(S): PROGFROG 1.3

FILE TYPE(S): PRG

FILE SIZE: 584b

FIRST SEEN: 2025-10-20 14:32:12

APPEARS ON: 1 disk(s)

FILE HASH

5bbc16fbeb8642a593ef635395d5acbf084a37b2d8b654edfdbcccc092df62f9

FOUND ON DISKS (1 DISKS)

DISK TITLE FILENAME FILE TYPE COLLECTION TRACK SECTOR ACTIONS
STONYSOFT PD NR PROGFROG 1.3 PRG Treasure Chest - Klaus Der Suhler 28 0 DOWNLOAD FILE

FILE CONTENT & ANALYSIS

> 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 Preview

> CLICK IMAGE PREVIEW FOR FULL MODAL