こんな感じ?
celload "face.bmp" ; 元画像ファイル
face=stat ; 元画像のIDを保存
celdiv face,64,64,32,32 ; パーツのサイズと中心位置
x1=0 : y1=0 ; 左上XY
x2=640 : y2=480 ; 右下XY
mx=320.0 ; X座標
my=240.0 ; Y座標
msa=10.0 ; 最大スピード
msp=0.5 ; 加速スピード
mgo=0.0 ; スピード
mr=0.0 ; 角度
mrsp=0.1 ; 角度回転スピード
px=0.0 ; X移動ベクトル
py=0.0 ; Y移動ベクトル
mdown=0.95 ; 減衰率
*main
redraw 0 ; 描画始め
color 0,0,0
boxf ; 背景を消す
color 255,0,0 ; 色の指定
grect mx,my,mr,20,30 ; 長方形を描画
redraw 1 ; 描画終わり
await 20
stick key,15 ; キー入力
if key&1 : mr-=mrsp
if key&4 : mr+=mrsp
if key&2 : mgo=msp : gosub *main2
if key&8 : mgo=-msp : gosub *main2
mx=limitf( mx+px, x1, x2 )
my=limitf( my+py, y1, y2 )
px=limitf( px*mdown, -msa, msa )
py=limitf( py*mdown, -msa, msa )
goto *main
*main2
; 加速させる
rot=mr-1.57079632
px=px+cos(rot)*mgo
py=py+sin(rot)*mgo
return