Dim x as int                       'x coordinate
Dim y as int                       'y coordinate
Dim z as int                       'bitmap number
Dim mode as int                    'mode 
x=-80
y=49
z=0
mode=0
print "Loading..."
Sprite 1, "sprite.pic"             'load the sprites
Print "Still Loading..."
sprite 2, "root.ico"            'the b2c icon
move 2, -24,24			   'put b2c in the middle
print "Last time Loading..."
Music Background, "sprite.mus"
Music Background, Play
ink 1
print "lets go!"
While(true)                           'do forever
        If key(#KEY_LEFT) then
		x=x-1                  'move left
		mode=1                 'face left
		z=z+1                  'move feet
		if z>=5 then z=0       'cycle animation
	end if
        If key(#KEY_RIGHT) then 
		x=x+1                  'move right
		mode=0                 'face right
		z=z+1                  'move feet
		if z>=5 then z=0       'cycle animation
	end if
        If key(#KEY_UP) then y=y+1       'move up
        If key(#KEY_DOWN) then y=y-1       'move down
	Move 1, x, y, z, mode        'move and animate sprite
	vibrate 0
	if collision(1,2) then vibrate 128
	Redraw
Wend