;```````````````````````````````````````````````````````````````
   ;
   ; Special thanks below for the smaple codes on Batari Basic
   ; hints, tips, code snippets, and more from AtariAge members
   ; such as batari, SeaGtGruff, RevEng, Robert M, Nukey Shay,
   ; Atarius Maximus, jrok, supercat, GroovyBee, and bogax.
   ; code snippets from Atarius Maximus's "GTA style game"
   ; code snippets from Quad Runner's "move_around_rooms"   
   ; code snippets from Stargunner's "Space dungeon"  
   ; code snippets from Mountain King "GizzlewapG16"    
   ; sprite codes from PAC-MAN-RED 
   ; sprites codes from GoB! Fight for the Desert Patrick Jahn, Greg Kinsey, John Swisshelm
   ; code snippets from atari2600land's Batarti Man! 
   ; Collision function for multi sprites By Xan, February 16 in batari Basic
   ; code below complied together by Lewis2907 to make Pac-Man Eat and Run "DPC"
   ; game concept based off the Pac Man Table Top version around 1981 
   ; YouTube Table Top PacMan Video https://www.youtube.com/watch?v=SuYGvCwL8hc
   ;
   ;```````````````````````````````````````````````````````````````

   ;***************************************************************
   ;
   ;  If this program will not compile for you, get the latest
   ;  version of batari Basic:
   ;  
   ;  http://www.randomterrain.com/atari-2600-memories-batari-basic-commands.html#gettingstarted
   ;  
   ;```````````````````````````````````````````````````````````````

   ;***************************************************************
   ;
   ;  Kernel setup.
   ;
   includesfile multisprite_bankswitch.inc
   include fixed_point_math.asm
   set tv ntsc
   set kernel multisprite
   set romsize 32kSC
   set optimization speed
   set smartbranching on
   set optimization inlinerand

   ;```````````````````````````````````````````````````````````````
   ; 
   ; Constants used for each level instead of variables level 
   ; Constants since Batari Basic had a limit of 500 constants 
   ;
   ;```````````````````````````````````````````````````````````````
   ;  Constants for Room 0 
   ;
   const P0_D_FL1_RS0 = Dat_FL1RS0_D - 1

   const P0_U_FL2_RS0 = Dat_FL2RS0_U - 1
   const P0_D_FL2_RS0 = Dat_FL2RS0_D - 1

   const P0_U_FL3_RS0 = Dat_FL3RS0_U - 1
   const P0_D_FL3_RS0 = Dat_FL3RS0_D - 1

   const P0_U_FL4_RS0 = Dat_FL4RS0_U - 1
   const P0_D_FL4_RS0 = Dat_FL4RS0_D - 1

   const P0_U_FL5_RS0 = Dat_FL5RS0_U - 1

   ;```````````````````````````````````````````````````````````````
   ;  Constants for Room 1
   ;
   const P0_D_FL1_RS1 = Dat_FL1RS1_D - 1

   const P0_U_FL2_RS1 = Dat_FL2RS1_U - 1
   const P0_D_FL2_RS1 = Dat_FL2RS1_D - 1

   const P0_U_FL3_RS1 = Dat_FL3RS1_U - 1
   const P0_D_FL3_RS1 = Dat_FL3RS1_D - 1

   const P0_U_FL4_RS1 = Dat_FL4RS1_U - 1
   const P0_D_FL4_RS1 = Dat_FL4RS1_D - 1

   const P0_U_FL5_RS1 = Dat_FL5RS1_U - 1

   ;```````````````````````````````````````````````````````````````
   ;  Constants for Room 2
   ;
   const P0_D_FL1_RS2 = Dat_FL1RS2_D - 1

   const P0_U_FL2_RS2 = Dat_FL2RS2_U - 1
   const P0_D_FL2_RS2 = Dat_FL2RS2_D - 1

   const P0_U_FL3_RS2 = Dat_FL3RS2_U - 1
   const P0_D_FL3_RS2 = Dat_FL3RS2_D - 1

   const P0_U_FL4_RS2 = Dat_FL4RS2_U - 1
   const P0_D_FL4_RS2 = Dat_FL4RS2_D - 1

   const P0_U_FL5_RS2 = Dat_FL5RS2_U - 1
   const P0_L_FL5_RS2 = Dat_FL5RS2_L - 1
   const P0_R_FL5_RS2 = Dat_FL5RS2_R - 1

   ;```````````````````````````````````````````````````````````````
   ;  Constants for Room 3
   ;
   const P0_D_FL1_RS3 = Dat_FL1RS3_D - 1

   const P0_U_FL2_RS3 = Dat_FL2RS3_U - 1
   const P0_D_FL2_RS3 = Dat_FL2RS3_D - 1

   const P0_U_FL3_RS3 = Dat_FL3RS3_U - 1
   const P0_D_FL3_RS3 = Dat_FL3RS3_D - 1

   const P0_U_FL4_RS3 = Dat_FL4RS3_U - 1
   const P0_D_FL4_RS3 = Dat_FL4RS3_D - 1

   const P0_U_FL5_RS3 = Dat_FL5RS3_U - 1

   ;```````````````````````````````````````````````````````````````
   ;  Constants for Room 4
   ;
   const P0_D_FL1_RS4 = Dat_FL1RS4_D - 1

   const P0_U_FL2_RS4 = Dat_FL2RS4_U - 1
   const P0_D_FL2_RS4 = Dat_FL2RS4_D - 1

   const P0_U_FL3_RS4 = Dat_FL3RS4_U - 1
   const P0_D_FL3_RS4 = Dat_FL3RS4_D - 1

   const P0_U_FL4_RS4 = Dat_FL4RS4_U - 1
   const P0_D_FL4_RS4 = Dat_FL4RS4_D - 1

   const P0_U_FL5_RS4 = Dat_FL5RS4_U - 1

   ;```````````````````````````````````````````````````````````````
   ;  Constants for Room 5
   ;
   const P0_D_FL1_RS5 = Dat_FL1RS5_D - 1

   const P0_U_FL2_RS5 = Dat_FL2RS5_U - 1
   const P0_D_FL2_RS5 = Dat_FL2RS5_D - 1

   const P0_U_FL3_RS5 = Dat_FL3RS5_U - 1
   const P0_D_FL3_RS5 = Dat_FL3RS5_D - 1

   const P0_U_FL4_RS5 = Dat_FL4RS5_U - 1
   const P0_D_FL4_RS5 = Dat_FL4RS5_D - 1

   const P0_U_FL5_RS5 = Dat_FL5RS5_U - 1

   ;```````````````````````````````````````````````````````````````
   ;  Constants for Room 6
   ;
   const P0_D_FL1_RS6 = Dat_FL1RS6_D - 1

   const P0_U_FL2_RS6 = Dat_FL2RS6_U - 1
   const P0_D_FL2_RS6 = Dat_FL2RS6_D - 1

   const P0_U_FL3_RS6 = Dat_FL3RS6_U - 1
   const P0_D_FL3_RS6 = Dat_FL3RS6_D - 1

   const P0_U_FL4_RS6 = Dat_FL4RS6_U - 1
   const P0_D_FL4_RS6 = Dat_FL4RS6_D - 1

   const P0_U_FL5_RS6 = Dat_FL5RS6_U - 1

   ;```````````````````````````````````````````````````````````````
   ;  Constants for Room 7
   ;
   const P0_D_FL1_RS7 = Dat_FL1RS7_D - 1

   const P0_U_FL2_RS7 = Dat_FL2RS7_U - 1
   const P0_D_FL2_RS7 = Dat_FL2RS7_D - 1

   const P0_U_FL3_RS7 = Dat_FL3RS7_U - 1
   const P0_D_FL3_RS7 = Dat_FL3RS7_D - 1

   const P0_U_FL4_RS7 = Dat_FL4RS7_U - 1
   const P0_D_FL4_RS7 = Dat_FL4RS7_D - 1

   const P0_U_FL5_RS7 = Dat_FL5RS7_U - 1

   ;```````````````````````````````````````````````````````````````
   ;  Constants for Room 8
   ;
   const P0_D_FL1_RS8 = Dat_FL1RS8_D - 1

   const P0_U_FL2_RS8 = Dat_FL2RS8_U - 1
   const P0_D_FL2_RS8 = Dat_FL2RS8_D - 1

   const P0_U_FL3_RS8 = Dat_FL3RS8_U - 1
   const P0_D_FL3_RS8 = Dat_FL3RS8_D - 1

   const P0_U_FL4_RS8 = Dat_FL4RS8_U - 1
   const P0_D_FL4_RS8 = Dat_FL4RS8_D - 1

   const P0_U_FL5_RS8 = Dat_FL5RS8_U - 1

   ;****************************************************************
   ;
   ;  Player0-4 fixed point variables for more flexibility in
   ;  gameplay mechanics.
   ;  "c" is used in joy0 checks for last movement
   ;
   dim _P0_L_R = player0x.a
   dim _P0_U_D = player0y.b

   dim _P1_L_R = player1x.d
   dim _P1_U_D = player1y.e

   dim _P2_L_R = player2x.f
   dim _P2_U_D = player2y.g

   dim _P3_L_R = player3x.h
   dim _P3_U_D = player3y.i

   dim _P4_L_R = player4x.j
   dim _P4_U_D = player4y.k

   ;****************************************************************
   ;
   ;  Flips player0 sprite when necessary.
   ;
   dim _Bit6_Flip_P0 = l

   ;****************************************************************
   ;
   ;  Player0/player1 direction bits.
   ;
   dim _BitO_P0_Direction = m
   dim _Bit0_P0_Floor = n

   ;****************************************************************
   ;
   ; Animation counters.
   ;
   dim _Master_Counter = o
   dim _Frame_Counter = p
   dim Clock = q
   dim room = r
 
   dim _Random_Color = q

   ;```````````````````````````````````````````````````````````````
   ; Ghost AI      
   ; Value "x" and "y" used for collision
   ;
   dim Orange_Ghost = v
   dim Pink_Ghost = u
   dim Blue_Ghost = t
   dim Red_Ghost = w
   dim _Bit0_Reset_Restrainer = z 

   ;***************************************************************
   ;
   ;  Sets score color.
   ;
   scorecolor = $86
 
   ;****************************************************************
   ;
   ;  set screenheight and pixels
   ;
   pfheight=1
   const screenheight = 80

   ;****************************************************************
   ;
   ;  set score font .21stcentury, alarmclock, handwritten, 
   ;  interrupted, retroputer, whimsey
   ;
   const font = .21stcentury 

   ;***************************************************************
   ;***************************************************************
   ;
   ;  PROGRAM START/RESTART
   ;
__Start_Restart

   ;***************************************************************
   ;
   ;  Clears all normal variables and old playfield variables
   ;  (faster way).
   ;
   a = 0 : b = 0 : c = 0 : d = 0 : e = 0 : f = 0 : g = 0 : h = 0 : i = 0
   j = 0 : k = 0 : l = 0 : m = 0 : n = 0 : o = 0 : p = 0 : q = 0 : r = 0
   s = 0 : t = 0 : u = 0 : v = 0 : w = 0 : x = 0 : y = 0 : z = 0

   ;****************************************************************
   ;  
   ;  Set player positions (Test Screen Postions here)
   ;  Center Floor is _Bit0_P0_Floor = 3
   ;  must use this for the calulations to work correctly
   ;  rs1 will eqaul the same as room
   ; 
   gosub rs0 bank8 : room = 0 : _Bit0_P0_Floor = 3 

   ;****************************************************************
   ;
   ;  set playfield colors
   ;
   COLUPF = $86 : COLUBK = 00 

   ;****************************************************************
   ;
   ;  set players locations 
   ;
   player0x =  77 : player0y = 46
   player1x =  28 : player1y = 72   ; Red Ghost
   player2x = 141 : player2y = 58	; Blue Ghost 
   player3x =  28 : player3y = 30   ; Pink Ghost 
   player4x = 141 : player4y = 16	; Orange Ghost 

   ;****************************************************************
   ;
   ;  Set up playfield and players
   ;
   gosub __Frame_LR_01
   gosub __Red_Ghost_Right bank8 : gosub __Blue_Ghost_Left bank8
   gosub __Pink_Ghost_Left bank8 : gosub __Orange_Ghost_Left bank8
   
   ;***************************************************************
   ;
   ; set up rooms calculations - 9 rooms
   ;
   data room_shape
   0,1,2,3,4,5,6,7,8
end

   data move_north
   5,4,3,8,7,6,0,0,0
end

   data move_south
   0,0,0,2,1,0,5,4,3
end

   data move_east
   1,2,0,0,3,4,7,8,0
end

   data move_west
   0,0,1,4,5,0,0,6,7
end

   ;***************************************************************
   ;***************************************************************
   ;
   ;  MAIN LOOP (MAKES THE PROGRAM GO)
   ;  Also used for unpause the game
   ;
__Main_Loop

   ;***************************************************************
   ;
   ;  Sets Player colors. Must always be within the "Main Loop" 
   ;
   COLUP0 = $1C : COLUP1 = $44 : _COLUP1 = $44
   COLUP2 = $82 : COLUP3 = $4E : COLUP4 = $3A

   ;***************************************************************
   ;
   ;  Controls animation speed.
   ;
   _Master_Counter = _Master_Counter + 1

   if _Master_Counter < 4 then __Skip_Frame_Counter

   _Frame_Counter = _Frame_Counter + 1 : _Master_Counter = 0

   if _Frame_Counter > 3 then _Frame_Counter = 0

