• GOOD!1
• PLAY!1
• VIEW920

イチゴジャムおじさん

1行川下り　67文字　

F1で画面をクリアして、F5でRUN
タイトルもCLSもXの初期化も省きました。
キャラクタも"数字"にすることで4文字減。

-BTN()*2+1 でボタン操作にすればさらに小さくなります。

ダイレクトモードでは動きませんでした。
FOR NEXT ループで変数を0にすればいけるかな。

障害物が川下から流れてくる。
1LCRND(31),23:?0:CONT

ヘビが川を下ります。
1LCRND(31),23:?0:LCX,4:?8:CONT

速度調節
1LCRND(31),23:?0:LCX,4:?8:WAIT5:CONT

左右に移動します
1LCRND(31),23:?0:LCX,4:?8:WAIT5:X=X-BTN(28)+BTN(29):CONT

あたり判定をつけました
1LCRND(31),23:?0:LCX,4:?8:WAIT5:X=X-BTN(28)+BTN(29):IF!SCR(X,5)CONT