Compucolor.org – Virtual Media

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