CLOCK GUARD

FILE INFORMATION

FILENAME(S): CLOCK GUARD

FILE TYPE(S): PRG

FILE SIZE: 1.5K

FIRST SEEN: 2025-11-30 19:47:33

APPEARS ON: 1 disk(s)

FILE HASH

7d7198d4a16c17605d36e3728d76799df5ee2cf5e8ac7d1397033a32356e5471

FOUND ON DISKS (1 DISKS)

DISK TITLE	FILENAME	FILE TYPE	COLLECTION	TRACK	SECTOR	ACTIONS
HJ LPEDISK 07 2	CLOCK GUARD	PRG	Curtcool, Frank	30	5	DOWNLOAD FILE

FILE CONTENT & ANALYSIS

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

00000000: 01 08 29 08 0A 00 41 B2  30 3A 81 49 B2 34 39 31  |..)...A.0:.I.491|
00000010: 35 32 A4 34 39 32 39 36  3A 87 4A 3A 97 49 2C 4A  |52.49296:.J:.I,J|
00000020: 3A 41 B2 41 AA 4A 3A 82  49 00 55 08 14 00 8B 41  |:A.A.J:.I.U....A|
00000030: B3 B1 31 36 38 33 34 A7  99 22 45 52 52 4F 52 20  |..16834.."ERROR |
00000040: 49 4E 20 44 41 54 41 20  53 54 41 54 45 4D 45 4E  |IN DATA STATEMEN|
00000050: 54 53 22 3A 80 00 6E 08  1E 00 99 22 93 11 12 43  |TS":..n...."...C|
00000060: 4C 4F 43 4B 20 46 4F 52  20 43 36 34 12 22 00 92  |LOCK FOR C64."..|
00000070: 08 28 00 99 3A 99 22 54  4F 20 53 45 54 20 54 48  |.(..:."TO SET TH|
00000080: 45 20 43 4C 4F 43 4B 20  2D 20 52 55 4E 20 32 30  |E CLOCK - RUN 20|
00000090: 30 22 00 BF 08 32 00 99  22 54 4F 20 43 48 41 4E  |0"...2.."TO CHAN|
000000A0: 47 45 20 54 48 45 20 43  4F 4C 4F 52 20 2D 20 50  |GE THE COLOR - P|
000000B0: 4F 4B 45 20 34 39 32 36  33 2C 43 4F 4C 4F 52 00  |OKE 49263,COLOR.|
000000C0: E9 08 3C 00 99 22 54 4F  20 42 4C 41 4E 4B 20 43  |..<.."TO BLANK C|
000000D0: 4C 4F 43 4B 20 44 49 53  50 4C 41 59 20 2D 20 53  |LOCK DISPLAY - S|
000000E0: 59 53 20 34 39 31 35 32  22 00 10 09 46 00 99 22  |YS 49152"...F.."|
000000F0: 54 4F 20 41 43 54 49 56  41 54 45 20 44 49 53 50  |TO ACTIVATE DISP|
00000100: 4C 41 59 20 2D 20 53 59  53 20 34 39 31 35 35 22  |LAY - SYS 49155"|
00000110: 00 1F 09 4B 00 97 35 36  33 33 34 2C 31 32 39 00  |...K..56334,129.|
00000120: 2A 09 50 00 9E 34 39 31  35 35 00 41 09 51 00 97  |*.P..49155.A.Q..|
00000130: 34 39 32 36 33 2C 38 3A  97 34 39 32 30 37 2C 32  |49263,8:.49207,2|
00000140: 38 00 47 09 5A 00 80 00  85 09 64 00 83 37 36 2C  |8.G.Z.....d..76,|
00000150: 33 30 2C 31 39 32 2C 31  32 30 2C 31 37 33 2C 32  |30,192,120,173,2|
00000160: 30 2C 33 2C 31 34 31 2C  32 38 2C 31 39 32 2C 31  |0,3,141,28,192,1|
00000170: 36 39 2C 34 35 2C 31 34  31 2C 32 30 2C 33 2C 31  |69,45,141,20,3,1|
00000180: 37 33 2C 32 31 00 C4 09  6E 00 83 33 2C 31 34 31  |73,21...n..3,141|
00000190: 2C 32 39 2C 31 39 32 2C  31 36 39 2C 31 39 32 2C  |,29,192,169,192,|
000001A0: 31 34 31 2C 32 31 2C 33  2C 38 38 2C 39 36 2C 34  |141,21,3,88,96,4|
000001B0: 39 2C 32 33 34 2C 31 32  30 2C 31 37 33 2C 32 38  |9,234,120,173,28|
000001C0: 2C 31 39 32 00 01 0A 78  00 83 31 34 31 2C 32 30  |,192...x..141,20|
000001D0: 2C 33 2C 31 37 33 2C 32  39 2C 31 39 32 2C 31 34  |,3,173,29,192,14|
000001E0: 31 2C 32 31 2C 33 2C 38  38 2C 39 36 2C 31 37 33  |1,21,3,88,96,173|
000001F0: 2C 32 34 2C 32 30 38 2C  34 31 2C 32 34 30 2C 37  |,24,208,41,240,7|
00000200: 34 00 42 0A 82 00 83 37  34 2C 31 33 33 2C 32 35  |4.B....74,133,25|
00000210: 34 2C 31 36 39 2C 30 2C  31 33 33 2C 32 35 33 2C  |4,169,0,133,253,|
00000220: 31 36 30 2C 30 2C 31 37  33 2C 31 31 2C 32 32 30  |160,0,173,11,220|
00000230: 2C 37 32 2C 34 31 2C 31  32 37 2C 31 36 32 2C 31  |,72,41,127,162,1|
00000240: 38 36 00 85 0A 8C 00 83  33 32 2C 31 32 30 2C 31  |86......32,120,1|
00000250: 39 32 2C 31 37 33 2C 31  30 2C 32 32 30 2C 33 32  |92,173,10,220,32|
00000260: 2C 31 32 30 2C 31 39 32  2C 31 37 33 2C 39 2C 32  |,120,192,173,9,2|
00000270: 32 30 2C 31 36 32 2C 31  37 34 2C 33 32 2C 31 32  |20,162,174,32,12|
00000280: 30 2C 31 39 32 00 C6 0A  96 00 83 31 37 33 2C 38  |0,192......173,8|
00000290: 2C 32 32 30 2C 33 32 2C  31 33 37 2C 31 39 32 2C  |,220,32,137,192,|
000002A0: 31 30 34 2C 31 36 2C 33  2C 31 36 39 2C 31 34 34  |104,16,3,169,144|
000002B0: 2C 34 34 2C 31 36 39 2C  31 32 39 2C 33 32 2C 31  |,44,169,129,32,1|
000002C0: 34 31 2C 31 39 32 00 0B  0B A0 00 83 31 36 39 2C  |41,192......169,|
000002D0: 31 34 31 2C 31 34 35 2C  32 35 33 2C 31 36 39 2C  |141,145,253,169,|
000002E0: 32 31 36 2C 31 33 33 2C  32 35 34 2C 31 36 39 2C  |216,133,254,169,|
000002F0: 31 2C 31 34 35 2C 32 35  33 2C 31 33 36 2C 31 36  |1,145,253,136,16|
00000300: 2C 32 35 31 2C 31 30 38  2C 32 38 00 4C 0B AA 00  |,251,108,28.L...|
00000310: 83 31 39 32 2C 37 32 2C  33 32 2C 31 33 33 2C 31  |.192,72,32,133,1|
00000320: 39 32 2C 31 30 34 2C 33  32 2C 31 33 37 2C 31 39  |92,104,32,137,19|
00000330: 32 2C 31 33 38 2C 33 32  2C 31 34 31 2C 31 39 32  |2,138,32,141,192|
00000340: 2C 39 36 2C 37 34 2C 37  34 2C 37 34 00 6F 0B B4  |,96,74,74,74.o..|
00000350: 00 83 37 34 2C 34 31 2C  31 35 2C 39 2C 31 37 36  |..74,41,15,9,176|
00000360: 2C 31 34 35 2C 32 35 33  2C 32 30 30 2C 39 36 00  |,145,253,200,96.|
00000370: 8B 0B C8 00 8F 20 43 4C  4F 43 4B 20 53 45 54 54  |..... CLOCK SETT|
00000380: 49 4E 47 20 52 4F 55 54  49 4E 45 00 A6 0B D2 00  |ING ROUTINE.....|
00000390: 99 22 93 11 12 53 45 54  20 54 48 45 20 43 4C 4F  |."...SET THE CLO|
000003A0: 43 4B 20 22 3A 99 00 D6  0B DC 00 97 35 36 33 33  |CK ":.......5633|
000003B0: 35 2C C2 28 35 36 33 33  35 29 AF 31 32 37 3A 8F  |5,.(56335).127:.|
000003C0: 20 53 45 54 20 54 49 4D  45 20 4F 46 20 44 41 59  | SET TIME OF DAY|
000003D0: 20 43 4C 4F 43 4B 00 E9  0B E6 00 85 22 41 4D 20  | CLOCK......"AM |
000003E0: 4F 52 20 50 4D 22 3B 41  24 00 04 0C F0 00 41 B2  |OR PM";A$.....A.|
000003F0: 31 32 38 3A 8B C8 28 41  24 2C 31 29 B2 22 41 22  |128:..(A$,1)."A"|
00000400: A7 41 B2 30 00 2A 0C FA  00 85 22 48 4F 55 52 22  |.A.0.*...."HOUR"|
00000410: 3B 41 24 3A 8B C3 28 41  24 29 B1 32 A7 99 22 45  |;A$:..(A$).2.."E|
00000420: 52 52 4F 52 22 3A 89 32  35 30 00 47 0C 04 01 8D  |RROR":.250.G....|
00000430: 35 30 30 3A 8B 4E B1 31  38 A7 99 22 45 52 52 4F  |500:.N.18.."ERRO|
00000440: 52 22 3A 89 32 35 30 00  62 0C 0E 01 97 35 36 33  |R":.250.b....563|
00000450: 33 31 2C 41 AA 4E 3A 8F  20 53 45 54 20 48 4F 55  |31,A.N:. SET HOU|
00000460: 52 53 00 8B 0C 18 01 85  22 4D 49 4E 55 54 45 53  |RS......"MINUTES|
00000470: 22 3B 41 24 3A 8B C3 28  41 24 29 B1 32 A7 99 22  |";A$:..(A$).2.."|
00000480: 45 52 52 4F 52 22 3A 89  32 38 30 00 A8 0C 22 01  |ERROR":.280...".|
00000490: 8D 35 30 30 3A 8B 4E B1  38 39 A7 99 22 45 52 52  |.500:.N.89.."ERR|
000004A0: 4F 52 22 3A 89 32 38 30  00 C3 0C 2C 01 97 35 36  |OR":.280...,..56|
000004B0: 33 33 30 2C 4E 3A 8F 20  53 45 54 20 4D 49 4E 55  |330,N:. SET MINU|
000004C0: 54 45 53 00 EC 0C 36 01  85 22 53 45 43 4F 4E 44  |TES...6.."SECOND|
000004D0: 53 22 3B 41 24 3A 8B C3  28 41 24 29 B1 32 A7 99  |S";A$:..(A$).2..|
000004E0: 22 45 52 52 4F 52 22 3A  89 33 31 30 00 09 0D 40  |"ERROR":.310...@|
000004F0: 01 8D 35 30 30 3A 8B 4E  B1 38 39 A7 99 22 45 52  |..500:.N.89.."ER|
00000500: 52 4F 52 22 3A 89 33 31  30 00 24 0D 4A 01 97 35  |ROR":.310.$.J..5|
00000510: 36 33 32 39 2C 4E 3A 8F  20 53 45 54 20 53 45 43  |6329,N:. SET SEC|
00000520: 4F 4E 44 53 00 52 0D 54  01 99 22 57 48 45 4E 20  |ONDS.R.T.."WHEN |
00000530: 59 4F 55 20 41 52 45 20  52 45 41 44 59 20 54 4F  |YOU ARE READY TO|
00000540: 20 53 54 41 52 54 20 54  48 45 20 43 4C 4F 43 4B  | START THE CLOCK|
00000550: 2C 22 00 69 0D 5E 01 99  22 1D 50 52 45 53 53 20  |,".i.^..".PRESS |
00000560: 41 4E 59 20 4B 45 59 2E  22 00 7C 0D 68 01 A1 41  |ANY KEY.".|.h..A|
00000570: 24 3A 8B 41 24 B2 22 22  A7 33 36 30 00 97 0D 72  |$:.A$."".360...r|
00000580: 01 97 35 36 33 32 38 2C  30 3A 8F 20 53 54 41 52  |..56328,0:. STAR|
00000590: 54 20 43 4C 4F 43 4B 00  9D 0D 7C 01 80 00 B3 0D  |T CLOCK...|.....|
000005A0: F4 01 8B C3 28 41 24 29  B2 31 A7 54 B2 30 3A 89  |....(A$).1.T.0:.|
000005B0: 35 32 30 00 C4 0D FE 01  54 B2 C5 28 C8 28 41 24  |520.....T..(.(A$|
000005C0: 2C 31 29 29 00 D5 0D 08  02 55 B2 C5 28 C9 28 41  |,1)).....U..(.(A|
000005D0: 24 2C 31 29 29 00 E4 0D  12 02 4E B2 31 36 AC 54  |$,1)).....N.16.T|
000005E0: AA 55 3A 8E 00 00 FF                              |.U:....         |

..)...A.0:.I.49152.49296:.J:.I,J:A.A.J:.
I.U....A..16834.."ERROR IN DATA STATEMEN
TS":..N...."...CLOCK FOR C64."...(..:."T
O SET THE CLOCK - RUN 200"...2.."TO CHAN
GE THE COLOR - POKE 49263,COLOR...<.."TO
 BLANK CLOCK DISPLAY - SYS 49152"...F.."