__Skip_Frame_Counter
 
   ;***************************************************************
   ;
   ;  Player0 Controls
   ;  
   ; gosub __Pac_Man_Controls
   ;if joy0up then player0y = player0y + 1 
   ;if joy0down then player0y = player0y - 1 
   ;if joy0left then player0x = player0x - 1 
   ;if joy0right then player0x = player0x + 1 

   ;****************************************************************
   ;
   ;  Flips player0 sprite when necessary.
   ;
   if _Bit6_Flip_P0{6} then REFP0 = 8

   ;```````````````````````````````````````````````````````````````
   ;  Sprite animation.
   ;
   if c{1} then on _Frame_Counter gosub __Frame_U_00 __Frame_U_01 __Frame_U_02 __Frame_U_01
   if c{2} then on _Frame_Counter gosub __Frame_D_00 __Frame_D_01 __Frame_D_02 __Frame_D_01
   if c{3} then on _Frame_Counter gosub __Frame_LR_00 __Frame_LR_01 __Frame_LR_02 __Frame_LR_01
   if c{4} then on _Frame_Counter gosub __Frame_LR_00 __Frame_LR_01 __Frame_LR_02 __Frame_LR_01
   if _BitO_P0_Direction = 7 then on _Frame_Counter gosub __Frame_U_00 __Frame_U_01 __Frame_U_02 __Frame_U_01
   if _BitO_P0_Direction = 8 then on _Frame_Counter gosub __Frame_D_00 __Frame_D_01 __Frame_D_02 __Frame_D_01

   ;***************************************************************
   ;
   ;  Collision of sprites and points
   ;  Collision function for multi sprites By Xan, February 16 in batari Basic
   ;
colidir
   ;y = colide(player0x, player1x, player0y, player1y)
   ;if y then goto __Pac_Man_Dies1 bank7

   ;y = colide(player0x, player2x, player0y, player2y)
   ;if y then goto __Pac_Man_Dies1 bank7

   ;y = colide(player0x, player3x, player0y, player3y)
   ;if y then goto __Pac_Man_Dies1 bank7

   ;y = colide(player0x, player4x, player0y, player4y)
   ;if y then goto __Pac_Man_Dies1 bank7

   ;y = colide(player0x, player5x, player0y, player5y)
   ;if y then player5x = (rand&127)+20

   ;****************************************************************
   ;
   ;  Detrermines which maze to draw next 
   ;
   if player0y = 79 then gosub go_north 
   if player0y = 10 then gosub go_south
   if player0x = 140 then gosub go_east
   if player0x = 10 then gosub go_west
   goto __Skip_Rooms
  
go_north
   player0y = 18 : _Bit0_P0_Floor = 5
   room = move_north[room] 
   goto draw_room

go_south
   player0y = 74 : _Bit0_P0_Floor = 1 
   room = move_south[room] 
   goto draw_room

go_east
   player0x = 20 : _BitO_P0_Direction = 0
   room = move_east[room]
   goto draw_room

go_west
   player0x = 132 : _BitO_P0_Direction = 0
   room = move_west[room]

draw_room    

   if room_shape[room] = 0 then goto rs0 bank8 
   if room_shape[room] = 1 then goto rs1 bank8 
   if room_shape[room] = 2 then goto rs2 bank8 
   if room_shape[room] = 3 then goto rs3 bank8 
   if room_shape[room] = 4 then goto rs4 bank8 
   if room_shape[room] = 5 then goto rs5 bank8 
   if room_shape[room] = 6 then goto rs6 bank8 
   if room_shape[room] = 7 then goto rs7 bank8 
   if room_shape[room] = 8 then goto rs8 bank8 

__Skip_Rooms

   ;***************************************************************
   ;
   ;  Select the correct room and floor based on player0y positions
   ; 
   if room = 0 then gosub __Room_0_Controls bank2
   if room = 1 then gosub __Room_1_Controls bank2
   if room = 2 then gosub __Room_2_Controls bank2
   if room = 3 then gosub __Room_3_Controls bank3
   if room = 4 then gosub __Room_4_Controls bank4
   if room = 5 then gosub __Room_5_Controls bank4
   if room = 6 then gosub __Room_6_Controls bank5
   if room = 7 then gosub __Room_7_Controls bank5
   if room = 8 then gosub __Room_8_Controls bank5

   ;****************************************************************
   ;
   ;  Detrermines which way each ghost looks 
   ;
   if Red_Ghost = 1 then gosub __Red_Ghost_Up bank8
   if Red_Ghost = 2 then gosub __Red_Ghost_Down bank8
   if Red_Ghost = 3 then gosub __Red_Ghost_Left bank8
   if Red_Ghost = 4 then gosub __Red_Ghost_Right bank8
 
   if Blue_Ghost = 1 then gosub __Blue_Ghost_Up bank8
   if Blue_Ghost = 2 then gosub __Blue_Ghost_Down bank8
   if Blue_Ghost = 3 then gosub __Blue_Ghost_Left bank8
   if Blue_Ghost = 4 then gosub __Blue_Ghost_Right bank8

   if Pink_Ghost = 1 then gosub __Pink_Ghost_Up bank8
   if Pink_Ghost = 2 then gosub __Pink_Ghost_Down bank8
   if Pink_Ghost = 3 then gosub __Pink_Ghost_Left bank8
   if Pink_Ghost = 4 then gosub __Pink_Ghost_Right bank8

   if Orange_Ghost = 1 then gosub __Orange_Ghost_Up bank8
   if Orange_Ghost = 2 then gosub __Orange_Ghost_Down bank8
   if Orange_Ghost = 3 then gosub __Orange_Ghost_Left bank8
   if Orange_Ghost = 4 then gosub __Orange_Ghost_Right bank8

   ;***************************************************************
   ;
   ;  Reset switch check and completion of main loop.
   ;
   ;  Any Atari 2600 program should restart when the reset  
   ;  switch is pressed. It is part of the usual standards
   ;  and procedures.
   ;
   ;```````````````````````````````````````````````````````````````
   ;  Turns off reset restrainer bit and jumps to beginning of
   ;  main loop if the reset switch is not pressed.
   ;
   if switchreset then _Bit0_Reset_Restrainer{0} = 0 : goto __Start_Restart

   ;```````````````````````````````````````````````````````````````
   ;  Jumps to beginning of main loop if the reset switch hasn't
   ;  been released after being pressed.
   ;
   if _Bit0_Reset_Restrainer{0} then goto __Main_Loop

   ;***************************************************************
   ;
   ;  Displays the screen.
   ;
   drawscreen

   ;***************************************************************
   ;
   ;  Return to the start of the "__Main_Loop"
   ;
   goto __Main_Loop

   ;,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,
   ;```````````````````````````````````````````````````````````````
   ;
   ;  END OF MAIN LOOP
   ;
   ;,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,
   ;```````````````````````````````````````````````````````````````

   ;***************************************************************
   ;
   ;  player0x = 76 : player0y = 54 : Center of screen
   ;  player0x = 32 : player0y = 54 : Center far left
   ;  player0x = 112 : player0y = 54 : Center far right
   ;  Center Floor is _Bit0_P0_Floor = 3
   ;
   ;***************************************************************
   ;
   ;  Select the correct floor based on player0y positions
   ; 
   ;  Level 1 y axis = 73
   ;  Level 2 y axis = 60
   ;  Level 3 y axis = 46
   ;  Level 4 y axis = 32
   ;  Level 5 y axis = 18
   ;  
   ;  Left Playfield X = 19
   ;  Right Playfield x = 132
   ;
   ;  player0x = 77 : player0y = 46    ; Pac Center of screen
   ;

   ;***************************************************************
   ;
   ;  Collision of sprites and points
   ;  Collision function for multi sprites By Xan, February 16 in batari Basic
   ;
   function colide
   y = temp1 + 9: x = temp2 - 9
   if y > x && temp1 < temp2 then y = temp3 -8: x = temp4 -9: if temp3 > x && y < temp4 then return 1
   return 0

   rem p0 width  9,  p0 height -8
   rem px width -9,  px height -9

   ;****************************************************************
   ;
   ;  Left/right animation frames for player.
   ;
__Frame_LR_00
   player0:
   %01111100
   %11111110
   %11111110
   %11111110
   %11111110
   %11011110
   %11111110
   %01111100
end
   return

__Frame_LR_01
   player0:
   %01111100
   %11111110
   %11111000
   %11100000
   %11111000
   %11011110
   %11111110
   %01111100
end
   return

__Frame_LR_02
   player0:
   %01111100
   %11111000
   %11110000
   %11100000
   %11100000
   %11010000
   %11111000
   %01111100
end
   return

   ;****************************************************************
   ;
   ;  Down animation frames for player.
   ;
__Frame_D_00
   player0:
   %01101100
   %11101110
   %11101110
   %11111110
   %11111110
   %11111010
   %11111110
   %01111100
end
   return

__Frame_D_01
   player0:
   %01000100
   %11000110
   %11101110
   %11101110
   %11101110
   %11111010
   %11111110
   %01111100
end
   return

__Frame_D_02
   player0:
   %00000000
   %10000010
   %11000110
   %11101110
   %11101110
   %11111010
   %11111110
   %01111100
end
   return

   ;****************************************************************
   ;
   ;  Up animation frames for player.
   ;
__Frame_U_00
   player0:
   %01111100
   %11111110
   %11111010
   %11111110
   %11111110
   %11101110
   %11101110
   %01101100
end
   return

__Frame_U_01
   player0:
   %01111100
   %11111110
   %11111010
   %11101110
   %11101110
   %11101110
   %11000110
   %01000100
end
   return

__Frame_U_02
   player0:
   %01111100
   %11111110
   %11111010
   %11101110
   %11101110
   %11000110
   %10000010
   %00000000
end
   return

   ; ******************************
   ; ****End Bank 1 ***************
   ; ******************************

   ; ******************************
   ; ****Start Bank 2 *************
   ; ******************************

   bank 2

   ; ******************************
   ; ****End Bank 2 ***************
   ; ******************************

   ; ******************************
   ; ****Start Bank 3 *************
   ; ******************************

   ;**************************************************************************************************;
   ; 																	;
   ;    						Room Shape 0 and Controls 		  				;
   ;																	;
   ;**************************************************************************************************;
   ;
__Room_0_Controls

   ;***********************************
   ; Select correct floor
   ; 
   if _Bit0_P0_Floor = 1 then gosub __1F_L0
   if _Bit0_P0_Floor = 2 then gosub __2F_L0
   if _Bit0_P0_Floor = 3 then gosub __3F_L0 
   if _Bit0_P0_Floor = 4 then gosub __4F_L0 
   if _Bit0_P0_Floor = 5 then gosub __5F_L0 

   ;***********************************
   ; Ghost AI
   ; 
   gosub __AI_Controls_Room_0_Red_Ghost bank7
   gosub __AI_Controls_Room_0_Blue_Ghost bank7
   gosub __AI_Controls_Room_0_Pink_Ghost bank7
   gosub __AI_Controls_Room_0_Orange_Ghost bank7
   return

__1F_L0

   ;***************************************************************
   ;
   ;  Allows player0 to warp up to next screen 
   ;
   if _P0_L_R = 77 && joy0up then _BitO_P0_Direction = 7
   if _BitO_P0_Direction = 7 then gosub __Up_Warp bank6 : return

   ;***************************************************************
   ;
   ;  Allows player0 to move down to floor 2
   ;
   temp1 = 4
__PO_D_FL1RS0

   if player0x = P0_D_FL1_RS0[temp1] then gosub __Down bank6
   temp1 = temp1 - 1 
   if temp1 then __PO_D_FL1RS0
 
   if player0y = 60 then _Bit0_P0_Floor = 2 : return otherbank 
   if player0y < 74 then return otherbank

   ;***************************************************************
   ;
   ;  Data to move down to Floor 2
   ;
   data Dat_FL1RS0_D
   20,  77, 132
end

   ;***************************************************************
   ;
   ;  Sets player0 left side limits based off of playfiield
   ;
   gosub __Long_Floor bank6 
   return otherbank
   
   ;***************************************************************
   ;
   ;  Level I / Floor 2 Information
   ;
   ;```````````````````````````````````````````````````````````````
__2F_L0

   ;***************************************************************
   ;
   ;  Allows player0 to move up to a level 1
   ;
   temp1 = 4
__PO_U_FL2RS0

   if player0x = P0_U_FL2_RS0[temp1] then gosub __Up bank6
   temp1 = temp1 - 1 
   if temp1 then __PO_U_FL2RS0
 
   if player0y = 74 then _Bit0_P0_Floor = 1 : return otherbank 
   if player0y > 60 then return otherbank

   ;***************************************************************
   ;
   ;  Data to move up to Floor 2
   ;
   data Dat_FL2RS0_U
   20,  77, 132
end

   ;***************************************************************
   ;
   ;  Allows player0 to move down to floor 3
   ;
   temp1 = 4
__PO_D_FL2RS0

   if player0x = P0_D_FL2_RS0[temp1] then gosub __Down bank6
   temp1 = temp1 - 1 
   if temp1 then __PO_D_FL2RS0
 
   if player0y = 46 then _Bit0_P0_Floor = 3 : return otherbank 
   if player0y < 60 then return otherbank

   ;***************************************************************
   ;
   ;  Data to move up to Floor 3
   ;
   data Dat_FL2RS0_D
   44, 109
end

   ;***************************************************************
   ;
   ;  Sets player0 left side limits based off of playfiield
   ;
   gosub __Long_Floor bank6 
   return otherbank

   ;***************************************************************
   ;
   ;  3rd Floor ***Always the starting point. Even after death**
   ;  If the joystick isn't moved then skip this section and return
   ;
   ;***************************************************************
   ;
   ;  Level I / Floor 3 Information
   ;
   ;```````````````````````````````````````````````````````````````
__3F_L0

   ;***************************************************************
   ;
   ;  Allows player0 to move up to floor 2
   ;
   temp1 = 4
__PO_U_FL3RS0

   if player0x = P0_U_FL3_RS0[temp1] then gosub __Up bank6
   temp1 = temp1 - 1 
   if temp1 then __PO_U_FL3RS0
 
   if player0y = 60 then _Bit0_P0_Floor = 2 : return otherbank 
   if player0y > 46 then return otherbank
 
   ;***************************************************************
   ;
   ;  Data to move up to Floor 2
   ;
   data Dat_FL3RS0_U
   44, 109
end

   ;***************************************************************
   ;
   ;  Allows player0 to move down to floor 4
   ;
   temp1 = 4
__PO_D_FL3RS0

   if player0x = P0_D_FL3_RS0[temp1] then gosub __Down bank6
   temp1 = temp1 - 1 
   if temp1 then __PO_D_FL3RS0
 
   if player0y = 32 then _Bit0_P0_Floor = 4 : return otherbank 
   if player0y < 46 then return otherbank

   ;***************************************************************
   ;
   ;  Data to move down to Floor 4
   ;
   data Dat_FL3RS0_D
   44, 109
end

   ;***************************************************************
   ;
   ;  Sets player0 left and rights warp location "Middle of Screen"
   ;
   if player0x = 132 && joy0right then _Bit6_Flip_P0{6} = 0 : _BitO_P0_Direction = 5
   if _BitO_P0_Direction = 5 then gosub __Right_Warp bank6 : return

   ;if player0x = 20 && joy0left then _Bit6_Flip_P0{6} = 1 : _BitO_P0_Direction =  6
   ;if _BitO_P0_Direction = 6 then gosub __Left_Warp bank6 : return 

   ;***************************************************************
   ;
   ;  Sets player0 left side limits based off of playfiield
   ;
   gosub __Long_Floor bank6 
   return otherbank

   ;***************************************************************
   ;
   ;  Level I / Floor 4 Information
   ;
   ;```````````````````````````````````````````````````````````````
__4F_L0

   ;***************************************************************
   ;
   ;  Allows player0 to move up to a level3 
   ;
   temp1 = 4
__PO_U_FL4RS0

   if player0x = P0_U_FL4_RS0[temp1] then gosub __Up bank6
   temp1 = temp1 - 1 
   if temp1 then __PO_U_FL4RS0
 
   if player0y = 46 then _Bit0_P0_Floor = 3 : return otherbank 
   if player0y > 32 then return otherbank

   ;***************************************************************
   ;
   ;  Data to move up to Floor 3
   ;
   data Dat_FL4RS0_U
   44, 109
