イチゴジャムおじさん

人を上下左右に移動させる習作

10 タイトル
20 初期化
30 キャラクタ表示
40 @DO ラベル　繰り返し始点
50 キー入力　変数Ｋ
60 キーが押されていたら　キャラクタを消す
70 横位置ＸをＶに記録：横位置を演算
80 横位置が ０～３１　でなければ元の位置
90 縦位置YをWに記録：縦位置を演算
100 縦位置が ０～２２　でなければ元の位置
110 左上に横,縦を表示　CHR$(12)で行末まで削除
120 キャラクタをX,Yに表示
130 @DO 繰り返し始点にもどる