Program I wrote to see if I have got to grips with basic 2D.

                                    ` This code was downloaded from The Game Creators
                                    ` It is reproduced here with full permission
                                    ` http://www.thegamecreators.com
                                    
                                    REM Project: my test prog
REM Created: 27/05/2005 21:19:23
REM By Dave Hartshorn
REM ***** Main Source File *****
REM Written to see if I have got to grips with sprites.
set display mode 1024,768,32
sync on:sync rate 50:hide mouse
angle=0:speed#=0:backdrop#=0
load bitmap "Space.jpg",1
get image 1,0,0,1023,767
load bitmap "1999.bmp",2
get image 2,2,3,92,215
set window title "Space 1999":set window layout 1,1,2
set current bitmap 0
sprite 1,0,0,1
sprite 2,(1024/2),(768/2),2
size sprite 2,50,100
set sprite 2,0,1
offset sprite 2,sprite width(2)/2,sprite height(2)/2
do
   cls
   set sprite texture coord 1, 0, 0.0, 0.0 + backdrop#
   set sprite texture coord 1, 1, 1.0, 0.0 + backdrop#
   set sprite texture coord 1, 2, 0.0, 1.0 + backdrop#
   set sprite texture coord 1, 3, 1.0, 1.0 + backdrop#
   if upkey() then speed#=speed#+0.05
   if downkey()then speed#=speed#-0.05
   if sprite x(2)>1024 or sprite x(2)<0 or sprite y(2)>768 or sprite y(2)<0 then move sprite 2,(2*(-speed#)):speed#=0
   if rightkey() then angle=angle+3
   if leftkey() then angle=angle-3
   move sprite 2,speed#
   angle=wrapvalue(angle)
   rotate sprite 2,angle
   backdrop#=backdrop#-0.001
   sync
loop