end

   ;***************************************************************
   ;
   ;  Allows player0 to move down to a level 5
   ;
   temp1 = 4
__PO_D_FL4RS0

   if player0x = P0_D_FL4_RS0[temp1] then gosub __Down bank6
   temp1 = temp1 - 1 
   if temp1 then __PO_D_FL4RS0
 
   if player0y = 18 then _Bit0_P0_Floor = 5 : return otherbank 
   if player0y < 32 then return otherbank

   ;***************************************************************
   ;
   ;  Data to move down to Floor 5
   ;
   data Dat_FL4RS0_D
   20,  77, 132
end

   ;***************************************************************
   ;
   ;  Sets player0 left side limits based off of playfiield
   ;
   gosub __Long_Floor bank6 
   return otherbank

   ;***************************************************************
   ;
   ;  Level I / Floor 5 Information
   ;
   ;```````````````````````````````````````````````````````````````
__5F_L0

   ;***************************************************************
   ;
   ;  Allows player0 to move up to floor 4
   ;
   temp1 = 4
__PO_U_FL5RS0

   if player0x = P0_U_FL5_RS0[temp1] then gosub __Up bank6
   temp1 = temp1 - 1 
   if temp1 then __PO_U_FL5RS0
 
   if player0y = 32 then _Bit0_P0_Floor = 4 : return otherbank 
   if player0y > 18 then return otherbank

   ;***************************************************************
   ;
   ;  Data to move up to Floor 4
   ;
   data Dat_FL5RS0_U
   20,  77, 132
end

   ;***************************************************************
   ;
   ;  Sets player0 left side limits based off of playfiield
   ;
   gosub __Long_Floor bank6 
   return otherbank

   ;**************************************************************************************************;
   ; 																	;
   ;    						Room Shape 1 and Controls 		  				;
   ;																	;
   ;**************************************************************************************************;
   ;
__Room_1_Controls 

   ;***********************************
   ; Select correct floor
   ; 
   if _Bit0_P0_Floor = 1 then gosub __1F_L1
   if _Bit0_P0_Floor = 2 then gosub __2F_L1
   if _Bit0_P0_Floor = 3 then gosub __3F_L1 
   if _Bit0_P0_Floor = 4 then gosub __4F_L1 
   if _Bit0_P0_Floor = 5 then gosub __5F_L1 
   return 

__1F_L1
   ;***************************************************************
   ;
   ;  Allows player0 to move down to floor 2
   ;
   temp1 = 4
__PO_D_FL1RS1

   if player0x = P0_D_FL1_RS1[temp1] then gosub __Down bank6
   temp1 = temp1 - 1 
   if temp1 then __PO_D_FL1RS1
 
   if player0y = 60 then _Bit0_P0_Floor = 2 : return otherbank 
   if player0y < 74 then return otherbank

   ;***************************************************************
   ;
   ;  Data to move down to Floor 2
   ;
   data Dat_FL1RS1_D
   20, 44, 109, 132
end

   ;***************************************************************
   ;
   ;  Allows player0 to warp up to next screen 
   ;
   if _P0_L_R = 77 && joy0up then _BitO_P0_Direction = 7
   if _BitO_P0_Direction = 7 then gosub __Up_Warp bank6 : return

   ;***************************************************************
   ;
   ;  Sets player0 left side limits based off of playfiield
   ;
   gosub __Long_Floor bank6 
   return otherbank
   
   ;***************************************************************
   ;
   ;  Level I / Floor 2 Information
   ;
   ;```````````````````````````````````````````````````````````````
__2F_L1

   ;***************************************************************
   ;
   ;  Allows player0 to move up to a level 1
   ;
   temp1 = 4
__PO_U_FL2RS1

   if player0x = P0_U_FL2_RS1[temp1] then gosub __Up bank6
   temp1 = temp1 - 1 
   if temp1 then __PO_U_FL2RS1
 
   if player0y = 74 then _Bit0_P0_Floor = 1 : return otherbank 
   if player0y > 60 then return otherbank

   ;***************************************************************
   ;
   ;  Data to move up to Floor 2
   ;
   data Dat_FL2RS1_U
   20, 44, 109, 132
end

   ;***************************************************************
   ;
   ;  Allows player0 to move down to floor 3
   ;
   temp1 = 4
__PO_D_FL2RS1

   if player0x = P0_D_FL2_RS1[temp1] then gosub __Down bank6
   temp1 = temp1 - 1 
   if temp1 then __PO_D_FL2RS1
 
   if player0y = 46 then _Bit0_P0_Floor = 3 : return otherbank 
   if player0y < 60 then return otherbank

   ;***************************************************************
   ;
   ;  Data to move up to Floor 3
   ;
   data Dat_FL2RS1_D
   20, 77, 132
end

   ;***************************************************************
   ;
   ;  Sets player0 left side limits based off of playfiield
   ;
   gosub __Long_Floor bank6 
   return otherbank

   ;***************************************************************
   ;
   ;  3rd Floor ***Always the starting point. Even after death**
   ;  If the joystick isn't moved then skip this section and return
   ;
   ;***************************************************************
   ;
   ;  Level I / Floor 3 Information
   ;
   ;```````````````````````````````````````````````````````````````
__3F_L1

   ;***************************************************************
   ;
   ;  Allows player0 to move up to floor 2
   ;
   temp1 = 4
__PO_U_FL3RS1

   if player0x = P0_U_FL3_RS1[temp1] then gosub __Up bank6
   temp1 = temp1 - 1 
   if temp1 then __PO_U_FL3RS1
 
   if player0y = 60 then _Bit0_P0_Floor = 2 : return otherbank 
   if player0y > 46 then return otherbank
 
   ;***************************************************************
   ;
   ;  Data to move up to Floor 2
   ;
   data Dat_FL3RS1_U
   20, 77, 132
end

   ;***************************************************************
   ;
   ;  Allows player0 to move down to floor 4
   ;
   temp1 = 4
__PO_D_FL3RS1

   if player0x = P0_D_FL3_RS1[temp1] then gosub __Down bank6
   temp1 = temp1 - 1 
   if temp1 then __PO_D_FL3RS1
 
   if player0y = 32 then _Bit0_P0_Floor = 4 : return otherbank 
   if player0y < 46 then return otherbank

   ;***************************************************************
   ;
   ;  Data to move down to Floor 4
   ;
   data Dat_FL3RS1_D
   20, 77, 132
end

   ;***************************************************************
   ;
   ;  Sets player0 left and rights warp location "Middle of Screen"
   ;
   if player0x = 132 && joy0right then _Bit6_Flip_P0{6} = 0 : _BitO_P0_Direction = 5
   if _BitO_P0_Direction = 5 then gosub __Right_Warp bank6 : return

   if player0x = 20 && joy0left then _Bit6_Flip_P0{6} = 1 : _BitO_P0_Direction =  6
   if _BitO_P0_Direction = 6 then gosub __Left_Warp bank6 : return 

   return otherbank

   ;***************************************************************
   ;
   ;  Level I / Floor 4 Information
   ;
   ;```````````````````````````````````````````````````````````````
__4F_L1

   ;***************************************************************
   ;
   ;  Allows player0 to move up to a level3 
   ;
   temp1 = 4
__PO_U_FL4RS1

   if player0x = P0_U_FL4_RS1[temp1] then gosub __Up bank6
   temp1 = temp1 - 1 
   if temp1 then __PO_U_FL4RS1
 
   if player0y = 46 then _Bit0_P0_Floor = 3 : return otherbank 
   if player0y > 32 then return otherbank

   ;***************************************************************
   ;
   ;  Data to move up to Floor 3
   ;
   data Dat_FL4RS1_U
   20, 77, 132
end

   ;***************************************************************
   ;
   ;  Allows player0 to move down to a level 5
   ;
   temp1 = 4
__PO_D_FL4RS1

   if player0x = P0_D_FL4_RS1[temp1] then gosub __Down bank6
   temp1 = temp1 - 1 
   if temp1 then __PO_D_FL4RS1
 
   if player0y = 18 then _Bit0_P0_Floor = 5 : return otherbank 
   if player0y < 32 then return otherbank

   ;***************************************************************
   ;
   ;  Data to move down to Floor 5
   ;
   data Dat_FL4RS1_D
   20, 44, 109, 132
end

   ;***************************************************************
   ;
   ;  Sets player0 left side limits based off of playfiield
   ;
   gosub __Long_Floor bank6 
   return otherbank

   ;***************************************************************
   ;
   ;  Level I / Floor 5 Information
   ;
   ;```````````````````````````````````````````````````````````````
__5F_L1

   ;***************************************************************
   ;
   ;  Allows player0 to move up to floor 4
   ;
   temp1 = 4
__PO_U_FL5RS1

   if player0x = P0_U_FL5_RS1[temp1] then gosub __Up bank6
   temp1 = temp1 - 1 
   if temp1 then __PO_U_FL5RS1
 
   if player0y = 32 then _Bit0_P0_Floor = 4 : return otherbank 
   if player0y > 18 then return otherbank

   ;***************************************************************
   ;
   ;  Data to move up to Floor 4
   ;
   data Dat_FL5RS1_U
   20, 44, 109, 132
end

   ;***************************************************************
   ;
   ;  Sets player0 left side limits based off of playfiield
   ;
   gosub __Long_Floor bank6 
   return otherbank

   ;**************************************************************************************************;
   ; 																	;
   ;    						Room Shape 2 and Controls 		  				;
   ;																	;
   ;**************************************************************************************************;
   ;
__Room_2_Controls

   ;***********************************
   ; Select correct floor
   ; 
   if _Bit0_P0_Floor = 1 then gosub __1F_L2
   if _Bit0_P0_Floor = 2 then gosub __2F_L2
   if _Bit0_P0_Floor = 3 then gosub __3F_L2 
   if _Bit0_P0_Floor = 4 then gosub __4F_L2 
   if _Bit0_P0_Floor = 5 then gosub __5F_L2 
   return 

__1F_L2
   ;***************************************************************
   ;
   ;  Allows player0 to move down to floor 2
   ;
   temp1 = 4
__PO_D_FL1RS2

   if player0x = P0_D_FL1_RS2[temp1] then gosub __Down bank6
   temp1 = temp1 - 1 
   if temp1 then __PO_D_FL1RS2
 
   if player0y = 60 then _Bit0_P0_Floor = 2 : return otherbank 
   if player0y < 74 then return otherbank

   ;***************************************************************
   ;
   ;  Data to move down to Floor 2
   ;
   data Dat_FL1RS2_D
   20, 77, 132
end

   ;***************************************************************
   ;
   ;  Sets player0 left side limits based off of playfiield
   ;
   gosub __Long_Floor bank6 
   return otherbank
   
   ;***************************************************************
   ;
   ;  Level I / Floor 2 Information
   ;
   ;```````````````````````````````````````````````````````````````
__2F_L2

   ;***************************************************************
   ;
   ;  Allows player0 to move up to a level 1
   ;
   temp1 = 4
__PO_U_FL2RS2

   if player0x = P0_U_FL2_RS2[temp1] then gosub __Up bank6
   temp1 = temp1 - 1 
   if temp1 then __PO_U_FL2RS2
 
   if player0y = 74 then _Bit0_P0_Floor = 1 : return otherbank 
   if player0y > 60 then return otherbank

   ;***************************************************************
   ;
   ;  Data to move up to Floor 2
   ;
   data Dat_FL2RS2_U
   20, 77, 132
end

   ;***************************************************************
   ;
   ;  Allows player0 to move down to floor 3
   ;
   temp1 = 4
__PO_D_FL2RS2

   if player0x = P0_D_FL2_RS2[temp1] then gosub __Down bank6
   temp1 = temp1 - 1 
   if temp1 then __PO_D_FL2RS2
 
   if player0y = 46 then _Bit0_P0_Floor = 3 : return otherbank 
   if player0y < 60 then return otherbank

   ;***************************************************************
   ;
   ;  Data to move up to Floor 3
   ;
   data Dat_FL2RS2_D
   20, 77, 132
end

   ;***************************************************************
   ;
   ;  Sets player0 left side limits based off of playfiield
   ;
   gosub __Long_Floor bank6 
   return otherbank

   ;***************************************************************
   ;
   ;  3rd Floor ***Always the starting point. Even after death**
   ;  If the joystick isn't moved then skip this section and return
   ;
   ;***************************************************************
   ;
   ;  Level I / Floor 3 Information
   ;
   ;```````````````````````````````````````````````````````````````
__3F_L2

   ;***************************************************************
   ;
   ;  Allows player0 to move up to floor 2
   ;
   temp1 = 4
__PO_U_FL3RS2

   if player0x = P0_U_FL3_RS2[temp1] then gosub __Up bank6
   temp1 = temp1 - 1 
   if temp1 then __PO_U_FL3RS2
 
   if player0y = 60 then _Bit0_P0_Floor = 2 : return otherbank 
   if player0y > 46 then return otherbank
 
   ;***************************************************************
   ;
   ;  Data to move up to Floor 2
   ;
   data Dat_FL3RS2_U
   20, 77, 132
end

   ;***************************************************************
   ;
   ;  Allows player0 to move down to floor 4
   ;
   temp1 = 4
__PO_D_FL3RS2

   if player0x = P0_D_FL3_RS2[temp1] then gosub __Down bank6
   temp1 = temp1 - 1 
   if temp1 then __PO_D_FL3RS2
 
   if player0y = 32 then _Bit0_P0_Floor = 4 : return otherbank 
   if player0y < 46 then return otherbank

   ;***************************************************************
   ;
   ;  Data to move down to Floor 4
   ;
   data Dat_FL3RS2_D
   20, 77, 132
end

   ;***************************************************************
   ;
   ;  Sets player0 left and rights warp location "Middle of Screen"
   ;
   ;if player0x = 132 && joy0right then _Bit6_Flip_P0{6} = 0 : _BitO_P0_Direction = 5
   ;if _BitO_P0_Direction = 5 then gosub __Right_Warp bank6 : return

   if player0x = 20 && joy0left then _Bit6_Flip_P0{6} = 1 : _BitO_P0_Direction =  6
   if _BitO_P0_Direction = 6 then gosub __Left_Warp bank6

   return otherbank 

   ;***************************************************************
   ;
   ;  Level I / Floor 4 Information
   ;
   ;```````````````````````````````````````````````````````````````
__4F_L2

   ;***************************************************************
   ;
   ;  Allows player0 to move up to a level3 
   ;
   temp1 = 4
