here is an example [no media]
screenx=640
screeny=480
set display mode screenx,screeny,16
sync on
sync rate 0
gosub mariosr
get image 1,0,0,13,19
x=100
y=100
rem main loop
do
sprite 1,x,y,1
gosub mariomovement
rem addition
if x<0 then x=0
if y<0 then y=0
if x>screenx-sprite width(1) then x=screenx-sprite width(1)
if y>screeny-sprite height(1) then y=screeny-sprite height(1)
sync
loop
mariomovement:
if upkey()=1 then dec y
if downkey()=1 then inc y
if leftkey()=1 then dec x
if rightkey()=1 then inc x
return
mariosr:
rem mario standing, watching right
ink rgb(80,0,0),0
dot 6,0 : dot 7,0 : dot 8,0 : dot 9,0 : dot 10,0 : dot 4,1 : dot 5,1 : dot 11,1 : dot 3,2 : dot 11,2 : dot 2,3 : dot 1,4 : dot 1,5
dot 0,6 : dot 0,7 : dot 0,8 : dot 3,11 : dot 2,12 : dot 2,13
ink rgb(250,60,110),0
dot 6,1 : dot 7,1 : dot 8,1 : dot 10,1 : dot 4,2 : dot 5,2 : dot 4,3 : dot 5,12
ink rgb(250,210,110),0
dot 9,1 : dot 9,2 : dot 7,18 : dot 9,18
ink rgb(210,160,60),0
dot 8,2
ink rgb(176,40,96),0
dot 6,2 : dot 7,2 : dot 3,3 : dot 5,3 : dot 6,3 : dot 2,4 : dot 3,4 : dot 4,4 : dot 4,11 : dot 4,12 : dot 3,12
ink rgb(20,20,20),0
dot 7,3 : dot 8,3 : dot 8,3 : dot 9,3 : dot 10,3 : dot 11,3 : dot 12,3 : dot 5,4 : dot 6,4 : dot 7,4 : dot 8,4 : dot 9,4 : dot 10,4
dot 11,4 : dot 12,4 : dot 13,4 : dot 3,5 : dot 4,5 : dot 5,5 : dot 7,5 : dot 9,5 : dot 4,6 : dot 7,6 : dot 9,6 : dot 4,7 : dot 5,7
dot 4,8 : dot 7,8 : dot 1,8 : dot 1,9 : dot 2,9 : dot 6,9 : dot 7,9 : dot 8,9 : dot 9,9 : dot 10,9 : dot 11,9 : dot 12,9
dot 2,10 : dot 8,10 : dot 9,10 : dot 10,10 : dot 11,10 : dot 7,17 : dot 9,17 : dot 3,18 : dot 8,18 : dot 10,18
dot 3,19 : dot 4,19 : dot 5,19 : dot 6,19 : dot 7,19 : dot 8,19 : dot 9,19 : dot 10,19
ink rgb(255,255,255),0
dot 10,2 : dot 7,13 : dot 8,13 : dot 7,14 : dot 8,14 : dot 10,13 : dot 10,14
dot 3,14 : dot 4,14 : dot 5,14 : dot 3,15 : dot 4,15 : dot 3,16 : dot 4,16
ink rgb(248,112,104),0
dot 6,5 : dot 8,5 : dot 10,5 : dot 5,6 : dot 1,7 : dot 2,8 : dot 8,8 : dot 9,8 : dot 10,8 : dot 11,8 : dot 12,8
dot 3,9 : dot 4,9 : dot 5,10 : dot 6,10 : dot 7,10
ink rgb(248,208,192),0
dot 2,5 : dot 1,6 : dot 3,6 : dot 6,6 : dot 8,6 : dot 10,6 : dot 3,7 : dot 6,7 : dot 7,7 : dot 8,7 : dot 9,7 : dot 10,7 : dot 11,7 : dot 12,7
dot 3,8 : dot 5,8 : dot 6,8 : dot 5,9
ink rgb(136,88,24),0
dot 2,6 : dot 11,6 : dot 12,6 : dot 2,7 : dot 13,7 : dot 13,8 : dot 3,10 : dot 4,10 : dot 5,11 : dot 6,11 : dot 7,11 : dot 8,11
dot 3,13 : dot 4,13 : dot 5,13 : dot 2,14 : dot 6,14 : dot 2,15 : dot 5,15 : dot 2,16 : dot 5,16 : dot 3,17 : dot 4,17 : dot 5,17 : dot 6,17
dot 8,17 : dot 4,18 : dot 5,18 : dot 6,18
ink rgb(32,48,136),0
dot 9,11 : dot 10,12 : dot 11,13 : dot 11,14 : dot 11,15 : dot 10,16 : dot 8,16
ink rgb(128,216,200),0
dot 8,12 : dot 9,12 : dot 9,13 : dot 9,14 : dot 9,15 : dot 10,15
ink rgb(64,128,152),0
dot 6,12 : dot 7,12 : dot 6,13 : dot 6,15 : dot 7,15 : dot 8,15 : dot 6,16 : dot 7,16 : dot 9,16
return
=====================
EDIT:
Here is the walkcode:
screenx=320
screeny=240
set display mode screenx,screeny,16
sync on
sync rate 30
rem get mario image
gosub mariosr
get image 1,0,0,13,19
cls
rem get mario image 2
gosub mariowr
get image 2,0,0,14,19
cls
rem get mario image 3
create bitmap 1,13,19
gosub mariosr
mirror bitmap 1
get image 3,0,0,13,19
set current bitmap 0
delete bitmap 1
cls
rem get mario image 4
create bitmap 1,15,20
gosub mariowr
mirror bitmap 1
get image 4,0,0,15,20
set current bitmap 0
delete bitmap 1
cls
x=100
y=100
cls
rem main loop
aninum=1
do
inc tact
if tact=6
if rightkey()=1 then inc aninum : if aninum>2 then aninum=1
if leftkey()=1 then inc aninum : if aninum>4 then aninum=3
tact=1
endif
sprite 1,x,y,aninum
rem do some gravity
y=y+8
gosub mariomovement
rem addition
if x<0 then x=0
if y<0 then y=0
if x>screenx-sprite width(1) then x=screenx-sprite width(1)
if y>screeny-sprite height(1) then y=screeny-sprite height(1)
sync
loop
mariomovement:
if upkey()=1 then dec y,2
if downkey()=1 then inc y,2
if leftkey()=1 then dec x,2
if rightkey()=1 then inc x,2
return
mariosr:
rem mario standing, watching right
ink rgb(80,0,0),0
dot 6,0 : dot 7,0 : dot 8,0 : dot 9,0 : dot 10,0 : dot 4,1 : dot 5,1 : dot 11,1 : dot 3,2 : dot 11,2 : dot 2,3 : dot 1,4 : dot 1,5
dot 0,6 : dot 0,7 : dot 0,8 : dot 3,11 : dot 2,12 : dot 2,13
ink rgb(250,60,110),0
dot 6,1 : dot 7,1 : dot 8,1 : dot 10,1 : dot 4,2 : dot 5,2 : dot 4,3 : dot 5,12
ink rgb(250,210,110),0
dot 9,1 : dot 9,2 : dot 7,18 : dot 9,18
ink rgb(210,160,60),0
dot 8,2
ink rgb(176,40,96),0
dot 6,2 : dot 7,2 : dot 3,3 : dot 5,3 : dot 6,3 : dot 2,4 : dot 3,4 : dot 4,4 : dot 4,11 : dot 4,12 : dot 3,12
ink rgb(20,20,20),0
dot 7,3 : dot 8,3 : dot 8,3 : dot 9,3 : dot 10,3 : dot 11,3 : dot 12,3 : dot 5,4 : dot 6,4 : dot 7,4 : dot 8,4 : dot 9,4 : dot 10,4
dot 11,4 : dot 12,4 : dot 13,4 : dot 3,5 : dot 4,5 : dot 5,5 : dot 7,5 : dot 9,5 : dot 4,6 : dot 7,6 : dot 9,6 : dot 4,7 : dot 5,7
dot 4,8 : dot 7,8 : dot 1,8 : dot 1,9 : dot 2,9 : dot 6,9 : dot 7,9 : dot 8,9 : dot 9,9 : dot 10,9 : dot 11,9 : dot 12,9
dot 2,10 : dot 8,10 : dot 9,10 : dot 10,10 : dot 11,10 : dot 7,17 : dot 9,17 : dot 3,18 : dot 8,18 : dot 10,18
dot 3,19 : dot 4,19 : dot 5,19 : dot 6,19 : dot 7,19 : dot 8,19 : dot 9,19 : dot 10,19
ink rgb(255,255,255),0
dot 10,2 : dot 7,13 : dot 8,13 : dot 7,14 : dot 8,14 : dot 10,13 : dot 10,14
dot 3,14 : dot 4,14 : dot 5,14 : dot 3,15 : dot 4,15 : dot 3,16 : dot 4,16
ink rgb(248,112,104),0
dot 6,5 : dot 8,5 : dot 10,5 : dot 5,6 : dot 1,7 : dot 2,8 : dot 8,8 : dot 9,8 : dot 10,8 : dot 11,8 : dot 12,8
dot 3,9 : dot 4,9 : dot 5,10 : dot 6,10 : dot 7,10
ink rgb(248,208,192),0
dot 2,5 : dot 1,6 : dot 3,6 : dot 6,6 : dot 8,6 : dot 10,6 : dot 3,7 : dot 6,7 : dot 7,7 : dot 8,7 : dot 9,7 : dot 10,7 : dot 11,7 : dot 12,7
dot 3,8 : dot 5,8 : dot 6,8 : dot 5,9
ink rgb(136,88,24),0
dot 2,6 : dot 11,6 : dot 12,6 : dot 2,7 : dot 13,7 : dot 13,8 : dot 3,10 : dot 4,10 : dot 5,11 : dot 6,11 : dot 7,11 : dot 8,11
dot 3,13 : dot 4,13 : dot 5,13 : dot 2,14 : dot 6,14 : dot 2,15 : dot 5,15 : dot 2,16 : dot 5,16 : dot 3,17 : dot 4,17 : dot 5,17 : dot 6,17
dot 8,17 : dot 4,18 : dot 5,18 : dot 6,18
ink rgb(32,48,136),0
dot 9,11 : dot 10,12 : dot 11,13 : dot 11,14 : dot 11,15 : dot 10,16 : dot 8,16
ink rgb(128,216,200),0
dot 8,12 : dot 9,12 : dot 9,13 : dot 9,14 : dot 9,15 : dot 10,15
ink rgb(64,128,152),0
dot 6,12 : dot 7,12 : dot 6,13 : dot 6,15 : dot 7,15 : dot 8,15 : dot 6,16 : dot 7,16 : dot 9,16
return
mariowr:
rem mario walking right
ink rgb(80,0,0),0
dot 6,1 : dot 7,1 : dot 8,1 : dot 9,1 : dot 10,1
dot 4,2 : dot 5,2 : dot 11,2 : dot 3,3 : dot 11,3
dot 2,4 : dot 1,5 : dot 1,6 : dot 0,7 : dot 0,8 : dot 0,9
ink rgb(248,64,112),0
dot 6,2 : dot 7,2 : dot 8,2 : dot 10,2
dot 4,3 : dot 5,3 : dot 4,4 : dot 5,13
ink rgb(176,40,96),0
dot 6,3 : dot 7,3 : dot 3,4 : dot 5,4 : dot 6,4
dot 2,5 : dot 3,5 : dot 4,5 : dot 3,12 : dot 3,13 : dot 4,13
ink rgb(248,216,112),0
dot 9,2 : dot 9,3 : dot 12,15 : dot 2,18
ink rgb(216,160,56),0
dot 8,3
ink rgb(15,15,15),0
dot 7,4 : dot 8,4 : dot 9,4 : dot 10,4 : dot 11,4 : dot 12,4
dot 5,5 : dot 6,5 : dot 7,5 : dot 8,5 : dot 9,5 : dot 10,5 : dot 11,5 : dot 12,5 : dot 13,5
dot 3,6 : dot 4,6 : dot 5,6 : dot 7,6 : dot 9,6 : dot 4,7 : dot 7,7 : dot 9,7
dot 4,8 : dot 5,8 : dot 4,9 : dot 7,9
dot 6,10 : dot 9,10 : dot 10,10 : dot 11,10 : dot 12,10
dot 8,11 : dot 9,11 : dot 10,11 : dot 11,11 : dot 1,9 : dot 1,10 : dot 2,10 : dot 2,11
dot 1,14 : dot 12,14 : dot 13,14 : dot 0,15 : dot 11,15 : dot 13,15 : dot 14,15
dot 0,16 : dot 13,16 : dot 14,16 : dot 0,17 : dot 10,17 : dot 12,17 : dot 13,17
dot 0,18 : dot 3,18 : dot 10,18 : dot 12,18 : dot 13,18
dot 1,19 : dot 2,19 : dot 11,19 : dot 12,19
ink rgb(248,112,104),0
dot 6,6 : dot 8,6 : dot 10,6 : dot 5,7
dot 1,8 : dot 2,9 : dot 8,9 : dot 9,9 : dot 10,9 : dot 11,9 : dot 12,9
dot 3,10 : dot 4,10 : dot 4,11 : dot 5,11 : dot 6,11 : dot 7,11
ink rgb(248,208,192),0
dot 2,6 : dot 1,7 : dot 3,7 : dot 6,7 : dot 8,7 : dot 10,7
dot 3,8 : dot 3,9
dot 6,8 : dot 7,8 : dot 8,8 : dot 9,8 : dot 10,8 : dot 11,8 : dot 12,8
dot 5,9 : dot 6,9 : dot 5,10
ink rgb(136,88,24),0
dot 2,7 : dot 11,7 : dot 12,7
dot 2,8 : dot 13,8 : dot 3,11 : dot 2,12
dot 4,12 : dot 5,12 : dot 6,12 : dot 7,12 : dot 8,12 : dot 2,13
dot 6,13 : dot 2,14 : dot 6,14 : dot 1,15 : dot 2,15 : dot 5,15
dot 1,16 : dot 2,16 : dot 5,16 : dot 12,16
dot 1,17 : dot 3,17 : dot 4,17 : dot 11,17
dot 1,18 : dot 11,18
ink rgb(255,255,255),0
dot 10,3 : dot 3,14 : dot 4,14 : dot 5,14 : dot 7,14 : dot 8,14 : dot 10,14
dot 3,15 : dot 4,15 : dot 7,15 : dot 8,15 : dot 10,15
dot 3,16 : dot 4,16
ink rgb(32,48,136),0
dot 9,12 : dot 10,13 : dot 11,14 : dot 10,16 : dot 9,17 : dot 2,17
dot 5,18 : dot 6,18 : dot 7,18 : dot 8,18
ink rgb(128,216,200),0
dot 8,13 : dot 9,13 : dot 9,14 : dot 9,15 : dot 9,16
ink rgb(64,128,152),0
dot 7,13 : dot 6,15 : dot 6,16 : dot 7,16 : dot 8,16
dot 5,17 : dot 6,17 : dot 7,17 : dot 8,17
return
[/center]