rem batari Basic Program
 rem created 2018.10.05. 20:28:39 by Visual bB Version 1.0.0.568
 set romsize=4k
 set tv = ntsc
 player0x=70: player0y=60
Arrow
 player0:
 %000110
 %101110
 %111100
 %111111
 %111110
 %111100
 %111000
 %110000
 %100000
END
 IF player0x<15 THEN player0x=15
 IF player0x>138 THEN player0x=138
 IF player0y<10 THEN player0y=10
 IF player0y>88 THEN player0y=88


SSSS
 IF !joy0up && !joy0down  THEN GOTO Dir1
 IF joy0up && !joy0down THEN GOTO Dir2
 IF joy0up && joy0down THEN GOTO Dir3
 IF !joy0up && joy0down THEN GOTO Dir4


Dir1
  IF !a{0} && !a{1}  THEN a{0} = 0: a{1} = 0: a{2} = 0 : a{3} = 0 : GOTO Dir
  IF a{0} && !a{1}  THEN a{0} = 0: a{1} = 0: a{2} = 1 : a{3} = 0 : GOTO Dir
  IF !a{0} && a{1}  THEN a{0} = 0: a{1} = 0: a{2} = 1 : a{3} = 1 : GOTO Dir
  IF a{0} && a{1}  THEN a{0} = 0: a{1} = 0: a{2} = 0 : a{3} = 0 : GOTO Dir
Dir2
 IF a{0} && !a{1} THEN a{0} = 1: a{1} = 0: a{2} = 0 : a{3} = 0 : GOTO Dir
 IF a{0} && a{1} THEN a{0} = 1: a{1} = 0: a{2} = 1 : a{3} = 0 : GOTO Dir
 IF !a{0} && !a{1} THEN a{0} = 1: a{1} = 0: a{2} = 1 : a{3} = 1 : GOTO Dir
 IF !a{0} && a{1} THEN a{0} = 1: a{1} = 0: a{2} = 0 : a{3} = 0 : GOTO Dir
Dir3


 IF a{0} && a{1}  THEN a{0} = 1: a{1} = 1: a{2} = 0 : a{3} = 0 : GOTO Dir
 IF !a{0} && a{1} THEN a{0} = 1: a{1} = 1: a{2} = 1 : a{3} = 0 : GOTO Dir
 IF a{0} && !a{1} THEN a{0} = 1: a{1} = 1: a{2} = 1 : a{3} = 1 : GOTO Dir
 IF !a{0} && !a{1}  THEN a{0} = 1: a{1} = 1: a{2} = 0 : a{3} = 0 : GOTO Dir
Dir4


 IF !a{0} && a{1} THEN a{0} = 0: a{1} = 1: a{2} = 0 : a{3} = 0 : GOTO Dir
 IF !a{0} && !a{1} THEN a{0} = 0: a{1} = 1: a{2} = 1 : a{3} = 0 : GOTO Dir
 IF a{0} && a{1} THEN a{0} = 0: a{1} = 1: a{2} = 1 : a{3} = 1 : GOTO Dir
 IF a{0} && !a{1} THEN a{0} = 0: a{1} = 1: a{2} = 0 : a{3} = 0 : GOTO Dir
Dir
 IF player0x>16 &&  a{2} &&  a{3} THEN player0x=player0x-2
 IF player0x<137 &&  a{2} &&  !a{3} THEN player0x=player0x+2


 IF !joy0left && !joy0right  THEN GOTO Dir5
 IF joy0left && !joy0right THEN GOTO Dir6
 IF joy0left && joy0right THEN GOTO Dir7
 IF !joy0left && joy0right THEN GOTO Dir8


Dir5
  IF !a{4} && !a{5}  THEN a{4} = 0: a{5} = 0: a{6} = 0 : a{7} = 0 : GOTO DirX
  IF a{4} && !a{5}  THEN a{4} = 0: a{5} = 0: a{6} = 1 : a{7} = 0 : GOTO DirX
  IF !a{4} && a{5}  THEN a{4} = 0: a{5} = 0: a{6} = 1 : a{7} = 1 : GOTO DirX
  IF a{4} && a{5}  THEN a{4} = 0: a{5} = 0: a{6} = 0 : a{7} = 0 : GOTO DirX
Dir6
 IF a{4} && !a{5} THEN a{4} = 1: a{5} = 0: a{6} = 0 : a{7} = 0 : GOTO DirX
 IF a{4} && a{5} THEN a{4} = 1: a{5} = 0: a{6} = 1 : a{7} = 0 : GOTO DirX
 IF !a{4} && !a{5} THEN a{4} = 1: a{5} = 0: a{6} = 1 : a{7} = 1 : GOTO DirX
 IF !a{4} && a{5} THEN a{4} = 1: a{5} = 0: a{6} = 0 : a{7} = 0 : GOTO DirX
Dir7


 IF a{4} && a{5}  THEN a{4} = 1: a{5} = 1: a{6} = 0 : a{7} = 0 : GOTO DirX
 IF !a{4} && a{5} THEN a{4} = 1: a{5} = 1: a{6} = 1 : a{7} = 0 : GOTO DirX
 IF a{4} && !a{5} THEN a{4} = 1: a{5} = 1: a{6} = 1 : a{7} = 1 : GOTO DirX
 IF !a{4} && !a{5}  THEN a{4} = 1: a{5} = 1: a{6} = 0 : a{7} = 0 : GOTO DirX
Dir8


 IF !a{4} && a{5} THEN a{4} = 0: a{5} = 1: a{6} = 0 : a{7} = 0 : GOTO DirX
 IF !a{4} && !a{5} THEN a{4} = 0: a{5} = 1: a{6} = 1 : a{7} = 0 : GOTO DirX
 IF a{4} && a{5} THEN a{4} = 0: a{5} = 1: a{6} = 1 : a{7} = 1 : GOTO DirX
 IF a{4} && !a{5} THEN a{4} = 0: a{5} = 1: a{6} = 0 : a{7} = 0 : GOTO DirX
DirX
 IF player0y>11 &&  a{6} &&  a{7} THEN player0y=player0y-2
 IF player0y<87 &&  a{6} &&  !a{7} THEN player0y=player0y+2






 IF joy0fire THEN COLUBK=$1e: COLUP0=$00 ELSE COLUBK=$80: COLUP0=$0e
 IF b{0} THEN RETURN
 PF0=%11111111
 b{0} =1
 drawscreen
 b{0} =0
 GOTO Arrow


 vblank
 GOTO SSSS