ALARM CLOCK

FILE INFORMATION

FILENAME(S): ALARM CLOCK

FILE TYPE(S): PRG

FILE SIZE: 2K

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

APPEARS ON: 1 disk(s)

FILE HASH

1089c5318731230a3de0d5640c28cb368bcc8e736c951c6ad022e8d11114c703

FOUND ON DISKS (1 DISKS)

DISK TITLE	FILENAME	FILE TYPE	COLLECTION	TRACK	SECTOR	ACTIONS
HJ LPEDISK A2 2	ALARM CLOCK	PRG	Curtcool, Frank	34	10	DOWNLOAD FILE

FILE CONTENT & ANALYSIS

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

00000000: 01 08 0C 08 0A 00 8D 20  39 30 30 30 00 33 08 14  |....... 9000.3..|
00000010: 00 99 22 93 11 11 2A 2A  54 49 4D 45 53 20 57 41  |.."...**TIMES WA|
00000020: 49 54 53 20 46 4F 52 20  4E 4F 20 4D 41 4E 20 20  |ITS FOR NO MAN  |
00000030: 2A 2A 11 00 4F 08 1E 00  99 22 43 4C 4F 43 4B 20  |**..O...."CLOCK |
00000040: 49 4E 53 54 52 55 43 54  49 4F 4E 53 3A 11 22 00  |INSTRUCTIONS:.".|
00000050: 6F 08 28 00 99 22 53 59  53 20 38 33 32 20 3A 20  |o.(.."SYS 832 : |
00000060: 54 55 52 4E 20 4F 4E 20  44 49 53 50 4C 41 59 00  |TURN ON DISPLAY.|
00000070: 90 08 32 00 99 22 53 59  53 20 39 39 34 3A 20 20  |..2.."SYS 994:  |
00000080: 54 55 52 4E 20 4F 46 46  20 44 49 53 50 4C 41 59  |TURN OFF DISPLAY|
00000090: 00 B0 08 3C 00 99 22 50  4F 4B 45 20 39 38 32 2C  |...<.."POKE 982,|
000000A0: 4E 3A 20 43 48 41 4E 47  45 20 43 4F 4C 4F 55 52  |N: CHANGE COLOUR|
000000B0: 00 CD 08 46 00 99 22 47  4F 53 55 42 20 39 31 34  |...F.."GOSUB 914|
000000C0: 30 3A 52 45 53 45 54 20  41 4C 41 52 4D 00 EA 08  |0:RESET ALARM...|
000000D0: 50 00 99 22 46 31 3A 20  20 20 20 20 54 55 52 4E  |P.."F1:     TURN|
000000E0: 20 4F 46 46 20 41 4C 41  52 4D 00 0D 09 5A 00 8D  | OFF ALARM...Z..|
000000F0: 20 39 31 34 30 3A 80 3A  20 8F 20 53 45 54 20 4F  | 9140:.: . SET O|
00000100: 52 20 52 45 53 45 54 20  41 4C 41 52 4D 00 3B 09  |R RESET ALARM.;.|
00000110: 1E 23 8F 20 42 41 4C 41  4E 43 45 20 41 52 45 20  |.#. BALANCE ARE |
00000120: 53 55 42 53 20 54 48 41  54 20 43 41 4E 20 42 45  |SUBS THAT CAN BE|
00000130: 20 55 53 45 44 20 41 4C  4F 4E 45 00 50 09 28 23  | USED ALONE.P.(#|
00000140: 43 48 B2 30 3A 81 49 B2  38 33 32 A4 31 30 30 38  |CH.0:.I.832.1008|
00000150: 00 66 09 32 23 87 41 3A  97 49 2C 41 3A 43 48 B2  |.f.2#.A:.I,A:CH.|
00000160: 43 48 AA 41 3A 82 00 87  09 37 23 81 49 B2 36 37  |CH.A:....7#.I.67|
00000170: 39 A4 37 34 34 3A 87 41  3A 97 49 2C 41 3A 43 48  |9.744:.A:.I,A:CH|
00000180: B2 43 48 AA 41 3A 82 00  BC 09 3C 23 8B 43 48 AB  |.CH.A:....<#.CH.|
00000190: 32 33 36 31 34 A7 99 22  57 48 4F 41 2E 2E 2E 44  |23614.."WHOA...D|
000001A0: 41 54 41 20 45 52 52 4F  52 3A 53 54 4F 50 3A 4E  |ATA ERROR:STOP:N|
000001B0: 4F 54 45 20 43 48 45 43  4B 53 55 4D 00 EE 09 46  |OTE CHECKSUM...F|
000001C0: 23 85 22 93 11 11 11 11  11 49 53 20 49 54 20 41  |#."......IS IT A|
000001D0: 4D 20 4F 52 20 50 4D 22  3B 41 24 3A 85 22 11 41  |M OR PM";A$:.".A|
000001E0: 4E 44 20 54 48 45 20 48  4F 55 52 22 3B 48 00 30  |ND THE HOUR";H.0|
000001F0: 0A 50 23 99 22 11 11 45  4E 54 45 52 20 54 48 45  |.P#."..ENTER THE|
00000200: 20 4E 45 58 54 20 4D 49  4E 55 54 45 3B 22 3A 99  | NEXT MINUTE;":.|
00000210: 22 50 52 45 53 53 20 27  52 45 54 55 52 4E 27 20  |"PRESS 'RETURN' |
00000220: 54 4F 20 53 54 41 52 54  20 43 4C 4F 43 4B 3A 11  |TO START CLOCK:.|
00000230: 00 4E 0A 5A 23 8B 48 B1  31 32 A7 50 24 B2 22 50  |.N.Z#.H.12.P$."P|
00000240: 22 3A 48 B2 48 AB 31 32  3A 89 39 30 35 30 00 5D  |":H.H.12:.9050.]|
00000250: 0A 64 23 8B 48 B1 39 A7  48 B2 48 AA 36 00 76 0A  |.d#.H.9.H.H.6.v.|
00000260: 6E 23 8B C8 28 41 24 2C  31 29 B2 22 50 22 A7 48  |n#..(A$,1)."P".H|
00000270: B2 48 AA 31 32 38 00 90  0A 78 23 43 B2 35 36 33  |.H.128...x#C.563|
00000280: 32 38 3A 97 43 AA 33 2C  48 3A 97 43 AA 31 2C 30  |28:.C.3,H:.C.1,0|
00000290: 00 A5 0A 82 23 85 4D 3A  4D B2 4D AA B5 28 4D AD  |....#.M:M.M..(M.|
000002A0: 31 30 29 AC 36 00 D7 0A  8C 23 97 43 AA 32 2C 4D  |10).6....#.C.2,M|
000002B0: 3A 97 43 2C 30 3A 9E 38  33 32 3A 99 22 11 11 49  |:.C,0:.832:."..I|
000002C0: 46 20 4E 4F 54 20 4F 4B  2C 20 50 52 45 53 53 20  |F NOT OK, PRESS |
000002D0: 41 4E 59 20 4B 45 59 00  FF 0A 96 23 81 49 B2 31  |ANY KEY....#.I.1|
000002E0: A4 31 30 30 30 3A 8B C2  28 31 39 38 29 A7 97 31  |.1000:..(198)..1|
000002F0: 39 38 2C 30 3A 9E 39 39  34 3A 89 39 30 33 30 00  |98,0:.994:.9030.|
00000300: 07 0B A0 23 82 3A 8E 00  31 0B B4 23 99 22 57 48  |...#.:..1..#."WH|
00000310: 41 54 20 54 49 4D 45 20  57 4F 55 4C 44 20 59 4F  |AT TIME WOULD YO|
00000320: 55 20 4C 49 4B 45 20 54  48 45 20 41 4C 41 52 4D  |U LIKE THE ALARM|
00000330: 3F 00 4F 0B B9 23 85 22  41 4D 20 4F 52 20 50 4D  |?.O..#."AM OR PM|
00000340: 22 3B 41 24 3A 41 24 B2  C8 28 41 24 2C 31 29 00  |";A$:A$..(A$,1).|
00000350: 61 0B BE 23 85 22 54 48  45 20 48 4F 55 52 22 3B  |a..#."THE HOUR";|
00000360: 48 00 80 0B C3 23 8B 48  B1 31 32 A7 41 24 B2 22  |H....#.H.12.A$."|
00000370: 50 22 3A 48 B2 48 AB 31  32 3A 89 20 39 31 35 35  |P":H.H.12:. 9155|
00000380: 00 C6 0B C8 23 48 B2 48  AB 36 AC 28 48 B1 39 29  |....#H.H.6.(H.9)|
00000390: AB 31 32 38 AC 28 41 24  B2 22 50 22 29 3A 8F 20  |.128.(A$."P"):. |
000003A0: 43 4F 4E 56 45 52 54 20  54 4F 20 42 43 44 20 41  |CONVERT TO BCD A|
000003B0: 4E 44 20 41 44 44 20 41  4D 2F 50 4D 20 49 4E 44  |ND ADD AM/PM IND|
000003C0: 49 43 41 54 4F 52 00 DA  0B CD 23 85 22 54 48 45  |ICATOR....#."THE|
000003D0: 20 4D 49 4E 55 54 45 22  3B 4D 00 EC 0B D2 23 4D  | MINUTE";M....#M|
000003E0: B2 4D AA B5 28 4D AD 31  30 29 AC 36 00 23 0C D7  |.M..(M.10).6.#..|
000003F0: 23 43 B2 35 36 33 32 38  3A 97 43 AA 37 2C 31 33  |#C.56328:.C.7,13|
00000400: 36 3A 97 43 AA 33 2C 48  3A 97 43 AA 32 2C 4D 3A  |6:.C.3,H:.C.2,M:|
00000410: 97 43 2C 31 3A 97 43 AA  37 2C 38 3A 8F 20 41 4C  |.C,1:.C.7,8:. AL|
00000420: 41 52 4D 00 46 0C DC 23  97 35 34 32 37 33 2C 39  |ARM.F..#.54273,9|
00000430: 39 3A 97 35 34 37 32 38  2C 32 34 30 3A 97 35 34  |9:.54728,240:.54|
00000440: 32 37 36 2C 32 31 00 65  0C E1 23 97 35 34 37 32  |276,21.e..#.5472|
00000450: 38 2C 32 3A 97 35 34 32  39 30 2C 31 37 3A 8F 20  |8,2:.54290,17:. |
00000460: 53 4F 55 4E 44 00 6B 0C  E6 23 8E 00 A3 0C F0 23  |SOUND.k..#.....#|
00000470: 83 20 31 32 30 2C 31 37  33 2C 32 30 2C 33 2C 31  |. 120,173,20,3,1|
00000480: 36 32 2C 38 39 2C 32 33  34 2C 32 33 34 2C 32 33  |62,89,234,234,23|
00000490: 34 2C 31 34 32 2C 32 30  2C 33 2C 31 37 33 2C 32  |4,142,20,3,173,2|
000004A0: 31 2C 33 00 DC 0C FA 23  83 20 31 36 32 2C 33 2C  |1,3....#. 162,3,|
000004B0: 32 33 34 2C 32 33 34 2C  32 33 34 2C 31 34 32 2C  |234,234,234,142,|
000004C0: 32 31 2C 33 2C 38 38 2C  39 36 2C 31 37 33 2C 31  |21,3,88,96,173,1|
000004D0: 31 2C 32 32 30 2C 31 37  30 2C 34 31 00 16 0D 04  |1,220,170,41....|
000004E0: 24 83 31 35 2C 32 34 2C  31 30 35 2C 34 38 2C 31  |$.15,24,105,48,1|
000004F0: 34 31 2C 36 37 2C 34 2C  31 33 38 2C 31 36 2C 34  |41,67,4,138,16,4|
00000500: 2C 31 36 32 2C 31 36 2C  31 36 2C 32 2C 31 36 32  |,162,16,16,2,162|
00000510: 2C 31 2C 31 34 32 00 4E  0D 0E 24 83 37 37 2C 34  |,1,142.N..$.77,4|
00000520: 2C 31 36 32 2C 33 32 2C  34 31 2C 31 36 2C 32 34  |,162,32,41,16,24|
00000530: 30 2C 32 2C 31 36 32 2C  34 39 2C 31 34 32 2C 36  |0,2,162,49,142,6|
00000540: 36 2C 34 2C 31 37 33 2C  31 30 2C 32 32 30 00 87  |6,4,173,10,220..|
00000550: 0D 18 24 83 31 37 30 2C  34 31 2C 31 35 2C 31 30  |..$.170,41,15,10|
00000560: 35 2C 34 38 2C 31 34 31  2C 37 30 2C 34 2C 31 33  |5,48,141,70,4,13|
00000570: 38 2C 37 34 2C 37 34 2C  37 34 2C 37 34 2C 32 34  |8,74,74,74,74,24|
00000580: 2C 31 30 35 2C 34 38 00  C0 0D 22 24 83 31 34 31  |,105,48..."$.141|
00000590: 2C 36 39 2C 34 2C 31 37  33 2C 39 2C 32 32 30 2C  |,69,4,173,9,220,|
000005A0: 31 37 30 2C 34 31 2C 31  35 2C 31 30 35 2C 34 38  |170,41,15,105,48|
000005B0: 2C 31 34 31 2C 37 33 2C  34 2C 31 33 38 2C 37 34  |,141,73,4,138,74|
000005C0: 00 F9 0D 2C 24 83 37 34  2C 37 34 2C 37 34 2C 32  |...,$.74,74,74,2|
000005D0: 34 2C 31 30 35 2C 34 38  2C 31 34 31 2C 37 32 2C  |4,105,48,141,72,|
000005E0: 34 2C 31 37 33 2C 38 2C  32 32 30 2C 31 30 35 2C  |4,173,8,220,105,|
000005F0: 34 38 2C 31 34 31 2C 37  35 00 30 0E 36 24 83 34  |48,141,75.0.6$.4|
00000600: 2C 31 36 39 2C 33 32 2C  31 34 31 2C 36 35 2C 34  |,169,32,141,65,4|
00000610: 2C 31 34 31 2C 37 36 2C  34 2C 31 34 31 2C 37 39  |,141,76,4,141,79|
00000620: 2C 34 2C 31 36 32 2C 31  35 2C 31 35 37 2C 32 34  |,4,162,15,157,24|
00000630: 00 6A 0E 40 24 83 34 2C  32 30 32 2C 32 30 38 2C  |.j.@$.4,202,208,|
00000640: 32 35 30 2C 31 36 39 2C  35 38 2C 31 34 31 2C 36  |250,169,58,141,6|
00000650: 38 2C 34 2C 31 34 31 2C  37 31 2C 34 2C 31 36 39  |8,4,141,71,4,169|
00000660: 2C 34 36 2C 31 34 31 2C  37 34 00 AF 0E 4A 24 83  |,46,141,74...J$.|
00000670: 20 34 2C 31 36 39 2C 31  33 2C 31 34 31 2C 37 38  | 4,169,13,141,78|
00000680: 2C 34 2C 31 36 39 2C 31  2C 31 36 32 2C 31 33 2C  |,4,169,1,162,13,|
00000690: 31 35 37 2C 36 35 2C 32  31 36 2C 32 30 32 2C 32  |157,65,216,202,2|
000006A0: 30 38 2C 32 35 30 2C 37  36 2C 31 36 37 2C 32 00  |08,250,76,167,2.|
000006B0: E8 0E 54 24 83 20 31 32  30 2C 31 36 39 2C 34 39  |..T$. 120,169,49|
000006C0: 2C 32 33 34 2C 31 34 31  2C 32 30 2C 33 2C 31 36  |,234,141,20,3,16|
000006D0: 39 2C 32 33 34 2C 32 33  34 2C 31 34 31 2C 32 31  |9,234,234,141,21|
000006E0: 2C 33 2C 38 38 2C 39 36  00 29 0F 5E 24 83 20 31  |,3,88,96.).^$. 1|
000006F0: 37 33 2C 31 33 2C 32 32  30 2C 34 31 2C 34 2C 32  |73,13,220,41,4,2|
00000700: 34 30 2C 33 2C 31 34 31  2C 32 32 37 2C 32 2C 31  |40,3,141,227,2,1|
00000710: 37 33 2C 32 32 37 2C 32  2C 32 34 30 2C 34 32 2C  |73,227,2,240,42,|
00000720: 31 37 33 2C 31 36 32 2C  30 00 6D 0F 68 24 83 20  |173,162,0.m.h$. |
00000730: 31 30 36 2C 31 30 36 2C  31 30 36 2C 34 31 2C 31  |106,106,106,41,1|
00000740: 32 2C 31 34 31 2C 33 32  2C 32 30 38 2C 34 31 2C  |2,141,32,208,41,|
00000750: 34 2C 31 34 31 2C 32 34  2C 32 31 32 2C 32 34 30  |4,141,24,212,240|
00000760: 2C 31 31 2C 31 36 32 2C  35 2C 31 38 39 00 AE 0F  |,11,162,5,189...|
00000770: 72 24 83 20 32 32 37 2C  32 2C 31 35 37 2C 33 33  |r$. 227,2,157,33|
00000780: 2C 34 2C 32 30 32 2C 32  30 38 2C 32 34 37 2C 31  |,4,202,208,247,1|
00000790: 37 33 2C 31 39 37 2C 30  2C 32 30 31 2C 34 2C 32  |73,197,0,201,4,2|
000007A0: 30 38 2C 36 2C 31 34 32  2C 32 32 37 2C 32 00 D8  |08,6,142,227,2..|
000007B0: 0F 7C 24 83 20 31 34 32  2C 32 34 2C 32 31 32 2C  |.|$. 142,24,212,|
000007C0: 37 36 2C 34 39 2C 32 33  34 2C 30 2C 31 2C 31 32  |76,49,234,0,1,12|
000007D0: 2C 31 2C 31 38 2C 31 33  00 00 00 39              |,1,18,13...9    |

