時計

 

MSX エミュレータに触れてみて、ふと気が付きまして。

MSX2 以降は CLOCK-ID によって現在の日時を取得できるのですが、

現在のパソコン・スマートフォン・タブレット端末は

常時ネット接続している状態で日時が合っているので、

MSX エミュレータの表示も正しい日時を取得できます。

そうすると、MSX のフォントを大きく表示して時計にするのもアリでは?

 

……という事で SCREEN 3 で時間を表示するシンプルなプログラムです。

PRINT # による線画は遅いので、時:分 のみにして、

変化した時に CLS⇢PRINT # で表示する仕組みにしています。

 

エミュレータで全画面表示させておくのも良いですが、

実機で実現できるとなお良いかもしれません。

100 SCREEN 3
110 OPEN"GRP:"AS #1
120 O$=""
130 GET TIME T$
140 T$=LEFT$(T$,5)
150 IF T$=O$ GOTO 130
160 CLS
170 DRAW"BM52,80"
180 PRINT #1,T$
190 O$=T$
200 GOTO 130