10 CLS:CLV:M=1:FORI=0TO1:LCX,Y/2:?CHR$(0):X=X-BTN(28)*!!X+BTN(29)*(X<30):Y=Y+M+M*!!S:SCROLL3:LCX,Y/2:S=SCR():?CHR$(#ED):M=M*(!S*2-1):LC29,RND(21)+1:?CHR$(6,6):I=!(Y%44):BEEPS-1:WAIT7:P=P+!!S:NEXT:?P
このゲームのアイデア、面白いですね。壁ではなくキャラクタを動かすという変更で、これだけ新鮮なゲームになるとは。行を分けたものも記載していただき、ありがとうございます!