sync on  
sync rate 60  

load image "tank.png", 1 : load image "block.png", 2
sprite 1, tankx, tanky, 1 : OFFSET SPRITE 1, 25, 25
sprite 2, 25, 25, 2  
tankx = 100 : tanky = 100 : move = 1

do  
cls 0  
sprite 1, tankx, tanky, 1 : paste sprite 2, 25, 75
if move = 0 then move = 1
if upkey () = 1
  if rightkey () = 1 then move = 0
  if leftkey () = 1 then move =0
endif
if downkey () = 1
  if rightkey () = 1 then move = 0
  if leftkey () = 1 then move =0
endif

if upkey () = 1  
  if move = 1
   tanky = tanky - 1 : rotate sprite 1, 0
    if sprite hit (1, 2) = 0 then tanky = tanky
    if sprite hit (1, 2) = 1 then tanky = tanky + 1
endif
endif

if downkey () = 1  
  if move = 1
   tanky = tanky + 1 : rotate sprite 1, 180
    if sprite hit (1, 2) = 0 then tanky = tanky
    if sprite hit (1, 2) = 1 then tanky = tanky - 1
endif
endif

if rightkey () = 1  
  if move = 1
   tankx = tankx + 1 : rotate sprite 1, 90
    if sprite hit (1, 2) = 0 then tankx = tankx
    if sprite hit (1, 2) = 1 then tankx = tankx - 1
endif
endif

if leftkey () = 1  
  if move = 1
   tankx = tankx - 1 : rotate sprite 1, 270
    if sprite hit (1, 2) = 0 then tankx = tankx
    if sprite hit (1, 2) = 1 then tankx = tankx + 1
endif
endif

sync

loop