tilescrollmsx1.bas

'- código a ser verificado
xabs=0:yabs=0
do
  ldirmvpos($1800)
  for y=0 to 23
    x1=x+xabs:y1=y+yabs
    xmod=xq mod 4:ymod=yq mod 4
    xdiv=int(xq/4):ydiv=int(yq/4)
    xsub=4-xmod:ysub=4-ymod
    vmap=mapt(xdiv,ydiv)
    ldirmvseq(xmod+(ymod*4)+(vmap*16),xsub)
    for x=1 to 7
      vmap=mapt(xdiv+x,ydiv)
      ldirmvseq((ymod*4)+(vmap*16),4)
    vmap=mapt(xdiv+8,ydiv)
    ldirmvseq((ymod*4)+(vmap*16),xmod)
    next
  xabs=xabs+((joypad band 1)/1)-((joypad band 2)/2)
  yabs=yabs+((joypad band 4)/4)-((joypad band 8)/8)
  loop