SAVE MY PROGRAM

FILE INFORMATION

FILENAME(S): SAVE MY PROGRAM

FILE TYPE(S): PRG

FILE SIZE: 1.1K

FIRST SEEN: 2025-11-30 17:31:36

APPEARS ON: 1 disk(s)

FILE HASH

b35dd6ada1a370009403c2548d12b1e9c4d1e58b4e6cd68765ec24a4999fd241

FOUND ON DISKS (1 DISKS)

DISK TITLE	FILENAME	FILE TYPE	COLLECTION	TRACK	SECTOR	ACTIONS
PB DOMAIN 0016UT	SAVE MY PROGRAM	PRG	UK CD	27	5	DOWNLOAD FILE

FILE CONTENT & ANALYSIS

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

00000000: 01 08 23 08 18 F6 50 47  24 B2 22 55 54 49 4C 49  |..#...PG$."UTILI|
00000010: 54 59 50 52 47 22 3A 45  24 B2 C7 28 31 29 3A 99  |TYPRG":E$..(1):.|
00000020: 22 93 22 00 3D 08 22 F6  99 22 13 20 20 20 20 20  |".".=."..".     |
00000030: 20 20 20 20 20 20 20 12  22 3B 50 47 24 00 64 08  |       .";PG$.d.|
00000040: 2C F6 8D 36 33 32 39 30  3A 99 22 13 22 3B 48 24  |,..63290:.".";H$|
00000050: 3B 22 3A 22 3B 4D 24 3B  22 3A 22 3B C9 28 54 49  |;":";M$;":";.(TI|
00000060: 24 2C 32 29 00 90 08 36  F6 99 22 11 11 12 46 31  |$,2)...6.."...F1|
00000070: 92 53 43 52 41 54 43 48  20 4F 4C 44 20 50 52 4F  |.SCRATCH OLD PRO|
00000080: 47 52 41 4D 2C 20 53 41  56 45 20 4E 45 57 2E 22  |GRAM, SAVE NEW."|
00000090: 00 B9 08 40 F6 99 22 11  11 12 46 33 92 4C 49 53  |...@.."...F3.LIS|
000000A0: 54 20 50 52 4F 47 52 41  4D 20 4F 4E 20 43 42 4D  |T PROGRAM ON CBM|
000000B0: 20 50 52 49 4E 54 45 52  22 00 D9 08 4A F6 99 22  | PRINTER"...J.."|
000000C0: 11 11 12 46 35 92 54 49  4D 45 20 4F 46 20 44 41  |...F5.TIME OF DA|
000000D0: 59 20 43 48 41 4E 47 45  22 00 F6 08 54 F6 99 22  |Y CHANGE"...T.."|
000000E0: 11 11 12 46 37 92 52 55  4E 20 54 48 45 20 50 52  |...F7.RUN THE PR|
000000F0: 4F 47 52 41 4D 22 00 10  09 5E F6 99 22 11 11 11  |OGRAM"...^.."...|
00000100: 12 53 45 4C 45 43 54 20  4F 50 54 49 4F 4E 92 22  |.SELECT OPTION."|
00000110: 00 25 09 68 F6 A1 53 24  3A 8B 53 24 B2 22 22 A7  |.%.h..S$:.S$."".|
00000120: 36 33 30 32 30 00 37 09  72 F6 8B 53 24 B2 22 87  |63020.7.r..S$.".|
00000130: 22 A7 36 33 31 35 30 00  64 09 7C F6 8B 53 24 B3  |".63150.d.|..S$.|
00000140: B1 22 88 22 AF 20 53 24  B3 B1 22 87 22 AF 53 24  |.".". S$..".".S$|
00000150: B3 B1 22 85 22 AF 53 24  B3 B1 22 86 22 A7 99 22  |..".".S$..".".."|
00000160: 93 22 3A 80 00 A2 09 86  F6 8B 53 24 B2 22 86 22  |.":.......S$."."|
00000170: A7 85 22 11 11 54 4F 44  41 59 27 53 20 44 41 54  |.."..TODAY'S DAT|
00000180: 45 20 20 20 30 30 2F 30  30 2F 38 33 9D 9D 9D 9D  |E   00/00/83....|
00000190: 9D 9D 9D 9D 9D 9D 22 3B  54 44 24 3A 89 36 33 31  |......";TD$:.631|
000001A0: 38 30 00 B0 09 90 F6 8B  53 24 B2 22 88 22 A7 8A  |80......S$."."..|
000001B0: 00 EF 09 9A F6 8B 53 24  B2 22 85 22 A7 85 22 11  |......S$."."..".|
000001C0: 11 50 52 4F 47 41 52 4D  20 4F 4E 20 44 52 49 56  |.PROGARM ON DRIV|
000001D0: 45 20 20 30 9D 9D 9D 22  3B 44 52 24 3A 44 52 24  |E  0...";DR$:DR$|
000001E0: B2 44 52 24 AA 22 3A 22  3A 89 36 33 31 37 30 00  |.DR$.":":.63170.|
000001F0: FA 09 A4 F6 99 22 93 22  3B 80 00 18 0A AE F6 99  |.....".";.......|
00000200: 22 11 53 45 54 20 54 48  45 20 54 49 4D 45 3A 20  |".SET THE TIME: |
00000210: 20 48 52 4D 4E 53 43 22  00 48 0A B8 F6 85 22 20  | HRMNSC".H...." |
00000220: 20 20 20 20 20 20 20 20  20 20 20 20 20 20 30 30  |              00|
00000230: 30 30 30 30 9D 9D 9D 9D  9D 9D 9D 9D 22 3B 54 49  |0000........";TI|
00000240: 24 3A 89 36 33 30 30 30  00 79 0A C2 F6 A0 31 3A  |$:.63000.y....1:|
00000250: 9F 31 2C 38 2C 31 35 3A  98 31 2C 22 53 22 AA 44  |.1,8,15:.1,"S".D|
00000260: 52 24 AA 50 47 24 3A 94  44 44 52 24 AA 50 47 24  |R$.PG$:.DDR$.PG$|
00000270: 2C 38 3A 89 36 33 30 30  30 00 92 0A CC F6 9F 34  |,8:.63000......4|
00000280: 2C 34 3A 98 34 2C 45 24  3B 45 24 3B 50 47 24 3A  |,4:.4,E$;E$;PG$:|
00000290: 98 34 00 CD 0A D6 F6 99  23 34 2C 45 24 3B 22 56  |.4......#4,E$;"V|
000002A0: 45 52 53 49 4F 4E 20 41  53 20 4F 46 20 22 3B 54  |ERSION AS OF ";T|
000002B0: 44 24 3B 22 20 20 22 3B  3A 8D 36 33 32 39 30 3A  |D$;"  ";:.63290:|
000002C0: 99 23 34 2C 48 24 3B 22  3A 22 3B 4D 24 00 01 0B  |.#4,H$;":";M$...|
000002D0: E0 F6 85 22 57 41 4E 54  20 50 41 47 49 4E 47 20  |..."WANT PAGING |
000002E0: 20 20 4E 9D 9D 9D 22 3B  57 50 24 3A 8B 57 50 24  |  N...";WP$:.WP$|
000002F0: B3 B1 22 4E 22 A7 99 23  34 2C C7 28 31 34 37 29  |.."N"..#4,.(147)|
00000300: 3B 00 38 0B EA F6 85 22  57 41 4E 54 20 12 41 92  |;.8...."WANT .A.|
00000310: 4C 4C 20 4F 46 20 54 48  45 20 50 52 4F 47 52 41  |LL OF THE PROGRA|
00000320: 4D 2C 20 4F 52 20 12 50  92 41 52 54 20 20 20 41  |M, OR .P.ART   A|
00000330: 9D 9D 9D 22 3B 41 50 24  00 58 0B F4 F6 8B 41 50  |...";AP$.X....AP|
00000340: 23 B2 22 41 22 A7 4C B2  30 3A 48 B2 36 32 39 39  |#."A".L.0:H.6299|
00000350: 39 3A 89 36 33 32 35 30  00 75 0B FE F6 85 22 11  |9:.63250.u....".|
00000360: 46 52 4F 4D 20 4C 49 4E  45 20 23 20 20 20 30 9D  |FROM LINE #   0.|
00000370: 9D 9D 22 3B 4C 00 9A 0B  08 F7 85 22 11 20 20 54  |..";L......".  T|
00000380: 4F 20 4C 49 4E 45 20 23  20 20 20 36 32 39 39 39  |O LINE #   62999|
00000390: 9D 9D 9D 9D 9D 9D 9D 22  3B 48 00 B7 0B 12 F7 99  |.......";H......|
000003A0: 22 93 50 52 45 53 53 12  52 45 54 55 52 4E 20 54  |".PRESS.RETURN T|
000003B0: 4F 20 4C 49 53 54 22 00  D6 0B 1C F7 99 22 13 11  |O LIST"......"..|
000003C0: 11 11 11 11 43 4D 44 34  3A 4C 49 53 54 22 3B 4C  |....CMD4:LIST";L|
000003D0: 3B 22 2D 22 3B 48 00 FC  0B 26 F7 99 22 13 11 11  |;"-";H...&.."...|
000003E0: 11 11 11 11 50 52 49 4E  54 23 34 3A 43 4C 4F 53  |....PRINT#4:CLOS|
000003F0: 45 34 3A 47 4F 54 4F 36  33 30 30 30 00 09 0C 30  |E4:GOTO63000...0|
00000400: F7 99 22 13 11 11 22 3A  80 00 35 0C 3A F7 48 24  |.."...":..5.:.H$|
00000410: B2 C8 28 54 49 24 2C 32  29 3A 4D 24 B2 CA 28 54  |..(TI$,2):M$..(T|
00000420: 49 24 2C 33 2C 32 29 3A  48 24 B2 C4 28 C5 28 48  |I$,3,2):H$..(.(H|
00000430: 24 29 29 3A 8E 00 00 00                           |$)):....        |