....... 9000.3...."...**TIMES WAITS FOR 
NO MAN  **..O...."CLOCK INSTRUCTIONS:.".
O.(.."SYS 832 : TURN ON DISPLAY...2.."SY
S 994:  TURN OFF DISPLAY...<.."POKE 982,
N: CHANGE COLOUR.M.F.."GOSUB 9140:RESET 
ALARM...P.."F1:     TURN OFF ALARM...Z..
 9140:.: . SET OR RESET ALARM.;..#. BALA
NCE ARE SUBS THAT CAN BE USED ALONE.P.(#
CH.0:.I.832.1008.F.2#.A:.I,A:CH.CH.A:...
.7#.I.679.744:.A:.I,A:CH.CH.A:....<#.CH.
23614.."WHOA...DATA ERROR:STOP:NOTE CHEC
KSUM...F#."......IS IT AM OR PM";A$:.".A
ND THE HOUR";H.0.P#."..ENTER THE NEXT MI
NUTE;":."PRESS 'RETURN' TO START CLOCK:.
.N.Z#.H.12.P$."P":H.H.12:.9050.].D#.H.9.
H.H.6.V.N#.H(A$,1)."P".H.H.128...X#C.563
28:.C.3,H:.C.1,0....#.M:M.M..(M.10).6.W.
.#.C.2,M:.C,0:.832:."..IF NOT OK, PRESS 
ANY KEY....#.I.1.1000:.B(198)..198,0:.99
4:.9030... #.:..1..#."WHAT TIME WOULD YO
U LIKE THE ALARM?.O..#."AM OR PM";A$:A$.
H(A$,1).A..#."THE HOUR";H...C#.H.12.A$."
P":H.H.12:. 9155.F.H#H.H.6.(H.9).128.(A$
."P"):. CONVERT TO BCD AND ADD AM/PM IND
ICATOR.Z.M#."THE MINUTE";M...R#M.M..(M.1
0).6.#.W#C.56328:.C.7,136:.C.3,H:.C.2,M:
.C,1:.C.7,8:. ALARM.F..#.54273,99:.54728
,240:.54276,21.E..#.54728,2:.54290,17:. 
SOUND.K..#.....#. 120,173,20,3,162,89,23
4,234,234,142,20,3,173,21,3....#. 162,3,
234,234,234,142,21,3,88,96,173,11,220,17
0,41....$.15,24,105,48,141,67,4,138,16,4
,162,16,16,2,162,1,142.N..$.77,4,162,32,
41,16,240,2,162,49,142,66,4,173,10,220..
..$.170,41,15,105,48,141,70,4,138,74,74,
74,74,24,105,48..."$.141,69,4,173,9,220,
170,41,15,105,48,141,73,4,138,74...,$.74
,74,74,24,105,48,141,72,4,173,8,220,105,
48,141,75.0.6$.4,169,32,141,65,4,141,76,
4,141,79,4,162,15,157,24.J.@$.4,202,208,
250,169,58,141,68,4,141,71,4,169,46,141,
74...J$. 4,169,13,141,78,4,169,1,162,13,
157,65,216,202,208,250,76,167,2...T$. 12
0,169,49,234,141,20,3,169,234,234,141,21
,3,88,96.).^$. 173,13,220,41,4,240,3,141
,227,2,173,227,2,240,42,173,162,0.M.H$. 
106,106,106,41,12,141,32,208,41,4,141,24
,212,240,11,162,5,189...R$. 227,2,157,33
,4,202,208,247,173,197,0,201,4,208,6,142
,227,2.X.|$. 142,24,212,76,49,234,0,1,12
,1,18,13...9

Visualization:

Width: Skip load address (+2) Invert

> CLICK IMAGE PREVIEW FOR FULL MODAL