__PO_U_FL4RS2

   if player0x = P0_U_FL4_RS2[temp1] then gosub __Up bank6
   temp1 = temp1 - 1 
   if temp1 then __PO_U_FL4RS2
 
   if player0y = 46 then _Bit0_P0_Floor = 3 : return otherbank 
   if player0y > 32 then return otherbank

   ;***************************************************************
   ;
   ;  Data to move up to Floor 3
   ;
   data Dat_FL4RS2_U
   20, 77, 132
end

   ;***************************************************************
   ;
   ;  Allows player0 to move down to a level 5
   ;
   temp1 = 4
__PO_D_FL4RS2

   if player0x = P0_D_FL4_RS2[temp1] then gosub __Down bank6
   temp1 = temp1 - 1 
   if temp1 then __PO_D_FL4RS2
 
   if player0y = 18 then _Bit0_P0_Floor = 5 : return otherbank 
   if player0y < 32 then return otherbank

   ;***************************************************************
   ;
   ;  Data to move down to Floor 5
   ;
   data Dat_FL4RS2_D
   20, 77, 132
end

   ;***************************************************************
   ;
   ;  Sets player0 left side limits based off of playfiield
   ;
   gosub __Long_Floor bank6 
   return otherbank

   ;***************************************************************
   ;
   ;  Level I / Floor 5 Information
   ;
   ;```````````````````````````````````````````````````````````````
__5F_L2

   ;***************************************************************
   ;
   ;  Allows player0 to move up to floor 4
   ;
   temp1 = 4
__PO_U_FL5RS2

   if player0x = P0_U_FL5_RS2[temp1] then gosub __Up bank6
   temp1 = temp1 - 1 
   if temp1 then __PO_U_FL5RS2
 
   if player0y = 32 then _Bit0_P0_Floor = 4 : return otherbank 
   if player0y > 18 then return otherbank

   ;***************************************************************
   ;
   ;  Data to move up to Floor 4
   ;
   data Dat_FL5RS2_U
   20, 77, 132
end

   ;***************************************************************
   ;
   ;  Sets player0 left side limits based off of playfiield
   ;
   gosub __Long_Floor bank6 
   return otherbank

   bank 3

   ;**************************************************************************************************;
   ; 																	;
   ;    						Room Shape 3 and Controls 		  				;
   ;																	;
   ;**************************************************************************************************;
   ;
__Room_3_Controls

   ;***********************************
   ; Select correct floor
   ; 
   if _Bit0_P0_Floor = 1 then gosub __1F_L3
   if _Bit0_P0_Floor = 2 then gosub __2F_L3
   if _Bit0_P0_Floor = 3 then gosub __3F_L3 
   if _Bit0_P0_Floor = 4 then gosub __4F_L3 
   if _Bit0_P0_Floor = 5 then gosub __5F_L3 
   return 

__1F_L3
   ;***************************************************************
   ;
   ;  Allows player0 to move down to floor 2
   ;
   temp1 = 5
__PO_D_FL1RS3

   if player0x = P0_D_FL1_RS3[temp1] then gosub __Down bank6
   temp1 = temp1 - 1 
   if temp1 then __PO_D_FL1RS3
 
   if player0y = 60 then _Bit0_P0_Floor = 2 : return otherbank 
   if player0y < 74 then return otherbank

   ;***************************************************************
   ;
   ;  Data to move down to Floor 2
   ;
   data Dat_FL1RS3_D
   20, 44, 77, 109, 132
end

   ;***************************************************************
   ;
   ;  Allows player0 to warp up to next screen 
   ;
   if _P0_L_R = 77 && joy0up then _BitO_P0_Direction = 7
   if _BitO_P0_Direction = 7 then gosub __Up_Warp bank6 : return

   ;***************************************************************
   ;
   ;  Sets player0 left side limits based off of playfiield
   ;
   if _P0_L_R = 20 then gosub __Right bank6
   if _P0_L_R = 64 then gosub __Left bank6 
   if _P0_L_R >= 20 && _P0_L_R <= 64 then gosub __Left_Right bank6

   ;***************************************************************
   ;
   ;  Sets player0 Right side limits based off of playfiield
   ;
   if _P0_L_R = 89 then gosub __Right bank6
   if _P0_L_R = 132 then gosub __Left bank6
   if _P0_L_R >= 89 && _P0_L_R <= 132 then gosub __Left_Right bank6
   return otherbank
   
   ;***************************************************************
   ;
   ;  Level I / Floor 2 Information
   ;
   ;```````````````````````````````````````````````````````````````
__2F_L3

   ;***************************************************************
   ;
   ;  Allows player0 to move up to a level 1
   ;
   temp1 = 5
__PO_U_FL2RS3

   if player0x = P0_U_FL2_RS3[temp1] then gosub __Up bank6
   temp1 = temp1 - 1 
   if temp1 then __PO_U_FL2RS3
 
   if player0y = 74 then _Bit0_P0_Floor = 1 : return otherbank 
   if player0y > 60 then return otherbank

   ;***************************************************************
   ;
   ;  Data to move up to Floor 2
   ;
   data Dat_FL2RS3_U
   20, 44, 77, 109, 132
end

   ;***************************************************************
   ;
   ;  Allows player0 to move down to floor 3
   ;
   temp1 = 4
__PO_D_FL2RS3

   if player0x = P0_D_FL2_RS3[temp1] then gosub __Down bank6
   temp1 = temp1 - 1 
   if temp1 then __PO_D_FL2RS3
 
   if player0y = 46 then _Bit0_P0_Floor = 3 : return otherbank 
   if player0y < 60 then return otherbank

   ;***************************************************************
   ;
   ;  Data to move up to Floor 3
   ;
   data Dat_FL2RS3_D
   44, 109
end

   ;***************************************************************
   ;
   ;  Sets player0 left side limits based off of playfiield
   ;
   gosub __Long_Floor bank6 
   return otherbank

   ;***************************************************************
   ;
   ;  3rd Floor ***Always the starting point. Even after death**
   ;  If the joystick isn't moved then skip this section and return
   ;
   ;***************************************************************
   ;
   ;  Level I / Floor 3 Information
   ;
   ;```````````````````````````````````````````````````````````````
__3F_L3

   ;***************************************************************
   ;
   ;  Allows player0 to move up to floor 2
   ;
   temp1 = 4
__PO_U_FL3RS3

   if player0x = P0_U_FL3_RS3[temp1] then gosub __Up bank6
   temp1 = temp1 - 1 
   if temp1 then __PO_U_FL3RS3
 
   if player0y = 60 then _Bit0_P0_Floor = 2 : return otherbank 
   if player0y > 46 then return otherbank
 
   ;***************************************************************
   ;
   ;  Data to move up to Floor 2
   ;
   data Dat_FL3RS3_U
   44, 109
end

   ;***************************************************************
   ;
   ;  Allows player0 to move down to floor 4
   ;
   temp1 = 4
__PO_D_FL3RS3

   if player0x = P0_D_FL3_RS3[temp1] then gosub __Down bank6
   temp1 = temp1 - 1 
   if temp1 then __PO_D_FL3RS3
 
   if player0y = 32 then _Bit0_P0_Floor = 4 : return otherbank 
   if player0y < 46 then return otherbank

   ;***************************************************************
   ;
   ;  Data to move down to Floor 4
   ;
   data Dat_FL3RS3_D
   44, 109
end

   ;***************************************************************
   ;
   ;  Sets player0 left and rights warp location "Middle of Screen"
   ;
   ;if player0x = 132 && joy0right then _Bit6_Flip_P0{6} = 0 : _BitO_P0_Direction = 5
   ;if _BitO_P0_Direction = 5 then gosub __Right_Warp bank6 : return

   if player0x = 20 && joy0left then _Bit6_Flip_P0{6} = 1 : _BitO_P0_Direction =  6
   if _BitO_P0_Direction = 6 then gosub __Left_Warp bank6 : return 

   ;***************************************************************
   ;
   ;  Sets player0 left side limits based off of playfiield
   ;
   gosub __Long_Floor bank6
   return otherbank

   ;***************************************************************
   ;
   ;  Level I / Floor 4 Information
   ;
   ;```````````````````````````````````````````````````````````````
__4F_L3

   ;***************************************************************
   ;
   ;  Allows player0 to move up to a level3 
   ;
   temp1 = 4
__PO_U_FL4RS3

   if player0x = P0_U_FL4_RS3[temp1] then gosub __Up bank6
   temp1 = temp1 - 1 
   if temp1 then __PO_U_FL4RS3
 
   if player0y = 46 then _Bit0_P0_Floor = 3 : return otherbank 
   if player0y > 32 then return otherbank

   ;***************************************************************
   ;
   ;  Data to move up to Floor 3
   ;
   data Dat_FL4RS3_U
   44, 109
end

   ;***************************************************************
   ;
   ;  Allows player0 to move down to a level 5
   ;
   temp1 = 5
__PO_D_FL4RS3

   if player0x = P0_D_FL4_RS3[temp1] then gosub __Down bank6
   temp1 = temp1 - 1 
   if temp1 then __PO_D_FL4RS3
 
   if player0y = 18 then _Bit0_P0_Floor = 5 : return otherbank 
   if player0y < 32 then return otherbank

   ;***************************************************************
   ;
   ;  Data to move down to Floor 5
   ;
   data Dat_FL4RS3_D
   20, 44, 77, 109, 132
end

   ;***************************************************************
   ;
   ;  Sets player0 left side limits based off of playfiield
   ;
   gosub __Long_Floor bank6 
   return otherbank

   ;***************************************************************
   ;
   ;  Level I / Floor 5 Information
   ;
   ;```````````````````````````````````````````````````````````````
__5F_L3

   ;***************************************************************
   ;
   ;  Allows player0 to move up to floor 4
   ;
   temp1 = 5
__PO_U_FL5RS3

   if player0x = P0_U_FL5_RS3[temp1] then gosub __Up bank6
   temp1 = temp1 - 1 
   if temp1 then __PO_U_FL5RS3
 
   if player0y = 32 then _Bit0_P0_Floor = 4 : return otherbank 
   if player0y > 18 then return otherbank

   ;***************************************************************
   ;
   ;  Data to move up to Floor 4
   ;
   data Dat_FL5RS3_U
   20, 44, 77, 109, 132
end

   ;***************************************************************
   ;
   ;  Allows player0 to warp down to next screen 
   ;
   if _P0_L_R = 77 && joy0down then _BitO_P0_Direction = 8
   if _BitO_P0_Direction = 8 then gosub __Down_Warp bank6 : return

   ;***************************************************************
   ;
   ;  Sets player0 left side limits based off of playfiield
   ;
   if _P0_L_R = 20 then gosub __Right bank6
   if _P0_L_R = 64 then gosub __Left bank6 
   if _P0_L_R >= 20 && _P0_L_R <= 64 then gosub __Left_Right bank6

   ;***************************************************************
   ;
   ;  Sets player0 Right side limits based off of playfiield
   ;
   if _P0_L_R = 89 then gosub __Right bank6
   if _P0_L_R = 132 then gosub __Left bank6
   if _P0_L_R >= 89 && _P0_L_R <= 132 then gosub __Left_Right bank6
   return otherbank













   ; ******************************
   ; ****End Bank 3 ***************
   ; ******************************

   ; ******************************
   ; ****Start Bank 4 *************
   ; ******************************

   bank 4
   ;**************************************************************************************************;
   ; 																	;
   ;    						Room Shape 4 and Controls 		  				;
   ;																	;
   ;**************************************************************************************************;
   ;
__Room_4_Controls

   ;***********************************
   ; Select correct floor
   ; 
   if _Bit0_P0_Floor = 1 then gosub __1F_L4
   if _Bit0_P0_Floor = 2 then gosub __2F_L4
   if _Bit0_P0_Floor = 3 then gosub __3F_L4 
   if _Bit0_P0_Floor = 4 then gosub __4F_L4 
   if _Bit0_P0_Floor = 5 then gosub __5F_L4 
   return 

__1F_L4
   ;***************************************************************
   ;
   ;  Allows player0 to move down to floor 2
   ;
   temp1 = 4
__PO_D_FL1RS4

   if player0x = P0_D_FL1_RS4[temp1] then gosub __Down bank6
   temp1 = temp1 - 1 
   if temp1 then __PO_D_FL1RS4
 
   if player0y = 60 then _Bit0_P0_Floor = 2 : return otherbank 
   if player0y < 74 then return otherbank

   ;***************************************************************
   ;
   ;  Data to move down to Floor 2
   ;
   data Dat_FL1RS4_D
   77
end

   ;***************************************************************
   ;
   ;  Allows player0 to warp up to next screen 
   ;
   if _P0_L_R = 77 && joy0up then _BitO_P0_Direction = 7
   if _BitO_P0_Direction = 7 then gosub __Up_Warp bank6 : return

   return otherbank
   
   ;***************************************************************
   ;
   ;  Level I / Floor 2 Information
   ;
   ;```````````````````````````````````````````````````````````````
__2F_L4

   ;***************************************************************
   ;
   ;  Allows player0 to move up to a level 1
   ;
   temp1 = 4
__PO_U_FL2RS4

   if player0x = P0_U_FL2_RS4[temp1] then gosub __Up bank6
   temp1 = temp1 - 1 
   if temp1 then __PO_U_FL2RS4
 
   if player0y = 74 then _Bit0_P0_Floor = 1 : return otherbank 
   if player0y > 60 then return otherbank

   ;***************************************************************
   ;
   ;  Data to move up to Floor 2
   ;
   data Dat_FL2RS4_U
   77
end

   ;***************************************************************
   ;
   ;  Allows player0 to move down to floor 3
   ;
   temp1 = 4
__PO_D_FL2RS4

   if player0x = P0_D_FL2_RS4[temp1] then gosub __Down bank6
   temp1 = temp1 - 1 
   if temp1 then __PO_D_FL2RS4
 
   if player0y = 46 then _Bit0_P0_Floor = 3 : return otherbank 
   if player0y < 60 then return otherbank

   ;***************************************************************
   ;
   ;  Data to move up to Floor 3
   ;
   data Dat_FL2RS4_D
   20, 77, 132
