Hmmm... how does one make a box and move it across the screen without using a loop or variables. In a way that shouldn't be done.
` Make a box
ink rgb(255,0,0),0
box 0,0,50,50
get image 1,0,0,50,50,1
` Show the sprite
sprite 1,0,200,1
` Wait 20 nanoseconds
wait 20
sprite 1,10,200,1
wait 20
sprite 1,20,200,1
wait 20
sprite 1,30,200,1
wait 20
sprite 1,40,200,1
wait 20
sprite 1,50,200,1
wait 20
sprite 1,60,200,1
wait 20
sprite 1,70,200,1
wait 20
sprite 1,80,200,1
wait 20
sprite 1,90,200,1
wait 20
sprite 1,100,200,1
wait 20
sprite 1,110,200,1
wait 20
sprite 1,120,200,1
wait 20
sprite 1,130,200,1
wait 20
sprite 1,140,200,1
wait 20
sprite 1,150,200,1
wait 20
sprite 1,160,200,1
wait 20
sprite 1,170,200,1
wait 20
sprite 1,180,200,1
wait 20
sprite 1,190,200,1
wait 20
sprite 1,200,200,1
wait 20
sprite 1,210,200,1
wait 20
sprite 1,220,200,1
wait 20
sprite 1,230,200,1
wait 20
sprite 1,240,200,1
wait 20
sprite 1,250,200,1
wait 20
sprite 1,260,200,1
wait 20
sprite 1,270,200,1
wait 20
sprite 1,280,200,1
wait 20
sprite 1,290,200,1
wait 20
sprite 1,300,200,1
wait 20
sprite 1,310,200,1
wait 20
sprite 1,320,200,1
wait 20
sprite 1,330,200,1
wait 20
sprite 1,340,200,1
wait 20
sprite 1,350,200,1
wait 20
sprite 1,360,200,1
wait 20
sprite 1,370,200,1
wait 20
sprite 1,380,200,1
wait 20
sprite 1,390,200,1
wait 20
sprite 1,400,200,1
wait 20
sprite 1,410,200,1
wait 20
sprite 1,420,200,1
wait 20
sprite 1,430,200,1
wait 20
sprite 1,440,200,1
wait 20
sprite 1,450,200,1
wait 20
sprite 1,460,200,1
wait 20
sprite 1,470,200,1
wait 20
sprite 1,480,200,1
wait 20
sprite 1,490,200,1
wait 20
sprite 1,500,200,1
wait 20
sprite 1,510,200,1
wait 20
sprite 1,520,200,1
wait 20
sprite 1,530,200,1
wait 20
sprite 1,540,200,1
wait 20
sprite 1,550,200,1
wait 20
sprite 1,560,200,1
wait 20
sprite 1,570,200,1
wait 20
sprite 1,580,200,1
wait 20
sprite 1,590,200,1
wait 20
sprite 1,600,200,1
wait 20
sprite 1,610,200,1
wait 20
sprite 1,620,200,1
wait 20
sprite 1,630,200,1
wait 20
sprite 1,640,200,1
wait 20
sprite 1,650,200,1
wait 20
` Delete the sprite
delete sprite 1
` Clear the screen
cls
` Change the color back to white
ink rgb(255,255,255),0
` Show plea to do it the right way
text 0,0,"Done! Now can I do it the right way with a loop and variables?"
` Wait for a keypress
wait key
