set display mode 640,480,16
SYNC ON
SYNC RATE 40

set sprite 1,1,1
for x= 1 to 9
set sprite x+1,0,0
next x

for x=0 to 15
for y=0 to 11
line x*40,y*40,x*40+639,y*40
line x*40,y*40,x*40,y*40+479
next y
next x
set text font "times new roman"
set text size 48
print "This is just a sample bitmap"
get image 100,0,0,639,479
SET SPRITE PRIORITY 1,1

cls
for x=1 to 40
circle 50,50,x
next x
get image 1,0,0,100,100

SYNC ON
SYNC RATE 60

x=0
bx=0
by=0

DO
if leftkey()
bx=bx+2
if bx > 639 then bx = 0
endif

if rightkey()
bx=bx-2
if bx < -639 then bx=0
endif

if upkey()
by=by+2
if by >479 then by = 0
endif

if downkey()
by = by - 2
if by < -479 then by = 0
endif

sprite 1,220,140,1

sprite 2,640+bx,by,100
sprite 3,bx,by,100
sprite 4,bx-640,by,100

sprite 5,640+bx,by+480,100
sprite 6,bx,by+480,100
sprite 7,bx-640,by+480,100

sprite 8,640+bx,by-480,100
sprite 9,bx,by-480,100
sprite 10,bx-640,by-480,100

sync
LOOP