end

   ;***************************************************************
   ;
   ;  Sets player0 left side limits based off of playfiield
   ;
   gosub __Long_Floor bank6 
   return otherbank

   ;***************************************************************
   ;
   ;  3rd Floor ***Always the starting point. Even after death**
   ;  If the joystick isn't moved then skip this section and return
   ;
   ;***************************************************************
   ;
   ;  Level I / Floor 3 Information
   ;
   ;```````````````````````````````````````````````````````````````
__3F_L4

   ;***************************************************************
   ;
   ;  Allows player0 to move up to floor 2
   ;
   temp1 = 4
__PO_U_FL3RS4

   if player0x = P0_U_FL3_RS4[temp1] then gosub __Up bank6
   temp1 = temp1 - 1 
   if temp1 then __PO_U_FL3RS4
 
   if player0y = 60 then _Bit0_P0_Floor = 2 : return otherbank 
   if player0y > 46 then return otherbank
 
   ;***************************************************************
   ;
   ;  Data to move up to Floor 2
   ;
   data Dat_FL3RS4_U
   20, 77, 132
end

   ;***************************************************************
   ;
   ;  Allows player0 to move down to floor 4
   ;
   temp1 = 4
__PO_D_FL3RS4

   if player0x = P0_D_FL3_RS4[temp1] then gosub __Down bank6
   temp1 = temp1 - 1 
   if temp1 then __PO_D_FL3RS4
 
   if player0y = 32 then _Bit0_P0_Floor = 4 : return otherbank 
   if player0y < 46 then return otherbank

   ;***************************************************************
   ;
   ;  Data to move down to Floor 4
   ;
   data Dat_FL3RS4_D
   20, 77, 132
end

   ;***************************************************************
   ;
   ;  Sets player0 left and rights warp location "Middle of Screen"
   ;
   if player0x = 132 && joy0right then _Bit6_Flip_P0{6} = 0 : _BitO_P0_Direction = 5
   if _BitO_P0_Direction = 5 then gosub __Right_Warp bank6 : return

   if player0x = 20 && joy0left then _Bit6_Flip_P0{6} = 1 : _BitO_P0_Direction =  6
   if _BitO_P0_Direction = 6 then gosub __Left_Warp bank6 : return 


   ;***************************************************************
   ;
   ;  Sets player0 left side limits based off of playfiield
   ;
   gosub __Long_Floor bank6 
   return otherbank

   ;***************************************************************
   ;
   ;  Level I / Floor 4 Information
   ;
   ;```````````````````````````````````````````````````````````````
__4F_L4

   ;***************************************************************
   ;
   ;  Allows player0 to move up to a level3 
   ;
   temp1 = 4
__PO_U_FL4RS4

   if player0x = P0_U_FL4_RS4[temp1] then gosub __Up bank6
   temp1 = temp1 - 1 
   if temp1 then __PO_U_FL4RS4
 
   if player0y = 46 then _Bit0_P0_Floor = 3 : return otherbank 
   if player0y > 32 then return otherbank

   ;***************************************************************
   ;
   ;  Data to move up to Floor 3
   ;
   data Dat_FL4RS4_U
   20, 77, 132
end

   ;***************************************************************
   ;
   ;  Allows player0 to move down to a level 5
   ;
   temp1 = 4
__PO_D_FL4RS4

   if player0x = P0_D_FL4_RS4[temp1] then gosub __Down bank6
   temp1 = temp1 - 1 
   if temp1 then __PO_D_FL4RS4
 
   if player0y = 18 then _Bit0_P0_Floor = 5 : return otherbank 
   if player0y < 32 then return otherbank

   ;***************************************************************
   ;
   ;  Data to move down to Floor 5
   ;
   data Dat_FL4RS4_D
   77
end

   ;***************************************************************
   ;
   ;  Sets player0 left side limits based off of playfiield
   ;
   gosub __Long_Floor bank6 
   return otherbank

   ;***************************************************************
   ;
   ;  Level I / Floor 5 Information
   ;
   ;```````````````````````````````````````````````````````````````
__5F_L4

   ;***************************************************************
   ;
   ;  Allows player0 to move up to floor 4
   ;
   temp1 = 4
__PO_U_FL5RS4

   if player0x = P0_U_FL5_RS4[temp1] then gosub __Up bank6
   temp1 = temp1 - 1 
   if temp1 then __PO_U_FL5RS4
 
   if player0y = 32 then _Bit0_P0_Floor = 4 : return otherbank 
   if player0y > 18 then return otherbank

   ;***************************************************************
   ;
   ;  Data to move up to Floor 4
   ;
   data Dat_FL5RS4_U
   77
end

   ;***************************************************************
   ;
   ;  Allows player0 to warp down to next screen 
   ;
   if _P0_L_R = 77 && joy0down then _BitO_P0_Direction = 8
   if _BitO_P0_Direction = 8 then gosub __Down_Warp bank6 : return

   return otherbank

   ;**************************************************************************************************;
   ; 																	;
   ;    						Room Shape 5 and Controls 		  				;
   ;																	;
   ;**************************************************************************************************;
   ;
__Room_5_Controls

   ;***********************************
   ; Select correct floor
   ; 
   if _Bit0_P0_Floor = 1 then gosub __1F_L5
   if _Bit0_P0_Floor = 3 then gosub __3F_L5 
   if _Bit0_P0_Floor = 5 then gosub __5F_L5 
   return 

__1F_L5
   ;***************************************************************
   ;
   ;  Allows player0 to move down to floor 2
   ;
   temp1 = 4
__PO_D_FL1RS5

   if player0x = P0_D_FL1_RS5[temp1] then gosub __Down bank6
   temp1 = temp1 - 1 
   if temp1 then __PO_D_FL1RS5
 
   if player0y = 46 then _Bit0_P0_Floor = 3 : return otherbank 
   if player0y < 74 then return otherbank

   ;***************************************************************
   ;
   ;  Data to move down to Floor 2
   ;
   data Dat_FL1RS5_D
   20, 49, 102, 132
end

   ;***************************************************************
   ;
   ;  Allows player0 to warp up to next screen 
   ;
   if _P0_L_R = 77 && joy0up then _BitO_P0_Direction = 7
   if _BitO_P0_Direction = 7 then gosub __Up_Warp bank6 : return

   ;***************************************************************
   ;
   ;  Sets player0 left side limits based off of playfiield
   ;
   gosub __Long_Floor bank6 
   return otherbank

   ;***************************************************************
   ;
   ;  3rd Floor ***Always the starting point. Even after death**
   ;  If the joystick isn't moved then skip this section and return
   ;
   ;***************************************************************
   ;
   ;  Level I / Floor 3 Information
   ;
   ;```````````````````````````````````````````````````````````````
__3F_L5

   ;***************************************************************
   ;
   ;  Allows player0 to move up to floor 2
   ;
   temp1 = 4
__PO_U_FL3RS5

   if player0x = P0_U_FL3_RS5[temp1] then gosub __Up bank6
   temp1 = temp1 - 1 
   if temp1 then __PO_U_FL3RS5
 
   if player0y = 74 then _Bit0_P0_Floor = 1 : return otherbank 
   if player0y > 46 then return otherbank
 
   ;***************************************************************
   ;
   ;  Data to move up to Floor 2
   ;
   data Dat_FL3RS5_U
   20, 49, 102, 132
end

   ;***************************************************************
   ;
   ;  Allows player0 to move down to floor 4
   ;
   temp1 = 4
__PO_D_FL3RS5

   if player0x = P0_D_FL3_RS5[temp1] then gosub __Down bank6
   temp1 = temp1 - 1 
   if temp1 then __PO_D_FL3RS5
 
   if player0y = 18 then _Bit0_P0_Floor = 5 : return otherbank 
   if player0y < 46 then return otherbank

   ;***************************************************************
   ;
   ;  Data to move down to Floor 4
   ;
   data Dat_FL3RS5_D
   20, 49, 102, 132
end

   ;***************************************************************
   ;
   ;  Sets player0 left and rights warp location "Middle of Screen"
   ;
   if player0x = 132 && joy0right then _Bit6_Flip_P0{6} = 0 : _BitO_P0_Direction = 5
   if _BitO_P0_Direction = 5 then gosub __Right_Warp bank6 : return

   ;***************************************************************
   ;
   ;  Sets player0 left side limits based off of playfiield
   ;
   gosub __Long_Floor bank6 
   return otherbank

   ;***************************************************************
   ;
   ;  Level I / Floor 5 Information
   ;
   ;```````````````````````````````````````````````````````````````
__5F_L5

   ;***************************************************************
   ;
   ;  Allows player0 to move up to floor 4
   ;
   temp1 = 4
__PO_U_FL5RS5

   if player0x = P0_U_FL5_RS5[temp1] then gosub __Up bank6
   temp1 = temp1 - 1 
   if temp1 then __PO_U_FL5RS5
 
   if player0y = 46 then _Bit0_P0_Floor = 3 : return otherbank 
   if player0y > 18 then return otherbank

   ;***************************************************************
   ;
   ;  Data to move up to Floor 4
   ;
   data Dat_FL5RS5_U
   20, 49, 102, 132
end

   ;***************************************************************
   ;
   ;  Allows player0 to warp down to next screen 
   ;
   if _P0_L_R = 77 && joy0down then _BitO_P0_Direction = 8
   if _BitO_P0_Direction = 8 then gosub __Down_Warp bank6 : return

   ;***************************************************************
   ;
   ;  Sets player0 left side limits based off of playfiield
   ;
   gosub __Long_Floor bank6 
   return otherbank

   ; ******************************
   ; ****End Bank 4 ***************
   ; ******************************

   ; ******************************
   ; ****Start Bank 5 *************
   ; ******************************

   bank 5

   ;**************************************************************************************************;
   ; 																	;
   ;    						Room Shape 6 and Controls 		  				;
   ;																	;
   ;**************************************************************************************************;
   ;
__Room_6_Controls

   ;***********************************
   ; Select correct floor
   ; 
   if _Bit0_P0_Floor = 1 then gosub __1F_L6
   if _Bit0_P0_Floor = 2 then gosub __2F_L6
   if _Bit0_P0_Floor = 3 then gosub __3F_L6 
   if _Bit0_P0_Floor = 4 then gosub __4F_L6 
   if _Bit0_P0_Floor = 5 then gosub __5F_L6 
   return 

__1F_L6
   ;***************************************************************
   ;
   ;  Allows player0 to move down to floor 2
   ;
   temp1 = 4
__PO_D_FL1RS6

   if player0x = P0_D_FL1_RS6[temp1] then gosub __Down bank6
   temp1 = temp1 - 1 
   if temp1 then __PO_D_FL1RS6
 
   if player0y = 60 then _Bit0_P0_Floor = 2 : return otherbank 
   if player0y < 74 then return otherbank

   ;***************************************************************
   ;
   ;  Data to move down to Floor 2
   ;
   data Dat_FL1RS6_D
   44, 77, 109
end

   ;***************************************************************
   ;
   ;  Sets player0 left side limits based off of playfiield
   ;
   gosub __Long_Floor bank6 
   return otherbank
   
   ;***************************************************************
   ;
   ;  Level I / Floor 2 Information
   ;
   ;```````````````````````````````````````````````````````````````
__2F_L6

   ;***************************************************************
   ;
   ;  Allows player0 to move up to a level 1
   ;
   temp1 = 4
__PO_U_FL2RS6

   if player0x = P0_U_FL2_RS6[temp1] then gosub __Up bank6
   temp1 = temp1 - 1 
   if temp1 then __PO_U_FL2RS6
 
   if player0y = 74 then _Bit0_P0_Floor = 1 : return otherbank 
   if player0y > 60 then return otherbank

   ;***************************************************************
   ;
   ;  Data to move up to Floor 2
   ;
   data Dat_FL2RS6_U
   44, 77, 109
end

   ;***************************************************************
   ;
   ;  Allows player0 to move down to floor 3
   ;
   temp1 = 4
__PO_D_FL2RS6

   if player0x = P0_D_FL2_RS6[temp1] then gosub __Down bank6
   temp1 = temp1 - 1 
   if temp1 then __PO_D_FL2RS6
 
   if player0y = 46 then _Bit0_P0_Floor = 3 : return otherbank 
   if player0y < 60 then return otherbank

   ;***************************************************************
   ;
   ;  Data to move up to Floor 3
   ;
   data Dat_FL2RS6_D
   44, 109
end

   ;***************************************************************
   ;
   ;  Sets player0 left side limits based off of playfiield
   ;
   gosub __Long_Floor bank6 
   return otherbank

   ;***************************************************************
   ;
   ;  3rd Floor ***Always the starting point. Even after death**
   ;  If the joystick isn't moved then skip this section and return
   ;
   ;***************************************************************
   ;
   ;  Level I / Floor 3 Information
   ;
   ;```````````````````````````````````````````````````````````````
__3F_L6

   ;***************************************************************
   ;
   ;  Allows player0 to move up to floor 2
   ;
   temp1 = 4
__PO_U_FL3RS6

   if player0x = P0_U_FL3_RS6[temp1] then gosub __Up bank6
   temp1 = temp1 - 1 
   if temp1 then __PO_U_FL3RS6
 
   if player0y = 60 then _Bit0_P0_Floor = 2 : return otherbank 
   if player0y > 46 then return otherbank
 
   ;***************************************************************
   ;
   ;  Data to move up to Floor 2
   ;
   data Dat_FL3RS6_U
   44, 109
end

   ;***************************************************************
   ;
   ;  Allows player0 to move down to floor 4
   ;
   temp1 = 4
__PO_D_FL3RS6

   if player0x = P0_D_FL3_RS6[temp1] then gosub __Down bank6
   temp1 = temp1 - 1 
   if temp1 then __PO_D_FL3RS6
 
   if player0y = 32 then _Bit0_P0_Floor = 4 : return otherbank 
   if player0y < 46 then return otherbank

   ;***************************************************************
   ;
   ;  Data to move down to Floor 4
   ;
   data Dat_FL3RS6_D
   44, 109
end

   ;***************************************************************
   ;
   ;  Sets player0 left and rights warp location "Middle of Screen"
   ;
   if player0x = 132 && joy0right then _Bit6_Flip_P0{6} = 0 : _BitO_P0_Direction = 5
   if _BitO_P0_Direction = 5 then gosub __Right_Warp bank6 : return

   ;***************************************************************
   ;
   ;  Sets player0 left side limits based off of playfiield
   ;
   gosub __Long_Floor bank6 
   return otherbank

   ;***************************************************************
   ;
   ;  Level I / Floor 4 Information
   ;
   ;```````````````````````````````````````````````````````````````
__4F_L6

   ;***************************************************************
   ;
   ;  Allows player0 to move up to a level3 
   ;
   temp1 = 4
__PO_U_FL4RS6

   if player0x = P0_U_FL4_RS6[temp1] then gosub __Up bank6
   temp1 = temp1 - 1 
   if temp1 then __PO_U_FL4RS6
 
   if player0y = 46 then _Bit0_P0_Floor = 3 : return otherbank 
   if player0y > 32 then return otherbank

   ;***************************************************************
   ;
   ;  Data to move up to Floor 3
   ;
   data Dat_FL4RS6_U
   44, 109
end

   ;***************************************************************
   ;
   ;  Allows player0 to move down to a level 5
   ;
   temp1 = 4
__PO_D_FL4RS6

   if player0x = P0_D_FL4_RS6[temp1] then gosub __Down bank6
   temp1 = temp1 - 1 
   if temp1 then __PO_D_FL4RS6
 
   if player0y = 18 then _Bit0_P0_Floor = 5 : return otherbank 
   if player0y < 32 then return otherbank

   ;***************************************************************
   ;
   ;  Data to move down to Floor 5
   ;
   data Dat_FL4RS6_D
   44, 77, 109
