IF switchleftb THEN GOTO SetAmiga1
SetAtariST1
 IF !joy0up && !joy0down  THEN GOTO Dir1
 IF joy0up && !joy0down THEN GOTO Dir2
 IF joy0up && joy0down THEN GOTO Dir3
 IF !joy0up && joy0down THEN GOTO Dir4
SetAmiga1
 IF !joy0right && !joy0down  THEN GOTO Dir1
 IF joy0right && !joy0down THEN GOTO Dir2
 IF joy0right && joy0down THEN GOTO Dir3
 IF !joy0right && joy0down THEN GOTO Dir4

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

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

 IF !a{0} && a{1} THEN a{2} = 0 : GOTO NewWay
 IF !a{0} && !a{1} THEN a{2} = 1 : a{3} = 0 : GOTO TO4
 IF a{0} && a{1} THEN a{2} = 1 : a{3} = 1 : GOTO TO4
 IF a{0} && !a{1} THEN a{2} = 0 : GOTO NewWay
TO4
 a{0} = 0: a{1} = 1
Dir
 IF player0x>1 &&  a{2} &&  a{3} THEN player0x=player0x-2
 IF player1x<152 &&  a{2} &&  !a{3} THEN player0x=player0x+2

NewWay
  IF switchleftb THEN GOTO SetAmiga2
SetAtariST2
 IF !joy0left && !joy0right  THEN GOTO Dir5
 IF joy0left && !joy0right THEN GOTO Dir8
 IF joy0left && joy0right THEN GOTO Dir7
 IF !joy0left && joy0right THEN GOTO Dir6

SetAmiga2
 IF !joy0left && !joy0up  THEN GOTO Dir5
 IF joy0left && !joy0up THEN GOTO Dir8
 IF joy0left && joy0up THEN GOTO Dir7
 IF !joy0left && joy0up THEN GOTO Dir6


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

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

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

DirX
 IF player0y>11 &&  a{6} &&  a{7} THEN player0y=player0y-2
 IF player0y<87 &&  a{6} &&  !a{7} THEN player0y=player0y+2
Gotos