SCREEN3で時計つくってみた

 

MSX BASICのSCREEN3を使って、時計を表示させてみました。
MSX0に向けてBASICをリハビリしてます。 

動画
  

MSX2にて動作確認しました。

SCREEN3を使っているだけなのでMSX1でもうごくかと思ったけど、実行してみたらエラー出ちゃいました。。。 GET TIMEのところでエラー発生。(MSX2から対応しているのだとか）

画像：MSX1にてエラー

50行目のON INTERVAL=3600　のところの数値は、60分の1秒単位で指定する。
1秒なら 60
10秒なら 600
60秒なら 3600
となる。

BASICプログラム

	10 'save "clock-s3.bas"
	20 SCREEN 3:COLOR 15,4,7
	30 OPEN "GRP:" FOR OUTPUT AS #1
	40 ON STOP GOSUB 190:STOP ON
	50 ON INTERVAL=3600 GOSUB 140 '60Sec
	60 GOSUB 140
	70 INTERVAL ON
	80 '
	90 COLOR 15:PSET (64,3),4:PRINT #1,":"
	100 FOR I=0 TO 300:NEXT I
	110 COLOR 4:PSET (64,3),4:PRINT #1,":"
	120 FOR I=0 TO 300:NEXT I
	130 GOTO 90
	140 GET TIME T$
	150 T2$=LEFT$(T$,5)
	160 LINE(0,0)-(150,30),4,BF
	170 PSET(0,0),4:COLOR15:PRINT #1,T2$
	180 RETURN
	190 COLOR 15

view raw clock-s3.bas hosted with ❤ by GitHub