end

   ;***************************************************************
   ;
   ;  Sets player0 left side limits based off of playfiield
   ;
   if _P0_L_R = 44 then gosub __Right bank6
   if _P0_L_R = 109 then gosub __Left bank6 
   if _P0_L_R >= 44 && _P0_L_R <= 109 then gosub __Left_Right bank6

   return otherbank

   ;***************************************************************
   ;
   ;  Level I / Floor 5 Information
   ;
   ;```````````````````````````````````````````````````````````````
__5F_L6

   ;***************************************************************
   ;
   ;  Allows player0 to move up to floor 4
   ;
   temp1 = 4
__PO_U_FL5RS6

   if player0x = P0_U_FL5_RS6[temp1] then gosub __Up bank6
   temp1 = temp1 - 1 
   if temp1 then __PO_U_FL5RS6
 
   if player0y = 32 then _Bit0_P0_Floor = 4 : return otherbank 
   if player0y > 18 then return otherbank

   ;***************************************************************
   ;
   ;  Data to move up to Floor 4
   ;
   data Dat_FL5RS6_U
   44, 77, 109
end

   ;***************************************************************
   ;
   ;  Allows player0 to warp down to next screen 
   ;
   if _P0_L_R = 77 && joy0down then _BitO_P0_Direction = 8
   if _BitO_P0_Direction = 8 then gosub __Down_Warp bank6 : return

   ;***************************************************************
   ;
   ;  Sets player0 left side limits based off of playfiield
   ;
   gosub __Long_Floor bank6 
   return otherbank

   ;**************************************************************************************************;
   ; 																	;
   ;    						Room Shape 7 and Controls 		  				;
   ;																	;
   ;**************************************************************************************************;
   ;
__Room_7_Controls

   ;***********************************
   ; Select correct floor
   ; 
   if _Bit0_P0_Floor = 1 then gosub __1F_L7
   if _Bit0_P0_Floor = 2 then gosub __2F_L7
   if _Bit0_P0_Floor = 3 then gosub __3F_L7 
   if _Bit0_P0_Floor = 4 then gosub __4F_L7 
   if _Bit0_P0_Floor = 5 then gosub __5F_L7 
   return 

__1F_L7
   ;***************************************************************
   ;
   ;  Allows player0 to move down to floor 2
   ;
   temp1 = 4
__PO_D_FL1RS7

   if player0x = P0_D_FL1_RS7[temp1] then gosub __Down bank6
   temp1 = temp1 - 1 
   if temp1 then __PO_D_FL1RS7
 
   if player0y = 60 then _Bit0_P0_Floor = 2 : return otherbank 
   if player0y < 74 then return otherbank

   ;***************************************************************
   ;
   ;  Data to move down to Floor 2
   ;
   data Dat_FL1RS7_D
   20, 77, 132
end

   ;***************************************************************
   ;
   ;  Sets player0 left side limits based off of playfiield
   ;
   gosub __Long_Floor bank6 
   return otherbank
   
   ;***************************************************************
   ;
   ;  Level I / Floor 2 Information
   ;
   ;```````````````````````````````````````````````````````````````
__2F_L7

   ;***************************************************************
   ;
   ;  Allows player0 to move up to a level 1
   ;
   temp1 = 4
__PO_U_FL2RS7

   if player0x = P0_U_FL2_RS7[temp1] then gosub __Up bank6
   temp1 = temp1 - 1 
   if temp1 then __PO_U_FL2RS7
 
   if player0y = 74 then _Bit0_P0_Floor = 1 : return otherbank 
   if player0y > 60 then return otherbank

   ;***************************************************************
   ;
   ;  Data to move up to Floor 2
   ;
   data Dat_FL2RS7_U
   20, 77, 132
end

   ;***************************************************************
   ;
   ;  Allows player0 to move down to floor 3
   ;
   temp1 = 4
__PO_D_FL2RS7

   if player0x = P0_D_FL2_RS7[temp1] then gosub __Down bank6
   temp1 = temp1 - 1 
   if temp1 then __PO_D_FL2RS7
 
   if player0y = 46 then _Bit0_P0_Floor = 3 : return otherbank 
   if player0y < 60 then return otherbank

   ;***************************************************************
   ;
   ;  Data to move up to Floor 3
   ;
   data Dat_FL2RS7_D
   77
end

   ;***************************************************************
   ;
   ;  Sets player0 left side limits based off of playfiield
   ;
   gosub __Long_Floor bank6 
   return otherbank

   ;***************************************************************
   ;
   ;  3rd Floor ***Always the starting point. Even after death**
   ;  If the joystick isn't moved then skip this section and return
   ;
   ;***************************************************************
   ;
   ;  Level I / Floor 3 Information
   ;
   ;```````````````````````````````````````````````````````````````
__3F_L7

   ;***************************************************************
   ;
   ;  Allows player0 to move up to floor 2
   ;
   temp1 = 4
__PO_U_FL3RS7

   if player0x = P0_U_FL3_RS7[temp1] then gosub __Up bank6
   temp1 = temp1 - 1 
   if temp1 then __PO_U_FL3RS7
 
   if player0y = 60 then _Bit0_P0_Floor = 2 : return otherbank 
   if player0y > 46 then return otherbank
 
   ;***************************************************************
   ;
   ;  Data to move up to Floor 2
   ;
   data Dat_FL3RS7_U
   77
end

   ;***************************************************************
   ;
   ;  Allows player0 to move down to floor 4
   ;
   temp1 = 4
__PO_D_FL3RS7

   if player0x = P0_D_FL3_RS7[temp1] then gosub __Down bank6
   temp1 = temp1 - 1 
   if temp1 then __PO_D_FL3RS7
 
   if player0y = 32 then _Bit0_P0_Floor = 4 : return otherbank 
   if player0y < 46 then return otherbank

   ;***************************************************************
   ;
   ;  Data to move down to Floor 4
   ;
   data Dat_FL3RS7_D
   77
end
   ;***************************************************************
   ;
   ;  Sets player0 left and rights warp location "Middle of Screen"
   ;
   if player0x = 132 && joy0right then _Bit6_Flip_P0{6} = 0 : _BitO_P0_Direction = 5
   if _BitO_P0_Direction = 5 then gosub __Right_Warp bank6 : return

   if player0x = 20 && joy0left then _Bit6_Flip_P0{6} = 1 : _BitO_P0_Direction =  6
   if _BitO_P0_Direction = 6 then gosub __Left_Warp bank6 : return 


   ;***************************************************************
   ;
   ;  Sets player0 left side limits based off of playfiield
   ;
   gosub __Long_Floor bank6 
   return otherbank

   ;***************************************************************
   ;
   ;  Level I / Floor 4 Information
   ;
   ;```````````````````````````````````````````````````````````````
__4F_L7

   ;***************************************************************
   ;
   ;  Allows player0 to move up to a level3 
   ;
   temp1 = 4
__PO_U_FL4RS7

   if player0x = P0_U_FL4_RS7[temp1] then gosub __Up bank6
   temp1 = temp1 - 1 
   if temp1 then __PO_U_FL4RS7
 
   if player0y = 46 then _Bit0_P0_Floor = 3 : return otherbank 
   if player0y > 32 then return otherbank

   ;***************************************************************
   ;
   ;  Data to move up to Floor 3
   ;
   data Dat_FL4RS7_U
   77
end

   ;***************************************************************
   ;
   ;  Allows player0 to move down to a level 5
   ;
   temp1 = 4
__PO_D_FL4RS7

   if player0x = P0_D_FL4_RS7[temp1] then gosub __Down bank6
   temp1 = temp1 - 1 
   if temp1 then __PO_D_FL4RS7
 
   if player0y = 18 then _Bit0_P0_Floor = 5 : return otherbank 
   if player0y < 32 then return otherbank

   ;***************************************************************
   ;
   ;  Data to move down to Floor 5
   ;
   data Dat_FL4RS7_D
   20, 77, 132
end

   ;***************************************************************
   ;
   ;  Sets player0 left side limits based off of playfiield
   ;
   gosub __Long_Floor bank6 
   return otherbank

   ;***************************************************************
   ;
   ;  Level I / Floor 5 Information
   ;
   ;```````````````````````````````````````````````````````````````
__5F_L7

   ;***************************************************************
   ;
   ;  Allows player0 to move up to floor 4
   ;
   temp1 = 4
__PO_U_FL5RS7

   if player0x = P0_U_FL5_RS7[temp1] then gosub __Up bank6
   temp1 = temp1 - 1 
   if temp1 then __PO_U_FL5RS7
 
   if player0y = 32 then _Bit0_P0_Floor = 4 : return otherbank 
   if player0y > 18 then return otherbank

   ;***************************************************************
   ;
   ;  Data to move up to Floor 4
   ;
   data Dat_FL5RS7_U
   20, 77, 132
end

   ;***************************************************************
   ;
   ;  Allows player0 to warp down to next screen 
   ;
   if _P0_L_R = 77 && joy0down then _BitO_P0_Direction = 8
   if _BitO_P0_Direction = 8 then gosub __Down_Warp bank6 : return

   ;***************************************************************
   ;
   ;  Sets player0 left side limits based off of playfiield
   ;
   gosub __Long_Floor bank6 
   return otherbank

   ;**************************************************************************************************;
   ; 																	;
   ;    						Room Shape 8 and Controls 		  				;
   ;																	;
   ;**************************************************************************************************;
   ;
__Room_8_Controls

   ;***********************************
   ; Select correct floor
   ; 
   if _Bit0_P0_Floor = 1 then gosub __1F_L8
   if _Bit0_P0_Floor = 2 then gosub __2F_L8
   if _Bit0_P0_Floor = 3 then gosub __3F_L8 
   if _Bit0_P0_Floor = 4 then gosub __4F_L8 
   if _Bit0_P0_Floor = 5 then gosub __5F_L8 
   return otherbank

__1F_L8
   ;***************************************************************
   ;
   ;  Allows player0 to move down to floor 2
   ;
   temp1 = 4
__PO_D_FL1RS8

   if player0x = P0_D_FL1_RS8[temp1] then gosub __Down bank6
   temp1 = temp1 - 1 
   if temp1 then __PO_D_FL1RS8
 
   if player0y = 60 then _Bit0_P0_Floor = 2 : return otherbank 
   if player0y < 74 then return otherbank

   ;***************************************************************
   ;
   ;  Data to move down to Floor 2
   ;
   data Dat_FL1RS8_D
   20, 77, 132
end

   ;***************************************************************
   ;
   ;  Sets player0 left side limits based off of playfiield
   ;
   gosub __Long_Floor bank6 
   return otherbank
   
   ;***************************************************************
   ;
   ;  Level I / Floor 2 Information
   ;
   ;```````````````````````````````````````````````````````````````
__2F_L8

   ;***************************************************************
   ;
   ;  Allows player0 to move up to a level 1
   ;
   temp1 = 4
__PO_U_FL2RS8

   if player0x = P0_U_FL2_RS8[temp1] then gosub __Up bank6
   temp1 = temp1 - 1 
   if temp1 then __PO_U_FL2RS8
 
   if player0y = 74 then _Bit0_P0_Floor = 1 : return otherbank 
   if player0y > 60 then return otherbank

   ;***************************************************************
   ;
   ;  Data to move up to Floor 2
   ;
   data Dat_FL2RS8_U
   20, 77, 132
end

   ;***************************************************************
   ;
   ;  Allows player0 to move down to floor 3
   ;
   temp1 = 5
__PO_D_FL2RS8

   if player0x = P0_D_FL2_RS8[temp1] then gosub __Down bank6
   temp1 = temp1 - 1 
   if temp1 then __PO_D_FL2RS8
 
   if player0y = 46 then _Bit0_P0_Floor = 3 : return otherbank 
   if player0y < 60 then return otherbank

   ;***************************************************************
   ;
   ;  Data to move up to Floor 3
   ;
   data Dat_FL2RS8_D
   20, 48, 77, 105, 132
end

   ;***************************************************************
   ;
   ;  Sets player0 left side limits based off of playfiield
   ;
   if _P0_L_R = 20 then gosub __Right bank6
   if _P0_L_R = 64 then gosub __Left bank6 
   if _P0_L_R >= 20 && _P0_L_R <= 64 then gosub __Left_Right bank6

   ;***************************************************************
   ;
   ;  Sets player0 Right side limits based off of playfiield
   ;
   if _P0_L_R = 89 then gosub __Right bank6
   if _P0_L_R = 132 then gosub __Left bank6
   if _P0_L_R >= 89 && _P0_L_R <= 132 then gosub __Left_Right bank6 
   return otherbank

   ;***************************************************************
   ;
   ;  3rd Floor ***Always the starting point. Even after death**
   ;  If the joystick isn't moved then skip this section and return
   ;
   ;***************************************************************
   ;
   ;  Level I / Floor 3 Information
   ;
   ;```````````````````````````````````````````````````````````````
__3F_L8

   ;***************************************************************
   ;
   ;  Allows player0 to move up to floor 2
   ;
   temp1 = 5
__PO_U_FL3RS8

   if player0x = P0_U_FL3_RS8[temp1] then gosub __Up bank6
   temp1 = temp1 - 1 
   if temp1 then __PO_U_FL3RS8
 
   if player0y = 60 then _Bit0_P0_Floor = 2 : return otherbank 
   if player0y > 46 then return otherbank
 
   ;***************************************************************
   ;
   ;  Data to move up to Floor 2
   ;
   data Dat_FL3RS8_U
   20, 48, 77, 105, 132
end

   ;***************************************************************
   ;
   ;  Allows player0 to move down to floor 4
   ;
   temp1 = 5
__PO_D_FL3RS8

   if player0x = P0_D_FL3_RS8[temp1] then gosub __Down bank6
   temp1 = temp1 - 1 
   if temp1 then __PO_D_FL3RS8
 
   if player0y = 32 then _Bit0_P0_Floor = 4 : return otherbank 
   if player0y < 46 then return otherbank

   ;***************************************************************
   ;
   ;  Data to move down to Floor 4
   ;
   data Dat_FL3RS8_D
   20, 48, 77, 105, 132
end

   ;***************************************************************
   ;
   ;  Sets player0 left & right side limits based off of playfiield
   ;
   if _P0_L_R = 33 then gosub __Right bank6
   if _P0_L_R = 120 then gosub __Left bank6 
   if _P0_L_R >= 33 && _P0_L_R <= 120 then gosub __Left_Right bank6

   ;***************************************************************
   ;
   ;  Sets player0 left and rights warp location "Middle of Screen"
   ;
   if player0x = 20 && joy0left then _Bit6_Flip_P0{6} = 1 : _BitO_P0_Direction =  6 
   if _BitO_P0_Direction = 6 then gosub __Left_Warp bank6 : return 

   return otherbank

   ;***************************************************************
   ;
   ;  Level I / Floor 4 Information
   ;
   ;```````````````````````````````````````````````````````````````
