Listing of file='CLOCK.BAS;01' on disk='vmedia/demos-sector.ccvf'
10 PRINT "K" 20 DIM A(3),B(2):B(0)= 60:B(1)= 60:B(2)= 24:PLOT 6,6,15,12 40 A(2)= 11:A(1)= 59:A(0)= 45 100 PLOT 6,3,3,24,10:PRINT "REAL TIME CLOCK" 110 PLOT 3,24,13:PRINT "STANDARD ON EVERY" 130 PLOT 3,26,16:PRINT "COMPUCOLOR II":PLOT 14 150 IF PEEK (33209)= WGOTO 150 160 W= PEEK (33209):A(0)= A(0)+ 1.2:FOR Q= 0TO 2 180 IF A(Q)> = B(Q)THEN A(Q+ 1)= A(Q+ 1)+ 1:A(Q)= 0:PLOT 11 190 NEXT Q 200 PLOT 3,128,27,6,7:PRINT A(2); 210 PLOT 3,128,30,6,7,58:PRINT A(1); 220 PLOT 3,128,35,6,7,58:PRINT INT (A(0)) 230 PLOT 3,64,6 240 IF A(2)= 11GOTO 150