何とか詰め込んだ感じ

MSX

昔の消した日記に残っていた、MSX2 以上で動作するアナログ時計です。

1 COLOR14,1,1:SCREEN5:DEFFNA(X)=VAL(MID$
(T$,X,2))*ATN(1)/45:X=128:Y=106:M=9:FORI
=0TO1:I=0:L=M:GETTIMET$:M=FNA(4)*6:IFL=M
THENNEXTELSECLS:CIRCLE(X,Y),80:H=M/12+FN
A(1)*30:LINE(X,Y)-(X+65*SIN(M),Y-65*COS(
M)),5:LINE(X,Y)-(X+40*SIN(H),Y-40*COS(H)
),7:NEXT