10 ' save "TOKEI.BAS",A
20 CONSOLE 0,25,0,0,0 :SCREEN 3:COLOR 0:WIDTH 80,20
30 DIM XY(60,1)
40 CLS 3
50 GOSUB *TOKEI.SET
60 GOSUB *TOKEI:GOTO 60
70 '-------------ŽžŒv---------
80 *TOKEI.SET
90 FOR I= -30 TO 30
100 XY(30-I,0)=COS(3.1416*(I/30 )):XY(30-I,1)=SQR(1-(XY(30-I,0)^2))*SGN(I)
110 NEXT I
120 '--
130 R=30:XX=100:YY=100 ''''''''R=»²½Þ:XX=²Á(X):YY=²Á(Y)'''''''''''
140 X0=R*1.5+XX:Y0= R*1.5+YY
150 R1=R*1.13:R2=R*1.15
160 LINE(X0-R*1.5 ,Y0-R*1.5 )-(X0+R*1.5 ,Y0+R*1.5 ),7,BF
170 LINE(X0-R*1.4 ,Y0-R*1.4 )-(X0+R*1.4 ,Y0+R*1.4 ),0,B
180 FOR I=0 TO 60
190 :LINE (X0+R1*XY(I,1),Y0+R1*XY(I,0))-(X0+R2* XY(I,1),Y0+R2*XY(I,0)),0
200 :NEXT I
210 R3=R:R4=R*1.3
220 FOR I=0 TO 60 STEP 5
230 :LINE (X0+R3*XY(I,1),Y0+R3*XY(I,0))-(X0+R4* XY(I,1),Y0+R4*XY(I,0)),0
240 :NEXT I
250 '--
260 S2=R*.9:M2=R*.8:H2=R*.6:S3=R*.2
270 GOSUB *HMS
280 DH.=H.-1:DM.=M.-1:DS.=S.-1
290 IF DH.<0 THEN DH.=59
300 IF DM.<0 THEN DM.=59
310 IF DS.<0 THEN DS.=59
320 GOSUB *H:GOSUB *M:GOSUB *S
330 RETURN
340 '====================
350 *TOKEI
360 GOSUB *HMS:IF DS.=S. THEN RETURN
370 IF DH.<>H. THEN GOSUB *H
380 IF DM.<>M. THEN GOSUB *M
390 GOSUB *S:RETURN
400 '=====================
410 *HMS
420 S.=VAL(MID$(TIME$,7,2))
430 M.=VAL(MID$(TIME$,4,2))
440 H.=((VAL(MID$(TIME$,1,2)) MOD 12)*5)+M.\12
450 RETURN
460 '--
470 *S
480 DSS=DS.-30:IF DSS<0 THEN DSS=DS.+30
490 SS= S.-30:IF SS<0 THEN SS= S.+30
500 LINE(X0+S2*XY(DS.,1),Y0+S2*XY(DS.,0))-(X0+S3* XY(DSS,1),Y0+S3*XY(DSS,0)),7
510 LINE(X0+S2* XY(S.,1),Y0+S2*XY(S.,0))-(X0+S3* XY(SS,1),Y0+S3*XY(SS,0)),0
520 LINE (X0,Y0)-(X0+M2* XY(M.,1),Y0+M2*XY(M.,0)),0
530 LINE (X0,Y0)-(X0+H2* XY(H.,1),Y0+H2*XY(H.,0)),0
540 DS.=S.
550 RETURN
560 '--
570 *M:LINE (X0,Y0)-(X0+M2* XY(DM.,1),Y0+M2*XY(DM.,0)),7:DM.=M.:RETURN
580 '--
590 *H:LINE (X0,Y0)-(X0+M2* XY(DH.,1),Y0+M2*XY(DH.,0)),7:DH.=H.:RETURN
600 '-
|