サイコロあげるよ ID:9DwYaeL0

というか「文字のゲージを一定時間で1つ消える」が分からんのや

10 CLS :DIM M(2,2):FOR I=0TO 2:FOR J=0TO 2:READ M(J,I):NEXT :NEXT
20 GOSUB *HYOJI
30 GOTO 30
40 *HYOJI LINE (0,0)-(63,31),B
50 IF M(2,0)=1 LINE (0,0)-(10,5):LINE -(10,27):LINE -(0,31)ELSE LINE (0,5)-(10,27),B
60 IF M(0,0)=1 LINE (63,0)-(53,5):LINE -(53,27):LINE -(63,31)ELSE LINE (53,5)-(63,27),B
70 IF M(1,1)=1 LINE (11,5)-(52,27),B:RETURN
80 IF M(2,1)=1 LINE (10,5)-(19,9):LINE -(19,22):LINE -(10,27)ELSE LINE (10,9)-(19,22),B
90 IF M(0,1)=1 LINE (52,5)-(43,9):LINE -(43,22):LINE -(52,27)ELSE LINE (43,9)-(53,22),B
100 IF M(1,2)=1 LINE (19,9)-(43,22),B:RETURN
1000 DATA 0,0,1
1010 DATA 1,0,0
1020 DATA 1,1,1

これ写して実行したらワクワクしてきた
これを動かせるようになりたいな