• ichigojam

10 'TIME ICHIGOJAM
20 H=0:M=0
30 INPUT "H 0-23>",H
40 INPUT "M 0-59>",M
50 ? H;:?".";:?M
60 '
70 '
80 '
90 ?"INT":'WAIT 60
100 'LOOP
110 ?H/10;
120 ?H%10;
130 ?".";
140 ?M/10;
150 ?M%10
160 'POKE #700,0,1:R=I2CW(#3E,#700,2)
170 'POKE #702,64,48+H/10,48+H%10,46,48+M/10,48+M%10
180 'R=I2CW(#3E,#702,6)
190 WAIT 60*60-0 :'1M
200 'UP
210 M = M + 1
230 IF M < 60 GOTO 280
240 H = H + 1:M = 0
250 IF H < 24 GOTO 280
260 H = 0
270 '
280 'NEXT
290 'WAIT 5
300 GOTO 100

Kidspod運営チーム2020/07/10 17:29:59

更新の間隔が一分ごとというのは、かなりゆっくりですね。スローライフ。VIDEOコマンドを使って表示を大きくすると、より時計らしさが出るかも。

Pagetop