Compucolor.org – Virtual Media

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

10 PLOT 6,39,12,14
20 PRINT "DO YOU WANT TO SET THE TIME";
30 INPUT ANS$
40 IF ANS$= "N"THEN GOTO 100
50 PRINT "ENTER TIME: H,M,S AND HIT (RET)";
60 INPUT H,M,S
70 POKE 33209,S:POKE 33210,M:POKE 33211,H
80 S1= S:M1= M:H1= H
90 IF PEEK (33209)= S1THEN GOTO 90
100 S1= PEEK (33209):M1= PEEK (33210):H1= PEEK (33211)
110 S$= STR$ (S1):M$= STR$ (M1):H$= STR$ (H1)
120 IF S1< 10THEN S$= "0"+ S$
130 IF M1< 10THEN M$= "0"+ M$
140 IF H1< 10THEN H$= "0"+ H$
150 PLOT 8,9,9,9,9,9,9
155 PRINT H$;":";M$;":";S$
160 GOTO 90