奀笘

蔬犖坒蚐悝埏蜇笢 桲寣窀
1992-09-18

        炊10 KEY OFF:CLS:SCREEN 1:COLOR
        16,1:X0=160:Y0=100:pI=3.141549:HR=30:MR=40:SR=60:E=3.14159/2:LOCATE 5,1:PRINT DATE$
        20 FOR P=1 TO 12
        炊30 X1=62*COS(P/6*PI-E)+X0:Y1=62*SIN(P/6*PI-E)+Y0
        炊40 X1=80*COS(P/6*PI-E)+X0:Y1=80*SIN(P/6*PI-E)+Y0
        炊50 LINE (X1,Y1)-(X2,Y2),2
        炊60 NEXT P
        炊70 V$-TIMEE$
        炊80 IF MID$(Va$,2,1)=":" THEN GOTO 100
        炊90 HH$=LEFT$(F$,2):MM$=MID$(V$,4,2):SS$=RIGHT$(V$,2):GOTO 110
        炊100 HH$=LEFT$(V$,1):MM$=MID$(V$,3,2):SS$=RIGHT$(V$,2)
        炊110 HH$=VAL(HH$):MM=VAL(MM$):SS=VAL(SS$)
        炊120 IF MM<>0 THEN 140
        炊130 IF SS>1 THEN 140 ELSE BEEP
        炊140 CIRCLE(X0,Y0),3,2:PAINT (X0,Y0),2
        炊150 XS=SR*COS(SS/30*PI-E)+X0
        炊160 YS=SR*SIN(SS/30*PI-E)+Y0
        炊170 XM=MR*COS(MM/30*PI-E)+X0
        炊180 YM=MR*SIN(MM/30*PI-E)+Y0
        炊190 XH=HR*COS(HH/6*PI+MM/360*PI-E)+X0
        炊200 YH=HR*SIN(HH/6*PI+M/360*PI-E)+Y0
        炊210 LINE (X0,Y0)-(XS1,YS1),0
        炊220 LINE (X0,Y0)-(XS,YS),1
        炊230 LINE (X0,Y0)-(XM1,YM1),0
        炊240 LINE (X0,Y0)-(XM,YM),1
        炊250 LINE (X0,Y0)-(XH1,YH1),0
        炊260 LINE (X0,Y0)-(XH,YH),1
        炊270 XS1=XS:YS1=YS:XM1=XM:YM1=YM:XH1=XH:H1=YH
        炊280 GOTO 70
 
 