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