__4F_L8

   ;***************************************************************
   ;
   ;  Allows player0 to move up to a level3 
   ;
   temp1 = 5
__PO_U_FL4RS8

   if player0x = P0_U_FL4_RS8[temp1] then gosub __Up bank6
   temp1 = temp1 - 1 
   if temp1 then __PO_U_FL4RS8
 
   if player0y = 46 then _Bit0_P0_Floor = 3 : return otherbank 
   if player0y > 32 then return otherbank

   ;***************************************************************
   ;
   ;  Data to move up to Floor 3
   ;
   data Dat_FL4RS8_U
   20, 48, 77, 105, 132
end

   ;***************************************************************
   ;
   ;  Allows player0 to move down to a level 5
   ;
   temp1 = 4
__PO_D_FL4RS8

   if player0x = P0_D_FL4_RS8[temp1] then gosub __Down bank6
   temp1 = temp1 - 1 
   if temp1 then __PO_D_FL4RS8
 
   if player0y = 18 then _Bit0_P0_Floor = 5 : return otherbank 
   if player0y < 32 then return otherbank

   ;***************************************************************
   ;
   ;  Data to move down to Floor 5
   ;
   data Dat_FL4RS8_D
   20,  77, 132
end

   ;***************************************************************
   ;
   ;  Sets player0 left side limits based off of playfiield
   ;
   if _P0_L_R = 20 then gosub __Right bank6
   if _P0_L_R = 64 then gosub __Left bank6 
   if _P0_L_R >= 20 && _P0_L_R <= 64 then gosub __Left_Right bank6

   ;***************************************************************
   ;
   ;  Sets player0 Right side limits based off of playfiield
   ;
   if _P0_L_R = 89 then gosub __Right bank6
   if _P0_L_R = 132 then gosub __Left bank6
   if _P0_L_R >= 89 && _P0_L_R <= 132 then gosub __Left_Right bank6 
   return otherbank

   ;***************************************************************
   ;
   ;  Level I / Floor 5 Information
   ;
   ;```````````````````````````````````````````````````````````````
__5F_L8

   ;***************************************************************
   ;
   ;  Allows player0 to move up to floor 4
   ;
   temp1 = 4
__PO_U_FL5RS8

   if player0x = P0_U_FL5_RS8[temp1] then gosub __Up bank6
   temp1 = temp1 - 1 
   if temp1 then __PO_U_FL5RS8
 
   if player0y = 32 then _Bit0_P0_Floor = 4 : return otherbank 
   if player0y > 18 then return otherbank

   ;***************************************************************
   ;
   ;  Data to move up to Floor 4
   ;
   data Dat_FL5RS8_U
   20, 77, 132
end

   ;***************************************************************
   ;
   ;  Allows player0 to warp down to next screen 
   ;
   if _P0_L_R = 77 && joy0down then _BitO_P0_Direction = 8 
   if _BitO_P0_Direction = 8 then gosub __Down_Warp bank6 : return

   ;***************************************************************
   ;
   ;  Sets player0 left side limits based off of playfiield
   ;
   gosub __Long_Floor bank6 
   return otherbank

   ; ******************************
   ; ****End Bank 5 ***************
   ; ******************************

   ; ******************************
   ; ****Start Bank 6 *************
   ; ******************************

   bank 6
   ;***************************************************************
   ;
   ;  Common Controls there are defined stopping points
   ;
__Left
   if joy0left then c{1}=0:c{2}=0:c{3}=1:c{4}=0:c{5}=0:c{6}=0:c{7}=0:c{0}=0 : _BitO_P0_Direction = 2 : _Bit6_Flip_P0{6} = 1
   if _BitO_P0_Direction = 2 then _P0_L_R = _P0_L_R - .5 
   if _P0_L_R = 133 && joy0right then c{1}=0:c{2}=0:c{3}=0:c{4}=1:c{5}=0:c{6}=0:c{7}=0:c{0}=0 : return
   return

__Right
   if joy0right then c{1}=0:c{2}=0:c{3}=0:c{4}=1:c{5}=0:c{6}=0:c{7}=0:c{0}=0 : _BitO_P0_Direction = 1 :_Bit6_Flip_P0{6} = 0
   if _BitO_P0_Direction = 1 then _P0_L_R = _P0_L_R + .5 
   if _P0_L_R = 19 && joy0left then c{1}=0:c{2}=0:c{3}=1:c{4}=0:c{5}=0:c{6}=0:c{7}=0:c{0}=0 : return
   return

__Up
   if joy0up then c{1}=1:c{2}=0:c{3}=0:c{4}=0:c{5}=0:c{6}=0:c{7}=0:c{0}=0 : _BitO_P0_Direction = 3
   if _BitO_P0_Direction = 3 then _P0_U_D = _P0_U_D + .5
   return

__Down
   if joy0down then c{1}=0:c{2}=1:c{3}=0:c{4}=0:c{5}=0:c{6}=0:c{7}=0:c{0}=0 : _BitO_P0_Direction = 4
   if _BitO_P0_Direction = 4 then _P0_U_D = _P0_U_D - .5
   return

__Left_Right
   if _P0_L_R = 19 && joy0left then c{1}=0:c{2}=0:c{3}=1:c{4}=0:c{5}=0:c{6}=0:c{7}=0:c{0}=0 : return
   if _P0_L_R = 133 && joy0right then c{1}=0:c{2}=0:c{3}=0:c{4}=1:c{5}=0:c{6}=0:c{7}=0:c{0}=0 : return
   if joy0left then c{1}=0:c{2}=0:c{3}=1:c{4}=0:c{5}=0:c{6}=0:c{7}=0:c{0}=0 : _BitO_P0_Direction = 1 : _Bit6_Flip_P0{6} = 1
   if joy0right then c{1}=0:c{2}=0:c{3}=0:c{4}=1:c{5}=0:c{6}=0:c{7}=0:c{0}=0 : _BitO_P0_Direction = 2 : _Bit6_Flip_P0{6} = 0
   if _BitO_P0_Direction = 1 then _P0_L_R = _P0_L_R - .5 
   if _BitO_P0_Direction = 2 then _P0_L_R = _P0_L_R + .5 
   return

__Long_Floor

   ;***************************************************************
   ;
   ;  Sets player0 left and rights limits based off of playfiield
   ;
   if _P0_L_R > 19 && _P0_L_R < 133 then gosub __Left_Right
   if _P0_L_R = 19 then gosub __Right 
   if _P0_L_R = 133 then gosub __Left
   return 

   ;***************************************************************
   ;
   ;  left / right warp / exit "Middle of Screen"
   ;
__Right_Warp
   c{3}=1 : _P0_L_R = _P0_L_R + .3
   return

__Left_Warp
   c{4}=1 : _P0_L_R = _P0_L_R - .3
   return

__Up_Warp
   _P0_U_D = _P0_U_D + .2   
   return

__Down_Warp
   _P0_U_D = _P0_U_D - .2   
   return

   ;***************************************************************
   ;
   ;  Reset Pacman and ghost after death or entering new room
   ;
__Death_Reset
   player0x =  77 : player0y = 46

__Ghost_Reset
   player1x =  28 : player1y = 72   ; Red Ghost
   player2x = 141 : player2y = 58	; Blue Ghost 
   player3x =  28 : player3y = 30   ; Pink Ghost 
   player4x = 141 : player4y = 16	; Orange Ghost 
   return 


   ; ******************************
   ; ****End Bank 6 ***************
   ; ******************************

   ; ******************************
   ; ****Start Bank 7 *************
   ; ******************************

   bank 7

__AI_Controls_Room_0_Red_Ghost

   ;***************************************************************
   ;
   ;  Allows players 1-4 to move up and down
   ;  Use exact coordinates as they will be on "Auto Pilot"
   ;  
   ;  1 = up          2 = down
   ;  3 = left        4 = right
   ;    
   ;  Notice that adding a number changes the minimum and maximum numbers. 
   ;  For example, a = (rand&7) + 8 would give you a random number between 8 and 15 (7 + 8 = 15)
   ; 
   ;***************************************************************

   ;***************************************************************
   ;
   ; Floor 1 for AI 
   ; 
   if _P1_L_R = 28 && _P1_U_D = 72 then Red_Ghost = (rand&2)+2 : if Red_Ghost = 3 then return  ; choose 2, 4 (D R) 
   if _P1_L_R = 84 && _P1_U_D = 72 then Red_Ghost = (rand&3)+1 : if Red_Ghost = 1 then return  ; choose 2, 3, 4 (D L R)
   if _P1_L_R = 141 && _P1_U_D = 72 then Red_Ghost = (rand&2)+2 : if Red_Ghost = 4 then return ; choose 2, 3 (D L)

   ;***************************************************************
   ;
   ; Floor 2 for AI 
   ; 
   if _P1_L_R = 28 && _P1_U_D = 58 then Red_Ghost = (rand&1)+4 : if Red_Ghost = 5 then Red_Ghost = 1 ; choose 1, 4 (U R) 
   if _P1_L_R = 84 && _P1_U_D = 58 then Red_Ghost = (rand&3)+1 : if Red_Ghost = 2 then return ; choose 1, 3, 4 (U L R) 
   if _P1_L_R = 141 && _P1_U_D = 58 then Red_Ghost = (rand&2)+1 : if Red_Ghost = 1 then return ; choose 2, 3 (U L)
 
   ;***************************************************************
   ;
   ; Move ghost on auto pilot 
   ; 
   if Red_Ghost = 1 then _P1_U_D = _P1_U_D + .5 ; go up
   if Red_Ghost = 2 then _P1_U_D = _P1_U_D - .5 ; go down 
   if Red_Ghost = 3 then _P1_L_R = _P1_L_R - .5 ; go left 
   if Red_Ghost = 4 then _P1_L_R = _P1_L_R + .5 ; go right
   return otherbank

__AI_Controls_Room_0_Blue_Ghost

   ;***************************************************************
   ;
   ; Floor 2 for AI 
   ; 
   if _P2_L_R = 28 && _P2_U_D  = 58 then Blue_Ghost= 4 ; choose 4 ( R ) 
   if _P2_L_R = 53 && _P2_U_D  = 58 then Blue_Ghost= (rand&3)+1 : if Blue_Ghost= 1 then return ; choose 2, 3, 4 (D L R)
   if _P2_L_R = 117 && _P2_U_D  = 58 then Blue_Ghost= (rand&3)+1 : if Blue_Ghost= 1 then return ; choose 2, 3, 4 (D L R) 
   if _P2_L_R = 141 && _P2_U_D  = 58 then Blue_Ghost= 3 ; choose 3 ( L )

   ;***************************************************************
   ;
   ; Floor 3 for AI 
   ; 
   if _P2_L_R = 28 && _P2_U_D  = 44 then Blue_Ghost= 4 ; choose 4 ( R )
   if _P2_L_R = 53 && _P2_U_D  = 44 then Blue_Ghost= (rand&3)+1 : if Blue_Ghost= 2 then return ; choose 1, 3, 4 (U L R)
   if _P2_L_R = 117 && _P2_U_D  = 44 then Blue_Ghost= (rand&3)+1 : if Blue_Ghost= 2 then return ; choose 1, 3, 4 (U L R)
   if _P2_L_R = 141 && _P2_U_D  = 44 then Blue_Ghost= 3 ; choose 3 ( L )

   ;***************************************************************
   ;
   ; Move ghost on auto pilot 
   ; 
   if Blue_Ghost= 1 then _P2_U_D  = _P2_U_D  + .5 ; go up
   if Blue_Ghost= 2 then _P2_U_D  = _P2_U_D  - .5 ; go down 
   if Blue_Ghost= 3 then _P2_L_R  = _P2_L_R - .5 ; go left 
   if Blue_Ghost= 4 then _P2_L_R  = _P2_L_R + .5 ; go right
   return otherbank

__AI_Controls_Room_0_Pink_Ghost

   ;***************************************************************
   ;
   ; Floor 3 for AI 
   ; 
   if _P3_L_R = 28 && _P3_U_D   = 44 then Pink_Ghost= 4 ; choose 4 ( R )
   if _P3_L_R = 53 && _P3_U_D   = 44 then Pink_Ghost= (rand&3)+1 : if Pink_Ghost= 1 then return ; choose 2, 3, 4 (D L R)
   if _P3_L_R = 117 && _P3_U_D   = 44 then Pink_Ghost= (rand&3)+1 : if Pink_Ghost= 1 then return ; choose 2, 3, 4 (D L R)
   if _P3_L_R = 141 && _P3_U_D   = 44 then Pink_Ghost= 3 ; choose 4 ( L )

   ;***************************************************************
   ;
   ; Floor 4 for AI 
   ; 
   if _P3_L_R = 28 && _P3_U_D   = 30 then Pink_Ghost= 4 ; choose 4 ( R ) 
   if _P3_L_R = 53 && _P3_U_D   = 30 then Pink_Ghost= (rand&3)+1 : if Pink_Ghost= 2 then return ; choose 1, 3, 4 (U L R)
   if _P3_L_R = 117 && _P3_U_D   = 30 then Pink_Ghost= (rand&3)+1 : if Pink_Ghost= 2 then return ; choose 1, 3, 4 (U L R) 
   if _P3_L_R = 141 && _P3_U_D   = 30 then Pink_Ghost= 3 ; choose 3 ( L )

   ;***************************************************************
   ;
   ; Move ghost on auto pilot 
   ; 
   if Pink_Ghost= 1 then _P3_U_D   = _P3_U_D   + .5 ; go up
   if Pink_Ghost= 2 then _P3_U_D   = _P3_U_D   - .5 ; go down 
   if Pink_Ghost= 3 then _P3_L_R = _P3_L_R - .5 ; go left 
   if Pink_Ghost= 4 then _P3_L_R = _P3_L_R + .5 ; go right
 
   return otherbank

__AI_Controls_Room_0_Orange_Ghost

   ;***************************************************************
   ;
   ; Floor 4 for AI 
   ; 
   if _P4_L_R = 28 && _P4_U_D   = 30 then Orange_Ghost= (rand&1)+4 : if Orange_Ghost= 5 then Orange_Ghost= 2 ; choose 2, 4 (D R) 
   if _P4_L_R = 84 && _P4_U_D   = 30 then Orange_Ghost= (rand&3)+1 : if Orange_Ghost= 1 then return ; choose 2, 3, 4 (D L R) 
   if _P4_L_R = 141 && _P4_U_D   = 30 then Orange_Ghost= (rand&2)+2 : if Orange_Ghost= 4 then return ; choose 2, 3 (D L)

   ;***************************************************************
   ;
   ; Floor 5 for AI 
   ;
   if _P4_L_R = 28 && _P4_U_D   = 16 then Orange_Ghost= (rand&1)+4 : if Orange_Ghost= 5 then Orange_Ghost= 1 ; choose 1, 4 (U R) 
   if _P4_L_R = 84 && _P4_U_D   = 16 then Orange_Ghost= (rand&3)+1 : if Orange_Ghost= 2 then return ; choose 1, 3, 4 (U L R)
   if _P4_L_R = 141 && _P4_U_D   = 16 then Orange_Ghost= (rand&2)+1 : if Orange_Ghost= 1 then return ; choose 2, 3 (U L)

   ;***************************************************************
   ;
   ; Move ghost on auto pilot 
   ; 
   if Orange_Ghost= 1 then _P4_U_D = _P4_U_D + .5 ; go up
   if Orange_Ghost= 2 then _P4_U_D = _P4_U_D - .5 ; go down 
   if Orange_Ghost= 3 then _P4_L_R = _P4_L_R - .5 ; go left 
   if Orange_Ghost= 4 then _P4_L_R = _P4_L_R + .5 ; go right
 
   return otherbank

   ;***************************************************************
   ;
   ; Pacman Dies  
   ; 
__Pac_Man_Dies1

   Clock=0 : c=0 : k=0 : n=0 : m=0 : o=0 : p=0 : q=0

__Pac_Man_Dies
   
   ; death sound    
   AUDV0=k : AUDF0=m : AUDC0=4 : n=n+1 
   if n=4 then k=k-1 : n=0 : o=o+1 : p=p+1
   if n=3 then m=m-1 
   if o>5 then k=0
   if o>6 then o=0 : k=15
   if b{6} && m=2 then o=0 : p=0 : k=0 
   if b{6} && m=2 then b{6}=0 : n=0 : c=0 : q{0}=1 

   Clock = Clock + 1 
   if Clock=3 then gosub __Pac_Man_Death_1 
   if Clock=12 then gosub __Pac_Man_Death_2 
   if Clock=24 then gosub __Pac_Man_Death_3 
   if Clock=36 then gosub __Pac_Man_Death_4 
   if Clock=48 then gosub __Pac_Man_Death_5 
   if Clock=60 then gosub __Pac_Man_Death_6 
   if Clock=72 then gosub __Pac_Man_Death_7 
   if Clock=120 then goto __Skip_Timer2

   ;***************************************************************
   ;
   ;  Sets Player colors. Must always be within the "Main Loop" 
   ;
   COLUP0 = $1C : COLUP1 = $44 : _COLUP1 = $44
   COLUP2 = $82 : COLUP3 = $4E : COLUP4 = $3A

   ;***************************************************************
   ;
   ;  Displays the screen.
   ;
   drawscreen

__Skip_Timer

   goto __Pac_Man_Dies

__Skip_Timer2
 
   ;```````````````````````````````````````````````````````````````
   ; 
   ;  Sets the tone, volume and frequency.
   ;
   AUDV0=0 : AUDF0=0 : AUDC0=0

   goto __Start_Restart bank1

