2004-09-18から1日間の記事一覧

何とか詰め込んだ感じ

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:L…