..#...PG$."UTILITYPRG":E$.G(1):.".".=.".
.".            .";PG$.D.,..63290:.".";H$
;":";M$;":";I(TI$,2)...6.."...F1.SCRATCH
 OLD PROGRAM, SAVE NEW."...@.."...F3.LIS
T PROGRAM ON CBM PRINTER".Y.J.."...F5.TI
ME OF DAY CHANGE"...T.."...F7.RUN THE PR
OGRAM"...^.."....SELECT OPTION.".%.H..S$
:.S$."".63020.7.R..S$.".".63150.D.|..S$.
.".". S$..".".S$..".".S$.."."..".":.....
..S$.".".."..TODAY'S DATE   00/00/83....
......";TD$:.63180......S$."."........S$
.".".."..PROGARM ON DRIVE  0...";DR$:DR$
.DR$.":":.63170......".";.......".SET TH
E TIME:  HRMNSC".H...."               00
0000........";TI$:.63000.Y.B. 1:.1,8,15:
.1,"S".DR$.PG$:.DDR$.PG$,8:.63000...L..4
,4:.4,E$;E$;PG$:.4.M.V..#4,E$;"VERSION A
S OF ";TD$;"  ";:.63290:.#4,H$;":";M$...
..."WANT PAGING   N...";WP$:.WP$.."N"..#
4,G(147);.8...."WANT .A.LL OF THE PROGRA
M, OR .P.ART   A...";AP$.X....AP#."A".L.
0:H.62999:.63250.U....".FROM LINE #   0.
..";L......".  TO LINE #   62999......."
;H......".PRESS.RETURN TO LIST".V...."..
....CMD4:LIST";L;"-";H...&..".......PRIN
T#4:CLOSE4:GOTO63000...0.."...":..5.:.H$
.H(TI$,2):M$.J(TI$,3,2):H$.D(E(H$)):....

Visualization:

Width: Skip load address (+2) Invert

> CLICK IMAGE PREVIEW FOR FULL MODAL