__Pac_Man_Death_1
  player0:
  %0000000
  %0011100
  %0111110 
  %1100011
  %1100011
  %1100011  
  %0110110  
  %0010100
  %0000000
end
  return thisbank
 
__Pac_Man_Death_2
  player0:
  %0000000
  %0011100
  %0011100
  %0110110
  %0110110
  %1110111
  %1110111
  %1100011
  %0000000
end
  return thisbank
 
__Pac_Man_Death_3
  player0:
  %0000000
  %0011100
  %0110110
  %1110111
  %1100011
  %0000000
  %0000000
  %0000000
  %0000000
end
  return thisbank
 
__Pac_Man_Death_4
  player0:
  %0000000
  %1111111
  %0111110
  %0000000
  %0000000
  %0000000
  %0000000
  %0000000
  %0000000
end
  return thisbank
 
__Pac_Man_Death_5
  player0:
  %0000000
  %0000000
  %0000000
  %0010100
  %0001000
  %0010100
  %0000000
  %0000000
  %0000000
end
  return thisbank
 
__Pac_Man_Death_6
  player0:
  %0000000
  %1000001
  %0100010
  %0010100
  %0000000
  %0010100
  %0100010
  %1000001
  %0000000 
end
  return thisbank
 
__Pac_Man_Death_7
  player0:
  %0000000
  %0010100
  %0000000
  %0100010
  %0000000
  %0100010
  %0000000
  %0010100
  %0000000
end
  return thisbank

   ; ******************************
   ; ****End Bank 7 ***************
   ; ******************************

   ; ******************************
   ; ****Start Bank 8 *************
   ; ******************************

   bank 8

   ;****************************************************************
   ;
   ;  Last bank used for mainly sprites, playfield etc. 
   ;
   ;****************************************************************

   ;****************************************************************
   ;
   ;  Red Ghost Moves
   ;
__Red_Ghost_Up
   player1:
   %10101010
   %11111110
   %11111110
   %11111110
   %11010110
   %11010110
   %11111110
   %01111100
end
   return 

__Red_Ghost_Down
   player1:
   %10101010
   %11111110
   %11010110
   %11010110
   %11111110
   %11111110
   %11111110
   %01111100
end
   return 

__Red_Ghost_Left
   player1:
   %10101010
   %11111110
   %11111110
   %10101110
   %10101110
   %11111110
   %11111110
   %01111100
end
   return 

__Red_Ghost_Right
   player1:
   %10101010
   %11111110
   %11111110
   %11101010
   %11101010
   %11111110
   %11111110
   %01111100
end
   return 

   ;****************************************************************
   ;
   ;  Blue Ghost Moves
   ;
__Blue_Ghost_Up
   player2:
   %10101010
   %11111110
   %11111110
   %11111110
   %11010110
   %11010110
   %11111110
   %01111100
end
   return 

__Blue_Ghost_Down
   player2:
   %10101010
   %11111110
   %11010110
   %11010110
   %11111110
   %11111110
   %11111110
   %01111100
end
   return 

__Blue_Ghost_Left
   player2:
   %10101010
   %11111110
   %11111110
   %10101110
   %10101110
   %11111110
   %11111110
   %01111100
end
   return 

__Blue_Ghost_Right
   player2:
   %10101010
   %11111110
   %11111110
   %11101010
   %11101010
   %11111110
   %11111110
   %01111100
end
   return

   ;****************************************************************
   ;
   ;  Pink Ghost Moves
   ;
__Pink_Ghost_Up
   player3:
   %10101010
   %11111110
   %11111110
   %11111110
   %11010110
   %11010110
   %11111110
   %01111100
end
   return 

__Pink_Ghost_Down
   player3:
   %10101010
   %11111110
   %11010110
   %11010110
   %11111110
   %11111110
   %11111110
   %01111100
end
   return 

__Pink_Ghost_Left
   player3:
   %10101010
   %11111110
   %11111110
   %10101110
   %10101110
   %11111110
   %11111110
   %01111100
end
   return 

__Pink_Ghost_Right
   player3:
   %10101010
   %11111110
   %11111110
   %11101010
   %11101010
   %11111110
   %11111110
   %01111100
end
   return

   ;****************************************************************
   ;
   ;  Blue Ghost Moves
   ;
__Orange_Ghost_Up
   player4:
   %10101010
   %11111110
   %11111110
   %11111110
   %11010110
   %11010110
   %11111110
   %01111100
end
   return 

__Orange_Ghost_Down
   player4:
   %10101010
   %11111110
   %11010110
   %11010110
   %11111110
   %11111110
   %11111110
   %01111100
end
   return 

__Orange_Ghost_Left
   player4:
   %10101010
   %11111110
   %11111110
   %10101110
   %10101110
   %11111110
   %11111110
   %01111100
end
   return 

__Orange_Ghost_Right
   player4:
   %10101010
   %11111110
   %11111110
   %11101010
   %11101010
   %11111110
   %11111110
   %01111100
end
   return



rs0
   _BitO_P0_Direction = 0
   gosub __Ghost_Reset bank6
   playfield:
   ........X.......
   ................
   XXXXXXXXXXXXXXX.
   X...............
   X...............
   X...............
   X...............
   X...............
   X...............
   X..XXXXXXXXXXXX.
   X...............
   X...............
   X...............
   X...............
   X...............
   X...............
   XXXXXXX..XXXXXXX
   ................
   ................
   ................
   ................
   ................
   ................
   XXXXXXX..XXXXXXX
   X...............
   X...............
   X...............
   X...............
   X...............
   X...............
   X..XXXXXXXXXXXX.
   X...............
   X...............
   X...............
   X...............
   X...............
   X...............
   XXXXXXXXXXXXXXX.
   ................
   ........X.......
end
   return

rs1
   _BitO_P0_Direction = 0
   gosub __Ghost_Reset bank6 
   playfield:
   ........X.......
   ................
   XXXXXXXXXXXXXXX.
   X...............
   X...............
   X...............
   X...............
   X...............
   X...............
   X..XXXX..XXXXXXX
   X...............
   X...............
   X...............
   X...............
   X...............
   X...............
   X..XXXXXXXXXXXX.
   ...X..........X.
   ...X..........X.
   ...X..........X.
   ...X..........X.
   ...X..........X.
   ...X..........X.
   X..XXXXXXXXXXXX.
   X...............
   X...............
   X...............
   X...............
   X...............
   X...............
   X..XXXX..XXXXXXX
   X...............
   X...............
   X...............
   X...............
   X...............
   X...............
   XXXXXXXXXXXXXXX.
   ................
   ........X.......
end
   return

rs2
   playfield:
   ........X.......
   ................
   XXXXXXXXXXXXXXX.
   X...............
   X...............
   X...............
   X...............
   X...............
   X...............
   X..XXXXXXXXXXXX.
   X...............
   X...............
   X...............
   X...............
   X...............
   X...............
   X..XXXXXXXXXXXX.
   ...X..........X.
   ...X..........X.
   ...X..........X.
   ...X..........X.
   ...X..........X.
   ...X..........X.
   X..XXXXXXXXXXXX.
   X...............
   X...............
   X...............
   X...............
   X...............
   X...............
   X..XXXXXXXXXXXX.
   X...............
   X...............
   X...............
   X...............
   X...............
   X...............
   XXXXXXXXXXXXXXX.
   ................
   ........X.......
end
   return

rs3
   playfield:
   ........X.......
   ................
   XXXXXXXXXXXXXXX.
   X.............X.
   X.............X.
   X.............X.
   X.............X.
   X.............X.
   X.............X.
   X..XXXX..XXXXXX.
   X...............
   X...............
   X...............
   X...............
   X...............
   X...............
   XXXXXXX..XXXXXXX
   ................
   ................
   ................
   ................
   ................
   ................
   XXXXXXX..XXXXXXX
   X...............
   X...............
   X...............
   X...............
   X...............
   X...............
   X..XXXX..XXXXXX.
   X.............X.
   X.............X.
   X.............X.
   X.............X.
   X.............X.
   X.............X.
   XXXXXXXXXXXXXXX.
   ................
   ........X.......
end
   return

rs4
   playfield:
   ........X.......
   ................
   XXXXXXXXXXXXXXX.
   X.............X.
   X.............X.
   X.............X.
   X.............X.
   X.............X.
   X.............X.
   XXXXXXXXXXXXXXX.
   X...............
   X...............
   X...............
   X...............
   X...............
   X...............
   X..XXXXXXXXXXXX.
   ................
   ................
   ................
   ................
   ................
   ................
   X..XXXXXXXXXXXX.
   X...............
   X...............
   X...............
   X...............
   X...............
   X...............
   XXXXXXXXXXXXXXX.
   X.............X.
   X.............X.
   X.............X.
   X.............X.
   X.............X.
   X.............X.
   XXXXXXXXXXXXXXX.
   ................
   ........X.......
end
   return

rs5
   playfield:
   ........X.......
   ................
   XXXXXXXXXXXXXXX.
   X...............
   X...............
   X...............
   X...............
   X...............
   X...............
   X..XXXXX...XXXXX
   X..X...X...X....
   X..X...X...X....
   X..X...X...X....
   X..X...X...X....
   X..X...X...X....
   X..X...X...X....
   X..XXXXX...XXXXX
   ................
   ................
   ................
   ................
   ................
   ................
   X..XXXXX...XXXXX
   X..X...X...X....
   X..X...X...X....
   X..X...X...X....
   X..X...X...X....
   X..X...X...X....
   X..X...X...X....
   X..XXXXX...XXXXX	
   X...............
   X...............
   X...............
   X...............
   X...............
   X...............
   XXXXXXXXXXXXXXX.
   ................
   ........X.......
end
   return

rs6
   playfield:
   ........X.......
   ................
   XXXXXXXXXXXXXXX.
   X...............
   X...............
   X...............
   X...............
   X...............
   X...............
   XXXXXXX..XXXXXX.
   X.....X.........
   X.....X.........
   X.....X.........
   X.....X.........
   X.....X.........
   X.....X.........
   XXXXXXX..XXXXXXX
   ................
   ................
   ................
   ................
   ................
   ................
   XXXXXXX..XXXXXXX
   X.....X.........
   X.....X.........
   X.....X.........
   X.....X.........
   X.....X.........
   X.....X.........
   XXXXXXX..XXXXXX.
   X...............
   X...............
   X...............
   X...............
   X...............
   X...............
   XXXXXXXXXXXXXXX.
   ................
   ........X.......
end
   return

rs7
   playfield:
   ........X.......
   ................
   XXXXXXXXXXXXXXX.
   X...............
   X...............
   X...............
   X...............
   X...............
   X...............
   X..XXXXXXXXXXXX.
   X...............
   X...............
   X...............
   X...............
   X...............
   X...............
   XXXXXXXXXXXXXXX.
   ................
   ................
   ................
   ................
   ................
   ................
   XXXXXXXXXXXXXXX.
   X...............
   X...............
   X...............
   X...............
   X...............
   X...............
   X..XXXXXXXXXXXX.
   X...............
   X...............
   X...............
   X...............
   X...............
   X...............
   XXXXXXXXXXXXXXX.
   ................
   ........X.......
end
   return

rs8
   playfield:
   ........X.......
   ................
   XXXXXXXXXXXXXXX.
   X...............
   X...............
   X...............
   X...............
   X...............
   X...............
   X..XXXXXXXXXXXX.
   X.............X.
   X.............X.
   X.............X.
   X.............X.
   X.............X.
   X.............X.
   X..XXXXX..XXXXX.
   ...X............
   ...X............
   ...X............
   ...X............
   ...X............
   ...X............
   X..XXXXX..XXXXX.
   X.............X.
   X.............X.
   X.............X.
   X.............X.
   X.............X.
   X.............X.
   X..XXXXXXXXXXXX.
   X...............
   X...............
   X...............
   X...............
   X...............
   X...............
   XXXXXXXXXXXXXXX.
   ................
   ........X.......
end
   return

   ; ******************************
   ; ****End Bank 8 ***************
   ; ******************************