cls
input "type a text( max 10 letters) : ";text$
cls
set cursor text width(text$)-text width(text$),0
print text$
get image 1,text width(text$)-text width(text$),1,text width(text$),20
sync on
make object cube 1,100
texture object 1,1
xrotate object 1,180
fix object pivot 1
do
sync
y#=wrapvalue(y#+3)
yrotate object 1,y#
loop