TO ACTIVATE DISPLAY - SYS 49155"...K..56
334,129.*.P..49155.A.Q..49263,8:.49207,2
8.G.Z.....D..76,30,192,120,173,20,3,141,
28,192,169,45,141,20,3,173,21.D.N..3,141
,29,192,169,192,141,21,3,88,96,49,234,12
0,173,28,192...X..141,20,3,173,29,192,14
1,21,3,88,96,173,24,208,41,240,74.B....7
4,133,254,169,0,133,253,160,0,173,11,220
,72,41,127,162,186......32,120,192,173,1
0,220,32,120,192,173,9,220,162,174,32,12
0,192.F....173,8,220,32,137,192,104,16,3
,169,144,44,169,129,32,141,192... ..169,
141,145,253,169,216,133,254,169,1,145,25
3,136,16,251,108,28.L....192,72,32,133,1
92,104,32,137,192,138,32,141,192,96,74,7
4,74.O....74,41,15,9,176,145,253,200,96.
..H.. CLOCK SETTING ROUTINE...R.."...SET
 THE CLOCK ":..V....56335,B(56335).127:.
 SET TIME OF DAY CLOCK......"AM OR PM";A
$.....A.128:.H(A$,1)."A".A.0.*...."HOUR"
;A$:.C(A$).2.."ERROR":.250.G....500:.N.1
8.."ERROR":.250.B....56331,A.N:. SET HOU
RS......"MINUTES";A$:.C(A$).2.."ERROR":.
280..."..500:.N.89.."ERROR":.280.C.,..56
330,N:. SET MINUTES...6.."SECONDS";A$:.C
(A$).2.."ERROR":.310...@..500:.N.89.."ER
ROR":.310.$.J..56329,N:. SET SECONDS.R.T
.."WHEN YOU ARE READY TO START THE CLOCK
,".I.^..".PRESS ANY KEY.".|.H..A$:.A$.""
.360...R..56328,0:. START CLOCK...|.....
...C(A$).1.T.0:.520.D...T.E(H(A$,1)).U..
.U.E(I(A$,1)).....N.16.T.U:....

Visualization:

Width: Skip load address (+2) Invert

> CLICK IMAGE PREVIEW FOR FULL MODAL