Compute! Gazette 1994 March/1994-03b.d64/time

Text File | 2022-09-20 | 623b | 33 lines

'
'set/display time
'
]d0
]t "[1" > 00 :]g set time
@display time
zh=peek(56587):zm=peek(56586):zs=peek(56585):zt=peek(56584)
poke49155,zhand127:poke49156,zm:poke49157,zs:poke49158,zhand128
]o0 0d "*"
]c c2e8 [a
]o0 ":"
]c c2e8 [b
]o0 ":"
]c c2e8 [c
]t [d = 80 :]o0 " pm" 0d
]t [d = 00 :]o0 " am" 0d
]e
@set time
]p a 0286
]p b d021
]s 0286 [b
]o0 93 "[1"
zh=(peek(1024)-48)*16+peek(1025)-48+128*abs(peek(1030)=16)
zm=(peek(1026)-48)*16+peek(1027)-48
zs=(peek(1028)-48)*16+peek(1029)-48
poke56587,zh:poke56586,zm:poke56585,zs
]s 0286 [a
]o0 0d 0d "press a key to start clock"
]i a 0
]s dd08 00
]o0 93 0d 0d
]g display time