３の倍数と３が付く数字の時だけアホになります [MSX]

タイトルの通り。

１から数字を数えて、３の倍数と３が付く数字の時だけアホになります。
世界のナベアツさんのネタです。

動画

実行結果

3で割り切れるときは　＊を表示。
3がつく数字で ＠を 表示します

BASICプログラム

振り子を動かす

グラフィックモードで、ページ切り替えを使ってアニメーションさせます。
ページ0とページ1でそれぞれ違う画像を描画して、ページを交互に表示させています。

実行画面

BASICプログラム

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プログラム