randomize//乱数初期化
screen 0,480,360,1//スクリーン作成
cls 4//黒で初期化
my=180//自分の縦軸初期位置
*loop_//エラー出るから_付けた
color 255,255,255//白い色指定
pset 340,my//横340,縦は変数my
stick ky,16//SpaceKey判定
if ky=16 :my=my-1 :else :my=my+1//SpaceKeyOnで位置を上に,違う場合は下に
pos 0,0//描画位置を0,0に指定
gcopy 0,1,0,479,360//Screen 0にScreen 0の横1dot,縦0dotから横479dot,縦360dotまでをコピー
wait 5
goto *loop_
//Screen 0に1dot描画した後にその画面を1dotずらしてコピー
//それを座標0,0に貼り付けるから先に描画されてたのは消える