Compucolor.org – Virtual Media

Listing of file='CLOCK.BAS;02' on disk='vmedia/demos-sector.ccvf'

10 H= 33211:M= 33210:S= 33209
20 POKE H,3:POKE M,33:POKE S,0
23 PLOT 12,8
25 REM
26 PRINT "HRS","MINS","SECS":PLOT 28
28 PLOT 3,0,2
30 PRINT PEEK (H),PEEK (M),PEEK (S)
40 PLOT 28,8
50 GOTO 25