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
こういう現象をいかに表現するかというのも、IchigoJamのひとつの醍醐味ですね。ゲームの演出にも使えそうです!