y=240
sync on:sync rate 0:hide mouse
for row=0 to 8
   inc y,3
   x=320
   for col=0 to 7
      inc x,3
      read somedata
      if somedata=1
         box x,y,x+1,y+1
      endif
   next col
next row
 
 
data 0,0,1,1,1,0,0,0
data 0,0,1,1,1,0,0,0
data 1,0,1,1,1,0,1,0
data 0,1,0,1,0,1,0,0
data 0,0,1,1,1,0,0,0
data 0,0,1,1,1,0,0,0
data 0,0,1,1,1,0,0,0
data 0,0,1,0,1,0,0,0
data 0,0,1,0,1,0,0,0
get image 1,320,233,349,270
y=240
cls
for row=0 to 8
   inc y,3
   x=320
   for col=0 to 7
      inc x,3
      read somedata
      if somedata=1
         box x,y,x+1,y+1
      endif
   next col
next row
set text  opaque
`x=320 349
`y=233 270
get image 2,320,233,349,270
 
 
data 0,0,0,1,1,0,0,0
data 0,0,0,1,1,0,0,0
data 0,0,0,1,1,0,0,0
data 0,0,0,1,0,1,0,0
data 0,0,0,1,1,0,1,0
data 0,0,0,1,1,0,0,0
data 0,0,0,1,1,0,0,0
data 0,0,0,1,1,0,0,0
data 0,0,0,1,1,0,0,0
 
x#=320
y#=240 
cls 
do
  cls
    oy#=y#
  if ground=0 and timer=0 then inc y#,4
 
if ground=1 and rightkey()=1 then inc x#,1
if ground=1 and leftkey()=1 then dec x#,1
if ground=0 and rightkey()=1 then inc x#,.5
if ground=0 and leftkey()=1 then dec x#,.5
  if shiftkey()=1 and rightkey()=1 then inc x#,1
  if shiftkey()=1 and leftkey()=1 then dec x#,1
  if spacekey()=1 and ground=1
      line 0,478,800,478
     do
 
      dec y#,1.1
      sprite 1,x#,y#,1
      if rightkey()=1 then inc x#,.5
      if leftkey()=1 then dec x#,.5
      inc y#,.1
      sync
      if y#=oy#-20 then exit
      line 0,478,800,478
 
     loop
   begin_timer=1
  endif
  sprite 1,x#,y#,1
 
 
 
  if y#>=440 then ground=1 else ground=0
  line 0,478,800,478
 
  if begin_timer=1
   inc timer,1
   if timer=5
    timer=0
    begin_timer=0
   endif
  endif
 sync
loop