ゲームなどに使ってください。
(IchigoJam 1.3.1 検証済み)
- 10 CLS:X=RND(31):Y=0
- 20 LC X,Y:?CHR$(#7C)
- 30 Y=Y+1:BEEP 5:WAIT 1
- 40 X=X-RND(2):BEEP 10
- 50 X=X+RND(2):BEEP 7
- 60 IF Y=23 THEN GOTO 100
- 70 IF X=0 THEN X=30
- 80 IF X=31 THEN X=1
- 90 GOTO 20
- 100 WAIT RND(61)
- 110 GOTO 10