Does this help?
sync on: sync rate 20
Hide Mouse
`set initial values
x#=20
y#=346
spd#=0
accl#=.2
fall_spd#=0
fall_accl#=.6
max_spd#=10
max_fall#=10
load image "mp5.bmp",1
Paste Image 1,20,346
Do
`Drawing Level
Ink RGB (0,255,0),0
BOX 0,400,640,480
Ink RGB(130,60,0),0
BOX 545,397,605,400
`Speed Up
If upkey()=1
If spd#<max_spd#
INC spd#,accl#
DEC fall_spd#,(fall_accl#/2)
endif
endif
`Slow Down
If upkey()=0
If spd#>0 Then DEC spd#,(accl#/2)
If spd#<0 Then spd#=0
EndIf
`Falling Down
If Upkey()=0
If spd#=0
INC fall_spd#,fall_accl#
EndIf
EndIf
`Side-To-Side Motion
If y<346
If leftkey()=1 Then x#=x#-2
If rightkey()=1 Then x#=x#+2
EndIf
y#=y#-spd#
Paste Image 1,x#,y#
Sync
Loop
I really don't understand exactly what you want to do.
"People don't fail ..... they stop trying." Specs. P4 2.8GHz 800 FSB | 512MB DDR333
GeForce FX 5200 AGP 256MB | Windows XP Pro Full