buffer 1 ;ウィンドウID 1番
picload "1.bmp" ;画像ファイル読み込み
screen 0 ;ウィンドウID 0番
gmode 2, 90, 90 ;コピーモード設定
x = 90 : y = 90
dx = 8 : dy = 8
repeat
redraw 0 ;仮描画
color 255, 255, 255 ;白色。背景と同じ色。
boxf ;ウィンドウと同じサイズの四角形を塗りつぶしで描画する。
color 0, 0, 0 ;黒色
pos x, y ;カレントポジション設定
gcopy 1, 0, 0 ;画像コピー
stick key, 15 ;キー入力
if key & 16 : x = x - dx ;左
if key & 4 : x = x + dx ;右
if key & 128 : end ;[Esc]
if x >= ginfo_winx - 32 : x = ginfo_winx - 32 ;右壁に衝突。
if x <= 0 : x = 0 ;左壁に衝突。
redraw 1 ;実描画
await 30 ;無限ループの時のお約束
loop
stop
これでキーを押したら画像が動くようにしたんですが、スペースキーを押しっぱなしにしても画像が進みません
どうやればできるでしょうか??