TOD-DEMO W/AM-PM

FILE INFORMATION

FILENAME(S): TOD-DEMO W/AM-PM

FILE TYPE(S): PRG

FILE SIZE: 1.6K

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

APPEARS ON: 1 disk(s)

FILE HASH

3fdbde47830a52f6fe11a8a834123bb4156a8821e868a1408cbc1e9c4fb73a9e

FOUND ON DISKS (1 DISKS)

DISK TITLE	FILENAME	FILE TYPE	COLLECTION	TRACK	SECTOR	ACTIONS
STONYSOFT PD NR	TOD-DEMO W/AM-PM	PRG	Treasure Chest - Klaus Der Suhler	7	1	DOWNLOAD FILE

FILE CONTENT & ANALYSIS

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

00000000: 01 08 29 08 00 00 8F 20  2A 2A 2A 2A 2A 2A 2A 2A  |..).... ********|
00000010: 2A 2A 2A 2A 2A 2A 2A 2A  2A 2A 2A 2A 2A 2A 2A 2A  |****************|
00000020: 2A 2A 2A 2A 2A 2A 2A 2A  2A 00 51 08 01 00 8F 20  |*********.Q.... |
00000030: 2A 20 20 20 20 54 49 4D  45 20 4F 46 20 44 41 59  |*    TIME OF DAY|
00000040: 20 43 4C 4F 43 4B 20 44  45 4D 4F 20 20 20 20 20  | CLOCK DEMO     |
00000050: 2A 00 79 08 02 00 8F 20  2A 20 55 53 49 4E 47 20  |*.y.... * USING |
00000060: 48 4F 55 52 53 2C 20 4D  49 4E 55 54 45 53 2C 20  |HOURS, MINUTES, |
00000070: 53 45 43 4F 4E 44 53 20  2A 00 A1 08 03 00 8F 20  |SECONDS *...... |
00000080: 2A 20 20 20 20 20 20 20  20 41 4E 44 20 41 4D 20  |*        AND AM |
00000090: 4F 52 20 50 4D 2E 20 20  20 20 20 20 20 20 20 20  |OR PM.          |
000000A0: 2A 00 C9 08 04 00 8F 20  2A 20 20 20 20 20 20 20  |*...... *       |
000000B0: 20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
000000C0: 20 20 20 20 20 20 20 20  2A 00 F1 08 05 00 8F 20  |        *...... |
000000D0: 2A 20 20 20 41 20 4D 4F  44 49 46 49 43 41 54 49  |*   A MODIFICATI|
000000E0: 4F 4E 20 4F 46 20 42 41  52 54 4F 4E 53 20 20 20  |ON OF BARTONS   |
000000F0: 2A 00 19 09 06 00 8F 20  2A 20 20 54 4F 44 2D 44  |*...... *  TOD-D|
00000100: 45 4D 4F 2C 20 42 59 20  42 4F 42 20 4B 37 20 34  |EMO, BY BOB K7 4|
00000110: 2D 32 34 2D 38 37 20 20  2A 00 41 09 07 00 8F 20  |-24-87  *.A.... |
00000120: 2A 2A 2A 2A 2A 2A 2A 2A  2A 2A 2A 2A 2A 2A 2A 2A  |****************|
00000130: 2A 2A 2A 2A 2A 2A 2A 2A  2A 2A 2A 2A 2A 2A 2A 2A  |****************|
00000140: 2A 00 47 09 08 00 3A 00  60 09 0A 00 8D 35 30 3A  |*.G...:.`....50:|
00000150: 8F 20 47 4F 20 54 4F 20  53 45 54 20 54 49 4D 45  |. GO TO SET TIME|
00000160: 00 83 09 14 00 8D 34 31  30 3A 8F 20 47 4F 20 54  |......410:. GO T|
00000170: 4F 20 52 45 41 44 20 26  20 50 52 49 4E 54 20 54  |O READ & PRINT T|
00000180: 49 4D 45 00 98 09 1E 00  89 32 30 3A 8F 20 4B 45  |IME......20:. KE|
00000190: 45 50 20 47 4F 49 4E 47  00 9E 09 28 00 3A 00 AE  |EP GOING...(.:..|
000001A0: 09 32 00 3A 8F 20 53 45  54 20 54 49 4D 45 00 B4  |.2.:. SET TIME..|
000001B0: 09 3C 00 3A 00 DC 09 46  00 99 22 93 11 11 11 45  |.<.:...F.."....E|
000001C0: 4E 54 45 52 20 43 55 52  52 45 4E 54 20 54 49 4D  |NTER CURRENT TIM|
000001D0: 45 20 28 48 48 4D 4D 53  53 29 22 3B 00 E9 09 50  |E (HHMMSS)";...P|
000001E0: 00 85 41 24 3A 99 22 93  22 00 EF 09 5A 00 3A 00  |..A$:."."...Z.:.|
000001F0: 0B 0A 64 00 8F 20 43 48  45 43 4B 20 46 4F 52 20  |..d.. CHECK FOR |
00000200: 56 41 4C 49 44 20 49 4E  50 55 54 00 11 0A 6E 00  |VALID INPUT...n.|
00000210: 3A 00 2F 0A 78 00 41 24  B2 22 30 30 30 30 30 30  |:./.x.A$."000000|
00000220: 22 AA 41 24 3A 41 24 B2  C9 28 41 24 2C 36 29 00  |".A$:A$..(A$,6).|
00000230: 5C 0A 82 00 48 B2 C5 28  C8 28 41 24 2C 32 29 29  |\...H..(.(A$,2))|
00000240: 3A 53 B2 C5 28 C9 28 41  24 2C 32 29 29 3A 4D B2  |:S..(.(A$,2)):M.|
00000250: C5 28 CA 28 41 24 2C 33  2C 32 29 29 00 81 0A 8C  |.(.(A$,3,2))....|
00000260: 00 8B 48 B1 31 32 B0 48  B3 31 B0 4D B1 35 39 B0  |..H.12.H.1.M.59.|
00000270: 4D B3 30 B0 53 B1 35 39  B0 53 B3 30 A7 35 30 20  |M.0.S.59.S.0.50 |
00000280: 20 00 87 0A 96 00 3A 00  9C 0A A0 00 8F 20 43 4F  | .....:...... CO|
00000290: 4E 56 45 52 54 20 54 4F  20 42 43 44 00 A2 0A AA  |NVERT TO BCD....|
000002A0: 00 3A 00 C5 0A B4 00 48  B2 C5 28 CA 28 41 24 2C  |.:.....H..(.(A$,|
000002B0: 31 2C 31 29 29 AC 31 36  AA C5 28 CA 28 41 24 2C  |1,1)).16..(.(A$,|
000002C0: 32 2C 31 29 29 00 E8 0A  BE 00 4D B2 C5 28 CA 28  |2,1)).....M..(.(|
000002D0: 41 24 2C 33 2C 31 29 29  AC 31 36 AA C5 28 CA 28  |A$,3,1)).16..(.(|
000002E0: 41 24 2C 34 2C 31 29 29  00 0B 0B C8 00 53 B2 C5  |A$,4,1)).....S..|
000002F0: 28 CA 28 41 24 2C 35 2C  31 29 29 AC 31 36 AA C5  |(.(A$,5,1)).16..|
00000300: 28 CA 28 41 24 2C 36 2C  31 29 29 00 11 0B D2 00  |(.(A$,6,1)).....|
00000310: 3A 00 24 0B DC 00 8F 20  53 45 4C 45 43 54 20 41  |:.$.... SELECT A|
00000320: 4D 2F 50 4D 00 2A 0B E6  00 3A 00 3F 0B F0 00 99  |M/PM.*...:.?....|
00000330: 22 12 41 92 4D 20 4F 52  20 12 50 92 4D 3F 22 00  |".A.M OR .P.M?".|
00000340: 5D 0B FA 00 A1 42 24 3A  8B 42 24 B3 B1 22 41 22  |]....B$:.B$.."A"|
00000350: AF 42 24 B3 B1 22 50 22  A7 32 35 30 20 00 63 0B  |.B$.."P".250 .c.|
00000360: 04 01 3A 00 88 0B 0E 01  8F 20 49 46 20 48 4F 55  |..:...... IF HOU|
00000370: 52 53 3D 31 32 20 54 48  45 4E 20 52 45 56 45 52  |RS=12 THEN REVER|
00000380: 53 45 20 41 4D 2F 50 4D  00 8E 0B 18 01 3A 00 BE  |SE AM/PM.....:..|
00000390: 0B 22 01 8B C8 28 41 24  2C 32 29 B2 22 31 32 22  |."...(A$,2)."12"|
000003A0: A7 5A B2 31 32 38 3A 91  AB 28 42 24 B2 22 41 22  |.Z.128:..(B$."A"|
000003B0: 29 89 33 34 30 3A 5A B2  30 3A 89 33 34 30 00 D4  |).340:Z.0:.340..|
000003C0: 0B 2C 01 5A B2 30 3A 8B  42 24 B2 22 50 22 A7 5A  |.,.Z.0:.B$."P".Z|
000003D0: B2 31 32 38 00 DA 0B 36  01 3A 00 F8 0B 40 01 8F  |.128...6.:...@..|
000003E0: 20 50 4F 4B 45 20 49 4E  20 54 49 4D 45 2C 20 41  | POKE IN TIME, A|
000003F0: 4E 44 20 53 54 41 52 54  00 FE 0B 4A 01 3A 00 26  |ND START...J.:.&|
00000400: 0C 54 01 99 22 93 22 3A  54 B2 35 36 33 32 38 3A  |.T..".":T.56328:|
00000410: 97 54 AA 33 2C 48 AA 5A  3A 97 54 AA 32 2C 4D 3A  |.T.3,H.Z:.T.2,M:|
00000420: 97 54 AA 31 2C 53 00 2C  0C 5E 01 3A 00 4E 0C 68  |.T.1,S.,.^.:.N.h|
00000430: 01 97 54 2C 30 3A 8F 20  53 45 54 20 54 45 4E 54  |..T,0:. SET TENT|
00000440: 48 53 20 53 54 41 52 54  20 43 4C 4F 43 4B 00 54  |HS START CLOCK.T|
00000450: 0C 72 01 3A 00 5A 0C 7C  01 8E 00 60 0C 86 01 3A  |.r.:.Z.|...`...:|
00000460: 00 71 0C 90 01 3A 8F 20  52 45 41 44 20 54 49 4D  |.q...:. READ TIM|
00000470: 45 00 77 0C 9A 01 3A 00  99 0C A4 01 48 B2 C2 28  |E.w...:.....H..(|
00000480: 54 AA 33 29 AF 33 31 3A  4D B2 C2 28 54 AA 32 29  |T.3).31:M..(T.2)|
00000490: 3A 53 B2 C2 28 54 AA 31  29 00 B9 0C AE 01 5A 24  |:S..(T.1).....Z$|
000004A0: B2 22 41 4D 22 3A 8B C2  28 54 AA 33 29 B1 31 32  |."AM":..(T.3).12|
000004B0: 37 A7 5A 24 B2 22 50 4D  22 00 BF 0C B8 01 3A 00  |7.Z$."PM".....:.|
000004C0: E0 0C C2 01 58 B2 C2 28  54 29 3A 8F 20 52 45 41  |....X..(T):. REA|
000004D0: 44 31 30 54 48 53 20 26  20 55 4E 4C 41 54 43 48  |D10THS & UNLATCH|
000004E0: 00 E6 0C CC 01 3A 00 EC  0C D6 01 3A 00 08 0D E0  |.....:.....:....|
000004F0: 01 8F 20 43 4F 4E 56 45  52 54 20 42 43 44 20 54  |.. CONVERT BCD T|
00000500: 4F 20 42 49 4E 41 52 59  00 0E 0D EA 01 3A 00 28  |O BINARY.....:.(|
00000510: 0D F4 01 48 48 B2 B5 28  48 AD 31 36 29 3A 48 4C  |...HH..(H.16):HL|
00000520: B2 48 AB 48 48 AC 31 36  00 42 0D FE 01 4D 48 B2  |.H.HH.16.B...MH.|
00000530: B5 28 4D AD 31 36 29 3A  4D 4C B2 4D AB 4D 48 AC  |.(M.16):ML.M.MH.|
00000540: 31 36 00 5C 0D 08 02 53  48 B2 B5 28 53 AD 31 36  |16.\...SH..(S.16|
00000550: 29 3A 53 4C B2 53 AB 53  48 AC 31 36 00 79 0D 12  |):SL.S.SH.16.y..|
00000560: 02 48 24 B2 CA 28 C4 28  48 48 29 2C 32 29 AA CA  |.H$..(.(HH),2)..|
00000570: 28 C4 28 48 4C 29 2C 32  29 00 96 0D 1C 02 4D 24  |(.(HL),2).....M$|
00000580: B2 CA 28 C4 28 4D 48 29  2C 32 29 AA CA 28 C4 28  |..(.(MH),2)..(.(|
00000590: 4D 4C 29 2C 32 29 00 B3  0D 26 02 53 24 B2 CA 28  |ML),2)...&.S$..(|
000005A0: C4 28 53 48 29 2C 32 29  AA CA 28 C4 28 53 4C 29  |.(SH),2)..(.(SL)|
000005B0: 2C 32 29 00 B9 0D 30 02  3A 00 D5 0D 3A 02 8F 20  |,2)...0.:...:.. |
000005C0: 46 4F 52 4D 20 53 54 52  49 4E 47 20 4F 46 20 56  |FORM STRING OF V|
000005D0: 41 4C 55 45 53 00 DB 0D  44 02 3A 00 FA 0D 4E 02  |ALUES...D.:...N.|
000005E0: 54 24 B2 48 24 AA 22 3A  22 AA 4D 24 AA 22 3A 22  |T$.H$.":".M$.":"|
000005F0: AA 53 24 AA 22 20 22 AA  5A 24 00 00 0E 58 02 3A  |.S$." ".Z$...X.:|
00000600: 00 13 0E 62 02 8F 20 41  4E 44 20 50 52 49 4E 54  |...b.. AND PRINT|
00000610: 20 49 54 00 19 0E 6C 02  3A 00 36 0E 76 02 99 22  | IT...l.:.6.v.."|
00000620: 13 20 20 20 20 20 20 20  20 20 20 20 20 20 12 20  |.             . |
00000630: 22 54 24 22 20 22 00 3C  0E 80 02 8E 00 00 00     |"T$" ".<....... |

..).... ********************************
*.Q.... *    TIME OF DAY CLOCK DEMO     
*.Y.... * USING HOURS, MINUTES, SECONDS 
*...... *        AND AM OR PM.          
*.I.... *                               
*...... *   A MODIFICATION OF BARTONS   
*...... *  TOD-DEMO, BY BOB K7 4-24-87  
*.A.... ********************************
*.G...:.`....50:. GO TO SET TIME......41
0:. GO TO READ & PRINT TIME......20:. KE
EP GOING...(.:...2.:. SET TIME...<.:...F
.."....ENTER CURRENT TIME (HHMMSS)";...P
..A$:."."...Z.:...D.. CHECK FOR VALID IN
PUT...N.:./.X.A$."000000".A$:A$.I(A$,6).
\...H.E(H(A$,2)):S.E(I(A$,2)):M.E(J(A$,3
,2))......H.12.H.1.M.59.M.0.S.59.S.0.50 
 .....:... .. CONVERT TO BCD.....:.E...H
.E(J(A$,1,1)).16.E(J(A$,2,1)).....M.E(J(
A$,3,1)).16.E(J(A$,4,1))...H.S.E(J(A$,5,
1)).16.E(J(A$,6,1))...R.:.$.... SELECT A
M/PM.*...:.?....".A.M OR .P.M?".]....B$:
.B$.."A".B$.."P".250 .C...:...... IF HOU
RS=12 THEN REVERSE AM/PM.....:..."..H(A$
,2)."12".Z.128:..(B$."A").340:Z.0:.340.T
.,.Z.0:.B$."P".Z.128.Z.6.:...@.. POKE IN
 TIME, AND START...J.:.&.T..".":T.56328:
.T.3,H.Z:.T.2,M:.T.1,S.,.^.:.N.H..T,0:. 
SET TENTHS START CLOCK.T.R.:.Z.|...`...:
.Q...:. READ TIME.W...:.....H.B(T.3).31:
M.B(T.2):S.B(T.1).....Z$."AM":.B(T.3).12
7.Z$."PM".....:...B.X.B(T):. READ10THS &
 UNLATCH...L.:...V.:...... CONVERT BCD T
O BINARY.....:.(...HH..(H.16):HL.H.HH.16
.B...MH..(M.16):ML.M.MH.16.\...SH..(S.16
):SL.S.SH.16.Y...H$.J(D(HH),2).J(D(HL),2
).....M$.J(D(MH),2).J(D(ML),2)...&.S$.J(
D(SH),2).J(D(SL),2)...0.:.U.:.. FORM STR
ING OF VALUES...D.:...N.T$.H$.":".M$.":"
.S$." ".Z$...X.:...B.. AND PRINT IT...L.
:.6.V..".             . "T$" ".<.......

Visualization:

Width: Skip load address (+2) Invert

> CLICK IMAGE PREVIEW FOR FULL MODAL