Listing of file='CLOCK.BAS;01' on disk='vmedia/games2-sector.ccvf'
0 PLOT 12 1 CLEAR 100:C2= 63:C3= 63 10 INPUT "HH,MM,SS ?";Z0,Y0,X0 20 PLOT 12,3,64,0 25 GOSUB 298 30 POKE 33209,X0:POKE 33210,Y0:POKE 33211,Z0 40 X= PEEK (33209):Y= PEEK (33210):Z= PEEK (33211) 50 IF Z= 0AND C= 1THEN S= S+ 1:C= 0 60 IF C= 0AND Z< > 0THEN C= 1 70 T= 3600* (24* S+ Z- Z0)+ 60* (Y- Y0)+ X- X0 80 T= T* 6/ 5 90 Z1= Z0+ INT (T/ 3600) 100 T= T- INT (T/ 3600)* 3600 110 Y1= Y0+ INT (T/ 60) 120 T= T- INT (T/ 60)* 60 130 X1= X0+ INT (T) 140 IF X1> 59THEN X1= X1- 60:Y1= Y1+ 1 150 IF Y1> 59THEN Y1= Y1- 60:Z1= Z1+ 1 160 M$= "AM" 170 IF Z1> 11THEN M$= "PM" 180 IF Z1> 12THEN Z1= Z1- 12 200 Z1= Z1* 5+ Y1/ 12 201 GOSUB 400 210 GOSUB 500 211 GOSUB 600 212 PLOT 3,0,0:PRINT "";M$;"" 220 REM 230 GOTO 40 298 R= 63:PI= 3.1412:F= .8 299 PLOT 2,63+ R* F,63,242 300 FOR I= 1TO 104STEP 4 310 T= I* PI/ 50 320 PLOT R* COS (T)* F+ 63,R* SIN (T)+ 63 330 NEXT I 340 PLOT 255 350 PLOT 3,30,2:PRINT "12":PLOT 3,31,30:PRINT "6" 360 PLOT 3,8,16:PRINT "9":PLOT 3,54,16:PRINT "3" 361 PLOT 3,12,9:PRINT "10":PLOT 3,20,4:PRINT "11" 362 PLOT 3,42,4:PRINT "1":PLOT 3,50,9:PRINT "2" 363 PLOT 3,43,28:PRINT "5":PLOT 3,51,23:PRINT "4" 364 PLOT 3,20,28:PRINT "7":PLOT 3,12,23:PRINT "8" 370 RETURN 400 TE= (75- X1)* PI/ 30 410 C4= 63+ R* F* .8* COS (TE):C5= 63+ R* .8* SIN (TE) 420 PLOT 17:PRINT " ":PLOT 2,63,63,242,C2,C3,255 430 PLOT 2,63,63,242,C4,C5,255:PRINT " " 440 C2= C4:C3= C5:RETURN 500 TE= (75- Y1)* PI/ 30 510 B4= 63+ R* F* .7* COS (TE):B5= 63+ R* .7* SIN (TE) 520 PLOT 19:PRINT " ":PLOT 2,63,63,242,B2,B3,255 530 PLOT 2,63,63,242,B4,B5,255:PRINT " " 540 B2= B4:B3= B5:RETURN 600 TE= (75- Z1)* PI/ 30 610 A4= 63+ R* F* .5* COS (TE):A5= 63+ R* .5* SIN (TE) 620 PLOT 19:PRINT " ":PLOT 2,63,63,242,A2,A3,255 630 PLOT 2,63,63,242,A4,A5,255:PRINT " " 640 A2= A4:A3= A5:RETURN