ALARM CLOCK
FILE INFORMATION
FILENAME(S): ALARM CLOCK
FILE TYPE(S): PRG
FILE SIZE: 1.3K
FIRST SEEN: 2025-11-30 18:13:13
APPEARS ON: 1 disk(s)
FILE HASH
affab0a1108ff62352907f23352356af3db5aa5d4e284ccbd11a564cad4b0b8e
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| APRIL GAZETTE | ALARM CLOCK | PRG | Sailor, Ganheden | 20 | 12 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 1B 08 0A 00 8F 20 44 49 47 49 54 41 4C 20 |....... DIGITAL |
00000010: 41 4C 41 52 4D 20 43 4C 4F 43 4B 00 3F 08 0F 00 |ALARM CLOCK.?...|
00000020: 99 22 93 22 3A 97 35 33 32 38 31 2C 36 3A 97 35 |.".":.53281,6:.5|
00000030: 33 32 38 30 2C 31 34 3A 97 36 34 36 2C 31 34 00 |3280,14:.646,14.|
00000040: 7B 08 14 00 81 49 B2 34 39 31 35 32 A4 34 39 32 |{....I.49152.492|
00000050: 38 33 3A 87 41 3A 58 B2 58 AA 41 3A 97 49 2C 41 |83:.A:X.X.A:.I,A|
00000060: 3A 82 49 3A 8F 20 50 4F 4B 45 20 41 4C 41 52 4D |:.I:. POKE ALARM|
00000070: 20 4D 4C 20 52 4F 55 54 49 4E 45 00 A4 08 1E 00 | ML ROUTINE.....|
00000080: 8B 58 B3 B1 31 35 37 35 36 A7 99 22 44 41 54 41 |.X..15756.."DATA|
00000090: 20 53 54 41 54 45 4D 45 4E 54 20 45 52 52 4F 52 | STATEMENT ERROR|
000000A0: 2E 22 3A 90 00 E4 08 28 00 41 24 B2 22 43 4C 4F |.":....(.A$."CLO|
000000B0: 43 4B 22 3A 43 B2 34 39 32 38 38 3A 8D 32 38 30 |CK":C.49288:.280|
000000C0: 3A 41 24 B2 22 41 4C 41 52 4D 22 3A 43 B2 34 39 |:A$."ALARM":C.49|
000000D0: 32 38 34 3A 8D 32 38 30 3A 8F 20 47 45 54 20 54 |284:.280:. GET T|
000000E0: 49 4D 45 53 00 FD 08 32 00 9E 34 39 31 35 32 3A |IMES...2..49152:|
000000F0: 80 3A 8F 20 53 45 54 20 41 4C 41 52 4D 00 17 09 |.:. SET ALARM...|
00000100: 3C 00 83 20 31 36 39 2C 34 32 2C 31 34 31 2C 32 |<.. 169,42,141,2|
00000110: 34 2C 33 2C 31 36 39 00 31 09 46 00 83 20 31 39 |4,3,169.1.F.. 19|
00000120: 32 2C 31 34 31 2C 32 35 2C 33 2C 31 37 33 2C 31 |2,141,25,3,173,1|
00000130: 35 00 4C 09 50 00 83 20 32 32 31 2C 39 2C 31 32 |5.L.P.. 221,9,12|
00000140: 38 2C 31 34 31 2C 31 35 2C 32 32 31 00 67 09 5A |8,141,15,221.g.Z|
00000150: 00 83 20 31 36 30 2C 30 2C 33 32 2C 31 30 32 2C |.. 160,0,32,102,|
00000160: 31 39 32 2C 31 37 33 00 82 09 64 00 83 20 31 35 |192,173...d.. 15|
00000170: 2C 32 32 31 2C 34 31 2C 31 32 37 2C 31 34 31 2C |,221,41,127,141,|
00000180: 31 35 00 9D 09 6E 00 83 20 32 32 31 2C 31 36 30 |15...n.. 221,160|
00000190: 2C 34 2C 33 32 2C 31 30 32 2C 31 39 32 00 B9 09 |,4,32,102,192...|
000001A0: 78 00 83 20 31 36 39 2C 31 33 32 2C 31 34 31 2C |x.. 169,132,141,|
000001B0: 31 33 2C 32 32 31 2C 39 36 00 D3 09 82 00 83 20 |13,221,96...... |
000001C0: 31 37 33 2C 31 33 2C 32 32 31 2C 34 31 2C 34 2C |173,13,221,41,4,|
000001D0: 32 34 30 00 ED 09 8C 00 83 20 35 30 2C 31 36 39 |240...... 50,169|
000001E0: 2C 34 2C 31 34 31 2C 31 33 2C 32 32 31 00 09 0A |,4,141,13,221...|
000001F0: 96 00 83 20 33 32 2C 31 31 35 2C 31 39 32 2C 31 |... 32,115,192,1|
00000200: 36 39 2C 31 33 2C 31 34 31 00 22 0A A0 00 83 20 |69,13,141.".... |
00000210: 32 34 2C 32 31 32 2C 31 36 39 2C 30 2C 31 34 31 |24,212,169,0,141|
00000220: 2C 35 00 3E 0A AA 00 83 20 32 31 32 2C 31 36 39 |,5.>.... 212,169|
00000230: 2C 32 34 30 2C 31 34 31 2C 36 2C 32 31 32 00 58 |,240,141,6,212.X|
00000240: 0A B4 00 83 20 31 36 39 2C 34 2C 31 34 31 2C 31 |.... 169,4,141,1|
00000250: 2C 32 31 32 2C 31 36 39 00 72 0A BE 00 83 20 33 |,212,169.r.... 3|
00000260: 33 2C 31 34 31 2C 34 2C 32 31 32 2C 33 32 2C 31 |3,141,4,212,32,1|
00000270: 35 39 00 8F 0A C8 00 83 20 32 35 35 2C 31 36 35 |59...... 255,165|
00000280: 2C 31 39 38 2C 32 34 30 2C 32 34 39 2C 33 32 00 |,198,240,249,32.|
00000290: AC 0A D2 00 83 20 31 31 35 2C 31 39 32 2C 33 32 |..... 115,192,32|
000002A0: 2C 31 32 36 2C 31 39 32 2C 31 36 39 00 C6 0A DC |,126,192,169....|
000002B0: 00 83 20 30 2C 31 33 33 2C 31 39 38 2C 37 36 2C |.. 0,133,198,76,|
000002C0: 37 31 2C 32 35 34 00 E2 0A E6 00 83 20 31 36 32 |71,254...... 162|
000002D0: 2C 33 2C 31 38 35 2C 31 33 32 2C 31 39 32 2C 31 |,3,185,132,192,1|
000002E0: 35 37 00 FD 0A F0 00 83 20 38 2C 32 32 31 2C 32 |57...... 8,221,2|
000002F0: 30 30 2C 32 30 32 2C 31 36 2C 32 34 36 00 17 0B |00,202,16,246...|
00000300: FA 00 83 20 39 36 2C 31 36 39 2C 30 2C 31 36 30 |... 96,169,0,160|
00000310: 2C 32 34 2C 31 35 33 00 31 0B 04 01 83 20 30 2C |,24,153.1.... 0,|
00000320: 32 31 32 2C 31 33 36 2C 31 36 2C 32 35 30 2C 39 |212,136,16,250,9|
00000330: 36 00 4C 0B 0E 01 83 20 31 32 30 2C 33 32 2C 31 |6.L.... 120,32,1|
00000340: 33 38 2C 32 35 35 2C 38 38 2C 39 36 00 67 0B 18 |38,255,88,96.g..|
00000350: 01 99 22 93 46 4F 52 20 54 48 45 20 22 41 24 22 |..".FOR THE "A$"|
00000360: 20 54 49 4D 45 3A 22 00 9A 0B 22 01 99 3A 85 22 | TIME:"..."..:."|
00000370: 57 48 41 54 20 49 53 20 54 48 45 20 48 4F 55 52 |WHAT IS THE HOUR|
00000380: 22 3B 48 24 3A 48 B2 C5 28 48 24 29 3A 8B 48 B3 |";H$:H..(H$):.H.|
00000390: 30 B0 48 B1 31 32 A7 32 39 30 00 C4 0B 2C 01 46 |0.H.12.290...,.F|
000003A0: B2 30 3A 85 22 41 4D 20 4F 52 20 50 4D 22 3B 46 |.0:."AM OR PM";F|
000003B0: 24 3A 8B C8 28 46 24 2C 31 29 B2 22 50 22 A7 46 |$:..(F$,1)."P".F|
000003C0: B2 31 32 38 00 D8 0B 36 01 48 4E B2 30 3A 8B 48 |.128...6.HN.0:.H|
000003D0: B1 39 A7 48 4E B2 31 36 00 FB 0B 40 01 48 48 B2 |.9.HN.16...@.HH.|
000003E0: C5 28 C9 28 48 24 2C 31 29 29 3A 48 B2 46 AA 48 |.(.(H$,1)):H.F.H|
000003F0: 4E AA 48 48 3A 97 43 AA 30 2C 48 00 2E 0C 4A 01 |N.HH:.C.0,H...J.|
00000400: 85 22 57 48 41 54 20 49 53 20 54 48 45 20 4D 49 |."WHAT IS THE MI|
00000410: 4E 55 54 45 22 3B 4D 24 3A 4D B2 C5 28 4D 24 29 |NUTE";M$:M..(M$)|
00000420: 3A 8B 4D B3 30 B0 4D B1 35 39 A7 33 33 30 00 4D |:.M.0.M.59.330.M|
00000430: 0C 54 01 4D 4E B2 30 3A 8B 4D B1 39 A7 4D 4E B2 |.T.MN.0:.M.9.MN.|
00000440: 31 36 AC C5 28 C8 28 4D 24 2C 31 29 29 00 6E 0C |16..(.(M$,1)).n.|
00000450: 5E 01 4D 4D B2 C5 28 C9 28 4D 24 2C 31 29 29 3A |^.MM..(.(M$,1)):|
00000460: 4D B2 4D 4E AA 4D 4D 3A 97 43 AA 31 2C 4D 00 A1 |M.MN.MM:.C.1,M..|
00000470: 0C 68 01 85 22 57 48 41 54 20 49 53 20 54 48 45 |.h.."WHAT IS THE|
00000480: 20 53 45 43 4F 4E 44 22 3B 53 24 3A 53 B2 C5 28 | SECOND";S$:S..(|
00000490: 53 24 29 3A 8B 53 B3 30 B0 53 B1 35 39 A7 33 36 |S$):.S.0.S.59.36|
000004A0: 30 00 C0 0C 72 01 53 4E B2 30 3A 8B 53 B1 39 A7 |0...r.SN.0:.S.9.|
000004B0: 53 4E B2 31 36 AC C5 28 C8 28 53 24 2C 31 29 29 |SN.16..(.(S$,1))|
000004C0: 00 FF 0C 7C 01 53 53 B2 C5 28 C9 28 53 24 2C 31 |...|.SS..(.(S$,1|
000004D0: 29 29 3A 53 B2 53 4E AA 53 53 3A 97 43 AA 32 2C |)):S.SN.SS:.C.2,|
000004E0: 53 3A 97 43 AA 33 2C 30 3A 8F 20 53 45 43 53 2C |S:.C.3,0:. SECS,|
000004F0: 20 54 45 4E 54 48 53 20 4F 46 20 53 45 43 53 00 | TENTHS OF SECS.|
00000500: 05 0D 86 01 8E 00 00 00 |........ |
....... DIGITAL ALARM CLOCK.?....".":.53
281,6:.53280,14:.646,14.{....I.49152.492
83:.A:X.X.A:.I,A:.I:. POKE ALARM ML ROUT
INE......X..15756.."DATA STATEMENT ERROR
.":....(.A$."CLOCK":C.49288:.280:A$."ALA
RM":C.49284:.280:. GET TIMES...2..49152:
.:. SET ALARM...<.. 169,42,141,24,3,169.
1.F.. 192,141,25,3,173,15.L.P.. 221,9,12
8,141,15,221.G.Z.. 160,0,32,102,192,173.
..D.. 15,221,41,127,141,15...N.. 221,160
,4,32,102,192...X.. 169,132,141,13,221,9
6.S.... 173,13,221,41,4,240...... 50,169
,4,141,13,221...... 32,115,192,169,13,14
1.". .. 24,212,169,0,141,5.>.... 212,169
,240,141,6,212.X.... 169,4,141,1,212,169
.R.... 33,141,4,212,32,159...H.. 255,165
,198,240,249,32...R.. 115,192,32,126,192
,169.F.... 0,133,198,76,71,254...... 162
,3,185,132,192,157...... 8,221,200,202,1
6,246...... 96,169,0,160,24,153.1.... 0,
212,136,16,250,96.L.... 120,32,138,255,8
8,96.G....".FOR THE "A$" TIME:"..."..:."
WHAT IS THE HOUR";H$:H.E(H$):.H.0.H.12.2
90.D.,.F.0:."AM OR PM";F$:.H(F$,1)."P".F
.128.X.6.HN.0:.H.9.HN.16...@.HH.E(I(H$,1
)):H.F.HN.HH:.C.0,H...J.."WHAT IS THE MI
NUTE";M$:M.E(M$):.M.0.M.59.330.M.T.MN.0:
.M.9.MN.16.E(H(M$,1)).N.^.MM.E(I(M$,1)):
M.MN.MM:.C.1,M...H.."WHAT IS THE SECOND"
;S$:S.E(S$):.S.0.S.59.360...R.SN.0:.S.9.
SN.16.E(H(S$,1))...|.SS.E(I(S$,1)):S.SN.
SS:.C.2,S:.C.3,0:. SECS, TENTHS OF SECS.
........
> CLICK IMAGE PREVIEW FOR FULL MODAL