i'll write it from head now, probably it has some bugs.
start:
cls
print "use arrowkeys to rotate,shift and control to resize"
Input "Path>";path$
if file exist path$
cls
load object path$,1
else
print "sorry, file doesn't exist"
wait 200
goto start
endif
T#=1
do
if upkey()=1 then rotate object 1,0,1,0
fix object pivot 1
if downkey()=1 then rotate object 1,0,359,0
fix object pivot 1
if leftkey()=1 then rotate object 1,1,0,0
fix object pivot 1
if rightkey()=1 then rotate object 1,359,0,0
fix object pivot 1
if shiftkey()=1 then scale object 1,T#,T#,T# : inc T#
if controlkey()=1 then scale object 1,T#,T#,T# : dec T#
if T#=1 then inc T#
if T#=200 then dec T#
yosepp
fire, fire, fire
-"Cornholio" alias Beavis