(FILECREATED "11-Dec-85 14:10:30" {ERIS}<LISPUSERS>KOTO>PACMAN.;2 122912 

      changes to:  (FNS INPUTMODEQ PACMANINITNEW GETMOVE PACMAN)

      previous date: "18-Mar-85 11:35:18" {ERIS}<LISPUSERS>KOTO>PACMAN.;1)


(* Copyright (c) 1984, 1985 by Xerox Corporation. All rights reserved.)

(PRETTYCOMPRINT PACMANCOMS)

(RPAQQ PACMANCOMS ((FNS ASSIGNDIR BLINKENERGIZERS PLAYERBOARDVAL BOARDVAL CHECKAT COLLISIONCHECK 
			  DECIDE DOTCHECK DRAWBOARD DRAWBOARDNEW ENERGIZERCHECK ERASEOBJ FRUITCHECK 
			  FRUITINIT GETHISCORES GETMONEY GETMOVE VOICEINPUT XLOCTOSCREEN XSCREENTOLOC 
			  YLOCTOSCREEN YSCREENTOLOC HISCORE INCOLORQ INPUTMODEQ HASCOLORDISPLAYP 
			  INTERMISSION1 ISIGN JOYSTICK LOSE MOVEDOWN MOVEGHOST MOVELEFT MOVEOBJ 
			  MOVEPACMAN MOVERIGHT MOVEUP NEWHISCORES PACINTRO PACMAN PACMANINIT 
			  PACMANINITNEW PACMANNEWGAME PACMANREINIT PAINTOBJ PAINTDOT PUTDOTS 
			  PUTDOTSAGAIN PUTENERGIZERS REDODOT REPLACEOBJ SCAN SETBITMAPS SETBOARDVAL 
			  SETCHARPROPS SETGCANS SETGLOCS SETPLAYERBOARDVAL SHOW SHOWCAP SHOWHISCORES 
			  SPEEDQ)
	(VARS 1600BITMAP 200BITMAP 400BITMAP 800BITMAP APPLEBITMAP ATTRACTMODE BELLBITMAP BIGPMANC 
	      BIGPMANR BIRDBITMAP BLUETIME BOARD BOARDLIST CHERRY CHERRYBITMAP COLORPMANDOWN 
	      COLORPMANLEFT COLORPMANRIGHT COLORPMANUP DOT ENERGIZER ENERGIZEROBJ EYESBITMAP FRUIT# 
	      FRUITTIME G1BITMAP G2BITMAP G3BITMAP G4BITMAP GINVBITMAP KEYBITMAP MRIGHT (NEXTMOVE
		0)
	      ORANGEBITMAP PACMANC PACMANINCOLOR PINEAPPLEBITMAP PMAN PMANDOWN PMANLEFT PMANRIGHT 
	      PMANUP PMGAMEOVER PSTREAM (PWINDOW)
	      QUARTERBITMAP ROW SIGLOGO STRAWBERRYBITMAP (PACMANWAITTIME 100)
	      (PMANINPUTMODE))
	(BITMAPS PMANUPMAP COLORPMANUP PMANRIGHTMAP COLORPMANRIGHT PMANDOWNMAP COLORPMANDOWN 
		 PMANLEFTMAP COLORPMANLEFT PACMANCMAP COLORPACMANC DOT COLORDOT ENERGIZER 
		 COLORENERGIZER BWG1BITMAP COLORG1BITMAP BWG2BITMAP COLORG2BITMAP BWG3BITMAP 
		 COLORG3BITMAP BWG4BITMAP COLORG4BITMAP BWGINVBITMAP COLORGINVBITMAP CHERRYBITMAP 
		 COLORCHERRYBITMAP STRAWBERRYBITMAP COLORSTRAWBERRYBITMAP ORANGEBITMAP 
		 COLORORANGEBITMAP APPLEBITMAP COLORAPPLEBITMAP PINEAPPLEBITMAP COLORPINEAPPLEBITMAP 
		 BIRDBITMAP COLORBIRDBITMAP BELLBITMAP COLORBELLBITMAP KEYBITMAP COLORKEYBITMAP 
		 200BITMAP COLOR200BITMAP 400BITMAP COLOR400BITMAP 800BITMAP COLOR800BITMAP 
		 1600BITMAP COLOR1600BITMAP SIGLOGO COLORSIGLOGO EYESBITMAP COLOREYESBITMAP BIGPMANC 
		 COLORBIGPMANC BIGPMANR COLORBIGPMANR QUARTERBITMAP COLORQUARTERBITMAP)
	(ARRAY BOARD VIRGINBOARD)
	(DECLARE: DOEVAL@COMPILE
		  (GLOBALVARS 1600BITMAP 200BITMAP 400BITMAP 800BITMAP APPLEBITMAP ATTRACTMODE 
			      BELLBITMAP BIGPMANC BIGPMANR BIRDBITMAP BLUETIME BOARD BOARDLIST 
			      BWG1BITMAP BWG2BITMAP BWG3BITMAP BWG4BITMAP BWGINVBITMAP CHERRYBITMAP 
			      COLOR1600BITMAP COLOR200BITMAP COLOR400BITMAP COLOR800BITMAP 
			      COLORAPPLEBITMAP COLORBELLBITMAP COLORBIGPMANC COLORBIGPMANR 
			      COLORBIRDBITMAP COLORCHERRYBITMAP COLORDOT COLORENERGIZER 
			      COLOREYESBITMAP COLORG1BITMAP COLORG2BITMAP COLORG3BITMAP COLORG4BITMAP 
			      COLORGINVBITMAP COLORKEYBITMAP COLORORANGEBITMAP COLORPACMANC 
			      COLORPINEAPPLEBITMAP COLORPMANDOWN COLORPMANLEFT COLORPMANRIGHT 
			      COLORPMANUP COLORQUARTERBITMAP COLORSIGLOGO COLORSTRAWBERRYBITMAP DOT 
			      ENERGIZER ENERGIZEROBJ EYESBITMAP FOLLOW FRUIT# FRUITLIST FRUITTIME 
			      FRUITVISIBLE G1 G1BITMAP G2 G2BITMAP G3 G3BITMAP G4 G4BITMAP GINVBITMAP 
			      GVALUE GVALUEBITMAPLIST GVALUEPOS HASDOT HILIST HINAMES HIVALUES 
			      KEYBITMAP LASTMOUSEBUTTONS LASTMOUSEX LASTMOUSEY NAME NETP NEXTMOVE 
			      NUMDOTS NUMMEN OLDG1 OLDG2 OLDG3 OLDG4 OLDPMAN ORANGEBITMAP 
			      PMANINPUTMODE PACMANC PACMANCMAP PACMANINCOLOR PACMANVERSION 
			      PINEAPPLEBITMAP PIT PMANDOWN PMANDOWNMAP PMANLEFT PMANLEFTMAP PMANRIGHT 
			      PMANRIGHTMAP PMANUP PMANUPMAP PMGAMEOVER PMOLDCOLORMAP PMWANTMORE 
			      PSTREAM PWINDOW QUARTERBITMAP SAVEGVALUE SCORE SIGLOGO STRAWBERRYBITMAP 
			      VIRGINBOARD))))
(DEFINEQ

(ASSIGNDIR
  [LAMBDA (GNUM WANT)

          (* MD "27-JAN-84 11:32" When a ghost has a choice of directions to move in, this makes sure they don't all choose 
	  the same way (avoids piggybacking) Returns the final assignment of direction for move)


    (SELECTQ GNUM
	     [1 (for TRY in (QUOTE (8 2 4 1)) as ANS in (QUOTE (2 1 3 4))
		   do (COND
			((NEQ (LOGAND WANT TRY)
			      0)
			  (RETURN ANS]
	     [2 (for TRY in (QUOTE (2 8 1 4)) as ANS in (QUOTE (1 2 4 3))
		   do (COND
			((NEQ (LOGAND WANT TRY)
			      0)
			  (RETURN ANS]
	     [3 (for TRY in (QUOTE (4 8 2 1)) as ANS in (QUOTE (3 2 1 4))
		   do (COND
			((NEQ (LOGAND WANT TRY)
			      0)
			  (RETURN ANS]
	     [4 (for TRY in (QUOTE (1 8 4 2)) as ANS in (QUOTE (4 2 3 1))
		   do (COND
			((NEQ (LOGAND WANT TRY)
			      0)
			  (RETURN ANS]
	     T])

(BLINKENERGIZERS
  [LAMBDA NIL                                                (* MD "11-AUG-83 13:04")
    (COND
      ((CHECKAT 1 3 32)
	(PAINTOBJ ENERGIZEROBJ (ITIMES 1 11)
		  (ITIMES 11 (IDIFFERENCE 30 3))
		  8 8 PSTREAM)))
    (COND
      ((CHECKAT 26 3 32)
	(PAINTOBJ ENERGIZEROBJ (ITIMES 26 11)
		  (ITIMES 11 (IDIFFERENCE 30 3))
		  8 8 PSTREAM)))
    (COND
      ((CHECKAT 1 23 32)
	(PAINTOBJ ENERGIZEROBJ (ITIMES 1 11)
		  (ITIMES 11 (IDIFFERENCE 30 23))
		  8 8 PSTREAM)))
    (COND
      ((CHECKAT 26 23 32)
	(PAINTOBJ ENERGIZEROBJ (ITIMES 26 11)
		  (ITIMES 11 (IDIFFERENCE 30 23))
		  8 8 PSTREAM])

(PLAYERBOARDVAL
  [LAMBDA (PLAYER)                                           (* rrb " 3-Feb-84 10:55")
                                                             (* returns the representation of the board square that 
							     PLAYER is currently located at.)
    (BOARDVAL (GETPROP PLAYER (QUOTE XLOC))
	      (GETPROP PLAYER (QUOTE YLOC])

(BOARDVAL
  [LAMBDA (X Y)                                              (* MD "28-NOV-83 16:44")
    (CAR (FNTH (ELT BOARD Y)
	       X])

(CHECKAT
  [LAMBDA (X Y BIT)                                          (* rrb "31-Jan-84 14:02")
    (NEQ (LOGAND (BOARDVAL X Y)
		 BIT)
	 0])

(COLLISIONCHECK
  [LAMBDA (PMAN)                                             (* MD " 4-JAN-84 14:01")
    (PROG (X Y GHOST OLDGHOST)
          (SETQ X (GETPROP PMAN (QUOTE XLOC)))
          (SETQ Y (GETPROP PMAN (QUOTE YLOC)))
          (COND
	    ((CHECKAT X Y 3840)                              (* Was there a collision?)
	      (SETQ GNUM (LOGAND (BOARDVAL X Y)
				 3840))
	      (COND
		((IGEQ GNUM 2048)
		  (SETQ GHOST G4)
		  (SETQ OLDGHOST OLDG4))
		((IGEQ GNUM 1024)
		  (SETQ GHOST G3)
		  (SETQ OLDGHOST OLDG3))
		((IGEQ GNUM 512)
		  (SETQ GHOST G2)
		  (SETQ OLDGHOST OLDG2))
		((IGEQ GNUM 256)
		  (SETQ GHOST G1)
		  (SETQ OLDGHOST OLDG1)))
	      (COND
		((EQ FOLLOW 1)                               (* A ghost got him)
		  (LOSE))
		(T                                           (* He got a ghost)
		   (SHOW (add SCORE GVALUE))
		   (SETQ SAVEGVALUE GVALUE)
		   (PUTPROP (CAR (NTH GVALUEBITMAPLIST (IQUOTIENT GVALUE 20)))
			    (QUOTE OPERATION)
			    (QUOTE INVERT))
		   (COND
		     ((IGREATERP (CAR GVALUEPOS)
				 0)                          (* Erase the previously displayed point value before 
							     painting the new one.)
		       (ERASEOBJ (CAR (NTH GVALUEBITMAPLIST (IQUOTIENT (IQUOTIENT GVALUE 2)
								       20)))
				 (CAR GVALUEPOS)
				 (CDR GVALUEPOS)
				 16 16 PSTREAM)))
		   (PAINTOBJ (CAR (NTH GVALUEBITMAPLIST (IQUOTIENT GVALUE 20)))
			     (change (CAR GVALUEPOS)
				     (IDIFFERENCE (ITIMES (GETPROP GHOST (QUOTE XLOC))
							  11)
						  6))
			     (change (CDR GVALUEPOS)
				     (IDIFFERENCE (ITIMES (IDIFFERENCE 30 (GETPROP GHOST
										   (QUOTE YLOC)))
							  11)
						  6))
			     16 16 PSTREAM)
		   (SETQ GVALUE (ITIMES GVALUE 2))
		   (PUTPROP GHOST (QUOTE EATEN)
			    1)))
	      (DISMISS 1500)
	      (ERASEOBJ GHOST (IDIFFERENCE (ITIMES (GETPROP GHOST (QUOTE XLOC))
						   11)
					   6)
			(IDIFFERENCE (ITIMES (IDIFFERENCE 30 (GETPROP GHOST (QUOTE YLOC)))
					     11)
				     6)
			16 16 PSTREAM)
	      (COND
		[(EQ (GETPROP GHOST (QUOTE EATEN))
		     1)
		  (PUTPROP GHOST (QUOTE BITMAP)
			   (COND
			     (PACMANINCOLOR COLOREYESBITMAP)
			     (T EYESBITMAP)))
		  (PUTPROP OLDGHOST (QUOTE BITMAP)
			   (GETPROP GHOST (QUOTE BITMAP)))
		  (SETBOARDVAL X Y (IDIFFERENCE (BOARDVAL X Y)
						(GETPROP GHOST (QUOTE BIT]
		(T [for G in (QUOTE (G1 G2 G3 G4))
		      do [SETBOARDVAL (GETPROP (EVAL G)
					       (QUOTE XLOC))
				      (GETPROP (EVAL G)
					       (QUOTE YLOC))
				      (IDIFFERENCE (BOARDVAL (GETPROP (EVAL G)
								      (QUOTE XLOC))
							     (GETPROP (EVAL G)
								      (QUOTE YLOC)))
						   (GETPROP (EVAL G)
							    (QUOTE BIT]
			 (PUTPROP (EVAL G)
				  (QUOTE XLOC)
				  (GETPROP (EVAL G)
					   (QUOTE INITX)))
			 (PUTPROP (EVAL G)
				  (QUOTE YLOC)
				  (GETPROP (EVAL G)
					   (QUOTE INITY)))
			 (SETBOARDVAL (GETPROP (EVAL G)
					       (QUOTE XLOC))
				      (GETPROP (EVAL G)
					       (QUOTE YLOC))
				      (IPLUS (BOARDVAL (GETPROP (EVAL G)
								(QUOTE XLOC))
						       (GETPROP (EVAL G)
								(QUOTE YLOC)))
					     (GETPROP (EVAL G)
						      (QUOTE BIT]
		   (SETGCANS])

(DECIDE
  [LAMBDA (GHOST)                                            (* rrb " 3-Feb-84 10:55")
                                                             (* MD "27-JAN-84 11:28" Choose a direction for this 
							     ghost to move in)
    (PROG (GXINC GYINC WANT CURLOC)
          [COND
	    [(EQ (GETPROP GHOST (QUOTE EATEN))
		 0)
	      (SETQ GXINC (ISIGN 1 (ITIMES (IDIFFERENCE (GETPROP PMAN (QUOTE XLOC))
							(GETPROP GHOST (QUOTE XLOC)))
					   FOLLOW)))
	      (SETQ GYINC (ISIGN 1 (ITIMES (IDIFFERENCE (GETPROP PMAN (QUOTE YLOC))
							(GETPROP GHOST (QUOTE YLOC)))
					   FOLLOW]
	    (T [SETQ GXINC (ISIGN 1 (IDIFFERENCE 13 (GETPROP GHOST (QUOTE XLOC]
	       (SETQ GYINC (ISIGN 1 (IDIFFERENCE 12 (GETPROP GHOST (QUOTE YLOC]
                                                             (* GXINC & GYINC point towards the desired goal 
							     (either the Pacman or home))
          (SETQ WANT 0)
          (SETQ CURLOC (PLAYERBOARDVAL GHOST))               (* The direction you WANT to move in is 
							     (possibly) constrained by your CURrent LOCaction)
          [COND
	    ((AND (EQ GXINC 1)
		  (EQ GYINC 1))
	      (SETQ WANT (LOGAND 5 CURLOC]
          [COND
	    ((AND (EQ GXINC 1)
		  (EQ GYINC -1))
	      (SETQ WANT (LOGAND 6 CURLOC]
          [COND
	    ((AND (EQ GXINC -1)
		  (EQ GYINC 1))
	      (SETQ WANT (LOGAND 9 CURLOC]
          [COND
	    ((AND (EQ GXINC -1)
		  (EQ GYINC -1))
	      (SETQ WANT (LOGAND 10 CURLOC]                  (* WANT is further constrained to prohibit backing up 
							     (to avoid getting stuck in local minima))
          [SETQ WANT (LOGAND WANT (GETPROP GHOST (QUOTE CAN]
          [COND
	    ((EQ WANT 0)                                     (* Too much constraint! Try and make the best of it.)
	      (SETQ WANT (LOGAND CURLOC (GETPROP GHOST (QUOTE CAN]
          (RETURN (ASSIGNDIR (GETPROP GHOST (QUOTE NUMBER))
			     WANT])

(DOTCHECK
  [LAMBDA (PMAN)                                             (* MD "26-Mar-84 13:10")
                                                             (* Gives Pacman points if now on a dot.
							     Invokes next board when all dots gone.)
    (PROG [(X (GETPROP PMAN (QUOTE XLOC)))
	   (Y (GETPROP PMAN (QUOTE YLOC]
          (COND
	    ((CHECKAT X Y 16)
	      (SETBOARDVAL X Y (IDIFFERENCE (BOARDVAL X Y)
					    16))
	      (SHOW (ADD SCORE 1))
	      (ADD NUMDOTS -1)
	      (COND
		((EQ NUMDOTS 0)
		  (PACMANREINIT])

(DRAWBOARD
  [LAMBDA NIL                                                (* MD "16-AUG-83 11:44")
    (PROG (X1 Y1 X2 Y2)
          (DSPRESET PSTREAM)
          (SETQ X1 0)
          (while (NEQ (SETQ X1 (READ))
		      99)
	     do (SETQ Y1 (READ))
		(SETQ X2 (READ))
		(SETQ Y2 (READ))
		[SETQ BOARDLIST (APPEND BOARDLIST (LIST (LIST X1 Y1 X2 Y2]
		(COND
		  ((AND (EQ X1 X2)
			(ILESSP Y1 Y2))
		    (DRAWLINE (ITIMES X1 11)
			      (IPLUS (ITIMES 11 (IDIFFERENCE 30 Y1))
				     2)
			      (ITIMES 11 X2)
			      (ITIMES 11 (IDIFFERENCE 30 Y2))
			      4
			      (QUOTE PAINT)
			      PSTREAM))
		  (T (DRAWLINE (ITIMES X1 11)
			       (ITIMES 11 (IDIFFERENCE 30 Y1))
			       (ITIMES 11 X2)
			       (ITIMES 11 (IDIFFERENCE 30 Y2))
			       4
			       (QUOTE PAINT)
			       PSTREAM])

(DRAWBOARDNEW
  [LAMBDA NIL                                                (* MD " 8-NOV-83 16:12")
    (PROG (X1 Y1 X2 Y2)
          (DSPRESET PSTREAM)
          (for XYPAIR in BOARDLIST
	     do (SETQ X1 (CAR XYPAIR))
		(SETQ Y1 (CADR XYPAIR))
		(SETQ X2 (CADDR XYPAIR))
		(SETQ Y2 (CADDDR XYPAIR))
		(COND
		  ((AND (EQ X1 X2)
			(ILESSP Y1 Y2))
		    (DRAWLINE (ITIMES X1 11)
			      (IPLUS (ITIMES 11 (IDIFFERENCE 30 Y1))
				     2)
			      (ITIMES 11 X2)
			      (ITIMES 11 (IDIFFERENCE 30 Y2))
			      4
			      (QUOTE PAINT)
			      PSTREAM 1))
		  (T (DRAWLINE (ITIMES X1 11)
			       (ITIMES 11 (IDIFFERENCE 30 Y1))
			       (ITIMES 11 X2)
			       (ITIMES 11 (IDIFFERENCE 30 Y2))
			       4
			       (QUOTE PAINT)
			       PSTREAM 1])

(ENERGIZERCHECK
  [LAMBDA (PMAN)                                             (* MD "22-JUL-83 10:56")
    (PROG (X Y)
          (SETQ X (GETPROP PMAN (QUOTE XLOC)))
          (SETQ Y (GETPROP PMAN (QUOTE YLOC)))
          (COND
	    ((CHECKAT X Y 32)
	      (SETBOARDVAL X Y (IDIFFERENCE (BOARDVAL X Y)
					    32))
	      (MOVETO 130 350 PSTREAM)
	      (PRIN1 (SETQ SCORE (IPLUS SCORE 5))
		     PSTREAM)
	      (PRIN1 0 PSTREAM)
	      (SETQ GVALUE 20)
	      (SETQ FOLLOW -1)
	      (SETQ BLUETIME 0])

(ERASEOBJ
  [LAMBDA (OBJ X Y W H STREAM)                               (* KW "18-MAY-83 14:52")
    (BITBLT (GETPROP OBJ (QUOTE BITMAP))
	    NIL NIL STREAM X Y W H NIL (QUOTE ERASE)
	    NIL NIL])

(FRUITCHECK
  [LAMBDA NIL                                                (* MD "30-AUG-83 14:23")
    (SETQ FRUITTIME (ADD1 FRUITTIME))
    (COND
      ((EQ FRUITTIME 60)
	(PUTPROP (CAR (NTH FRUITLIST FRUIT#))
		 (QUOTE OPERATION)
		 (QUOTE PAINT))
	(PAINTOBJ (CAR (NTH FRUITLIST FRUIT#))
		  (IDIFFERENCE (ITIMES 13 11)
			       6)
		  (IDIFFERENCE (ITIMES (IDIFFERENCE 30 17)
				       11)
			       6)
		  16 16 PSTREAM))
      ((IGREATERP FRUITTIME 120)
	(ERASEOBJ (CAR (NTH FRUITLIST FRUIT#))
		  (IDIFFERENCE (ITIMES 13 11)
			       6)
		  (IDIFFERENCE (ITIMES (IDIFFERENCE 30 17)
				       11)
			       6)
		  16 16 PSTREAM))
      ((IGREATERP FRUITTIME 60)
	(COND
	  ((CHECKAT (GETPROP PMAN (QUOTE XLOC))
		    (GETPROP PMAN (QUOTE YLOC))
		    16384)
	    [SETQ SCORE (IPLUS SCORE (GETPROP (CAR (NTH FRUITLIST FRUIT#))
					      (QUOTE VALUE]
	    (SHOW SCORE)
	    (SETQ FRUITVISIBLE NIL)
	    (ERASEOBJ (CAR (NTH FRUITLIST FRUIT#))
		      (IDIFFERENCE (ITIMES 13 11)
				   6)
		      (IDIFFERENCE (ITIMES (IDIFFERENCE 30 17)
					   11)
				   6)
		      16 16 PSTREAM)
	    (PAINTOBJ (CAR (NTH FRUITLIST FRUIT#))
		      (IPLUS 160 (ITIMES FRUIT# 20))
		      350 16 16 PSTREAM])

(FRUITINIT
  [LAMBDA NIL                                                (* MD "10-NOV-83 13:18")
    (SETQ FRUIT# 0)
    (SETQ FRUITLIST (QUOTE (CHERRY STRAWBERRY ORANGE ORANGE APPLE APPLE PINEAPPLE PINEAPPLE BIRD BIRD 
				   BELL BELL KEY)))
    (PUTPROP (QUOTE CHERRY)
	     (QUOTE BITMAP)
	     (COND
	       (PACMANINCOLOR COLORCHERRYBITMAP)
	       (T CHERRYBITMAP)))
    (PUTPROP (QUOTE CHERRY)
	     (QUOTE VALUE)
	     10)
    (PUTPROP (QUOTE STRAWBERRY)
	     (QUOTE BITMAP)
	     (COND
	       (PACMANINCOLOR COLORSTRAWBERRYBITMAP)
	       (T STRAWBERRYBITMAP)))
    (PUTPROP (QUOTE STRAWBERRY)
	     (QUOTE VALUE)
	     30)
    (PUTPROP (QUOTE ORANGE)
	     (QUOTE BITMAP)
	     (COND
	       (PACMANINCOLOR COLORORANGEBITMAP)
	       (T ORANGEBITMAP)))
    (PUTPROP (QUOTE ORANGE)
	     (QUOTE VALUE)
	     50)
    (PUTPROP (QUOTE APPLE)
	     (QUOTE BITMAP)
	     (COND
	       (PACMANINCOLOR COLORAPPLEBITMAP)
	       (T APPLEBITMAP)))
    (PUTPROP (QUOTE APPLE)
	     (QUOTE VALUE)
	     70)
    (PUTPROP (QUOTE PINEAPPLE)
	     (QUOTE BITMAP)
	     (COND
	       (PACMANINCOLOR COLORPINEAPPLEBITMAP)
	       (T PINEAPPLEBITMAP)))
    (PUTPROP (QUOTE PINEAPPLE)
	     (QUOTE VALUE)
	     100)
    (PUTPROP (QUOTE BIRD)
	     (QUOTE BITMAP)
	     (COND
	       (PACMANINCOLOR COLORBIRDBITMAP)
	       (T BIRDBITMAP)))
    (PUTPROP (QUOTE BIRD)
	     (QUOTE VALUE)
	     200)
    (PUTPROP (QUOTE BELL)
	     (QUOTE BITMAP)
	     (COND
	       (PACMANINCOLOR COLORBELLBITMAP)
	       (T BELLBITMAP)))
    (PUTPROP (QUOTE BELL)
	     (QUOTE VALUE)
	     300)
    (PUTPROP (QUOTE KEY)
	     (QUOTE BITMAP)
	     (COND
	       (PACMANINCOLOR COLORKEYBITMAP)
	       (T KEYBITMAP)))
    (PUTPROP (QUOTE KEY)
	     (QUOTE VALUE)
	     500])

(GETHISCORES
  [LAMBDA NIL                                                (* rrb " 3-Feb-84 14:36")
    (CLEARW PWINDOW)
    (SHOWCAP "Read high scores?" 70 200)                     (* move cursor to near question.)
    (CURSORPOSITION (create POSITION
			    XCOORD ←(IPLUS (DSPXPOSITION NIL PWINDOW)
					   20)
			    YCOORD ←(IDIFFERENCE (DSPYPOSITION NIL PWINDOW)
						 50))
		    PWINDOW)
    (COND
      ((EQ [MENU (create MENU
			 ITEMS ←(QUOTE ((Yes (QUOTE Y))
					 (No (QUOTE N]
	   (QUOTE Y))
	(SETQ NETP T)
	(INFILE (QUOTE {ICE}<SYSIFS>PSYSICE)
		(QUOTE READ))
	(SETQ HILIST (READ))
	(SHOWHISCORES)
	(CLOSEF (QUOTE {ICE}<SYSIFS>PSYSICE))
	(SHOWCAP "Click LEFT or FIRE (joystick) when ready." 6 20)
	(until (OR (UNTILMOUSESTATE (OR LEFT MIDDLE)
				    10)
		   (KEYDOWNP (QUOTE PAD1)))
	   do))
      (T (SETQ NETP NIL])

(GETMONEY
  [LAMBDA NIL                                                (* MD "15-Mar-85 16:05")
    (PROG (PMHADENOUGH)
          (SHOWCAP "INSERT QUARTER TO START GAME" 50 20)
          (SHOWCAP "(Click anywhere else to quit)" 50 6)
          (PUTPROP INTROOBJ (QUOTE BITMAP)
		   (COND
		     (PACMANINCOLOR COLORQUARTERBITMAP)
		     (T QUARTERBITMAP)))
          (PAINTOBJ INTROOBJ 150 40 64 32 PSTREAM)
          (GETMOUSESTATE)
          (until [OR (SETQ PMWANTMORE (KEYDOWNP (QUOTE PAD1)))
		     (SETQ PMWANTMORE (COND
			 ((AND (EQ PMANINPUTMODE (QUOTE VOICE))
			       (EQ (VOICEINPUT)
				   0))
			   T)
			 (T NIL)))
		     [SETQ PMWANTMORE (AND (MOUSESTATE (OR LEFT MIDDLE))
					   (INSIDEP (QUOTE (150 40 32 32))
						    (LASTMOUSEX PSTREAM)
						    (LASTMOUSEY PSTREAM]
		     (SETQ PMHADENOUGH (AND (MOUSESTATE (OR LEFT MIDDLE))
					    (NOT (INSIDEP (QUOTE (150 40 32 32))
							  (LASTMOUSEX PSTREAM)
							  (LASTMOUSEY PSTREAM]
	     do (GETMOUSESTATE))
          (COND
	    (PMHADENOUGH (SETQ PMWANTMORE NIL])

(GETMOVE
  [LAMBDA (MOVE)                                             (* MJD "11-Dec-85 14:05")
    (PROG (CHAR OLDX OLDY (XINC 0)
		    (YINC 0))
	    (CONTROL T)
	    (SETQ CHAR (OR (AND (EQ PMANINPUTMODE (QUOTE VOICE))
				      (VOICEINPUT))
			       (JOYSTICK)))
	    [COND
	      ((AND (NOT CHAR)
		      (NOT (READP T)))
		(SETQ OLDX LASTMOUSEX)
		(SETQ OLDY LASTMOUSEY)
		(GETMOUSESTATE)
		(if (EQ (MACHINETYPE)
			    (QUOTE DORADO))
		    then (DISMISS 3))                    (* This is needed to give LMX & LMY time to change 
							     values.)
		(SETQ XINC (IDIFFERENCE LASTMOUSEX OLDX))
		(SETQ YINC (IDIFFERENCE LASTMOUSEY OLDY))
		(COND
		  ((ILESSP OLDX 32)
		    (ADJUSTCURSORPOSITION 64 0)))          (* Keep cursor from bumping into edge of screen.)
		(COND
		  ((ILESSP OLDY 32)
		    (ADJUSTCURSORPOSITION 0 64)))
		(COND
		  ((IGREATERP OLDX (COND
				  (PACMANINCOLOR 620)
				  (T 1000)))
		    (ADJUSTCURSORPOSITION -64 0)))
		(COND
		  ((IGREATERP OLDY (COND
				  (PACMANINCOLOR 460)
				  (T 780)))
		    (ADJUSTCURSORPOSITION 0 -64]
	    [COND
	      ((AND (NOT CHAR)
		      (NOT (READP T))
		      (NOT ATTRACTMODE)
		      (ILESSP (ABS XINC)
				6)
		      (ILESSP (ABS YINC)
				6))
		(COND
		  ((AND (NEQ NEXTMOVE 0)
			  (CHECKAT (GETPROP PMAN (QUOTE XLOC))
				     (GETPROP PMAN (QUOTE YLOC))
				     NEXTMOVE))
		    (RETURN NEXTMOVE))
		  ((CHECKAT (GETPROP PMAN (QUOTE XLOC))
			      (GETPROP PMAN (QUOTE YLOC))
			      MOVE)
		    (RETURN MOVE))
		  (T (RETURN 0]
	    [SETQ DIR (COND
		(CHAR CHAR)
		[(READP T)
		  (RESETFORM (ECHOMODE NIL)
			       (SETQ CHAR (READC))
			       (COND
				 ((EQ CHAR (QUOTE L))
				   4)
				 ((EQ CHAR (QUOTE J))
				   8)
				 ((EQ CHAR (QUOTE I))
				   2)
				 ((EQ CHAR (QUOTE % ))
				   1)
				 (T MOVE]
		[ATTRACTMODE (CAR (NTH (QUOTE (1 2 4 8))
					   (RAND 1 4]
		(T (COND
		     ((AND (IGREATERP XINC 0)
			     (IGREATERP (ABS XINC)
					  (ABS YINC)))
		       4)
		     ((AND (ILESSP XINC 0)
			     (IGREATERP (ABS XINC)
					  (ABS YINC)))
		       8)
		     ((AND (IGREATERP YINC 0)
			     (IGEQ (ABS YINC)
				     (ABS XINC)))
		       2)
		     ((AND (ILESSP YINC 0)
			     (IGEQ (ABS YINC)
				     (ABS XINC)))
		       1]
	    (COND
	      ((CHECKAT (GETPROP PMAN (QUOTE XLOC))
			  (GETPROP PMAN (QUOTE YLOC))
			  DIR)
		(SETQ NEXTMOVE DIR)
		(RETURN DIR))
	      (T (SETQ NEXTMOVE DIR)
		 (COND
		   ((CHECKAT (GETPROP PMAN (QUOTE XLOC))
			       (GETPROP PMAN (QUOTE YLOC))
			       MOVE)
		     (RETURN MOVE))
		   (T (RETURN 0])

(VOICEINPUT
  [LAMBDA NIL                                                (* MD "15-Mar-85 13:15")
    (NUMBERP (CHARACTER (OR (RS232READBYTE)
			    0])

(XLOCTOSCREEN
  [LAMBDA (XLOC)                                             (* rrb " 3-Feb-84 12:20")
                                                             (* converts from a pacman board square to a screen 
							     coordinate.)
    (IDIFFERENCE (ITIMES XLOC 11)
		 6])

(XSCREENTOLOC
  [LAMBDA (XLOC)                                             (* rrb " 3-Feb-84 12:29")
                                                             (* converts from a screen coordinate to a pacman board 
							     square)
    (IQUOTIENT (IPLUS XLOC 6)
	       11])

(YLOCTOSCREEN
  [LAMBDA (YLOC)                                             (* rrb " 3-Feb-84 12:31")
                                                             (* converts from a y location to window coordinates.)
    (IPLUS (IQUOTIENT (IPLUS 6 YLOC)
		      11)
	   30])

(YSCREENTOLOC
  [LAMBDA (YLOC)                                             (* rrb " 3-Feb-84 12:41")
                                                             (* converts from a screen coordinate to a pacman board 
							     square)
    (IDIFFERENCE 30 (IQUOTIENT (IPLUS YLOC 6)
			       11])

(HISCORE
  [LAMBDA NIL                                                (* MD "29-AUG-83 17:11")
    (PROG (Y)
          (CLEARW PWINDOW)
          (SHOWCAP "Read high scores?" 70 200)
          (COND
	    ((EQ (READ)
		 (QUOTE Y))
	      (SHOWCAP "Y" 200 200)
	      (SETPASSWORD (QUOTE {ICE})
			   (QUOTE PSYS)
			   "PRTZKRK"
			   (QUOTE SYSIFS))
	      (INFILE (QUOTE {ICE}<SYSIFS>PSYSICE)
		      (QUOTE READ))
	      (SETQ HINAMES (READ))
	      (SETQ HIVALUES (READ))
	      (CLEARW PWINDOW)
	      (SHOWCAP "High scores" 100 330)
	      (SETQ Y 300)
	      (for I in HINAMES as J in HIVALUES
		 do (SHOWCAP I 50 Y)
		    (SHOWCAP J 200 Y)
		    (SETQ Y (IDIFFERENCE Y 16)))
	      (CLOSEF (QUOTE {ICE}<SYSIFS>PSYSICE])

(INCOLORQ
  [LAMBDA NIL                                                (* rrb "27-Jan-84 15:34")
    (SELECTQ (MACHINETYPE)
	     ((DOLPHIN DORADO)
	       (COND
		 [(HASCOLORDISPLAYP)
		   (printout T "In color?" T)
		   (MENU (create MENU
				 ITEMS ←(QUOTE ((Yes T 
				 "Will play Pacman in color. - Only if you have a color display.")
						 (No (QUOTE NIL)
						     "Plays Pacman on the standard display.")))
				 TITLE ←(QUOTE Color?]
		 (T NIL)))
	     (DANDELION NIL)
	     (printout T "Unknown machine type."])

(INPUTMODEQ
  [LAMBDA NIL                                                (* MJD "11-Dec-85 14:08")
                                                             (* returns the mode of input after querying the user.)
    (printout T T "You can input your moves using the " "MOUSE (by having " "PMAN move " 
	      "in the same direction "
	      "as the cursor moved), " "KEYBOARD (I is up, " "J is left, " "L is right, " 
	      "space is down) "
	      "or " "JOYSTICK (if you have one on your machine), " 
	      "or voice control (if you have the voice board).")
    (PRINTOUT T "You can change modes any time even during a game." T)
    (OR (MENU (create MENU
			    ITEMS ← (QUOTE ((Cursor (QUOTE SAMEDIRASCURSOR)
						      
				 "PMAN will move in the same direction as the cursor just moved.")
					       (Keyboard (QUOTE KEYS)
							 
						    "PMAN is controlled by I, J, L and spacebar.")
					       (Joystick (QUOTE JOYSTICK)
							 "PMAN is controlled by the Joystick.")
					       (Voice (QUOTE VOICE)
						      
			   "Pacman is controlled by voice control ('up', 'down', 'left', 'right'")))
			    CENTERFLG ← T
			    TITLE ← "Choose mode"))
	  (QUOTE SAMEDIRASCURSOR])

(HASCOLORDISPLAYP
  [LAMBDA NIL                                                (* rrb "27-Jan-84 14:48")
                                                             (* does this machine have a color display.
							     Returns MAYBE if is can't tell.)
    (SELECTQ (MACHINETYPE)
	     (DOLPHIN (EQ (LRSH (\DEVICE.INPUT 80)
				8)
			  175))
	     (DORADO (QUOTE MAYBE))
	     NIL])

(INTERMISSION1
  [LAMBDA NIL                                                (* MD "29-NOV-83 15:58")
    (PROG (BIGOBJ OLDBIGOBJ)
          (PUTPROP G1 (QUOTE BITMAP)
		   G1BITMAP)
          (CLEARW PWINDOW)
          [for X from 350 to -45 by -1
	     do (COND
		  ((EQ (IREMAINDER (IQUOTIENT X 10)
				   2)
		       0)
		    (PUTPROP PMAN (QUOTE BITMAP)
			     PMANLEFT))
		  (T (PUTPROP PMAN (QUOTE BITMAP)
			      PACMANC)))
		(MOVEOBJ PMAN OLDPMAN X 200 (SUB1 X)
			 200 16 16 PSTREAM)
		(MOVEOBJ G1 G1 (IPLUS X 30)
			 200
			 (IPLUS X 29)
			 200 16 16 PSTREAM)
		(PUTPROP OLDPMAN (QUOTE BITMAP)
			 (GETPROP PMAN (QUOTE BITMAP]
          (SETQ BIGOBJ (QUOTE BIGP))
          (SETQ OLDBIGOBJ (QUOTE OLDBIGP))
          [for X from -45 to 350 by 2
	     do [COND
		  [(EQ (IREMAINDER (IQUOTIENT X 10)
				   2)
		       0)
		    (PUTPROP BIGOBJ (QUOTE BITMAP)
			     (COND
			       (PACMANINCOLOR COLORBIGPMANR)
			       (T BIGPMANR]
		  (T (PUTPROP BIGOBJ (QUOTE BITMAP)
			      (COND
				(PACMANINCOLOR COLORBIGPMANC)
				(T BIGPMANC]
		(MOVEOBJ BIGOBJ OLDBIGOBJ X 200 (IPLUS X 2)
			 200 64 64 PSTREAM)
		(MOVEOBJ G1 G1 (IPLUS X 75)
			 200
			 (IPLUS X 77)
			 200 16 16 PSTREAM)
		(PUTPROP OLDBIGOBJ (QUOTE BITMAP)
			 (GETPROP BIGOBJ (QUOTE BITMAP]
          (DISMISS 2000])

(ISIGN
  [LAMBDA (VALUE SIGN)                                       (* MD " 4-JAN-84 16:55")
    (COND
      ((IGREATERP SIGN 0)
	VALUE)
      ((ILESSP SIGN 0)
	(ITIMES (IABS VALUE)
		-1))
      (T                                                     (* If sign is 0 then make + or -
							     randomly)
	 (ITIMES (IABS VALUE)
		 (CAR (NTH (QUOTE (-1 1))
			   (RAND 1 2])

(JOYSTICK
  [LAMBDA NIL                                                (* MD "28-NOV-83 12:13")

          (* Pinouts: (Atari D0) (Fire PAD1) (E PAD2) (W PAD3) (S PAD4) (N PAD5) Atari connector: Top row 
	  (view from outside) 0 E W S N; bottom row: 0 GND 0 Fire ; D0 connector: middle row: 0 0 Fire E W S N;
	  bottom row GND 0 0 0 0 0)


    (COND
      ((KEYDOWNP (QUOTE PAD2))
	4)
      ((KEYDOWNP (QUOTE PAD3))
	8)
      ((KEYDOWNP (QUOTE PAD4))
	1)
      ((KEYDOWNP (QUOTE PAD5))
	2])

(LOSE
  [LAMBDA NIL                                                (* MD " 8-DEC-83 12:50")
    (SETQ NUMMEN (SUB1 NUMMEN))
    (PUTPROP PMAN (QUOTE BITMAP)
	     PACMANC)
    (ERASEOBJ PMAN (IDIFFERENCE (ITIMES (GETPROP PMAN (QUOTE XLOC))
					11)
				6)
	      (IDIFFERENCE (ITIMES (IDIFFERENCE 30 (GETPROP PMAN (QUOTE YLOC)))
				   11)
			   6)
	      16 16 PSTREAM)
    (COND
      ((EQ NUMMEN 2)
	(ERASEOBJ PMAN 40 345 16 16 PSTREAM))
      ((EQ NUMMEN 1)
	(ERASEOBJ PMAN 20 345 16 16 PSTREAM))
      ((EQ NUMMEN 0)
	(SHOWCAP "GAME OVER" (ITIMES 11 11)
		 (ITIMES (IDIFFERENCE 30 17)
			 11))
	(COND
	  ([AND NETP (IGREATERP (ITIMES SCORE 10)
				(CAAR (LAST HILIST]
	    (DISMISS 2000)
	    (NEWHISCORES)))
	(CLEARBUF T T)
	(CONTROL NIL)
	(SETQ PMGAMEOVER T)))
    (PUTPROP PMAN (QUOTE XLOC)
	     13)
    (PUTPROP PMAN (QUOTE YLOC)
	     23)
    (SETQ MOVE 8])

(MOVEDOWN
  [LAMBDA (OBJ OLDOBJ)                                       (* MD " 6-JAN-83 16:22")
    (MOVEOBJ OBJ OLDOBJ (IDIFFERENCE (ITIMES (GETPROP OLDOBJ (QUOTE XLOC))
					     11)
				     6)
	     (IDIFFERENCE (ITIMES (IDIFFERENCE 30 (GETPROP OLDOBJ (QUOTE YLOC)))
				  11)
			  6)
	     (IDIFFERENCE (ITIMES (GETPROP OBJ (QUOTE XLOC))
				  11)
			  6)
	     (IDIFFERENCE (ITIMES [IDIFFERENCE 30 (PUTPROP OBJ (QUOTE YLOC)
							   (ADD1 (GETPROP OBJ (QUOTE YLOC]
				  11)
			  6)
	     16 16 PSTREAM])

(MOVEGHOST
  [LAMBDA (GHOST OLDGHOST)                                   (* rrb " 3-Feb-84 11:03")
    (COND
      ((AND (EQ CYCLE 2)
	    (CHECKAT (GETPROP GHOST (QUOTE XLOC))
		     (GETPROP GHOST (QUOTE YLOC))
		     4096))                                  (* Slow spot)
	T)
      [(IGREATERP (GETPROP GHOST (QUOTE GIT))
		  0)                                         (* In tunnel)
	(add (GETPROP GHOST (QUOTE GIT))
	     1)
	(COND
	  ((IGREATERP (GETPROP GHOST (QUOTE GIT))
		      4)
	    (PUTPROP GHOST (QUOTE GIT)
		     0]
      (T [COND
	   ((EQ (GETPROP GHOST (QUOTE EATEN))
		0)
	     (SETPLAYERBOARDVAL GHOST (IDIFFERENCE (PLAYERBOARDVAL GHOST)
						   (GETPROP GHOST (QUOTE BIT]
	 [COND
	   ((EQ (GETPROP GHOST (QUOTE EATEN))
		0)
	     (COND
	       [(IGREATERP BLUETIME 30)                      (* Blink all uneaten ghosts)
		 (COND
		   ((EQ CYCLE 1)
		     (PUTPROP GHOST (QUOTE BITMAP)
			      GINVBITMAP))
		   (T (PUTPROP GHOST (QUOTE BITMAP)
			       (EVAL (CAR (NTH (QUOTE (G1BITMAP G2BITMAP G3BITMAP G4BITMAP))
					       (GETPROP GHOST (QUOTE NUMBER]
	       ((IGREATERP BLUETIME 0)
		 (PUTPROP GHOST (QUOTE BITMAP)
			  GINVBITMAP]
	 (SELECTQ (DECIDE GHOST)
		  (1 (MOVEUP GHOST OLDGHOST)
		     (PUTPROP GHOST (QUOTE CAN)
			      14))
		  (2 (COND
		       ((CHECKAT (GETPROP GHOST (QUOTE XLOC))
				 (GETPROP GHOST (QUOTE YLOC))
				 64)
			 (ERASEOBJ OLDGHOST (IDIFFERENCE (ITIMES (GETPROP OLDGHOST (QUOTE XLOC))
								 11)
							 6)
				   (IDIFFERENCE (ITIMES (IDIFFERENCE 30 (GETPROP OLDGHOST
										 (QUOTE YLOC)))
							11)
						6)
				   16 16 PSTREAM)
			 (PUTPROP GHOST (QUOTE XLOC)
				  26)
			 (PUTPROP GHOST (QUOTE GIT)
				  1))
		       (T (MOVELEFT GHOST OLDGHOST)))
		     (PUTPROP GHOST (QUOTE CAN)
			      11))
		  (3 (COND
		       ((CHECKAT (GETPROP GHOST (QUOTE XLOC))
				 (GETPROP GHOST (QUOTE YLOC))
				 128)
			 (ERASEOBJ OLDGHOST (IDIFFERENCE (ITIMES (GETPROP OLDGHOST (QUOTE XLOC))
								 11)
							 6)
				   (IDIFFERENCE (ITIMES (IDIFFERENCE 30 (GETPROP OLDGHOST
										 (QUOTE YLOC)))
							11)
						6)
				   16 16 PSTREAM)
			 (PUTPROP GHOST (QUOTE XLOC)
				  1)
			 (PUTPROP GHOST (QUOTE GIT)
				  1))
		       (T (MOVERIGHT GHOST OLDGHOST)))
		     (PUTPROP GHOST (QUOTE CAN)
			      7))
		  (4 (MOVEDOWN GHOST OLDGHOST)
		     (PUTPROP GHOST (QUOTE CAN)
			      13))
		  T)
	 (REDODOT (GETPROP OLDGHOST (QUOTE XLOC))
		  (GETPROP OLDGHOST (QUOTE YLOC)))
	 (PUTPROP OLDGHOST (QUOTE XLOC)
		  (GETPROP GHOST (QUOTE XLOC)))
	 (PUTPROP OLDGHOST (QUOTE YLOC)
		  (GETPROP GHOST (QUOTE YLOC)))
	 (COND
	   [(IGREATERP BLUETIME 30)
	     (PUTPROP OLDGHOST (QUOTE BITMAP)
		      (GETPROP GHOST (QUOTE BITMAP]
	   ((AND (EQ (GETPROP GHOST (QUOTE EATEN))
		     0)
		 (IGREATERP BLUETIME 0))
	     (PUTPROP OLDGHOST (QUOTE BITMAP)
		      GINVBITMAP)))
	 [COND
	   ((AND (EQ (GETPROP GHOST (QUOTE EATEN))
		     1)
		 (EQ (GETPROP GHOST (QUOTE YLOC))
		     12)
		 (EQ (GETPROP GHOST (QUOTE XLOC))
		     13))
	     (PUTPROP GHOST (QUOTE EATEN)
		      0)
	     [PUTPROP GHOST (QUOTE BITMAP)
		      (EVAL (CAR (NTH (QUOTE (G1BITMAP G2BITMAP G3BITMAP G4BITMAP))
				      (GETPROP GHOST (QUOTE NUMBER]
	     (PUTPROP OLDGHOST (QUOTE BITMAP)
		      (GETPROP GHOST (QUOTE BITMAP]
	 (COND
	   ((EQ (GETPROP GHOST (QUOTE EATEN))
		0)
	     (SETBOARDVAL (GETPROP GHOST (QUOTE XLOC))
			  (GETPROP GHOST (QUOTE YLOC))
			  (IPLUS (BOARDVAL (GETPROP GHOST (QUOTE XLOC))
					   (GETPROP GHOST (QUOTE YLOC)))
				 (GETPROP GHOST (QUOTE BIT])

(MOVELEFT
  [LAMBDA (OBJ OLDOBJ)                                       (* rrb "31-Jan-84 10:15")
    (MOVEOBJ OBJ OLDOBJ (IDIFFERENCE (ITIMES (GETPROP OLDOBJ (QUOTE XLOC))
					     11)
				     6)
	     (IDIFFERENCE (ITIMES (IDIFFERENCE 30 (GETPROP OLDOBJ (QUOTE YLOC)))
				  11)
			  6)
	     (IDIFFERENCE (ITIMES [PUTPROP OBJ (QUOTE XLOC)
					   (SUB1 (GETPROP OBJ (QUOTE XLOC]
				  11)
			  6)
	     (IDIFFERENCE (ITIMES (IDIFFERENCE 30 (GETPROP OBJ (QUOTE YLOC)))
				  11)
			  6)
	     16 16 PSTREAM])

(MOVEOBJ
  [LAMBDA (OBJ OLDOBJ X1 Y1 X2 Y2 W H STREAM)                (* MD " 3-JAN-83 14:51")
    (ERASEOBJ OLDOBJ X1 Y1 W H STREAM)
    (PAINTOBJ OBJ X2 Y2 W H STREAM])

(MOVEPACMAN
  [LAMBDA (PMAN DIR)                                         (* MD "15-AUG-83 17:20")
    (SELECTQ DIR
	     (1 (PUTPROP PMAN (QUOTE BITMAP)
			 (COND
			   ((EQ CYCLE 1)
			     PMANDOWN)
			   (T PACMANC)))
		(MOVEDOWN PMAN OLDPMAN))
	     (2 (PUTPROP PMAN (QUOTE BITMAP)
			 (COND
			   ((EQ CYCLE 1)
			     PMANUP)
			   (T PACMANC)))
		(MOVEUP PMAN OLDPMAN))
	     [4 (PUTPROP PMAN (QUOTE BITMAP)
			 (COND
			   ((EQ CYCLE 1)
			     PMANRIGHT)
			   (T PACMANC)))
		(COND
		  ((CHECKAT (GETPROP PMAN (QUOTE XLOC))
			    (GETPROP PMAN (QUOTE YLOC))
			    128)
		    (ERASEOBJ OLDPMAN (IDIFFERENCE (ITIMES (GETPROP OLDPMAN (QUOTE XLOC))
							   11)
						   6)
			      (IDIFFERENCE (ITIMES (IDIFFERENCE 30 (GETPROP OLDPMAN (QUOTE YLOC)))
						   11)
					   6)
			      16 16 PSTREAM)
		    (PUTPROP PMAN (QUOTE XLOC)
			     1)
		    (SETQ PIT 1))
		  (T (MOVERIGHT PMAN OLDPMAN]
	     [8 (PUTPROP PMAN (QUOTE BITMAP)
			 (COND
			   ((EQ CYCLE 1)
			     PMANLEFT)
			   (T PACMANC)))
		(COND
		  ((CHECKAT (GETPROP PMAN (QUOTE XLOC))
			    (GETPROP PMAN (QUOTE YLOC))
			    64)
		    (ERASEOBJ OLDPMAN (IDIFFERENCE (ITIMES (GETPROP OLDPMAN (QUOTE XLOC))
							   11)
						   6)
			      (IDIFFERENCE (ITIMES (IDIFFERENCE 30 (GETPROP OLDPMAN (QUOTE YLOC)))
						   11)
					   6)
			      16 16 PSTREAM)
		    (PUTPROP PMAN (QUOTE XLOC)
			     26)
		    (SETQ PIT 1))
		  (T (MOVELEFT PMAN OLDPMAN]
	     T NIL)
    (PUTPROP OLDPMAN (QUOTE BITMAP)
	     (GETPROP PMAN (QUOTE BITMAP)))
    (PUTPROP OLDPMAN (QUOTE XLOC)
	     (GETPROP PMAN (QUOTE XLOC)))
    (PUTPROP OLDPMAN (QUOTE YLOC)
	     (GETPROP PMAN (QUOTE YLOC])

(MOVERIGHT
  [LAMBDA (OBJ OLDOBJ)                                       (* MD " 6-JAN-83 16:21")
    (MOVEOBJ OBJ OLDOBJ (IDIFFERENCE (ITIMES (GETPROP OLDOBJ (QUOTE XLOC))
					     11)
				     6)
	     (IDIFFERENCE (ITIMES (IDIFFERENCE 30 (GETPROP OLDOBJ (QUOTE YLOC)))
				  11)
			  6)
	     (IDIFFERENCE (ITIMES [PUTPROP OBJ (QUOTE XLOC)
					   (ADD1 (GETPROP OBJ (QUOTE XLOC]
				  11)
			  6)
	     (IDIFFERENCE (ITIMES (IDIFFERENCE 30 (GETPROP OBJ (QUOTE YLOC)))
				  11)
			  6)
	     16 16 PSTREAM])

(MOVEUP
  [LAMBDA (OBJ OLDOBJ)                                       (* MD " 6-JAN-83 16:21")
    (MOVEOBJ OBJ OLDOBJ (IDIFFERENCE (ITIMES (GETPROP OLDOBJ (QUOTE XLOC))
					     11)
				     6)
	     (IDIFFERENCE (ITIMES (IDIFFERENCE 30 (GETPROP OLDOBJ (QUOTE YLOC)))
				  11)
			  6)
	     (IDIFFERENCE (ITIMES (GETPROP OBJ (QUOTE XLOC))
				  11)
			  6)
	     (IDIFFERENCE (ITIMES [IDIFFERENCE 30 (PUTPROP OBJ (QUOTE YLOC)
							   (SUB1 (GETPROP OBJ (QUOTE YLOC]
				  11)
			  6)
	     16 16 PSTREAM])

(NEWHISCORES
  [LAMBDA NIL                                                (* MD "30-AUG-83 14:09")
    (CLEARW PWINDOW)
    (SHOWCAP "What is your name?" 70 200)
    (SETSYNTAX (QUOTE % )
	       (QUOTE OTHER))
    (SETQ NAME (RSTRING))
    (SETSYNTAX (QUOTE % )
	       (QUOTE SEPRCHAR))
    (SETPASSWORD (QUOTE {ICE})
		 (QUOTE PSYS)
		 "PRTZKRK"
		 (QUOTE SYSIFS))
    (INFILE (QUOTE {ICE}<SYSIFS>PSYSICE))
    [SETQ HILIST (REVERSE (CDR (SORT (APPEND (READ)
					     (LIST (LIST (ITIMES SCORE 10)
							 NAME)))
				     T]
    (SHOWHISCORES)
    (CLOSEF (QUOTE {ICE}<SYSIFS>PSYSICE))
    (OUTFILE (QUOTE {ICE}<SYSIFS>PSYSICE.;2))
    (PRINT HILIST)
    (CLOSEF (QUOTE {ICE}<SYSIFS>PSYSICE.;2])

(PACINTRO
  [LAMBDA NIL                                                (* rrb "31-Jan-84 11:00")
    (PROG (CHAR CHARNAME X Y)
          (CLEARW PWINDOW)
          (PUTPROP INTROOBJ (QUOTE BITMAP)
		   (COND
		     (PACMANINCOLOR COLORSIGLOGO)
		     (T SIGLOGO)))
          (PUTPROP INTROOBJ (QUOTE OPERATION)
		   (QUOTE PAINT))
          (PAINTOBJ INTROOBJ 110 330 64 32 PSTREAM)
          (DISMISS 400)
          (SHOWCAP "by Michel Denber" 150 300)
          (DISMISS 400)
          (SHOWCAP "CHARACTER / NICKNAME" 80 250)
          (SETQ Y 200)
          (for CHAR in [COND
			 (PACMANINCOLOR (QUOTE (COLORG1BITMAP COLORG2BITMAP COLORG3BITMAP 
							      COLORG4BITMAP)))
			 (T (QUOTE (G1BITMAP G2BITMAP G3BITMAP G4BITMAP]
	     as CHARNAME in (QUOTE ("SHADOW    'BLINKY'" "SPEEDY    'PINKY'" "BASHFUL   'INKY'" 
							 "POKEY     'CLYDE'"))
	     do (PUTPROP INTROOBJ (QUOTE BITMAP)
			 (EVAL CHAR))
		[for X from 360 to 50 by -1
		   do (MOVEOBJ INTROOBJ INTROOBJ X Y (SUB1 X)
			       Y 16 16 PSTREAM)
		      (GETMOUSESTATE)
		      (COND
			((MOUSESTATE LEFT)
			  (RETURN NIL]
		(COND
		  ((MOUSESTATE LEFT)
		    (RETURN NIL)))
		(SHOWCAP CHARNAME 90 (IPLUS Y 5))
		(DISMISS 100)
		(SETQ Y (IDIFFERENCE Y 30)))
          (COND
	    ((MOUSESTATE LEFT)
	      (RETURN NIL)))
          (GETMONEY])

(PACMAN
  [LAMBDA NIL                                                (* MJD "11-Dec-85 13:20")
    (DECLARE (GLOBALVARS PACMANWAITTIME))
    (PROG ((PMAN (QUOTE X))
	     (INTROOBJ (QUOTE TEMP))
	     (MOVE 8))

          (* Bit assignments: (15 32768 Unused) (14 16384 fruit-loc) (13 8192 starts-w/dot) (12 4096 slow-area) 
	  (11 2048 G4) (10 1024 G3) (9 512 G2) (8 256 G1) (7 128 R-tunnel-exit) (6 64 L-tunnel-exit) 
	  (5 32 has-energizer) (4 16 still-has-dot) (3 8 W) (2 4 E) (1 2 N) (0 1 S))


	    (SETQ OLDPMAN (QUOTE Y))
	    (SETQ G1 (QUOTE A))
	    (SETQ G2 (QUOTE B))
	    (SETQ G3 (QUOTE C))
	    (SETQ G4 (QUOTE D))
	    (SETQ OLDG1 (QUOTE E))
	    (SETQ OLDG2 (QUOTE F))
	    (SETQ OLDG3 (QUOTE G))
	    (SETQ OLDG4 (QUOTE H))
	    (SETQ PMWANTMORE T)
	    (SETQ PMGAMEOVER NIL)
	    (PACMANINITNEW PMAN)
	    (PACINTRO)
	    (while PMWANTMORE
	       do (PACMANNEWGAME)
		    (until PMGAMEOVER do (for CYCLE from 1 to 3
						do (DISMISS PACMANWAITTIME)
						     [COND
						       [(IGREATERP PIT 0)
							 (add PIT 1)
							 (COND
							   ((IGREATERP PIT 4)
							     (SETQ PIT 0]
						       (T (MOVEPACMAN PMAN (SETQ MOVE
									  (GETMOVE MOVE]
						     (BLINKENERGIZERS)
						     (DOTCHECK PMAN)
						     (FRUITCHECK)
						     (COND
						       ((EQ FOLLOW -1)
							 (add BLUETIME 1)))
						     [COND
						       ((IGREATERP BLUETIME 60)
							 (SETQ FOLLOW 1)
							 (SETQ BLUETIME 0)
							 [COND
							   ((NEQ (CAR GVALUEPOS)
								   0)
                                                             (* Erase any remaining point value)
                                                             (* Caution -
							     a kludge:)
							     (ERASEOBJ (CAR (NTH 
										 GVALUEBITMAPLIST
										       (IQUOTIENT
											 SAVEGVALUE 
											 20)))
									 (CAR GVALUEPOS)
									 (CDR GVALUEPOS)
									 16 16 PSTREAM)
							     (SETQ GVALUEPOS (QUOTE (280 . 291]
							 (for GHOST
							    in (QUOTE (G1 G2 G3 G4))
							    as GBITMAP
							    in (QUOTE (G1BITMAP G2BITMAP G3BITMAP 
										    G4BITMAP))
							    when (EQ (GETPROP (EVAL GHOST)
										    (QUOTE EATEN))
									 0)
							    do (PUTPROP (EVAL GHOST)
									    (QUOTE BITMAP)
									    (EVAL GBITMAP)))
							 (for OLDGHOST
							    in (QUOTE (OLDG1 OLDG2 OLDG3 OLDG4))
							    as GHOST
							    in (QUOTE (G1 G2 G3 G4))
							    do (PUTPROP (EVAL OLDGHOST)
									    (QUOTE BITMAP)
									    (GETPROP (EVAL GHOST)
										       (QUOTE
											 BITMAP]
						     (ENERGIZERCHECK PMAN)
						     (COLLISIONCHECK PMAN)
						     (COND
						       ((EQ (MACHINETYPE)
							      (QUOTE DORADO))
							 (DISMISS 3)))
						     [COND
						       [(EQ CYCLE 3)
							 (COND
							   ((EQ FOLLOW 1)
							     (for GHOST
								in (QUOTE (G1 G2 G3 G4))
								as OLDGHOST
								in (QUOTE (OLDG1 OLDG2 OLDG3 
										     OLDG4))
								do (MOVEGHOST (EVAL GHOST)
										  (EVAL OLDGHOST]
						       (T (for GHOST
							     in (QUOTE (G1 G2 G3 G4))
							     as OLDGHOST
							     in (QUOTE (OLDG1 OLDG2 OLDG3 OLDG4))
							     do (MOVEGHOST (EVAL GHOST)
									       (EVAL OLDGHOST]
						     (COLLISIONCHECK PMAN)))
		    (SETQ PMGAMEOVER NIL)
		    (DISMISS 2000)
		    (CLEARW PWINDOW)
		    (GETMONEY))
	    (COND
	      (PACMANINCOLOR (CHANGECURSORSCREEN (SCREENBITMAP))
			     (SCREENCOLORMAP PMOLDCOLORMAP)
			     (SETDISPLAYHEIGHT T])

(PACMANINIT
  [LAMBDA (PMAN)                                             (* MD "18-AUG-83 16:03")
    [CLEARW (OR PWINDOW
		(PROG1 (SETQ PWINDOW
			 (CREATEW (create REGION
					  LEFT ← 32
					  BOTTOM ← 32
					  WIDTH ← 307
					  HEIGHT ← 390)
				  "PACMAN" NIL]
    (SETQ PSTREAM (DECODE/WINDOW/OR/DISPLAYSTREAM PWINDOW NIL "PACMAN" NIL))
    (CLOSEF? (QUOTE {DSK}PACMAN.DAT))
    (INFILE (QUOTE {DSK}PACMAN.DAT)
	    (QUOTE READ))
    (SETQ NUMMEN 3)
    (SETQ SCORE 0)
    (SETQ NUMDOTS 0)
    (DRAWBOARD)
    (PUTDOTS)
    (PAINTOBJ PMAN 20 345 16 16 PSTREAM)
    (PAINTOBJ PMAN 40 345 16 16 PSTREAM)
    (SETBOARDVAL 13 17 (IPLUS (BOARDVAL 13 17)
			      16384))                        (* Fruit location)
    (SETBOARDVAL 26 14 (IPLUS (BOARDVAL 26 14)
			      128 4))                        (* Tunnel exits)
    (SETBOARDVAL 1 14 (IPLUS (BOARDVAL 1 14)
			     64 8))
    (for I from 1 to 5 do (SETBOARDVAL I 14 (IPLUS (BOARDVAL I 14)
						   4096)))
    (for I from 22 to 26 do (SETBOARDVAL I 14 (IPLUS (BOARDVAL I 14)
						     4096)))
                                                             (* Slow spots)
    [for X from 13 to 15 do (for Y from 13 to 15 do (SETBOARDVAL X Y (IPLUS (BOARDVAL X Y)
									    2]
    (SETBOARDVAL 12 13 (IPLUS (BOARDVAL 12 13)
			      4 2))
    (SETBOARDVAL 15 13 (IPLUS (BOARDVAL 15 13)
			      8))
    (SETQ ENERGIZEROBJ (QUOTE I))
    (SETBOARDVAL 1 3 (IPLUS (BOARDVAL 1 3)
			    32))
    (SETBOARDVAL 26 3 (IPLUS (BOARDVAL 26 3)
			     32))
    (SETBOARDVAL 1 23 (IPLUS (BOARDVAL 1 23)
			     32))
    (SETBOARDVAL 26 23 (IPLUS (BOARDVAL 26 23)
			      32))                           (* Energizers)
    [SETBOARDVAL 13 11 (IPLUS (BOARDVAL 13 11)
			      (GETPROP G1 (QUOTE BIT]        (* Ghosts)
    [SETBOARDVAL 13 12 (IPLUS (BOARDVAL 13 12)
			      (GETPROP G2 (QUOTE BIT]
    [SETBOARDVAL 12 13 (IPLUS (BOARDVAL 12 13)
			      (GETPROP G3 (QUOTE BIT]
    (SETBOARDVAL 15 13 (IPLUS (BOARDVAL 15 13)
			      (GETPROP G4 (QUOTE BIT])

(PACMANINITNEW
  [LAMBDA (PMAN)                                             (* MJD "11-Dec-85 13:13")
    (printout T (SETQ PACMANVERSION "PACMAN Version 1.5")
	      T)
    (CURSORPOSITION (create POSITION
				XCOORD ← (IPLUS (DSPXPOSITION NIL T)
						  20)
				YCOORD ← (IDIFFERENCE (DSPYPOSITION NIL T)
							75))
		      T)
    (SETQ PMANINPUTMODE (INPUTMODEQ))
    (if (EQ PMANINPUTMODE (QUOTE VOICE))
	then (LOAD? (PACKFILENAME (QUOTE NAME)
					(QUOTE RS232.DCOM)
					(QUOTE DIRECTORY)
					(CAR DIRECTORIES)))
	       (RS232INIT (MENU (create MENU
					    ITEMS ← (QUOTE (75 150 300 600 1200 2400 4800 9600))
					    TITLE ← "Baud rate for voice input:"))
			  8 NIL 1))
    (SETQ PACMANWAITTIME (SPEEDQ))
    (SETQ PACMANINCOLOR (INCOLORQ))
    [CLEARW (OR PWINDOW
		    (SETQ PWINDOW
		      (COND
			(PACMANINCOLOR (COLORCREATEW (create REGION
							       LEFT ← 0
							       BOTTOM ← 0
							       WIDTH ← 307
							       HEIGHT ← 390)
						     PACMANVERSION 1 1))
			(T (CREATEW (create REGION
						LEFT ← 32
						BOTTOM ← 32
						WIDTH ← 307
						HEIGHT ← 390)
				      PACMANVERSION NIL]
    [SETQ PSTREAM (COND
	(PACMANINCOLOR (DSPCREATE (COLORSCREENBITMAP)))
	(T (GETSTREAM PWINDOW]
    (COND
      (PACMANINCOLOR (COLORDISPLAY T)
		     (COLORBACKGROUND)
		     (SETQ PMOLDCOLORMAP (SCREENCOLORMAP (COLORMAPCREATE)))
		     (CHANGECURSORSCREEN (COLORSCREENBITMAP))
		     (SETDISPLAYHEIGHT 0)))
    (SETQ ENERGIZEROBJ (QUOTE I))
    (SETBITMAPS)
    (SETCHARPROPS)
    (GETHISCORES])

(PACMANNEWGAME
  [LAMBDA NIL                                                (* MD " 7-DEC-83 14:50")
    (SETQ NUMMEN 3)
    (SETQ SCORE 0)
    (SETQ NUMDOTS 0)
    (DRAWBOARDNEW)
    (FRUITINIT)
    (SETQ GVALUEBITMAPLIST (QUOTE (GHOST1 GHOST2 T GHOST3 T T T GHOST4)))
    (PAINTOBJ PMAN 20 345 16 16 PSTREAM)
    (PAINTOBJ PMAN 40 345 16 16 PSTREAM)
    (PACMANREINIT])

(PACMANREINIT
  [LAMBDA NIL                                                (* rrb " 3-Feb-84 14:04")
    [COND
      ((EQ FRUIT# 2)
	(INTERMISSION1)
	(DISMISS 200)
	(CLEARW PWINDOW)
	(DRAWBOARDNEW)
	(PUTPROP PMAN (QUOTE BITMAP)
		 PMANLEFT)
	(COND
	  ((IGREATERP NUMMEN 1)
	    (PAINTOBJ PMAN 20 345 16 16 PSTREAM)))
	(COND
	  ((IGREATERP NUMMEN 2)
	    (PAINTOBJ PMAN 40 345 16 16 PSTREAM]
    (for I from 1 to FRUIT# do (PAINTOBJ (CAR (NTH FRUITLIST I))
					 (IPLUS 160 (ITIMES I 20))
					 350 16 16 PSTREAM))
    (PUTPROP PMAN (QUOTE BITMAP)
	     PACMANC)
    (ERASEOBJ PMAN (IDIFFERENCE (ITIMES (GETPROP PMAN (QUOTE XLOC))
					11)
				6)
	      (IDIFFERENCE (ITIMES (IDIFFERENCE 30 (GETPROP PMAN (QUOTE YLOC)))
				   11)
			   6)
	      16 16 PSTREAM)
    [for I from 1 to 29 do (SETA BOARD I (COPY (ELT VIRGINBOARD I]
    (for GHOST in (QUOTE (G1 G2 G3 G4)) do (ERASEOBJ (EVAL GHOST)
						     (IDIFFERENCE (ITIMES (GETPROP (EVAL GHOST)
										   (QUOTE XLOC))
									  11)
								  6)
						     (IDIFFERENCE (ITIMES (IDIFFERENCE
									    30
									    (GETPROP (EVAL GHOST)
										     (QUOTE YLOC)))
									  11)
								  6)
						     16 16 PSTREAM))
    (SETCHARPROPS)
    (for GHOST in (QUOTE (G1 G2 G3 G4)) do (PAINTOBJ (EVAL GHOST)
						     (IDIFFERENCE (ITIMES (GETPROP (EVAL GHOST)
										   (QUOTE XLOC))
									  11)
								  6)
						     (IDIFFERENCE (ITIMES (IDIFFERENCE
									    30
									    (GETPROP (EVAL GHOST)
										     (QUOTE YLOC)))
									  11)
								  6)
						     16 16 PSTREAM))
    (SHOWCAP (QUOTE "READY!")
	     (ITIMES 12 11)
	     (ITIMES (IDIFFERENCE 30 17)
		     11)
	     PSTREAM)
    (PUTPROP PMAN (QUOTE XLOC)
	     13)
    (PUTPROP PMAN (QUOTE YLOC)
	     23)
    (SETQ FOLLOW 1)
    (SETQ BLUETIME 0)
    (SETQ FRUITTIME 0)
    (SETQ FRUITVISIBLE T)                                    (* Used by REDODOT)
    (SETQ FRUIT# (ADD1 FRUIT#))
    (SETQ GVALUEPOS (QUOTE (181 . 5)))                       (* Used by COLLISIONCHECK)
    (SETQ MOVE 8)
    (SETQ PIT 0)                                             (* Pacman in tunnel)
    (PUTDOTSAGAIN)
    (PUTENERGIZERS)
    (DISMISS 2000)
    (SHOWCAP (QUOTE "       ")
	     (ITIMES 12 11)
	     (ITIMES (IDIFFERENCE 30 17)
		     11)
	     PSTREAM])

(PAINTOBJ
  [LAMBDA (OBJ X Y W H STREAM)                               (* MD " 3-JAN-83 14:22")
    (BITBLT (GETPROP OBJ (QUOTE BITMAP))
	    NIL NIL STREAM X Y W H NIL (GETPROP OBJ (QUOTE OPERATION))
	    NIL NIL])

(PAINTDOT
  [LAMBDA (OBJ X Y W H)                                      (* MD "19-NOV-82 10:30")
    (BITBLT OBJ NIL NIL PSTREAM X Y W H NIL (QUOTE PAINT)
	    NIL NIL])

(PUTDOTS
  [LAMBDA NIL                                                (* MD " 8-NOV-83 16:20")
    (PROG (ROW N E S W)
          (for Y from 1 to 29
	     do (SETQ ROW (LIST NIL))
		[for X from 1 to 26 do (SETQ ROW (APPEND ROW (LIST (READ]
		(SETA BOARD Y (DREMOVE NIL ROW)))
          (for Y from 1 to 29
	     do (SETQ ROW (ELT BOARD Y))
		(for X from 1 to 26 when (NEQ (CAR (NTH ROW X))
					      0)
		   do (COND
			((EQ (CAR (NTH ROW X))
			     1)
			  (PAINTDOT (IF PACMANINCOLOR
					THEN COLORDOT
				      ELSE DOT)
				    (ITIMES X 11)
				    (ITIMES (IDIFFERENCE 30 Y)
					    11)
				    4 4)
			  (SETQ HASDOT 8208)
			  (SETQ NUMDOTS (ADD1 NUMDOTS)))
			(T (SETQ HASDOT 0)))
		      (SETQ N 0)
		      (SETQ E 0)
		      (SETQ S 0)
		      (SETQ W 0)
		      [COND
			((IGREATERP X 1)
			  (SETQ W (IMIN (CAR (NTH ROW (SUB1 X)))
					1]
		      [COND
			((ILESSP X 26)
			  (SETQ E (IMIN (CAR (NTH ROW (ADD1 X)))
					1]
		      [COND
			((IGREATERP Y 1)
			  (SETQ N (IMIN (CAR (NTH (ELT BOARD (SUB1 Y))
						  X))
					1]
		      [COND
			((ILESSP Y 29)
			  (SETQ S (IMIN (CAR (NTH (ELT BOARD (ADD1 Y))
						  X))
					1]
		      (RPLACA (NTH ROW X)
			      (IPLUS HASDOT (ITIMES W 8)
				     (ITIMES E 4)
				     (ITIMES N 2)
				     S)))
		(SETA BOARD Y ROW])

(PUTDOTSAGAIN
  [LAMBDA NIL                                                (* MD " 8-NOV-83 16:23")
    (for Y from 1 to 29 do (for X from 1 to 26 do (COND
						    ((CHECKAT X Y 8192)
						      (PAINTDOT (COND
								  (PACMANINCOLOR COLORDOT)
								  (T DOT))
								(ITIMES X 11)
								(ITIMES (IDIFFERENCE 30 Y)
									11)
								4 4)
						      (SETQ NUMDOTS (ADD1 NUMDOTS])

(PUTENERGIZERS
  [LAMBDA NIL                                                (* MD " 7-JAN-83 15:57")
    (PAINTOBJ ENERGIZEROBJ (ITIMES 1 11)
	      (ITIMES 11 (IDIFFERENCE 30 3))
	      8 8 PSTREAM)
    (PAINTOBJ ENERGIZEROBJ (ITIMES 26 11)
	      (ITIMES 11 (IDIFFERENCE 30 3))
	      8 8 PSTREAM)
    (PAINTOBJ ENERGIZEROBJ (ITIMES 1 11)
	      (ITIMES 11 (IDIFFERENCE 30 23))
	      8 8 PSTREAM)
    (PAINTOBJ ENERGIZEROBJ (ITIMES 26 11)
	      (ITIMES 11 (IDIFFERENCE 30 23))
	      8 8 PSTREAM])

(REDODOT
  [LAMBDA (X Y)                                              (* MD "10-NOV-83 12:46")
    (COND
      ((CHECKAT X Y 16)
	(PAINTDOT (COND
		    (PACMANINCOLOR COLORDOT)
		    (T DOT))
		  (ITIMES X 11)
		  (ITIMES (IDIFFERENCE 30 Y)
			  11)
		  4 4))
      ((AND (CHECKAT X Y 16384)
	    (IGREATERP FRUITTIME 60)
	    (ILESSP FRUITTIME 120)
	    FRUITVISIBLE)
	(PAINTOBJ (CAR (NTH FRUITLIST FRUIT#))
		  (IDIFFERENCE (ITIMES 13 11)
			       6)
		  (IDIFFERENCE (ITIMES (IDIFFERENCE 30 17)
				       11)
			       6)
		  16 16 PSTREAM))
      (T NIL])

(REPLACEOBJ
  [LAMBDA (OBJ X Y W H STREAM)                               (* MD " 8-DEC-82 17:54")
    (BITBLT OBJ NIL NIL STREAM X Y W H NIL (QUOTE REPLACE)
	    NIL NIL])

(SCAN
  [LAMBDA NIL                                                (* MD "17-AUG-83 11:40")
    (for X from 1 to 26 do (for Y from 1 to 29 do (COND
						    ((CHECKAT X Y 3840)
						      (printout T X , Y , (BOARDVAL X Y)
								T])

(SETBITMAPS
  [LAMBDA NIL                                                (* MD "10-NOV-83 16:19")
    (SETQ PMANLEFT (COND
	(PACMANINCOLOR COLORPMANLEFT)
	(T PMANLEFTMAP)))
    (SETQ PMANRIGHT (COND
	(PACMANINCOLOR COLORPMANRIGHT)
	(T PMANRIGHTMAP)))
    (SETQ PMANUP (COND
	(PACMANINCOLOR COLORPMANUP)
	(T PMANUPMAP)))
    (SETQ PMANDOWN (COND
	(PACMANINCOLOR COLORPMANDOWN)
	(T PMANDOWNMAP)))
    (SETQ PACMANC (COND
	(PACMANINCOLOR COLORPACMANC)
	(T PACMANCMAP)))
    (SETQ G1BITMAP (COND
	(PACMANINCOLOR COLORG1BITMAP)
	(T BWG1BITMAP)))
    (SETQ G2BITMAP (COND
	(PACMANINCOLOR COLORG2BITMAP)
	(T BWG2BITMAP)))
    (SETQ G3BITMAP (COND
	(PACMANINCOLOR COLORG3BITMAP)
	(T BWG3BITMAP)))
    (SETQ G4BITMAP (COND
	(PACMANINCOLOR COLORG4BITMAP)
	(T BWG4BITMAP)))
    (SETQ GINVBITMAP (COND
	(PACMANINCOLOR COLORGINVBITMAP)
	(T BWGINVBITMAP])

(SETBOARDVAL
  [LAMBDA (X Y VAL)                                          (* MD "28-NOV-83 16:48")
    (FRPLACA (FNTH (ELT BOARD Y)
		   X)
	     VAL])

(SETCHARPROPS
  [LAMBDA NIL                                                (* MD "10-NOV-83 16:53")
    (PUTPROP PMAN (QUOTE BITMAP)
	     PMANLEFT)
    (PUTPROP (QUOTE GHOST1)
	     (QUOTE BITMAP)
	     (COND
	       (PACMANINCOLOR COLOR200BITMAP)
	       (T 200BITMAP)))
    (PUTPROP (QUOTE GHOST2)
	     (QUOTE BITMAP)
	     (COND
	       (PACMANINCOLOR COLOR400BITMAP)
	       (T 400BITMAP)))
    (PUTPROP (QUOTE GHOST3)
	     (QUOTE BITMAP)
	     (COND
	       (PACMANINCOLOR COLOR800BITMAP)
	       (T 800BITMAP)))
    (PUTPROP (QUOTE GHOST4)
	     (QUOTE BITMAP)
	     (COND
	       (PACMANINCOLOR COLOR1600BITMAP)
	       (T 1600BITMAP)))
    (PUTPROP ENERGIZEROBJ (QUOTE BITMAP)
	     (COND
	       (PACMANINCOLOR COLORENERGIZER)
	       (T ENERGIZER)))
    (PUTPROP ENERGIZEROBJ (QUOTE OPERATION)
	     (QUOTE INVERT))                                 (* Energizers)
    (PUTPROP OLDPMAN (QUOTE BITMAP)
	     PACMANC)
    (PUTPROP OLDPMAN (QUOTE OPERATION)
	     (QUOTE PAINT))
    (PUTPROP PMAN (QUOTE OPERATION)
	     (QUOTE PAINT))
    (PUTPROP PMAN (QUOTE XLOC)
	     13)
    (PUTPROP PMAN (QUOTE YLOC)
	     23)
    (PUTPROP OLDPMAN (QUOTE XLOC)
	     13)
    (PUTPROP OLDPMAN (QUOTE YLOC)
	     23)
    (SETGLOCS)
    (SETGCANS)
    (PUTPROP G1 (QUOTE BITMAP)
	     G1BITMAP)                                       (* Ghost 1)
    (PUTPROP OLDG1 (QUOTE BITMAP)
	     (GETPROP G1 (QUOTE BITMAP)))
    (PUTPROP G1 (QUOTE NUMBER)
	     1)
    (PUTPROP G1 (QUOTE BIT)
	     256)
    (PUTPROP G1 (QUOTE OPERATION)
	     (QUOTE INVERT))
    (PUTPROP G1 (QUOTE EATEN)
	     0)
    (PUTPROP G1 (QUOTE GIT)
	     0)                                              (* Ghost 2)
    (PUTPROP G2 (QUOTE BITMAP)
	     G2BITMAP)
    (PUTPROP OLDG2 (QUOTE BITMAP)
	     (GETPROP G2 (QUOTE BITMAP)))
    (PUTPROP G2 (QUOTE BIT)
	     512)
    (PUTPROP G2 (QUOTE NUMBER)
	     2)
    (PUTPROP G2 (QUOTE OPERATION)
	     (QUOTE INVERT))
    (PUTPROP G2 (QUOTE EATEN)
	     0)
    (PUTPROP G2 (QUOTE GIT)
	     0)                                              (* Ghost 3)
    (PUTPROP G3 (QUOTE BITMAP)
	     G3BITMAP)
    (PUTPROP OLDG3 (QUOTE BITMAP)
	     (GETPROP G3 (QUOTE BITMAP)))
    (PUTPROP G3 (QUOTE BIT)
	     1024)
    (PUTPROP G3 (QUOTE NUMBER)
	     3)
    (PUTPROP G3 (QUOTE OPERATION)
	     (QUOTE INVERT))
    (PUTPROP G3 (QUOTE EATEN)
	     0)
    (PUTPROP G3 (QUOTE GIT)
	     0)                                              (* Ghost 4)
    (PUTPROP G4 (QUOTE BITMAP)
	     G4BITMAP)
    (PUTPROP OLDG4 (QUOTE BITMAP)
	     (GETPROP G4 (QUOTE BITMAP)))
    (PUTPROP G4 (QUOTE BIT)
	     2048)
    (PUTPROP G4 (QUOTE NUMBER)
	     4)
    (PUTPROP G4 (QUOTE OPERATION)
	     (QUOTE INVERT))
    (PUTPROP G4 (QUOTE EATEN)
	     0)
    (PUTPROP G4 (QUOTE GIT)
	     0])

(SETGCANS
  [LAMBDA NIL                                                (* MD "19-AUG-83 17:25")
    (PUTPROP G1 (QUOTE CAN)
	     12)
    (PUTPROP G2 (QUOTE CAN)
	     2)
    (PUTPROP G3 (QUOTE CAN)
	     4)
    (PUTPROP G4 (QUOTE CAN)
	     8])

(SETGLOCS
  [LAMBDA NIL                                                (* MD "18-AUG-83 14:55")
    (PUTPROP OLDG1 (QUOTE INITX)
	     13)
    (PUTPROP OLDG1 (QUOTE INITY)
	     11)
    (PUTPROP OLDG1 (QUOTE XLOC)
	     13)
    (PUTPROP OLDG1 (QUOTE YLOC)
	     11)
    (PUTPROP G1 (QUOTE INITX)
	     13)
    (PUTPROP G1 (QUOTE INITY)
	     11)
    (PUTPROP G1 (QUOTE XLOC)
	     13)
    (PUTPROP G1 (QUOTE YLOC)
	     11)
    (PUTPROP OLDG2 (QUOTE INITX)
	     13)
    (PUTPROP OLDG2 (QUOTE INITY)
	     12)
    (PUTPROP OLDG2 (QUOTE XLOC)
	     13)
    (PUTPROP OLDG2 (QUOTE YLOC)
	     12)
    (PUTPROP G2 (QUOTE INITX)
	     13)
    (PUTPROP G2 (QUOTE INITY)
	     12)
    (PUTPROP G2 (QUOTE XLOC)
	     13)
    (PUTPROP G2 (QUOTE YLOC)
	     12)
    (PUTPROP OLDG3 (QUOTE INITX)
	     12)
    (PUTPROP OLDG3 (QUOTE INITY)
	     13)
    (PUTPROP OLDG3 (QUOTE XLOC)
	     12)
    (PUTPROP OLDG3 (QUOTE YLOC)
	     13)
    (PUTPROP G3 (QUOTE INITX)
	     12)
    (PUTPROP G3 (QUOTE INITY)
	     13)
    (PUTPROP G3 (QUOTE XLOC)
	     12)
    (PUTPROP G3 (QUOTE YLOC)
	     13)
    (PUTPROP OLDG4 (QUOTE INITX)
	     15)
    (PUTPROP OLDG4 (QUOTE INITY)
	     13)
    (PUTPROP OLDG4 (QUOTE XLOC)
	     15)
    (PUTPROP OLDG4 (QUOTE YLOC)
	     13)
    (PUTPROP G4 (QUOTE INITX)
	     15)
    (PUTPROP G4 (QUOTE INITY)
	     13)
    (PUTPROP G4 (QUOTE XLOC)
	     15)
    (PUTPROP G4 (QUOTE YLOC)
	     13])

(SETPLAYERBOARDVAL
  [LAMBDA (PLAYER VAL)                                       (* sets the board representation of the current location
							     of player.)
    (SETBOARDVAL (GETPROP PLAYER (QUOTE XLOC))
		 (GETPROP PLAYER (QUOTE YLOC))
		 VAL])

(SHOW
  [LAMBDA (VALUE)                                            (* MD "10-JAN-83 15:07")
    (MOVETO 130 350 PSTREAM)
    (PRIN1 VALUE PSTREAM)
    (PRIN1 0 PSTREAM])

(SHOWCAP
  [LAMBDA (MESSAGE X Y)                                      (* MD "10-NOV-83 12:31")
    (MOVETO X Y PSTREAM)
    (PRIN1 MESSAGE PSTREAM])

(SHOWHISCORES
  [LAMBDA NIL                                                (* MD "30-AUG-83 11:39")
    (PROG (Y)
          (CLEARW PWINDOW)
          (SHOWCAP "High scores" 100 330)
          (SETQ Y 300)
          (for I in HILIST
	     do (SHOWCAP (CADR I)
			 50 Y)
		(SHOWCAP (CAR I)
			 200 Y)
		(SETQ Y (IDIFFERENCE Y 16])

(SPEEDQ
  [LAMBDA NIL                                                (* rrb " 3-Feb-84 14:55")
                                                             (* queries about the speed of the game.)
    (IMAX 0 (IDIFFERENCE (MENU (create MENU
				       ITEMS ←(QUOTE ((Fast 50 "Expert players")
						       (Medium 100 "Intermediate players")
						       (Slow 200 "Beginning Players")
						       (Snail 400 "First time players")))
				       TITLE ← "How fast?"
				       CENTERFLG ← T))
			 (SELECTQ (MACHINETYPE)
				  (DOLPHIN 75)
				  (DANDELION 40)
				  0])
)

(RPAQ 1600BITMAP (READBITMAP))
(16 16
"@@@@"
"@@@@"
"@@@@"
"IHLF"
"JEBI"
"JABI"
"JABI"
"KIBI"
"JEBI"
"JEBI"
"JEBI"
"IHLF"
"@@@@"
"@@@@"
"@@@@"
"@@@@")

(RPAQ 200BITMAP (READBITMAP))
(16 16
"@@@@"
"@@@@"
"@@@@"
"FAHF"
"IBDI"
"ABDI"
"ABDI"
"BBDI"
"DBDI"
"HBDI"
"HBDI"
"OAHF"
"@@@@"
"@@@@"
"@@@@"
"@@@@")

(RPAQ 400BITMAP (READBITMAP))
(16 16
"@@@@"
"@@@@"
"@@@@"
"IAHF"
"IBDI"
"IBDI"
"IBDI"
"OJDI"
"ABDI"
"ABDI"
"ABDI"
"AAHF"
"@@@@"
"@@@@"
"@@@@"
"@@@@")

(RPAQ 800BITMAP (READBITMAP))
(16 16
"@@@@"
"@@@@"
"@@@@"
"FAHF"
"IBDI"
"IBDI"
"IBDI"
"FBDI"
"IBDI"
"IBDI"
"IBDI"
"FAHF"
"@@@@"
"@@@@"
"@@@@"
"@@@@")

(RPAQ APPLEBITMAP (READBITMAP))
(16 16
"@@L@"
"@AH@"
"@OO@"
"COOL"
"COOL"
"GOON"
"GOON"
"GOON"
"GONF"
"GOLF"
"GOHF"
"COHL"
"COIL"
"AOOH"
"@ON@"
"@GL@")

(RPAQQ ATTRACTMODE NIL)

(RPAQ BELLBITMAP (READBITMAP))
(16 16
"@GN@"
"@OO@"
"AOOH"
"AGOH"
"CGOL"
"CGOL"
"CGOL"
"CGOL"
"CGOL"
"CGOL"
"CGOL"
"CGOL"
"GOON"
"OOOO"
"@@@@"
"@@@@")

(RPAQ BIGPMANC (READBITMAP))
(64 64
"@@@@@@@@@@@@@@@@"
"@@@@@@@@@@@@@@@@"
"@@@@@@@@@@@@@@@@"
"@@@@@@@@@@@@@@@@"
"@@@@@@@@@@@@@@@@"
"@@@@@@COOL@@@@@@"
"@@@@@GOOOON@@@@@"
"@@@@AOOOOOOL@@@@"
"@@@@GOOOOOOO@@@@"
"@@@AOOOOOOOOL@@@"
"@@@GOOOOOOOOO@@@"
"@@@OOOOOOOOOOH@@"
"@@COOOOOOOOOOL@@"
"@@GOOOOOOOOOON@@"
"@@OOOOOOOOOOOO@@"
"@AOOOOOOOOOOOOH@"
"@COOOOOOOOOOOOL@"
"@COOOOOOOOOOOON@"
"@GOOOOOOOOOOOOO@"
"@GOOOOOOOOOOOOO@"
"@OOOOOOOOOOOOOOH"
"AOOOOOOOOOOOOOOH"
"AOOOOOOOOOOOOOOL"
"COOOOOOOOOOOOOOL"
"COOOOOOOOOOOOOON"
"GOOOOOOOOOOOOOON"
"GOOOOOOOOOOOOOON"
"GOOOOOOOOOOOOOON"
"GOOOOOOOOOOOOOON"
"OOOOOOOOOOOOOOOO"
"OOOOOOOOOOOOOOOO"
"OOOOOOOOOOOOOOOO"
"OOOOOOOOOOOOOOOO"
"OOOOOOOOOOOOOOOO"
"OOOOOOOOOOOOOOOO"
"OOOOOOOOOOOOOOOO"
"OOOOOOOOOOOOOOOO"
"OOOOOOOOOOOOOOOO"
"OOOOOOOOOOOOOOOO"
"OOOOOOOOOOOOOOOO"
"GOOOOOOOOOOOOOOO"
"GOOOOOOOOOOOOOON"
"GOOOOOOOOOOOOOON"
"GOOOOOOOOOOOOOON"
"GOOOOOOOOOOOOOON"
"COOOOOOOOOOOOOOL"
"COOOOOOOOOOOOOOL"
"AOOOOOOOOOOOOOOL"
"AOOOOOOOOOOOOOOH"
"@OOOOOOOOOOOOOO@"
"@OOOOOOOOOOOOOO@"
"@GOOOOOOOOOOOON@"
"@GOOOOOOOOOOOON@"
"@COOOOOOOOOOOOL@"
"@AOOOOOOOOOOOOH@"
"@@OOOOOOOOOOOO@@"
"@@GOOOOOOOOOON@@"
"@@COOOOOOOOOOL@@"
"@@@OOOOOOOOOO@@@"
"@@@GOOOOOOOOL@@@"
"@@@AOOOOOOOO@@@@"
"@@@@GOOOOOOL@@@@"
"@@@@@GOOOON@@@@@"
"@@@@@@COON@@@@@@")

(RPAQ BIGPMANR (READBITMAP))
(64 64
"@@@@@@@@@@@@@@@@"
"@@@@@@@@@@@@@@@@"
"@@@@@@@@@@@@@@@@"
"@@@@@@@@@@@@@@@@"
"@@@@@@@@@@@@@@@@"
"@@@@@@COOL@@@@@@"
"@@@@@GOOOON@@@@@"
"@@@@AOOOOOOL@@@@"
"@@@@GOOOOOOO@@@@"
"@@@AOOOOOOOOL@@@"
"@@@GOOOOOOOOO@@@"
"@@@OOOOOOOOOOH@@"
"@@COOOOOOOOOOL@@"
"@@GOOOOOOOOOOH@@"
"@@OOOOOOOOOOO@@@"
"@AOOOOOOOOOON@@@"
"@COOOOOOOOOOL@@@"
"@COOOOOOOOOOH@@@"
"@GOOOOOOOOOO@@@@"
"@GOOOOOOOOON@@@@"
"@OOOOOOOOOOL@@@@"
"AOOOOOOOOOOH@@@@"
"AOOOOOOOOOO@@@@@"
"COOOOOOOOON@@@@@"
"COOOOOOOOOL@@@@@"
"GOOOOOOOOOH@@@@@"
"GOOOOOOOOO@@@@@@"
"GOOOOOOOON@@@@@@"
"GOOOOOOOOL@@@@@@"
"OOOOOOOOOH@@@@@@"
"OOOOOOOOO@@@@@@@"
"OOOOOOOON@@@@@@@"
"OOOOOOOOL@@@@@@@"
"OOOOOOOOH@@@@@@@"
"OOOOOOOOH@@@@@@@"
"OOOOOOOOH@@@@@@@"
"OOOOOOOOL@@@@@@@"
"OOOOOOOON@@@@@@@"
"OOOOOOOOO@@@@@@@"
"OOOOOOOOOH@@@@@@"
"GOOOOOOOOL@@@@@@"
"GOOOOOOOON@@@@@@"
"GOOOOOOOOO@@@@@@"
"GOOOOOOOOOH@@@@@"
"GOOOOOOOOOL@@@@@"
"COOOOOOOOON@@@@@"
"COOOOOOOOOO@@@@@"
"AOOOOOOOOOOH@@@@"
"AOOOOOOOOOOL@@@@"
"@OOOOOOOOOON@@@@"
"@OOOOOOOOOOO@@@@"
"@GOOOOOOOOOOH@@@"
"@GOOOOOOOOOOL@@@"
"@COOOOOOOOOON@@@"
"@AOOOOOOOOOOO@@@"
"@@OOOOOOOOOOOH@@"
"@@GOOOOOOOOOOL@@"
"@@COOOOOOOOOOH@@"
"@@@OOOOOOOOOO@@@"
"@@@GOOOOOOOOL@@@"
"@@@AOOOOOOOO@@@@"
"@@@@GOOOOOOL@@@@"
"@@@@@GOOOON@@@@@"
"@@@@@@COON@@@@@@")

(RPAQ BIRDBITMAP (READBITMAP))
(16 16
"AOOH"
"@HA@"
"@DB@"
"@BD@"
"@BD@"
"OOOO"
"H@@A"
"H@@A"
"DFFB"
"BJED"
"ABDH"
"@BD@"
"@BD@"
"@BD@"
"@AH@"
"@@@@")

(RPAQQ BLUETIME 0)

(RPAQ BOARD (READARRAY 29 (QUOTE DOUBLEPOINTER) 1))
((8213 8220 8220 8220 8220 8205 8204 8204 8204 8204 8204 8201 0 0 8213 8220 8220 8220 8220 8220 8221 
8220 8220 8220 8220 8217)
(8211 0 0 0 0 8195 0 0 0 0 0 8195 0 0 8211 0 0 0 0 0 8211 0 0 0 0 8211)
(35 0 0 0 0 8195 0 0 0 0 0 8195 0 0 8211 0 0 0 0 0 8211 0 0 0 0 35)
(8211 0 0 0 0 8195 0 0 0 0 0 8195 0 0 8211 0 0 0 0 0 8211 0 0 0 0 8211)
(8215 8220 8220 8220 8220 8207 8220 8220 8221 8220 8220 8206 8220 8220 8222 8220 8220 8221 8220 8220 
8223 8220 8220 8220 8220 8219)
(8211 0 0 0 0 8195 0 0 8211 0 0 0 0 0 0 0 0 8211 0 0 8211 0 0 0 0 8211)
(8211 0 0 0 0 8195 0 0 8211 0 0 0 0 0 0 0 0 8211 0 0 8211 0 0 0 0 8211)
(8214 8220 8220 8220 8220 8203 0 0 8214 8220 8220 8217 0 0 8213 8220 8220 8218 0 0 8215 8220 8220 8220
 8220 8218)
(0 0 0 0 0 8195 0 0 0 0 0 3 0 0 3 0 0 0 0 0 8211 0 0 0 0 0)
(0 0 0 0 0 8195 0 0 0 0 0 3 0 0 3 0 0 0 0 0 8211 0 0 0 0 0)
(0 0 0 0 0 8195 0 0 5 12 12 14 269 13 14 12 12 9 0 0 8211 0 0 0 0 0)
(0 0 0 0 0 8195 0 0 3 0 0 0 518 10 0 0 0 3 0 0 8211 0 0 0 0 0)
(0 0 0 0 0 8195 0 0 3 0 0 1028 2 2 2056 0 0 3 0 0 8211 0 0 0 0 0)
(4172 4108 4108 4108 4108 8207 12 12 11 0 0 0 2 2 2 0 0 7 12 12 8223 4108 4108 4108 4108 4236)
(0 0 0 0 0 8195 0 0 3 0 0 0 2 2 2 0 0 3 0 0 8211 0 0 0 0 0)
(0 0 0 0 0 8195 0 0 3 0 0 0 0 0 0 0 0 3 0 0 8195 0 0 0 0 0)
(0 0 0 0 0 8195 0 0 7 12 12 12 16396 12 12 12 12 11 0 0 8195 0 0 0 0 0)
(0 0 0 0 0 8195 0 0 3 0 0 0 0 0 0 0 0 3 0 0 8195 0 0 0 0 0)
(0 0 0 0 0 8195 0 0 3 0 0 0 0 0 0 0 0 3 0 0 8195 0 0 0 0 0)
(8197 8204 8204 8204 8204 8207 8204 8204 8206 8204 8204 8201 0 0 8213 8220 8220 8222 8220 8220 8207 
8220 8220 8220 8220 8217)
(8195 0 0 0 0 8195 0 0 0 0 0 8195 0 0 8211 0 0 0 0 0 8195 0 0 0 0 8211)
(8195 0 0 0 0 8195 0 0 0 0 0 8195 0 0 8211 0 0 0 0 0 8195 0 0 0 0 8211)
(6 8204 8201 0 0 8199 8204 8204 8205 8204 8204 8206 12 12 8206 8204 8204 8205 8204 8204 8203 0 0 8213 
8220 42)
(0 0 8195 0 0 8195 0 0 8195 0 0 0 0 0 0 0 0 8211 0 0 8211 0 0 8211 0 0)
(0 0 8195 0 0 8195 0 0 8195 0 0 0 0 0 0 0 0 8211 0 0 8211 0 0 8211 0 0)
(8213 8220 8206 8204 8204 8202 0 0 8198 8204 8204 8201 0 0 8213 8220 8220 8218 0 0 8214 8220 8220 8222
 8220 8217)
(8211 0 0 0 0 0 0 0 0 0 0 8195 0 0 8211 0 0 0 0 0 0 0 0 0 0 8211)
(8211 0 0 0 0 0 0 0 0 0 0 8195 0 0 8211 0 0 0 0 0 0 0 0 0 0 8211)
(8198 8204 8204 8204 8204 8204 8204 8204 8204 8204 8204 8206 8204 8204 8206 8204 8204 8204 8204 8204 
8220 8220 8220 8220 8220 8218)
NIL
)

(RPAQQ BOARDLIST ((0 0 13 0)
		    (13 0 13 4)
		    (13 4 14 4)
		    (14 4 14 0)
		    (14 0 27 0)
		    (27 0 27 9)
		    (27 9 22 9)
		    (22 9 22 13)
		    (22 13 27 13)
		    (27 15 22 15)
		    (22 15 22 19)
		    (22 19 27 19)
		    (27 19 27 24)
		    (27 24 25 24)
		    (25 24 25 25)
		    (25 25 27 25)
		    (27 25 27 30)
		    (27 30 0 30)
		    (0 30 0 25)
		    (0 25 2 25)
		    (2 25 2 24)
		    (2 24 0 24)
		    (0 24 0 19)
		    (0 19 5 19)
		    (5 19 5 15)
		    (5 15 0 15)
		    (0 13 5 13)
		    (5 13 5 9)
		    (5 9 0 9)
		    (0 9 0 0)
		    (2 2 5 2)
		    (5 2 5 4)
		    (5 4 2 4)
		    (2 4 2 2)
		    (7 2 11 2)
		    (11 2 11 4)
		    (11 4 7 4)
		    (7 4 7 2)
		    (16 2 20 2)
		    (20 2 20 4)
		    (20 4 16 4)
		    (16 4 16 2)
		    (22 2 25 2)
		    (25 2 25 4)
		    (25 4 22 4)
		    (22 4 22 2)
		    (2 6 5 6)
		    (5 6 5 7)
		    (5 7 2 7)
		    (2 7 2 6)
		    (22 6 25 6)
		    (25 6 25 7)
		    (25 7 22 7)
		    (22 7 22 6)
		    (7 6 8 6)
		    (8 6 8 9)
		    (8 9 11 9)
		    (11 9 11 10)
		    (11 10 8 10)
		    (8 10 8 13)
		    (8 13 7 13)
		    (7 13 7 6)
		    (19 6 20 6)
		    (20 6 20 13)
		    (20 13 19 13)
		    (19 13 19 10)
		    (19 10 16 10)
		    (16 10 16 9)
		    (16 9 19 9)
		    (19 9 19 6)
		    (10 6 17 6)
		    (17 6 17 7)
		    (17 7 14 7)
		    (14 7 14 10)
		    (14 10 13 10)
		    (13 10 13 7)
		    (13 7 10 7)
		    (10 7 10 6)
		    (12 12 10 12)
		    (10 12 10 16)
		    (10 16 17 16)
		    (17 16 17 12)
		    (17 12 15 12)
		    (7 15 8 15)
		    (8 15 8 19)
		    (8 19 7 19)
		    (7 19 7 15)
		    (19 15 20 15)
		    (20 15 20 19)
		    (20 19 19 19)
		    (19 19 19 15)
		    (10 18 17 18)
		    (17 18 17 19)
		    (17 19 14 19)
		    (14 19 14 22)
		    (14 22 13 22)
		    (13 22 13 19)
		    (13 19 10 19)
		    (10 19 10 18)
		    (7 21 11 21)
		    (11 21 11 22)
		    (11 22 7 22)
		    (7 22 7 21)
		    (16 21 20 21)
		    (20 21 20 22)
		    (20 22 16 22)
		    (16 22 16 21)
		    (2 21 5 21)
		    (5 21 5 25)
		    (5 25 4 25)
		    (4 25 4 22)
		    (4 22 2 22)
		    (2 22 2 21)
		    (22 21 25 21)
		    (25 21 25 22)
		    (25 22 23 22)
		    (23 22 23 25)
		    (23 25 22 25)
		    (22 25 22 21)
		    (10 24 17 24)
		    (17 24 17 25)
		    (17 25 14 25)
		    (14 25 14 28)
		    (14 28 13 28)
		    (13 28 13 25)
		    (13 25 10 25)
		    (10 25 10 24)
		    (7 24 8 24)
		    (8 24 8 27)
		    (8 27 11 27)
		    (11 27 11 28)
		    (11 28 2 28)
		    (2 28 2 27)
		    (2 27 7 27)
		    (7 27 7 24)
		    (19 24 20 24)
		    (20 24 20 27)
		    (20 27 25 27)
		    (25 27 25 28)
		    (25 28 16 28)
		    (16 28 16 27)
		    (16 27 19 27)
		    (19 27 19 24)
		    (0 0 13 0)
		    (13 0 13 4)
		    (13 4 14 4)
		    (14 4 14 0)
		    (14 0 27 0)
		    (27 0 27 9)
		    (27 9 22 9)
		    (22 9 22 13)
		    (22 13 27 13)
		    (27 15 22 15)
		    (22 15 22 19)
		    (22 19 27 19)
		    (27 19 27 24)
		    (27 24 25 24)
		    (25 24 25 25)
		    (25 25 27 25)
		    (27 25 27 30)
		    (27 30 0 30)
		    (0 30 0 25)
		    (0 25 2 25)
		    (2 25 2 24)
		    (2 24 0 24)
		    (0 24 0 19)
		    (0 19 5 19)
		    (5 19 5 15)
		    (5 15 0 15)
		    (0 13 5 13)
		    (5 13 5 9)
		    (5 9 0 9)
		    (0 9 0 0)
		    (2 2 5 2)
		    (5 2 5 4)
		    (5 4 2 4)
		    (2 4 2 2)
		    (7 2 11 2)
		    (11 2 11 4)
		    (11 4 7 4)
		    (7 4 7 2)
		    (16 2 20 2)
		    (20 2 20 4)
		    (20 4 16 4)
		    (16 4 16 2)
		    (22 2 25 2)
		    (25 2 25 4)
		    (25 4 22 4)
		    (22 4 22 2)
		    (2 6 5 6)
		    (5 6 5 7)
		    (5 7 2 7)
		    (2 7 2 6)
		    (22 6 25 6)
		    (25 6 25 7)
		    (25 7 22 7)
		    (22 7 22 6)
		    (7 6 8 6)
		    (8 6 8 9)
		    (8 9 11 9)
		    (11 9 11 10)
		    (11 10 8 10)
		    (8 10 8 13)
		    (8 13 7 13)
		    (7 13 7 6)
		    (19 6 20 6)
		    (20 6 20 13)
		    (20 13 19 13)
		    (19 13 19 10)
		    (19 10 16 10)
		    (16 10 16 9)
		    (16 9 19 9)
		    (19 9 19 6)
		    (10 6 17 6)
		    (17 6 17 7)
		    (17 7 14 7)
		    (14 7 14 10)
		    (14 10 13 10)
		    (13 10 13 7)
		    (13 7 10 7)
		    (10 7 10 6)
		    (12 12 10 12)
		    (10 12 10 16)
		    (10 16 17 16)
		    (17 16 17 12)
		    (17 12 15 12)
		    (7 15 8 15)
		    (8 15 8 19)
		    (8 19 7 19)
		    (7 19 7 15)
		    (19 15 20 15)
		    (20 15 20 19)
		    (20 19 19 19)
		    (19 19 19 15)
		    (10 18 17 18)
		    (17 18 17 19)
		    (17 19 14 19)
		    (14 19 14 22)
		    (14 22 13 22)
		    (13 22 13 19)
		    (13 19 10 19)
		    (10 19 10 18)
		    (7 21 11 21)
		    (11 21 11 22)
		    (11 22 7 22)
		    (7 22 7 21)
		    (16 21 20 21)
		    (20 21 20 22)
		    (20 22 16 22)
		    (16 22 16 21)
		    (2 21 5 21)
		    (5 21 5 25)
		    (5 25 4 25)
		    (4 25 4 22)
		    (4 22 2 22)
		    (2 22 2 21)
		    (22 21 25 21)
		    (25 21 25 22)
		    (25 22 23 22)
		    (23 22 23 25)
		    (23 25 22 25)
		    (22 25 22 21)
		    (10 24 17 24)
		    (17 24 17 25)
		    (17 25 14 25)
		    (14 25 14 28)
		    (14 28 13 28)
		    (13 28 13 25)
		    (13 25 10 25)
		    (10 25 10 24)
		    (7 24 8 24)
		    (8 24 8 27)
		    (8 27 11 27)
		    (11 27 11 28)
		    (11 28 2 28)
		    (2 28 2 27)
		    (2 27 7 27)
		    (7 27 7 24)
		    (19 24 20 24)
		    (20 24 20 27)
		    (20 27 25 27)
		    (25 27 25 28)
		    (25 28 16 28)
		    (16 28 16 27)
		    (16 27 19 27)
		    (19 27 19 24)
		    (0 0 13 0)
		    (13 0 13 4)
		    (13 4 14 4)
		    (14 4 14 0)
		    (14 0 27 0)
		    (27 0 27 9)
		    (27 9 22 9)
		    (22 9 22 13)
		    (22 13 27 13)
		    (27 15 22 15)
		    (22 15 22 19)
		    (22 19 27 19)
		    (27 19 27 24)
		    (27 24 25 24)
		    (25 24 25 25)
		    (25 25 27 25)
		    (27 25 27 30)
		    (27 30 0 30)
		    (0 30 0 25)
		    (0 25 2 25)
		    (2 25 2 24)
		    (2 24 0 24)
		    (0 24 0 19)
		    (0 19 5 19)
		    (5 19 5 15)
		    (5 15 0 15)
		    (0 13 5 13)
		    (5 13 5 9)
		    (5 9 0 9)
		    (0 9 0 0)
		    (2 2 5 2)
		    (5 2 5 4)
		    (5 4 2 4)
		    (2 4 2 2)
		    (7 2 11 2)
		    (11 2 11 4)
		    (11 4 7 4)
		    (7 4 7 2)
		    (16 2 20 2)
		    (20 2 20 4)
		    (20 4 16 4)
		    (16 4 16 2)
		    (22 2 25 2)
		    (25 2 25 4)
		    (25 4 22 4)
		    (22 4 22 2)
		    (2 6 5 6)
		    (5 6 5 7)
		    (5 7 2 7)
		    (2 7 2 6)
		    (22 6 25 6)
		    (25 6 25 7)
		    (25 7 22 7)
		    (22 7 22 6)
		    (7 6 8 6)
		    (8 6 8 9)
		    (8 9 11 9)
		    (11 9 11 10)
		    (11 10 8 10)
		    (8 10 8 13)
		    (8 13 7 13)
		    (7 13 7 6)
		    (19 6 20 6)
		    (20 6 20 13)
		    (20 13 19 13)
		    (19 13 19 10)
		    (19 10 16 10)
		    (16 10 16 9)
		    (16 9 19 9)
		    (19 9 19 6)
		    (10 6 17 6)
		    (17 6 17 7)
		    (17 7 14 7)
		    (14 7 14 10)
		    (14 10 13 10)
		    (13 10 13 7)
		    (13 7 10 7)
		    (10 7 10 6)
		    (12 12 10 12)
		    (10 12 10 16)
		    (10 16 17 16)
		    (17 16 17 12)
		    (17 12 15 12)
		    (7 15 8 15)
		    (8 15 8 19)
		    (8 19 7 19)
		    (7 19 7 15)
		    (19 15 20 15)
		    (20 15 20 19)
		    (20 19 19 19)
		    (19 19 19 15)
		    (10 18 17 18)
		    (17 18 17 19)
		    (17 19 14 19)
		    (14 19 14 22)
		    (14 22 13 22)
		    (13 22 13 19)
		    (13 19 10 19)
		    (10 19 10 18)
		    (7 21 11 21)
		    (11 21 11 22)
		    (11 22 7 22)
		    (7 22 7 21)
		    (16 21 20 21)
		    (20 21 20 22)
		    (20 22 16 22)
		    (16 22 16 21)
		    (2 21 5 21)
		    (5 21 5 25)
		    (5 25 4 25)
		    (4 25 4 22)
		    (4 22 2 22)
		    (2 22 2 21)
		    (22 21 25 21)
		    (25 21 25 22)
		    (25 22 23 22)
		    (23 22 23 25)
		    (23 25 22 25)
		    (22 25 22 21)
		    (10 24 17 24)
		    (17 24 17 25)
		    (17 25 14 25)
		    (14 25 14 28)
		    (14 28 13 28)
		    (13 28 13 25)
		    (13 25 10 25)
		    (10 25 10 24)
		    (7 24 8 24)
		    (8 24 8 27)
		    (8 27 11 27)
		    (11 27 11 28)
		    (11 28 2 28)
		    (2 28 2 27)
		    (2 27 7 27)
		    (7 27 7 24)
		    (19 24 20 24)
		    (20 24 20 27)
		    (20 27 25 27)
		    (25 27 25 28)
		    (25 28 16 28)
		    (16 28 16 27)
		    (16 27 19 27)
		    (19 27 19 24)
		    (0 0 13 0)
		    (13 0 13 4)
		    (13 4 14 4)
		    (14 4 14 0)
		    (14 0 27 0)
		    (27 0 27 9)
		    (27 9 22 9)
		    (22 9 22 13)
		    (22 13 27 13)
		    (27 15 22 15)
		    (22 15 22 19)
		    (22 19 27 19)
		    (27 19 27 24)
		    (27 24 25 24)
		    (25 24 25 25)
		    (25 25 27 25)
		    (27 25 27 30)
		    (27 30 0 30)
		    (0 30 0 25)
		    (0 25 2 25)
		    (2 25 2 24)
		    (2 24 0 24)
		    (0 24 0 19)
		    (0 19 5 19)
		    (5 19 5 15)
		    (5 15 0 15)
		    (0 13 5 13)
		    (5 13 5 9)
		    (5 9 0 9)
		    (0 9 0 0)
		    (2 2 5 2)
		    (5 2 5 4)
		    (5 4 2 4)
		    (2 4 2 2)
		    (7 2 11 2)
		    (11 2 11 4)
		    (11 4 7 4)
		    (7 4 7 2)
		    (16 2 20 2)
		    (20 2 20 4)
		    (20 4 16 4)
		    (16 4 16 2)
		    (22 2 25 2)
		    (25 2 25 4)
		    (25 4 22 4)
		    (22 4 22 2)
		    (2 6 5 6)
		    (5 6 5 7)
		    (5 7 2 7)
		    (2 7 2 6)
		    (22 6 25 6)
		    (25 6 25 7)
		    (25 7 22 7)
		    (22 7 22 6)
		    (7 6 8 6)
		    (8 6 8 9)
		    (8 9 11 9)
		    (11 9 11 10)
		    (11 10 8 10)
		    (8 10 8 13)
		    (8 13 7 13)
		    (7 13 7 6)
		    (19 6 20 6)
		    (20 6 20 13)
		    (20 13 19 13)
		    (19 13 19 10)
		    (19 10 16 10)
		    (16 10 16 9)
		    (16 9 19 9)
		    (19 9 19 6)
		    (10 6 17 6)
		    (17 6 17 7)
		    (17 7 14 7)
		    (14 7 14 10)
		    (14 10 13 10)
		    (13 10 13 7)
		    (13 7 10 7)
		    (10 7 10 6)
		    (12 12 10 12)
		    (10 12 10 16)
		    (10 16 17 16)
		    (17 16 17 12)
		    (17 12 15 12)
		    (7 15 8 15)
		    (8 15 8 19)
		    (8 19 7 19)
		    (7 19 7 15)
		    (19 15 20 15)
		    (20 15 20 19)
		    (20 19 19 19)
		    (19 19 19 15)
		    (10 18 17 18)
		    (17 18 17 19)
		    (17 19 14 19)
		    (14 19 14 22)
		    (14 22 13 22)
		    (13 22 13 19)
		    (13 19 10 19)
		    (10 19 10 18)
		    (7 21 11 21)
		    (11 21 11 22)
		    (11 22 7 22)
		    (7 22 7 21)
		    (16 21 20 21)
		    (20 21 20 22)
		    (20 22 16 22)
		    (16 22 16 21)
		    (2 21 5 21)
		    (5 21 5 25)
		    (5 25 4 25)
		    (4 25 4 22)
		    (4 22 2 22)
		    (2 22 2 21)
		    (22 21 25 21)
		    (25 21 25 22)
		    (25 22 23 22)
		    (23 22 23 25)
		    (23 25 22 25)
		    (22 25 22 21)
		    (10 24 17 24)
		    (17 24 17 25)
		    (17 25 14 25)
		    (14 25 14 28)
		    (14 28 13 28)
		    (13 28 13 25)
		    (13 25 10 25)
		    (10 25 10 24)
		    (7 24 8 24)
		    (8 24 8 27)
		    (8 27 11 27)
		    (11 27 11 28)
		    (11 28 2 28)
		    (2 28 2 27)
		    (2 27 7 27)
		    (7 27 7 24)
		    (19 24 20 24)
		    (20 24 20 27)
		    (20 27 25 27)
		    (25 27 25 28)
		    (25 28 16 28)
		    (16 28 16 27)
		    (16 27 19 27)
		    (19 27 19 24)
		    (0 0 13 0)
		    (13 0 13 4)
		    (13 4 14 4)
		    (14 4 14 0)
		    (14 0 27 0)
		    (27 0 27 9)
		    (27 9 22 9)
		    (22 9 22 13)
		    (22 13 27 13)
		    (27 15 22 15)
		    (22 15 22 19)
		    (22 19 27 19)
		    (27 19 27 24)
		    (27 24 25 24)
		    (25 24 25 25)
		    (25 25 27 25)
		    (27 25 27 30)
		    (27 30 0 30)
		    (0 30 0 25)
		    (0 25 2 25)
		    (2 25 2 24)
		    (2 24 0 24)
		    (0 24 0 19)
		    (0 19 5 19)
		    (5 19 5 15)
		    (5 15 0 15)
		    (0 13 5 13)
		    (5 13 5 9)
		    (5 9 0 9)
		    (0 9 0 0)
		    (2 2 5 2)
		    (5 2 5 4)
		    (5 4 2 4)
		    (2 4 2 2)
		    (7 2 11 2)
		    (11 2 11 4)
		    (11 4 7 4)
		    (7 4 7 2)
		    (16 2 20 2)
		    (20 2 20 4)
		    (20 4 16 4)
		    (16 4 16 2)
		    (22 2 25 2)
		    (25 2 25 4)
		    (25 4 22 4)
		    (22 4 22 2)
		    (2 6 5 6)
		    (5 6 5 7)
		    (5 7 2 7)
		    (2 7 2 6)
		    (22 6 25 6)
		    (25 6 25 7)
		    (25 7 22 7)
		    (22 7 22 6)
		    (7 6 8 6)
		    (8 6 8 9)
		    (8 9 11 9)
		    (11 9 11 10)
		    (11 10 8 10)
		    (8 10 8 13)
		    (8 13 7 13)
		    (7 13 7 6)
		    (19 6 20 6)
		    (20 6 20 13)
		    (20 13 19 13)
		    (19 13 19 10)
		    (19 10 16 10)
		    (16 10 16 9)
		    (16 9 19 9)
		    (19 9 19 6)
		    (10 6 17 6)
		    (17 6 17 7)
		    (17 7 14 7)
		    (14 7 14 10)
		    (14 10 13 10)
		    (13 10 13 7)
		    (13 7 10 7)
		    (10 7 10 6)
		    (12 12 10 12)
		    (10 12 10 16)
		    (10 16 17 16)
		    (17 16 17 12)
		    (17 12 15 12)
		    (7 15 8 15)
		    (8 15 8 19)
		    (8 19 7 19)
		    (7 19 7 15)
		    (19 15 20 15)
		    (20 15 20 19)
		    (20 19 19 19)
		    (19 19 19 15)
		    (10 18 17 18)
		    (17 18 17 19)
		    (17 19 14 19)
		    (14 19 14 22)
		    (14 22 13 22)
		    (13 22 13 19)
		    (13 19 10 19)
		    (10 19 10 18)
		    (7 21 11 21)
		    (11 21 11 22)
		    (11 22 7 22)
		    (7 22 7 21)
		    (16 21 20 21)
		    (20 21 20 22)
		    (20 22 16 22)
		    (16 22 16 21)
		    (2 21 5 21)
		    (5 21 5 25)
		    (5 25 4 25)
		    (4 25 4 22)
		    (4 22 2 22)
		    (2 22 2 21)
		    (22 21 25 21)
		    (25 21 25 22)
		    (25 22 23 22)
		    (23 22 23 25)
		    (23 25 22 25)
		    (22 25 22 21)
		    (10 24 17 24)
		    (17 24 17 25)
		    (17 25 14 25)
		    (14 25 14 28)
		    (14 28 13 28)
		    (13 28 13 25)
		    (13 25 10 25)
		    (10 25 10 24)
		    (7 24 8 24)
		    (8 24 8 27)
		    (8 27 11 27)
		    (11 27 11 28)
		    (11 28 2 28)
		    (2 28 2 27)
		    (2 27 7 27)
		    (7 27 7 24)
		    (19 24 20 24)
		    (20 24 20 27)
		    (20 27 25 27)
		    (25 27 25 28)
		    (25 28 16 28)
		    (16 28 16 27)
		    (16 27 19 27)
		    (19 27 19 24)
		    (0 0 13 0)
		    (13 0 13 4)
		    (13 4 14 4)
		    (14 4 14 0)
		    (14 0 27 0)
		    (27 0 27 9)
		    (27 9 22 9)
		    (22 9 22 13)
		    (22 13 27 13)
		    (27 15 22 15)
		    (22 15 22 19)
		    (22 19 27 19)
		    (27 19 27 24)
		    (27 24 25 24)
		    (25 24 25 25)
		    (25 25 27 25)
		    (27 25 27 30)
		    (27 30 0 30)
		    (0 30 0 25)
		    (0 25 2 25)
		    (2 25 2 24)
		    (2 24 0 24)
		    (0 24 0 19)
		    (0 19 5 19)
		    (5 19 5 15)
		    (5 15 0 15)
		    (0 13 5 13)
		    (5 13 5 9)
		    (5 9 0 9)
		    (0 9 0 0)
		    (2 2 5 2)
		    (5 2 5 4)
		    (5 4 2 4)
		    (2 4 2 2)
		    (7 2 11 2)
		    (11 2 11 4)
		    (11 4 7 4)
		    (7 4 7 2)
		    (16 2 20 2)
		    (20 2 20 4)
		    (20 4 16 4)
		    (16 4 16 2)
		    (22 2 25 2)
		    (25 2 25 4)
		    (25 4 22 4)
		    (22 4 22 2)
		    (2 6 5 6)
		    (5 6 5 7)
		    (5 7 2 7)
		    (2 7 2 6)
		    (22 6 25 6)
		    (25 6 25 7)
		    (25 7 22 7)
		    (22 7 22 6)
		    (7 6 8 6)
		    (8 6 8 9)
		    (8 9 11 9)
		    (11 9 11 10)
		    (11 10 8 10)
		    (8 10 8 13)
		    (8 13 7 13)
		    (7 13 7 6)
		    (19 6 20 6)
		    (20 6 20 13)
		    (20 13 19 13)
		    (19 13 19 10)
		    (19 10 16 10)
		    (16 10 16 9)
		    (16 9 19 9)
		    (19 9 19 6)
		    (10 6 17 6)
		    (17 6 17 7)
		    (17 7 14 7)
		    (14 7 14 10)
		    (14 10 13 10)
		    (13 10 13 7)
		    (13 7 10 7)
		    (10 7 10 6)
		    (12 12 10 12)
		    (10 12 10 16)
		    (10 16 17 16)
		    (17 16 17 12)
		    (17 12 15 12)
		    (7 15 8 15)
		    (8 15 8 19)
		    (8 19 7 19)
		    (7 19 7 15)
		    (19 15 20 15)
		    (20 15 20 19)
		    (20 19 19 19)
		    (19 19 19 15)
		    (10 18 17 18)
		    (17 18 17 19)
		    (17 19 14 19)
		    (14 19 14 22)
		    (14 22 13 22)
		    (13 22 13 19)
		    (13 19 10 19)
		    (10 19 10 18)
		    (7 21 11 21)
		    (11 21 11 22)
		    (11 22 7 22)
		    (7 22 7 21)
		    (16 21 20 21)
		    (20 21 20 22)
		    (20 22 16 22)
		    (16 22 16 21)
		    (2 21 5 21)
		    (5 21 5 25)
		    (5 25 4 25)
		    (4 25 4 22)
		    (4 22 2 22)
		    (2 22 2 21)
		    (22 21 25 21)
		    (25 21 25 22)
		    (25 22 23 22)
		    (23 22 23 25)
		    (23 25 22 25)
		    (22 25 22 21)
		    (10 24 17 24)
		    (17 24 17 25)
		    (17 25 14 25)
		    (14 25 14 28)
		    (14 28 13 28)
		    (13 28 13 25)
		    (13 25 10 25)
		    (10 25 10 24)
		    (7 24 8 24)
		    (8 24 8 27)
		    (8 27 11 27)
		    (11 27 11 28)
		    (11 28 2 28)
		    (2 28 2 27)
		    (2 27 7 27)
		    (7 27 7 24)
		    (19 24 20 24)
		    (20 24 20 27)
		    (20 27 25 27)
		    (25 27 25 28)
		    (25 28 16 28)
		    (16 28 16 27)
		    (16 27 19 27)
		    (19 27 19 24)))

(RPAQQ CHERRY 10)

(RPAQ CHERRYBITMAP (READBITMAP))
(16 16
"@@@C"
"@@CN"
"@@ND"
"CMHH"
"GNA@"
"OMC@"
"OHJ@"
"OHJ@"
"OLOH"
"OOON"
"GOOK"
"COOA"
"@COA"
"@COI"
"@AON"
"@@OL")

(RPAQ COLORPMANDOWN (READBITMAP))
(16 16 4
"@@@@@DDDDDD@@@@@"
"@@@DDDDDDDDDD@@@"
"@@DDDDDDDDDDDD@@"
"@DDDDDDDDDDDDDD@"
"@DDDDDDDDDDDDDD@"
"DDDDDDDDDDDDDDDD"
"DDDDDDDDDDDDDDDD"
"DDDDDDDDDDDDDDDD"
"DDDDDDDDDDDDDDDD"
"DDDDDDDDDDDDDDDD"
"DDDDDD@@@@DDDDDD"
"@DDDD@@@@@@DDDD@"
"@DDD@@@@@@@@DDD@"
"@@D@@@@@@@@@@D@@"
"@@@@@@@@@@@@@@@@"
"@@@@@@@@@@@@@@@@")

(RPAQ COLORPMANLEFT (READBITMAP))
(16 16 4
"@@@@@DDDDDD@@@@@"
"@@@DDDDDDDDDD@@@"
"@@DDDDDDDDDDDD@@"
"@@@DDDDDDDDDDDD@"
"@@@@DDDDDDDDDDD@"
"@@@@@DDDDDDDDDDD"
"@@@@@@DDDDDDDDDD"
"@@@@@@DDDDDDDDDD"
"@@@@@@DDDDDDDDDD"
"@@@@@@DDDDDDDDDD"
"@@@@@DDDDDDDDDDD"
"@@@@DDDDDDDDDDD@"
"@@@DDDDDDDDDDDD@"
"@@DDDDDDDDDDDD@@"
"@@@DDDDDDDDDD@@@"
"@@@@@DDDDDD@@@@@")

(RPAQ COLORPMANRIGHT (READBITMAP))
(16 16 4
"@@@@@DDDDDD@@@@@"
"@@@DDDDDDDDDD@@@"
"@@DDDDDDDDDDDD@@"
"@DDDDDDDDDDDD@@@"
"@DDDDDDDDDDD@@@@"
"DDDDDDDDDDD@@@@@"
"DDDDDDDDDD@@@@@@"
"DDDDDDDDDD@@@@@@"
"DDDDDDDDDD@@@@@@"
"DDDDDDDDDD@@@@@@"
"DDDDDDDDDDD@@@@@"
"@DDDDDDDDDDD@@@@"
"@DDDDDDDDDDDD@@@"
"@@DDDDDDDDDDDD@@"
"@@@DDDDDDDDDD@@@"
"@@@@@DDDDDD@@@@@")

(RPAQ COLORPMANUP (READBITMAP))
(16 16 4
"@@@@@@@@@@@@@@@@"
"@@@@@@@@@@@@@@@@"
"@@D@@@@@@@@@@D@@"
"@DDD@@@@@@@@DDD@"
"@DDDD@@@@@@DDDD@"
"DDDDDD@@@@DDDDDD"
"DDDDDDDDDDDDDDDD"
"DDDDDDDDDDDDDDDD"
"DDDDDDDDDDDDDDDD"
"DDDDDDDDDDDDDDDD"
"DDDDDDDDDDDDDDDD"
"@DDDDDDDDDDDDDD@"
"@DDDDDDDDDDDDDD@"
"@@DDDDDDDDDDDD@@"
"@@@DDDDDDDDDD@@@"
"@@@@@DDDDDD@@@@@")

(RPAQ DOT (READBITMAP))
(4 4
"O@@@"
"O@@@"
"O@@@"
"O@@@")

(RPAQ ENERGIZER (READBITMAP))
(8 8
"CL@@"
"GN@@"
"OO@@"
"OO@@"
"OO@@"
"OO@@"
"GN@@"
"CL@@")

(RPAQQ ENERGIZEROBJ I)

(RPAQ EYESBITMAP (READBITMAP))
(16 16
"@@@@"
"@@@@"
"@@@@"
"@@@@"
"@@@@"
"ALCH"
"BFDL"
"BFDL"
"BFDL"
"ALCH"
"@@@@"
"@@@@"
"@@@@"
"@@@@"
"@@@@"
"@@@@")

(RPAQQ FRUIT# 1)

(RPAQQ FRUITTIME 210)

(RPAQ G1BITMAP (READBITMAP))
(16 16
"@GN@"
"ALCH"
"B@@D"
"D@@B"
"H@@A"
"ILCI"
"JFDM"
"JFDM"
"JFDM"
"ILCI"
"H@@A"
"H@@A"
"H@@A"
"ICLI"
"JJEE"
"LFFC")

(RPAQ G2BITMAP (READBITMAP))
(16 16
"@GN@"
"ALCH"
"C@@L"
"F@@F"
"MNGC"
"KAHI"
"JC@M"
"JC@M"
"JC@M"
"KAHI"
"INGA"
"H@@A"
"H@@A"
"KKMM"
"NNGG"
"LFFC")

(RPAQ G3BITMAP (READBITMAP))
(16 16
"@GN@"
"ALCH"
"B@@D"
"D@@B"
"H@@A"
"ILCI"
"JFDM"
"JFDM"
"JFDM"
"ILCI"
"H@@A"
"H@@A"
"H@@A"
"ICLI"
"JJEE"
"LFFC")

(RPAQ G4BITMAP (READBITMAP))
(16 16
"@GN@"
"AMEH"
"BJJL"
"EEEF"
"JBJE"
"MMCK"
"JFDM"
"NFDO"
"JFDM"
"OMKK"
"JJME"
"MEJK"
"JJEE"
"MEJK"
"JJEE"
"LFFC")

(RPAQ GINVBITMAP (READBITMAP))
(16 16
"@GN@"
"AOOH"
"COOL"
"GOON"
"OOOO"
"OOOO"
"NGLO"
"NGLO"
"NGLO"
"OOOO"
"OOOO"
"OOOO"
"OOOO"
"OOOO"
"NNGG"
"LFFC")

(RPAQ KEYBITMAP (READBITMAP))
(16 16
"@GN@"
"AOOH"
"ANGH"
"CNGL"
"COOL"
"COOL"
"COOL"
"AOOH"
"@OO@"
"@GF@"
"@CD@"
"@CD@"
"@CD@"
"@CH@"
"@C@@"
"@B@@")

(RPAQQ MRIGHT {BITMAP}#7,66154)

(RPAQQ NEXTMOVE 0)

(RPAQ ORANGEBITMAP (READBITMAP))
(16 16
"@GN@"
"@OOL"
"CIL@"
"G@@L"
"GOON"
"OOOO"
"OOOO"
"OOOO"
"OOOO"
"OOOO"
"OOOO"
"GOON"
"GOON"
"COOL"
"@GN@"
"@@@@")

(RPAQ PACMANC (READBITMAP))
(16 16
"@GN@"
"AOOH"
"COOL"
"GOON"
"GOON"
"OOOO"
"OOOO"
"OOOO"
"OOOO"
"OOOO"
"OOOO"
"GOON"
"GOON"
"COOL"
"AOOH"
"@GN@")

(RPAQQ PACMANINCOLOR NIL)

(RPAQ PINEAPPLEBITMAP (READBITMAP))
(16 16
"@CL@"
"@EJ@"
"@EJ@"
"@EJ@"
"@EJ@"
"@OK@"
"@OO@"
"AJMH"
"AGOH"
"@NK@"
"AENH"
"AOKH"
"AJO@"
"AOKH"
"@MO@"
"@GN@")

(RPAQQ PMAN X)

(RPAQ PMANDOWN (READBITMAP))
(16 16
"@GN@"
"AOOH"
"COOL"
"GOON"
"GOON"
"OOOO"
"OOOO"
"OOOO"
"OOOO"
"OOOO"
"OLCO"
"GHAN"
"G@@N"
"B@@D"
"@@@@"
"@@@@")

(RPAQ PMANLEFT (READBITMAP))
(16 16
"@GN@"
"AOOH"
"COOL"
"AOON"
"@OON"
"@GOO"
"@COO"
"@COO"
"@COO"
"@COO"
"@GOO"
"@OON"
"AOON"
"COOL"
"AOOH"
"@GN@")

(RPAQ PMANRIGHT (READBITMAP))
(16 16
"@GN@"
"AOOH"
"COOL"
"GOOH"
"GOO@"
"OON@"
"OOL@"
"OOL@"
"OOL@"
"OOL@"
"OON@"
"GOO@"
"GOOH"
"COOL"
"AOOH"
"@GN@")

(RPAQ PMANUP (READBITMAP))
(16 16
"@@@@"
"@@@@"
"B@@D"
"G@@N"
"GHAN"
"OLCO"
"OOOO"
"OOOO"
"OOOO"
"OOOO"
"OOOO"
"GOON"
"GOON"
"COOL"
"AOOH"
"@GN@")

(RPAQQ PMGAMEOVER NIL)

(RPAQQ PSTREAM {STREAM}#374,122064)

(RPAQQ PWINDOW NIL)

(RPAQ QUARTERBITMAP (READBITMAP))
(32 32
"@@@GN@@@"
"@@GHAL@@"
"@@NAIC@@"
"@CIIJHL@"
"@EEECAJ@"
"@LDMJII@"
"ADB@@BBH"
"AFHGO@BD"
"CKAIOLED"
"A@A@ON@B"
"D@A@ON@B"
"F@ADGO@A"
"B@B@CO@A"
"L@D@CO@A"
"H@D@@F@A"
"N@B@@F@A"
"@@C@@F@A"
"L@B@@B@A"
"N@CL@C@A"
"@@@D@E@A"
"LEDB@DHA"
"B@@B@F@B"
"DBHD@B@B"
"B@@OON@D"
"C@@@@@@D"
"A@BLI@@H"
"@HBMDHA@"
"@DBLI@B@"
"@BBEDHL@"
"@AHLIA@@"
"@@G@@N@@"
"@@@OO@@@")

(RPAQQ ROW (8214 8222 8222 8222 8222 8222 8222 8222 8222 8222 8222 8222 8222 8222 8222 8222 8222 
		   8222 8222 8222 8222 8222 8222 8222 8222 8210))

(RPAQ SIGLOGO (READBITMAP))
(64 32
"@@@@@AOHC@@@@@@@"
"@@@@@GOHCH@@@@@@"
"@@@@@GO@GH@@@@@@"
"@@@@@ON@GH@L@@@@"
"@@@@@OL@GLCL@@@@"
"@@@@@OL@GLGH@@@@"
"@@@@@OH@GLOH@@@@"
"@@B@@OONOOOH@@@@"
"@@CL@OONOOO@@G@@"
"@@CN@GOLOON@AN@@"
"@@AOHGOIOON@GN@@"
"@@AONAO@OOL@OL@@"
"@@AOOH@@COLCOL@H"
"@@@OOL@@@GHOOLAH"
"@O@OOH@@@@IOOHAH"
"AOHGO@@@@@COOHCH"
"COLGN@@@@@COO@GH"
"COLGL@@@@@AOO@O@"
"GOLCH@@@@@@GN@O@"
"GOLC@@@@@@@CNAO@"
"GOLB@@@@@@@ALCN@"
"OOL@@@@@@@@@LGNA"
"OOH@@@@@@@@@@ONC"
"OOH@@@@@@@@@COLG"
"OOH@@@@@@@@@AOLO"
"GON@@@@@@@@@@OOO"
"AON@@@@@@@@@@OOO"
"@OL@@@@@@@@@@GON"
"@CL@@@@@@@@@@GOH"
"@AH@@@@@@@@@@CO@"
"@@H@@@@@@@@@@CL@"
"@@@@@@@@@@@@@@@@")

(RPAQ STRAWBERRYBITMAP (READBITMAP))
(16 16
"@AH@"
"@AH@"
"AOOH"
"GMKN"
"MNGN"
"HMCK"
"H@@A"
"IHCA"
"DAHB"
"D@CF"
"FNBD"
"C@@L"
"CBI@"
"AHC@"
"@IJ@"
"@GL@")

(RPAQQ PACMANWAITTIME 100)

(RPAQQ PMANINPUTMODE NIL)

(RPAQ PMANUPMAP (READBITMAP))
(16 16
"@@@@"
"@@@@"
"B@@D"
"G@@N"
"GHAN"
"OLCO"
"OOOO"
"OOOO"
"OOOO"
"OOOO"
"OOOO"
"GOON"
"GOON"
"COOL"
"AOOH"
"@GN@")

(RPAQ COLORPMANUP (READBITMAP))
(16 16 4
"@@@@@@@@@@@@@@@@"
"@@@@@@@@@@@@@@@@"
"@@D@@@@@@@@@@D@@"
"@DDD@@@@@@@@DDD@"
"@DDDD@@@@@@DDDD@"
"DDDDDD@@@@DDDDDD"
"DDDDDDDDDDDDDDDD"
"DDDDDDDDDDDDDDDD"
"DDDDDDDDDDDDDDDD"
"DDDDDDDDDDDDDDDD"
"DDDDDDDDDDDDDDDD"
"@DDDDDDDDDDDDDD@"
"@DDDDDDDDDDDDDD@"
"@@DDDDDDDDDDDD@@"
"@@@DDDDDDDDDD@@@"
"@@@@@DDDDDD@@@@@")

(RPAQ PMANRIGHTMAP (READBITMAP))
(16 16
"@GN@"
"AOOH"
"COOL"
"GOOH"
"GOO@"
"OON@"
"OOL@"
"OOL@"
"OOL@"
"OOL@"
"OON@"
"GOO@"
"GOOH"
"COOL"
"AOOH"
"@GN@")

(RPAQ COLORPMANRIGHT (READBITMAP))
(16 16 4
"@@@@@DDDDDD@@@@@"
"@@@DDDDDDDDDD@@@"
"@@DDDDDDDDDDDD@@"
"@DDDDDDDDDDDD@@@"
"@DDDDDDDDDDD@@@@"
"DDDDDDDDDDD@@@@@"
"DDDDDDDDDD@@@@@@"
"DDDDDDDDDD@@@@@@"
"DDDDDDDDDD@@@@@@"
"DDDDDDDDDD@@@@@@"
"DDDDDDDDDDD@@@@@"
"@DDDDDDDDDDD@@@@"
"@DDDDDDDDDDDD@@@"
"@@DDDDDDDDDDDD@@"
"@@@DDDDDDDDDD@@@"
"@@@@@DDDDDD@@@@@")

(RPAQ PMANDOWNMAP (READBITMAP))
(16 16
"@GN@"
"AOOH"
"COOL"
"GOON"
"GOON"
"OOOO"
"OOOO"
"OOOO"
"OOOO"
"OOOO"
"OLCO"
"GHAN"
"G@@N"
"B@@D"
"@@@@"
"@@@@")

(RPAQ COLORPMANDOWN (READBITMAP))
(16 16 4
"@@@@@DDDDDD@@@@@"
"@@@DDDDDDDDDD@@@"
"@@DDDDDDDDDDDD@@"
"@DDDDDDDDDDDDDD@"
"@DDDDDDDDDDDDDD@"
"DDDDDDDDDDDDDDDD"
"DDDDDDDDDDDDDDDD"
"DDDDDDDDDDDDDDDD"
"DDDDDDDDDDDDDDDD"
"DDDDDDDDDDDDDDDD"
"DDDDDD@@@@DDDDDD"
"@DDDD@@@@@@DDDD@"
"@DDD@@@@@@@@DDD@"
"@@D@@@@@@@@@@D@@"
"@@@@@@@@@@@@@@@@"
"@@@@@@@@@@@@@@@@")

(RPAQ PMANLEFTMAP (READBITMAP))
(16 16
"@GN@"
"AOOH"
"COOL"
"AOON"
"@OON"
"@GOO"
"@COO"
"@COO"
"@COO"
"@COO"
"@GOO"
"@OON"
"AOON"
"COOL"
"AOOH"
"@GN@")

(RPAQ COLORPMANLEFT (READBITMAP))
(16 16 4
"@@@@@DDDDDD@@@@@"
"@@@DDDDDDDDDD@@@"
"@@DDDDDDDDDDDD@@"
"@@@DDDDDDDDDDDD@"
"@@@@DDDDDDDDDDD@"
"@@@@@DDDDDDDDDDD"
"@@@@@@DDDDDDDDDD"
"@@@@@@DDDDDDDDDD"
"@@@@@@DDDDDDDDDD"
"@@@@@@DDDDDDDDDD"
"@@@@@DDDDDDDDDDD"
"@@@@DDDDDDDDDDD@"
"@@@DDDDDDDDDDDD@"
"@@DDDDDDDDDDDD@@"
"@@@DDDDDDDDDD@@@"
"@@@@@DDDDDD@@@@@")

(RPAQ PACMANCMAP (READBITMAP))
(16 16
"@GN@"
"AOOH"
"COOL"
"GOON"
"GOON"
"OOOO"
"OOOO"
"OOOO"
"OOOO"
"OOOO"
"OOOO"
"GOON"
"GOON"
"COOL"
"AOOH"
"@GN@")

(RPAQ COLORPACMANC (READBITMAP))
(16 16 4
"@@@@@DDDDDD@@@@@"
"@@@DDDDDDDDDD@@@"
"@@DDDDDDDDDDDD@@"
"@DDDDDDDDDDDDDD@"
"@DDDDDDDDDDDDDD@"
"DDDDDDDDDDDDDDDD"
"DDDDDDDDDDDDDDDD"
"DDDDDDDDDDDDDDDD"
"DDDDDDDDDDDDDDDD"
"DDDDDDDDDDDDDDDD"
"DDDDDDDDDDDDDDDD"
"@DDDDDDDDDDDDDD@"
"@DDDDDDDDDDDDDD@"
"@@DDDDDDDDDDDD@@"
"@@@DDDDDDDDDD@@@"
"@@@@@DDDDDD@@@@@")

(RPAQ DOT (READBITMAP))
(4 4
"O@@@"
"O@@@"
"O@@@"
"O@@@")

(RPAQ COLORDOT (READBITMAP))
(4 4 4
"DDDD"
"DDDD"
"DDDD"
"DDDD")

(RPAQ ENERGIZER (READBITMAP))
(8 8
"CL@@"
"GN@@"
"OO@@"
"OO@@"
"OO@@"
"OO@@"
"GN@@"
"CL@@")

(RPAQ COLORENERGIZER (READBITMAP))
(8 8 4
"@@DDDD@@"
"@DDDDDD@"
"DDDDDDDD"
"DDDDDDDD"
"DDDDDDDD"
"DDDDDDDD"
"@DDDDDD@"
"@@DDDD@@")

(RPAQ BWG1BITMAP (READBITMAP))
(16 16
"@GN@"
"ALCH"
"B@@D"
"D@@B"
"H@@A"
"ILCI"
"JFDM"
"JFDM"
"JFDM"
"ILCI"
"H@@A"
"H@@A"
"H@@A"
"ICLI"
"JJEE"
"LFFC")

(RPAQ COLORG1BITMAP (READBITMAP))
(16 16 4
"@@@@@CCCCCC@@@@@"
"@@@CCCCCCCCCC@@@"
"@@CCCCCCCCCCCC@@"
"@CCCCCCCCCCCCCC@"
"CCCGGGCCCCGGGCCC"
"CCCGGGCCCCGGGCCC"
"CCCGG@@CCCGG@@CC"
"CCCGG@@CCCGG@@CC"
"CCCGG@@CCCGG@@CC"
"CCCCCCCCCCCCCCCC"
"CCCCCCCCCCCCCCCC"
"CCCCCCCCCCCCCCCC"
"CCCCCCCCCCCCCCCC"
"CCCCCCCCCCCCCCCC"
"CCC@CCC@@CCC@CCC"
"CC@@@CC@@CC@@@CC")

(RPAQ BWG2BITMAP (READBITMAP))
(16 16
"@GN@"
"ALCH"
"C@@L"
"F@@F"
"MNGC"
"KAHI"
"JC@M"
"JC@M"
"JC@M"
"KAHI"
"INGA"
"H@@A"
"H@@A"
"KKMM"
"NNGG"
"LFFC")

(RPAQ COLORG2BITMAP (READBITMAP))
(16 16 4
"@@@@@IIIIII@@@@@"
"@@@IIIIIIIIII@@@"
"@@IIIIIIIIIIII@@"
"@IIIIIIIIIIIIII@"
"IIIGGIIIIIGGGIII"
"IIIGGIIIIIGGGIII"
"IIIG@@AIIIG@@AII"
"IIIG@@AIIIG@@AII"
"IIIG@@AIIIG@@AII"
"IIIIIIIIIIIIIIII"
"IIIIIIIIIIIIIIII"
"IIIIIIIIIIIIIIII"
"IIIIIIIIIIIIIIII"
"IIIIIIIIIIIIIIII"
"III@III@@III@III"
"II@@@II@@II@@@II")

(RPAQ BWG3BITMAP (READBITMAP))
(16 16
"@GN@"
"ALCH"
"B@@D"
"D@@B"
"H@@A"
"ILCI"
"JFDM"
"JFDM"
"JFDM"
"ILCI"
"H@@A"
"H@@A"
"H@@A"
"ICLI"
"JJEE"
"LFFC")

(RPAQ COLORG3BITMAP (READBITMAP))
(16 16 4
"@@@@@DDDDDD@@@@@"
"@@@DDDDDDDDDD@@@"
"@@DDDDDDDDDDDD@@"
"@DDDDDDDDDDDDDD@"
"DDGGGDDDDGGGDDDD"
"DDGGGDDDDGGGDDDD"
"DDGG@@@DDGG@@@DD"
"DDGG@@@DDGG@@@DD"
"DDDG@@@DDDG@@@DD"
"DDDDDDDDDDDDDDDD"
"DDDDDDDDDDDDDDDD"
"DDDDDDDDDDDDDDDD"
"DDDDDDDDDDDDDDDD"
"DDDDDDDDDDDDDDDD"
"DDD@DDD@@DDD@DDD"
"DD@@@DD@@DD@@@DD")

(RPAQ BWG4BITMAP (READBITMAP))
(16 16
"@GN@"
"AMEH"
"BJJL"
"EEEF"
"JBJE"
"MMCK"
"JFDM"
"NFDO"
"JFDM"
"OMKK"
"JJME"
"MEJK"
"JJEE"
"MEJK"
"JJEE"
"LFFC")

(RPAQ COLORG4BITMAP (READBITMAP))
(16 16 4
"@@@@@GGGGGG@@@@@"
"@@@GGGGGGGGGG@@@"
"@@GGGGGGGGGGGG@@"
"@GGGGGGGGGGGGGG@"
"GGGGGGGGGGGGGGGG"
"GGGGGGGGGGGGGGGG"
"GGGGG@@GGGGG@@GG"
"GGGGG@@GGGGG@@GG"
"GGGGG@@GGGGG@@GG"
"GGGGGGGGGGGGGGGG"
"GGGGGGGGGGGGGGGG"
"GGGGGGGGGGGGGGGG"
"GGGGGGGGGGGGGGGG"
"GGGGGGGGGGGGGGGG"
"GGG@GGG@@GGG@GGG"
"GG@@@GG@@GG@@@GG")

(RPAQ BWGINVBITMAP (READBITMAP))
(16 16
"@GN@"
"AOOH"
"COOL"
"GOON"
"OOOO"
"OOOO"
"NGLO"
"NGLO"
"NGLO"
"OOOO"
"OOOO"
"OOOO"
"OOOO"
"OOOO"
"NNGG"
"LFFC")

(RPAQ COLORGINVBITMAP (READBITMAP))
(16 16 4
"@@@@@AAAAAA@@@@@"
"@@@AAAAAAAAAA@@@"
"@@AAAAAAAAAAAA@@"
"@AAAAAAAAAAAAAA@"
"AAAAAAAAAAAAAAAA"
"AAAAAAAAAAAAAAAA"
"AAA@@AAAAA@@AAAA"
"AAA@@AAAAA@@AAAA"
"AAA@@AAAAA@@AAAA"
"AAAAAAAAAAAAAAAA"
"AAAAAAAAAAAAAAAA"
"AAAAAAAAAAAAAAAA"
"AAAAAAAAAAAAAAAA"
"AAAAAAAAAAAAAAAA"
"AAA@AAA@@AAA@AAA"
"AA@@@AA@@AA@@@AA")

(RPAQ CHERRYBITMAP (READBITMAP))
(16 16
"@@@C"
"@@CN"
"@@ND"
"CMHH"
"GNA@"
"OMC@"
"OHJ@"
"OHJ@"
"OLOH"
"OOON"
"GOOK"
"COOA"
"@COA"
"@COI"
"@AON"
"@@OL")

(RPAQ COLORCHERRYBITMAP (READBITMAP))
(16 16 4
"@@@@@@@@@@@@@@CC"
"@@@@@@@@@@CCCCC@"
"@@@@@@@@CCC@@C@@"
"@@CCCC@CC@@@C@@@"
"@CCCCCC@@@@C@@@@"
"CCCCCC@C@@CC@@@@"
"CCCCC@@@C@C@@@@@"
"CCCCC@@@C@C@@@@@"
"CCCCCC@@CCCCC@@@"
"CCCCCCCCCCCCCCC@"
"@CCCCCCCCCCCC@CC"
"@@CCCCCCCCCC@@@C"
"@@@@@@CCCCCC@@@C"
"@@@@@@CCCCCCC@@C"
"@@@@@@@CCCCCCCC@"
"@@@@@@@@CCCCCC@@")

(RPAQ STRAWBERRYBITMAP (READBITMAP))
(16 16
"@AH@"
"@AH@"
"AOOH"
"GMKN"
"MNGN"
"HMCK"
"H@@A"
"IHCA"
"DAHB"
"D@CF"
"FNBD"
"C@@L"
"CBI@"
"AHC@"
"@IJ@"
"@GL@")

(RPAQ COLORSTRAWBERRYBITMAP (READBITMAP))
(16 16 4
"@@@@@@@EE@@@@@@@"
"@@@@@@@EE@@@@@@@"
"@@@EEEEEEEEEE@@@"
"@EEEEE@EE@EEEEE@"
"EE@EEEE@@EEEEEE@"
"E@@@EE@E@@EEE@EE"
"E@@@@@@@@@@@@@@E"
"E@@EE@@@@@EE@@@E"
"@E@@@@@EE@@@@@E@"
"@E@@@@@@@@EE@EE@"
"@EE@EEE@@@E@@E@@"
"@@EE@@@@@@@@EE@@"
"@@EE@@E@E@@E@@@@"
"@@@EE@@@@@EE@@@@"
"@@@@E@@EE@E@@@@@"
"@@@@@EEEEE@@@@@@")

(RPAQ ORANGEBITMAP (READBITMAP))
(16 16
"@GN@"
"@OOL"
"CIL@"
"G@@L"
"GOON"
"OOOO"
"OOOO"
"OOOO"
"OOOO"
"OOOO"
"OOOO"
"GOON"
"GOON"
"COOL"
"@GN@"
"@@@@")

(RPAQ COLORORANGEBITMAP (READBITMAP))
(16 16 4
"@@@@@CCCCCC@@@@@"
"@@@@CCCCCCCCCC@@"
"@@CCC@@CCC@@@@@@"
"@CCC@@@@@@@@CC@@"
"@CCCCCCCCCCCCCC@"
"CCCCCCCCCCCCCCCC"
"CCCCCCCCCCCCCCCC"
"CCCCCCCCCCCCCCCC"
"CCCCCCCCCCCCCCCC"
"CCCCCCCCCCCCCCCC"
"CCCCCCCCCCCCCCCC"
"@CCCCCCCCCCCCCC@"
"@CCCCCCCCCCCCCC@"
"@@CCCCCCCCCCCC@@"
"@@@@@CCCCCC@@@@@"
"@@@@@@@@@@@@@@@@")

(RPAQ APPLEBITMAP (READBITMAP))
(16 16
"@@L@"
"@AH@"
"@OO@"
"COOL"
"COOL"
"GOON"
"GOON"
"GOON"
"GONF"
"GOLF"
"GOHF"
"COHL"
"COIL"
"AOOH"
"@ON@"
"@GL@")

(RPAQ COLORAPPLEBITMAP (READBITMAP))
(16 16 4
"@@@@@@@@CC@@@@@@"
"@@@@@@@CC@@@@@@@"
"@@@@CCCCCCCC@@@@"
"@@CCCCCCCCCCCC@@"
"@@CCCCCCCCCCCC@@"
"@CCCCCCCCCCCCCC@"
"@CCCCCCCCCCCCCC@"
"@CCCCCCCCCCCCCC@"
"@CCCCCCCCCC@@CC@"
"@CCCCCCCCC@@@CC@"
"@CCCCCCCC@@@@CC@"
"@@CCCCCCC@@@CC@@"
"@@CCCCCCC@@CCC@@"
"@@@CCCCCCCCCC@@@"
"@@@@CCCCCCC@@@@@"
"@@@@@CCCCC@@@@@@")

(RPAQ PINEAPPLEBITMAP (READBITMAP))
(16 16
"@CL@"
"@EJ@"
"@EJ@"
"@EJ@"
"@EJ@"
"@OK@"
"@OO@"
"AJMH"
"AGOH"
"@NK@"
"AENH"
"AOKH"
"AJO@"
"AOKH"
"@MO@"
"@GN@")

(RPAQ COLORPINEAPPLEBITMAP (READBITMAP))
(16 16 4
"@@@@@@BBBB@@@@@@"
"@@@@@B@BB@B@@@@@"
"@@@@@B@BB@B@@@@@"
"@@@@@B@BB@B@@@@@"
"@@@@@B@BB@B@@@@@"
"@@@@BBBBB@BB@@@@"
"@@@@BBBBBBBB@@@@"
"@@@BB@B@BB@BB@@@"
"@@@B@BBBBBBBB@@@"
"@@@@BBB@B@BB@@@@"
"@@@B@B@BBBB@B@@@"
"@@@BBBBBB@BBB@@@"
"@@@BB@B@BBBB@@@@"
"@@@BBBBBB@BBB@@@"
"@@@@BB@BBBBB@@@@"
"@@@@@BBBBBB@@@@@")

(RPAQ BIRDBITMAP (READBITMAP))
(16 16
"AOOH"
"@HA@"
"@DB@"
"@BD@"
"@BD@"
"OOOO"
"H@@A"
"H@@A"
"DFFB"
"BJED"
"ABDH"
"@BD@"
"@BD@"
"@BD@"
"@AH@"
"@@@@")

(RPAQ COLORBIRDBITMAP (READBITMAP))
(16 16 4
"@@@FFFFFFFFFF@@@"
"@@@@F@@@@@@F@@@@"
"@@@@@F@@@@F@@@@@"
"@@@@@@F@@F@@@@@@"
"@@@@@@F@@F@@@@@@"
"FFFFFFFFFFFFFFFF"
"F@@@@@@@@@@@@@@F"
"F@@@@@@@@@@@@@@F"
"@F@@@FF@@FF@@@F@"
"@@F@F@F@@F@F@F@@"
"@@@F@@F@@F@@F@@@"
"@@@@@@F@@F@@@@@@"
"@@@@@@F@@F@@@@@@"
"@@@@@@F@@F@@@@@@"
"@@@@@@@FF@@@@@@@"
"@@@@@@@@@@@@@@@@")

(RPAQ BELLBITMAP (READBITMAP))
(16 16
"@GN@"
"@OO@"
"AOOH"
"AGOH"
"CGOL"
"CGOL"
"CGOL"
"CGOL"
"CGOL"
"CGOL"
"CGOL"
"CGOL"
"GOON"
"OOOO"
"@@@@"
"@@@@")

(RPAQ COLORBELLBITMAP (READBITMAP))
(16 16 4
"@@@@@FFFFFF@@@@@"
"@@@@FFFFFFFF@@@@"
"@@@FFFFFFFFFF@@@"
"@@@F@FFFFFFFF@@@"
"@@FF@FFFFFFFFF@@"
"@@FF@FFFFFFFFF@@"
"@@FF@FFFFFFFFF@@"
"@@FF@FFFFFFFFF@@"
"@@FF@FFFFFFFFF@@"
"@@FF@FFFFFFFFF@@"
"@@FF@FFFFFFFFF@@"
"@@FF@FFFFFFFFF@@"
"@FFFFFFFFFFFFFF@"
"FFFFFFFFFFFFFFFF"
"@@@@@@@@@@@@@@@@"
"@@@@@@@@@@@@@@@@")

(RPAQ KEYBITMAP (READBITMAP))
(16 16
"@GN@"
"AOOH"
"ANGH"
"CNGL"
"COOL"
"COOL"
"COOL"
"AOOH"
"@OO@"
"@GF@"
"@CD@"
"@CD@"
"@CD@"
"@CH@"
"@C@@"
"@B@@")

(RPAQ COLORKEYBITMAP (READBITMAP))
(16 16 4
"@@@@@GGGGGG@@@@@"
"@@@GGGGGGGGGG@@@"
"@@@GGGG@@GGGG@@@"
"@@GGGGG@@GGGGG@@"
"@@GGGGGGGGGGGG@@"
"@@GGGGGGGGGGGG@@"
"@@GGGGGGGGGGGG@@"
"@@@GGGGGGGGGG@@@"
"@@@@GGGGGGGG@@@@"
"@@@@@GGG@GG@@@@@"
"@@@@@@GG@G@@@@@@"
"@@@@@@GG@G@@@@@@"
"@@@@@@GG@G@@@@@@"
"@@@@@@GGG@@@@@@@"
"@@@@@@GG@@@@@@@@"
"@@@@@@G@@@@@@@@@")

(RPAQ 200BITMAP (READBITMAP))
(16 16
"@@@@"
"@@@@"
"@@@@"
"FAHF"
"IBDI"
"ABDI"
"ABDI"
"BBDI"
"DBDI"
"HBDI"
"HBDI"
"OAHF"
"@@@@"
"@@@@"
"@@@@"
"@@@@")

(RPAQ COLOR200BITMAP (READBITMAP))
(16 16 4
"@@@@@@@@@@@@@@@@"
"@@@@@@@@@@@@@@@@"
"@@@@@@@@@@@@@@@@"
"@GG@@@@GG@@@@GG@"
"G@@G@@G@@G@@G@@G"
"@@@G@@G@@G@@G@@G"
"@@@G@@G@@G@@G@@G"
"@@G@@@G@@G@@G@@G"
"@G@@@@G@@G@@G@@G"
"G@@@@@G@@G@@G@@G"
"G@@@@@G@@G@@G@@G"
"GGGG@@@GG@@@@GG@"
"@@@@@@@@@@@@@@@@"
"@@@@@@@@@@@@@@@@"
"@@@@@@@@@@@@@@@@"
"@@@@@@@@@@@@@@@@")

(RPAQ 400BITMAP (READBITMAP))
(16 16
"@@@@"
"@@@@"
"@@@@"
"IAHF"
"IBDI"
"IBDI"
"IBDI"
"OJDI"
"ABDI"
"ABDI"
"ABDI"
"AAHF"
"@@@@"
"@@@@"
"@@@@"
"@@@@")

(RPAQ COLOR400BITMAP (READBITMAP))
(16 16 4
"@@@@@@@@@@@@@@@@"
"@@@@@@@@@@@@@@@@"
"@@@@@@@@@@@@@@@@"
"G@@G@@@GG@@@@GG@"
"G@@G@@G@@G@@G@@G"
"G@@G@@G@@G@@G@@G"
"G@@G@@G@@G@@G@@G"
"GGGGG@G@@G@@G@@G"
"@@@G@@G@@G@@G@@G"
"@@@G@@G@@G@@G@@G"
"@@@G@@G@@G@@G@@G"
"@@@G@@@GG@@@@GG@"
"@@@@@@@@@@@@@@@@"
"@@@@@@@@@@@@@@@@"
"@@@@@@@@@@@@@@@@"
"@@@@@@@@@@@@@@@@")

(RPAQ 800BITMAP (READBITMAP))
(16 16
"@@@@"
"@@@@"
"@@@@"
"FAHF"
"IBDI"
"IBDI"
"IBDI"
"FBDI"
"IBDI"
"IBDI"
"IBDI"
"FAHF"
"@@@@"
"@@@@"
"@@@@"
"@@@@")

(RPAQ COLOR800BITMAP (READBITMAP))
(16 16 4
"@@@@@@@@@@@@@@@@"
"@@@@@@@@@@@@@@@@"
"@@@@@@@@@@@@@@@@"
"@GG@@@@GG@@@@GG@"
"G@@G@@G@@G@@G@@G"
"G@@G@@G@@G@@G@@G"
"G@@G@@G@@G@@G@@G"
"@GG@@@G@@G@@G@@G"
"G@@G@@G@@G@@G@@G"
"G@@G@@G@@G@@G@@G"
"G@@G@@G@@G@@G@@G"
"@GG@@@@GG@@@@GG@"
"@@@@@@@@@@@@@@@@"
"@@@@@@@@@@@@@@@@"
"@@@@@@@@@@@@@@@@"
"@@@@@@@@@@@@@@@@")

(RPAQ 1600BITMAP (READBITMAP))
(16 16
"@@@@"
"@@@@"
"@@@@"
"IHLF"
"JEBI"
"JABI"
"JABI"
"KIBI"
"JEBI"
"JEBI"
"JEBI"
"IHLF"
"@@@@"
"@@@@"
"@@@@"
"@@@@")

(RPAQ COLOR1600BITMAP (READBITMAP))
(16 16 4
"@@@@@@@@@@@@@@@@"
"@@@@@@@@@@@@@@@@"
"@@@@@@@@@@@@@@@@"
"G@@GG@@@GG@@@GG@"
"G@G@@G@G@@G@G@@G"
"G@G@@@@G@@G@G@@G"
"G@G@@@@G@@G@G@@G"
"G@GGG@@G@@G@G@@G"
"G@G@@G@G@@G@G@@G"
"G@G@@G@G@@G@G@@G"
"G@G@@G@G@@G@G@@G"
"G@@GG@@@GG@@@GG@"
"@@@@@@@@@@@@@@@@"
"@@@@@@@@@@@@@@@@"
"@@@@@@@@@@@@@@@@"
"@@@@@@@@@@@@@@@@")

(RPAQ SIGLOGO (READBITMAP))
(64 32
"@@@@@AOHC@@@@@@@"
"@@@@@GOHCH@@@@@@"
"@@@@@GO@GH@@@@@@"
"@@@@@ON@GH@L@@@@"
"@@@@@OL@GLCL@@@@"
"@@@@@OL@GLGH@@@@"
"@@@@@OH@GLOH@@@@"
"@@B@@OONOOOH@@@@"
"@@CL@OONOOO@@G@@"
"@@CN@GOLOON@AN@@"
"@@AOHGOIOON@GN@@"
"@@AONAO@OOL@OL@@"
"@@AOOH@@COLCOL@H"
"@@@OOL@@@GHOOLAH"
"@O@OOH@@@@IOOHAH"
"AOHGO@@@@@COOHCH"
"COLGN@@@@@COO@GH"
"COLGL@@@@@AOO@O@"
"GOLCH@@@@@@GN@O@"
"GOLC@@@@@@@CNAO@"
"GOLB@@@@@@@ALCN@"
"OOL@@@@@@@@@LGNA"
"OOH@@@@@@@@@@ONC"
"OOH@@@@@@@@@COLG"
"OOH@@@@@@@@@AOLO"
"GON@@@@@@@@@@OOO"
"AON@@@@@@@@@@OOO"
"@OL@@@@@@@@@@GON"
"@CL@@@@@@@@@@GOH"
"@AH@@@@@@@@@@CO@"
"@@H@@@@@@@@@@CL@"
"@@@@@@@@@@@@@@@@")

(RPAQ COLORSIGLOGO (READBITMAP))
(64 32 4
"@@@@@@@@@@@@@@@@@@@@@@@DDDDDD@@@@@DD@@@@@@@@@@@@@@@@@@@@@@@@@@@@"
"@@@@@@@@@@@@@@@@@@@@@DDDDDDDD@@@@@DDD@@@@@@@@@@@@@@@@@@@@@@@@@@@"
"@@@@@@@@@@@@@@@@@@@@@DDDDDDD@@@@@DDDD@@@@@@@@@@@@@@@@@@@@@@@@@@@"
"@@@@@@@@@@@@@@@@@@@@DDDDDDD@@@@@@DDDD@@@@@@@DD@@@@@@@@@@@@@@@@@@"
"@@@@@@@@@@@@@@@@@@@@DDDDDD@@@@@@@DDDDD@@@@DDDD@@@@@@@@@@@@@@@@@@"
"@@@@@@@@@@@@@@@@@@@@DDDDDD@@@@@@@DDDDD@@@DDDD@@@@@@@@@@@@@@@@@@@"
"@@@@@@@@@@@@@@@@@@@@DDDDD@@@@@@@@DDDDD@@DDDDD@@@@@@@@@@@@@@@@@@@"
"@@@@@@@@@@D@@@@@@@@@DDDDDDDDDDD@DDDDDDDDDDDDD@@@@@@@@@@@@@@@@@@@"
"@@@@@@@@@@DDDD@@@@@@DDDDDDDDDDD@DDDDDDDDDDDD@@@@@@@@@DDD@@@@@@@@"
"@@@@@@@@@@DDDDD@@@@@@DDDDDDDDD@@DDDDDDDDDDD@@@@@@@@DDDD@@@@@@@@@"
"@@@@@@@@@@@DDDDDD@@@@DDDDDDDD@@DDDDDDDDDDDD@@@@@@DDDDDD@@@@@@@@@"
"@@@@@@@@@@@DDDDDDDD@@@@DDDDD@@@@DDDDDDDDDD@@@@@@DDDDDD@@@@@@@@@@"
"@@@@@@@@@@@DDDDDDDDDD@@@@@@@@@@@@@DDDDDDDD@@@@DDDDDDDD@@@@@@D@@@"
"@@@@@@@@@@@@DDDDDDDDDD@@@@@@@@@@@@@@@DDDD@@@DDDDDDDDDD@@@@@DD@@@"
"@@@@DDDD@@@@DDDDDDDDD@@@@@@@@@@@@@@@@@@@D@@DDDDDDDDDD@@@@@@DD@@@"
"@@@DDDDDD@@@@DDDDDDD@@@@@@@@@@@@@@@@@@@@@@DDDDDDDDDDD@@@@@DDD@@@"
"@@DDDDDDDD@@@DDDDDD@@@@@@@@@@@@@@@@@@@@@@@DDDDDDDDDD@@@@@DDDD@@@"
"@@DDDDDDDD@@@DDDDD@@@@@@@@@@@@@@@@@@@@@@@@@DDDDDDDDD@@@@DDDD@@@@"
"@DDDDDDDDD@@@@DDD@@@@@@@@@@@@@@@@@@@@@@@@@@@@DDDDDD@@@@@DDDD@@@@"
"@DDDDDDDDD@@@@DD@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@DDDDD@@@@DDDDD@@@@"
"@DDDDDDDDD@@@@D@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@DDD@@@@DDDDD@@@@@"
"DDDDDDDDDD@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@DD@@@DDDDDD@@@@D"
"DDDDDDDDD@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@DDDDDDD@@@DD"
"DDDDDDDDD@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@DDDDDDDD@@@DDD"
"DDDDDDDDD@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@DDDDDDD@@DDDD"
"@DDDDDDDDDD@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@DDDDDDDDDDDD"
"@@@DDDDDDDD@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@DDDDDDDDDDDD"
"@@@@DDDDDD@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@DDDDDDDDDD@"
"@@@@@@DDDD@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@DDDDDDDD@@@"
"@@@@@@@DD@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@DDDDDD@@@@"
"@@@@@@@@D@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@DDDD@@@@@@"
"@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@")

(RPAQ EYESBITMAP (READBITMAP))
(16 16
"@@@@"
"@@@@"
"@@@@"
"@@@@"
"@@@@"
"ALCH"
"BFDL"
"BFDL"
"BFDL"
"ALCH"
"@@@@"
"@@@@"
"@@@@"
"@@@@"
"@@@@"
"@@@@")

(RPAQ COLOREYESBITMAP (READBITMAP))
(16 16 4
"@@@@@@@@@@@@@@@@"
"@@@@@@@@@@@@@@@@"
"@@@@@@@@@@@@@@@@"
"@@@@@@@@@@@@@@@@"
"@@@@@@@@@@@@@@@@"
"@@@CCC@@@@CCC@@@"
"@@C@@CC@@C@@CC@@"
"@@C@@CC@@C@@CC@@"
"@@C@@CC@@C@@CC@@"
"@@@CCC@@@@CCC@@@"
"@@@@@@@@@@@@@@@@"
"@@@@@@@@@@@@@@@@"
"@@@@@@@@@@@@@@@@"
"@@@@@@@@@@@@@@@@"
"@@@@@@@@@@@@@@@@"
"@@@@@@@@@@@@@@@@")

(RPAQ BIGPMANC (READBITMAP))
(64 64
"@@@@@@@@@@@@@@@@"
"@@@@@@@@@@@@@@@@"
"@@@@@@@@@@@@@@@@"
"@@@@@@@@@@@@@@@@"
"@@@@@@@@@@@@@@@@"
"@@@@@@COOL@@@@@@"
"@@@@@GOOOON@@@@@"
"@@@@AOOOOOOL@@@@"
"@@@@GOOOOOOO@@@@"
"@@@AOOOOOOOOL@@@"
"@@@GOOOOOOOOO@@@"
"@@@OOOOOOOOOOH@@"
"@@COOOOOOOOOOL@@"
"@@GOOOOOOOOOON@@"
"@@OOOOOOOOOOOO@@"
"@AOOOOOOOOOOOOH@"
"@COOOOOOOOOOOOL@"
"@COOOOOOOOOOOON@"
"@GOOOOOOOOOOOOO@"
"@GOOOOOOOOOOOOO@"
"@OOOOOOOOOOOOOOH"
"AOOOOOOOOOOOOOOH"
"AOOOOOOOOOOOOOOL"
"COOOOOOOOOOOOOOL"
"COOOOOOOOOOOOOON"
"GOOOOOOOOOOOOOON"
"GOOOOOOOOOOOOOON"
"GOOOOOOOOOOOOOON"
"GOOOOOOOOOOOOOON"
"OOOOOOOOOOOOOOOO"
"OOOOOOOOOOOOOOOO"
"OOOOOOOOOOOOOOOO"
"OOOOOOOOOOOOOOOO"
"OOOOOOOOOOOOOOOO"
"OOOOOOOOOOOOOOOO"
"OOOOOOOOOOOOOOOO"
"OOOOOOOOOOOOOOOO"
"OOOOOOOOOOOOOOOO"
"OOOOOOOOOOOOOOOO"
"OOOOOOOOOOOOOOOO"
"GOOOOOOOOOOOOOOO"
"GOOOOOOOOOOOOOON"
"GOOOOOOOOOOOOOON"
"GOOOOOOOOOOOOOON"
"GOOOOOOOOOOOOOON"
"COOOOOOOOOOOOOOL"
"COOOOOOOOOOOOOOL"
"AOOOOOOOOOOOOOOL"
"AOOOOOOOOOOOOOOH"
"@OOOOOOOOOOOOOO@"
"@OOOOOOOOOOOOOO@"
"@GOOOOOOOOOOOON@"
"@GOOOOOOOOOOOON@"
"@COOOOOOOOOOOOL@"
"@AOOOOOOOOOOOOH@"
"@@OOOOOOOOOOOO@@"
"@@GOOOOOOOOOON@@"
"@@COOOOOOOOOOL@@"
"@@@OOOOOOOOOO@@@"
"@@@GOOOOOOOOL@@@"
"@@@AOOOOOOOO@@@@"
"@@@@GOOOOOOL@@@@"
"@@@@@GOOOON@@@@@"
"@@@@@@COON@@@@@@")

(RPAQ COLORBIGPMANC (READBITMAP))
(64 64 4
"@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@"
"@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@"
"@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@"
"@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@"
"@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@"
"@@@@@@@@@@@@@@@@@@@@@@@@@@DDDDDDDDDDDD@@@@@@@@@@@@@@@@@@@@@@@@@@"
"@@@@@@@@@@@@@@@@@@@@@DDDDDDDDDDDDDDDDDDDDDD@@@@@@@@@@@@@@@@@@@@@"
"@@@@@@@@@@@@@@@@@@@DDDDDDDDDDDDDDDDDDDDDDDDDDD@@@@@@@@@@@@@@@@@@"
"@@@@@@@@@@@@@@@@@DDDDDDDDDDDDDDDDDDDDDDDDDDDDDDD@@@@@@@@@@@@@@@@"
"@@@@@@@@@@@@@@@DDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDD@@@@@@@@@@@@@@"
"@@@@@@@@@@@@@DDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDD@@@@@@@@@@@@"
"@@@@@@@@@@@@DDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDD@@@@@@@@@@@"
"@@@@@@@@@@DDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDD@@@@@@@@@@"
"@@@@@@@@@DDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDD@@@@@@@@@"
"@@@@@@@@DDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDD@@@@@@@@"
"@@@@@@@DDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDD@@@@@@@"
"@@@@@@DDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDD@@@@@@"
"@@@@@@DDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDD@@@@@"
"@@@@@DDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDD@@@@"
"@@@@@DDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDD@@@@"
"@@@@DDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDD@@@"
"@@@DDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDD@@@"
"@@@DDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDD@@"
"@@DDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDD@@"
"@@DDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDD@"
"@DDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDD@"
"@DDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDD@"
"@DDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDD@"
"@DDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDD@"
"DDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDD"
"DDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDD"
"DDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDD"
"DDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDD"
"DDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDD"
"DDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDD"
"DDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDD"
"DDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDD"
"DDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDD"
"DDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDD"
"DDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDD"
"@DDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDD"
"@DDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDD@"
"@DDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDD@"
"@DDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDD@"
"@DDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDD@"
"@@DDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDD@@"
"@@DDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDD@@"
"@@@DDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDD@@"
"@@@DDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDD@@@"
"@@@@DDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDD@@@@"
"@@@@DDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDD@@@@"
"@@@@@DDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDD@@@@@"
"@@@@@DDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDD@@@@@"
"@@@@@@DDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDD@@@@@@"
"@@@@@@@DDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDD@@@@@@@"
"@@@@@@@@DDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDD@@@@@@@@"
"@@@@@@@@@DDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDD@@@@@@@@@"
"@@@@@@@@@@DDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDD@@@@@@@@@@"
"@@@@@@@@@@@@DDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDD@@@@@@@@@@@@"
"@@@@@@@@@@@@@DDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDD@@@@@@@@@@@@@@"
"@@@@@@@@@@@@@@@DDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDD@@@@@@@@@@@@@@@@"
"@@@@@@@@@@@@@@@@@DDDDDDDDDDDDDDDDDDDDDDDDDDDDD@@@@@@@@@@@@@@@@@@"
"@@@@@@@@@@@@@@@@@@@@@DDDDDDDDDDDDDDDDDDDDDD@@@@@@@@@@@@@@@@@@@@@"
"@@@@@@@@@@@@@@@@@@@@@@@@@@DDDDDDDDDDDDD@@@@@@@@@@@@@@@@@@@@@@@@@")

(RPAQ BIGPMANR (READBITMAP))
(64 64
"@@@@@@@@@@@@@@@@"
"@@@@@@@@@@@@@@@@"
"@@@@@@@@@@@@@@@@"
"@@@@@@@@@@@@@@@@"
"@@@@@@@@@@@@@@@@"
"@@@@@@COOL@@@@@@"
"@@@@@GOOOON@@@@@"
"@@@@AOOOOOOL@@@@"
"@@@@GOOOOOOO@@@@"
"@@@AOOOOOOOOL@@@"
"@@@GOOOOOOOOO@@@"
"@@@OOOOOOOOOOH@@"
"@@COOOOOOOOOOL@@"
"@@GOOOOOOOOOOH@@"
"@@OOOOOOOOOOO@@@"
"@AOOOOOOOOOON@@@"
"@COOOOOOOOOOL@@@"
"@COOOOOOOOOOH@@@"
"@GOOOOOOOOOO@@@@"
"@GOOOOOOOOON@@@@"
"@OOOOOOOOOOL@@@@"
"AOOOOOOOOOOH@@@@"
"AOOOOOOOOOO@@@@@"
"COOOOOOOOON@@@@@"
"COOOOOOOOOL@@@@@"
"GOOOOOOOOOH@@@@@"
"GOOOOOOOOO@@@@@@"
"GOOOOOOOON@@@@@@"
"GOOOOOOOOL@@@@@@"
"OOOOOOOOOH@@@@@@"
"OOOOOOOOO@@@@@@@"
"OOOOOOOON@@@@@@@"
"OOOOOOOOL@@@@@@@"
"OOOOOOOOH@@@@@@@"
"OOOOOOOOH@@@@@@@"
"OOOOOOOOH@@@@@@@"
"OOOOOOOOL@@@@@@@"
"OOOOOOOON@@@@@@@"
"OOOOOOOOO@@@@@@@"
"OOOOOOOOOH@@@@@@"
"GOOOOOOOOL@@@@@@"
"GOOOOOOOON@@@@@@"
"GOOOOOOOOO@@@@@@"
"GOOOOOOOOOH@@@@@"
"GOOOOOOOOOL@@@@@"
"COOOOOOOOON@@@@@"
"COOOOOOOOOO@@@@@"
"AOOOOOOOOOOH@@@@"
"AOOOOOOOOOOL@@@@"
"@OOOOOOOOOON@@@@"
"@OOOOOOOOOOO@@@@"
"@GOOOOOOOOOOH@@@"
"@GOOOOOOOOOOL@@@"
"@COOOOOOOOOON@@@"
"@AOOOOOOOOOOO@@@"
"@@OOOOOOOOOOOH@@"
"@@GOOOOOOOOOOL@@"
"@@COOOOOOOOOOH@@"
"@@@OOOOOOOOOO@@@"
"@@@GOOOOOOOOL@@@"
"@@@AOOOOOOOO@@@@"
"@@@@GOOOOOOL@@@@"
"@@@@@GOOOON@@@@@"
"@@@@@@COON@@@@@@")

(RPAQ COLORBIGPMANR (READBITMAP))
(64 64 4
"@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@"
"@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@"
"@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@"
"@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@"
"@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@"
"@@@@@@@@@@@@@@@@@@@@@@@@@@DDDDDDDDDDDD@@@@@@@@@@@@@@@@@@@@@@@@@@"
"@@@@@@@@@@@@@@@@@@@@@DDDDDDDDDDDDDDDDDDDDDD@@@@@@@@@@@@@@@@@@@@@"
"@@@@@@@@@@@@@@@@@@@DDDDDDDDDDDDDDDDDDDDDDDDDDD@@@@@@@@@@@@@@@@@@"
"@@@@@@@@@@@@@@@@@DDDDDDDDDDDDDDDDDDDDDDDDDDDDDDD@@@@@@@@@@@@@@@@"
"@@@@@@@@@@@@@@@DDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDD@@@@@@@@@@@@@@"
"@@@@@@@@@@@@@DDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDD@@@@@@@@@@@@"
"@@@@@@@@@@@@DDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDD@@@@@@@@@@@"
"@@@@@@@@@@DDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDD@@@@@@@@@@"
"@@@@@@@@@DDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDD@@@@@@@@@@@"
"@@@@@@@@DDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDD@@@@@@@@@@@@"
"@@@@@@@DDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDD@@@@@@@@@@@@@"
"@@@@@@DDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDD@@@@@@@@@@@@@@"
"@@@@@@DDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDD@@@@@@@@@@@@@@@"
"@@@@@DDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDD@@@@@@@@@@@@@@@@"
"@@@@@DDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDD@@@@@@@@@@@@@@@@@"
"@@@@DDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDD@@@@@@@@@@@@@@@@@@"
"@@@DDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDD@@@@@@@@@@@@@@@@@@@"
"@@@DDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDD@@@@@@@@@@@@@@@@@@@@"
"@@DDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDD@@@@@@@@@@@@@@@@@@@@@"
"@@DDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDD@@@@@@@@@@@@@@@@@@@@@@"
"@DDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDD@@@@@@@@@@@@@@@@@@@@@@@"
"@DDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDD@@@@@@@@@@@@@@@@@@@@@@@@"
"@DDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDD@@@@@@@@@@@@@@@@@@@@@@@@@"
"@DDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDD@@@@@@@@@@@@@@@@@@@@@@@@@@"
"DDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDD@@@@@@@@@@@@@@@@@@@@@@@@@@@"
"DDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDD@@@@@@@@@@@@@@@@@@@@@@@@@@@@"
"DDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDD@@@@@@@@@@@@@@@@@@@@@@@@@@@@@"
"DDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDD@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@"
"DDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDD@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@"
"DDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDD@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@"
"DDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDD@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@"
"DDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDD@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@"
"DDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDD@@@@@@@@@@@@@@@@@@@@@@@@@@@@@"
"DDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDD@@@@@@@@@@@@@@@@@@@@@@@@@@@@"
"DDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDD@@@@@@@@@@@@@@@@@@@@@@@@@@@"
"@DDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDD@@@@@@@@@@@@@@@@@@@@@@@@@@"
"@DDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDD@@@@@@@@@@@@@@@@@@@@@@@@@"
"@DDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDD@@@@@@@@@@@@@@@@@@@@@@@@"
"@DDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDD@@@@@@@@@@@@@@@@@@@@@@@"
"@DDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDD@@@@@@@@@@@@@@@@@@@@@@"
"@@DDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDD@@@@@@@@@@@@@@@@@@@@@"
"@@DDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDD@@@@@@@@@@@@@@@@@@@@"
"@@@DDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDD@@@@@@@@@@@@@@@@@@@"
"@@@DDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDD@@@@@@@@@@@@@@@@@@"
"@@@@DDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDD@@@@@@@@@@@@@@@@@"
"@@@@DDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDD@@@@@@@@@@@@@@@@"
"@@@@@DDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDD@@@@@@@@@@@@@@@"
"@@@@@DDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDD@@@@@@@@@@@@@@"
"@@@@@@DDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDD@@@@@@@@@@@@@"
"@@@@@@@DDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDD@@@@@@@@@@@@"
"@@@@@@@@DDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDD@@@@@@@@@@@"
"@@@@@@@@@DDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDD@@@@@@@@@@"
"@@@@@@@@@@DDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDD@@@@@@@@@@@"
"@@@@@@@@@@@@DDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDD@@@@@@@@@@@@"
"@@@@@@@@@@@@@DDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDD@@@@@@@@@@@@@@"
"@@@@@@@@@@@@@@@DDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDD@@@@@@@@@@@@@@@@"
"@@@@@@@@@@@@@@@@@DDDDDDDDDDDDDDDDDDDDDDDDDDDDD@@@@@@@@@@@@@@@@@@"
"@@@@@@@@@@@@@@@@@@@@@DDDDDDDDDDDDDDDDDDDDDD@@@@@@@@@@@@@@@@@@@@@"
"@@@@@@@@@@@@@@@@@@@@@@@@@@DDDDDDDDDDDDD@@@@@@@@@@@@@@@@@@@@@@@@@")

(RPAQ QUARTERBITMAP (READBITMAP))
(32 32
"@@@GN@@@"
"@@GHAL@@"
"@@NAIC@@"
"@CIIJHL@"
"@EEECAJ@"
"@LDMJII@"
"ADB@@BBH"
"AFHGO@BD"
"CKAIOLED"
"A@A@ON@B"
"D@A@ON@B"
"F@ADGO@A"
"B@B@CO@A"
"L@D@CO@A"
"H@D@@F@A"
"N@B@@F@A"
"@@C@@F@A"
"L@B@@B@A"
"N@CL@C@A"
"@@@D@E@A"
"LEDB@DHA"
"B@@B@F@B"
"DBHD@B@B"
"B@@OON@D"
"C@@@@@@D"
"A@BLI@@H"
"@HBMDHA@"
"@DBLI@B@"
"@BBEDHL@"
"@AHLIA@@"
"@@G@@N@@"
"@@@OO@@@")

(RPAQ COLORQUARTERBITMAP (READBITMAP))
(32 32 4
"@@@@@@@@@@@@@GGGGGG@@@@@@@@@@@@@"
"@@@@@@@@@GGGG@@@@@@GGG@@@@@@@@@@"
"@@@@@@@@GGG@@@@GG@@G@@GG@@@@@@@@"
"@@@@@@GGG@@GG@@GG@G@G@@@GG@@@@@@"
"@@@@@G@G@G@G@G@G@@GG@@@GG@G@@@@@"
"@@@@GG@@@G@@GG@GG@G@G@@GG@@G@@@@"
"@@@G@G@@@@G@@@@@@@@@@@G@@@G@G@@@"
"@@@G@GG@G@@@@GGGGGGG@@@@@@G@@G@@"
"@@GGG@GG@@@GG@@GGGGGGG@@@G@G@G@@"
"@@@G@@@@@@@G@@@@GGGGGGG@@@@@@@G@"
"@G@@@@@@@@@G@@@@GGGGGGG@@@@@@@G@"
"@GG@@@@@@@@G@G@@@GGGGGGG@@@@@@@G"
"@@G@@@@@@@G@@@@@@@GGGGGG@@@@@@@G"
"GG@@@@@@@G@@@@@@@@GGGGGG@@@@@@@G"
"G@@@@@@@@G@@@@@@@@@@@GG@@@@@@@@G"
"GGG@@@@@@@G@@@@@@@@@@GG@@@@@@@@G"
"@@@@@@@@@@GG@@@@@@@@@GG@@@@@@@@G"
"GG@@@@@@@@G@@@@@@@@@@@G@@@@@@@@G"
"GGG@@@@@@@GGGG@@@@@@@@GG@@@@@@@G"
"@@@@@@@@@@@@@G@@@@@@@G@G@@@@@@@G"
"GG@@@G@G@G@@@@G@@@@@@G@@G@@@@@@G"
"@@G@@@@@@@@@@@G@@@@@@GG@@@@@@@G@"
"@G@@@@G@G@@@@G@@@@@@@@G@@@@@@@G@"
"@@G@@@@@@@@@GGGGGGGGGGG@@@@@@G@@"
"@@GG@@@@@@@@@@@@@@@@@@@@@@@@@G@@"
"@@@G@@@@@@G@GG@@G@@G@@@@@@@@G@@@"
"@@@@G@@@@@G@GG@G@G@@G@@@@@@G@@@@"
"@@@@@G@@@@G@GG@@G@@G@@@@@@G@@@@@"
"@@@@@@G@@@G@@G@G@G@@G@@@GG@@@@@@"
"@@@@@@@GG@@@GG@@G@@G@@@G@@@@@@@@"
"@@@@@@@@@GGG@@@@@@@@GGG@@@@@@@@@"
"@@@@@@@@@@@@GGGGGGGG@@@@@@@@@@@@")

(RPAQ BOARD (READARRAY 29 (QUOTE DOUBLEPOINTER) 1))
((8213 8220 8220 8220 8220 8205 8204 8204 8204 8204 8204 8201 0 0 8213 8220 8220 8220 8220 8220 8221 
8220 8220 8220 8220 8217)
(8211 0 0 0 0 8195 0 0 0 0 0 8195 0 0 8211 0 0 0 0 0 8211 0 0 0 0 8211)
(35 0 0 0 0 8195 0 0 0 0 0 8195 0 0 8211 0 0 0 0 0 8211 0 0 0 0 35)
(8211 0 0 0 0 8195 0 0 0 0 0 8195 0 0 8211 0 0 0 0 0 8211 0 0 0 0 8211)
(8215 8220 8220 8220 8220 8207 8220 8220 8221 8220 8220 8206 8220 8220 8222 8220 8220 8221 8220 8220 
8223 8220 8220 8220 8220 8219)
(8211 0 0 0 0 8195 0 0 8211 0 0 0 0 0 0 0 0 8211 0 0 8211 0 0 0 0 8211)
(8211 0 0 0 0 8195 0 0 8211 0 0 0 0 0 0 0 0 8211 0 0 8211 0 0 0 0 8211)
(8214 8220 8220 8220 8220 8203 0 0 8214 8220 8220 8217 0 0 8213 8220 8220 8218 0 0 8215 8220 8220 8220
 8220 8218)
(0 0 0 0 0 8195 0 0 0 0 0 3 0 0 3 0 0 0 0 0 8211 0 0 0 0 0)
(0 0 0 0 0 8195 0 0 0 0 0 3 0 0 3 0 0 0 0 0 8211 0 0 0 0 0)
(0 0 0 0 0 8195 0 0 5 12 12 14 269 13 14 12 12 9 0 0 8211 0 0 0 0 0)
(0 0 0 0 0 8195 0 0 3 0 0 0 518 10 0 0 0 3 0 0 8211 0 0 0 0 0)
(0 0 0 0 0 8195 0 0 3 0 0 1028 2 2 2056 0 0 3 0 0 8211 0 0 0 0 0)
(4172 4108 4108 4108 4108 8207 12 12 11 0 0 0 2 2 2 0 0 7 12 12 8223 4108 4108 4108 4108 4236)
(0 0 0 0 0 8195 0 0 3 0 0 0 2 2 2 0 0 3 0 0 8211 0 0 0 0 0)
(0 0 0 0 0 8195 0 0 3 0 0 0 0 0 0 0 0 3 0 0 8195 0 0 0 0 0)
(0 0 0 0 0 8195 0 0 7 12 12 12 16396 12 12 12 12 11 0 0 8195 0 0 0 0 0)
(0 0 0 0 0 8195 0 0 3 0 0 0 0 0 0 0 0 3 0 0 8195 0 0 0 0 0)
(0 0 0 0 0 8195 0 0 3 0 0 0 0 0 0 0 0 3 0 0 8195 0 0 0 0 0)
(8197 8204 8204 8204 8204 8207 8204 8204 8206 8204 8204 8201 0 0 8213 8220 8220 8222 8220 8220 8207 
8220 8220 8220 8220 8217)
(8195 0 0 0 0 8195 0 0 0 0 0 8195 0 0 8211 0 0 0 0 0 8195 0 0 0 0 8211)
(8195 0 0 0 0 8195 0 0 0 0 0 8195 0 0 8211 0 0 0 0 0 8195 0 0 0 0 8211)
(6 8204 8201 0 0 8199 8204 8204 8205 8204 8204 8206 12 12 8206 8204 8204 8205 8204 8204 8203 0 0 8213 
8220 42)
(0 0 8195 0 0 8195 0 0 8195 0 0 0 0 0 0 0 0 8211 0 0 8211 0 0 8211 0 0)
(0 0 8195 0 0 8195 0 0 8195 0 0 0 0 0 0 0 0 8211 0 0 8211 0 0 8211 0 0)
(8213 8220 8206 8204 8204 8202 0 0 8198 8204 8204 8201 0 0 8213 8220 8220 8218 0 0 8214 8220 8220 8222
 8220 8217)
(8211 0 0 0 0 0 0 0 0 0 0 8195 0 0 8211 0 0 0 0 0 0 0 0 0 0 8211)
(8211 0 0 0 0 0 0 0 0 0 0 8195 0 0 8211 0 0 0 0 0 0 0 0 0 0 8211)
(8198 8204 8204 8204 8204 8204 8204 8204 8204 8204 8204 8206 8204 8204 8206 8204 8204 8204 8204 8204 
8220 8220 8220 8220 8220 8218)
NIL
)

(RPAQ VIRGINBOARD (READARRAY 29 (QUOTE DOUBLEPOINTER) 1))
((8213 8220 8220 8220 8220 8221 8220 8220 8220 8220 8220 8217 0 0 8213 8220 8220 8220 8220 8220 8221 
8220 8220 8220 8220 8217)
(8211 0 0 0 0 8211 0 0 0 0 0 8211 0 0 8211 0 0 0 0 0 8211 0 0 0 0 8211)
(35 0 0 0 0 8211 0 0 0 0 0 8211 0 0 8211 0 0 0 0 0 8211 0 0 0 0 35)
(8211 0 0 0 0 8211 0 0 0 0 0 8211 0 0 8211 0 0 0 0 0 8211 0 0 0 0 8211)
(8215 8220 8220 8220 8220 8223 8220 8220 8221 8220 8220 8222 8220 8220 8222 8220 8220 8221 8220 8220 
8223 8220 8220 8220 8220 8219)
(8211 0 0 0 0 8211 0 0 8211 0 0 0 0 0 0 0 0 8211 0 0 8211 0 0 0 0 8211)
(8211 0 0 0 0 8211 0 0 8211 0 0 0 0 0 0 0 0 8211 0 0 8211 0 0 0 0 8211)
(8214 8220 8220 8220 8220 8219 0 0 8214 8220 8220 8217 0 0 8213 8220 8220 8218 0 0 8215 8220 8220 8220
 8220 8218)
(0 0 0 0 0 8211 0 0 0 0 0 3 0 0 3 0 0 0 0 0 8211 0 0 0 0 0)
(0 0 0 0 0 8211 0 0 0 0 0 3 0 0 3 0 0 0 0 0 8211 0 0 0 0 0)
(0 0 0 0 0 8211 0 0 5 12 12 14 269 13 14 12 12 9 0 0 8211 0 0 0 0 0)
(0 0 0 0 0 8211 0 0 3 0 0 0 518 10 0 0 0 3 0 0 8211 0 0 0 0 0)
(0 0 0 0 0 8211 0 0 3 0 0 1028 2 2 2056 0 0 3 0 0 8211 0 0 0 0 0)
(4172 4108 4108 4108 4108 8223 12 12 11 0 0 0 2 2 2 0 0 7 12 12 8223 4108 4108 4108 4108 4236)
(0 0 0 0 0 8211 0 0 3 0 0 0 2 2 2 0 0 3 0 0 8211 0 0 0 0 0)
(0 0 0 0 0 8211 0 0 3 0 0 0 0 0 0 0 0 3 0 0 8211 0 0 0 0 0)
(0 0 0 0 0 8211 0 0 7 12 12 12 16396 12 12 12 12 11 0 0 8211 0 0 0 0 0)
(0 0 0 0 0 8211 0 0 3 0 0 0 0 0 0 0 0 3 0 0 8211 0 0 0 0 0)
(0 0 0 0 0 8211 0 0 3 0 0 0 0 0 0 0 0 3 0 0 8211 0 0 0 0 0)
(8213 8220 8220 8220 8220 8223 8220 8220 8222 8220 8220 8217 0 0 8213 8220 8220 8222 8220 8220 8223 
8220 8220 8220 8220 8217)
(8211 0 0 0 0 8211 0 0 0 0 0 8211 0 0 8211 0 0 0 0 0 8211 0 0 0 0 8211)
(8211 0 0 0 0 8211 0 0 0 0 0 8211 0 0 8211 0 0 0 0 0 8211 0 0 0 0 8211)
(38 8220 8217 0 0 8215 8220 8220 8221 8220 8220 8222 12 12 8222 8220 8220 8221 8220 8220 8219 0 0 8213
 8220 42)
(0 0 8211 0 0 8211 0 0 8211 0 0 0 0 0 0 0 0 8211 0 0 8211 0 0 8211 0 0)
(0 0 8211 0 0 8211 0 0 8211 0 0 0 0 0 0 0 0 8211 0 0 8211 0 0 8211 0 0)
(8213 8220 8222 8220 8220 8218 0 0 8214 8220 8220 8217 0 0 8213 8220 8220 8218 0 0 8214 8220 8220 8222
 8220 8217)
(8211 0 0 0 0 0 0 0 0 0 0 8211 0 0 8211 0 0 0 0 0 0 0 0 0 0 8211)
(8211 0 0 0 0 0 0 0 0 0 0 8211 0 0 8211 0 0 0 0 0 0 0 0 0 0 8211)
(8214 8220 8220 8220 8220 8220 8220 8220 8220 8220 8220 8222 8220 8220 8222 8220 8220 8220 8220 8220 
8220 8220 8220 8220 8220 8218)
NIL
)
(DECLARE: DOEVAL@COMPILE 
(DECLARE: DOEVAL@COMPILE DONTCOPY

(GLOBALVARS 1600BITMAP 200BITMAP 400BITMAP 800BITMAP APPLEBITMAP ATTRACTMODE BELLBITMAP BIGPMANC 
	    BIGPMANR BIRDBITMAP BLUETIME BOARD BOARDLIST BWG1BITMAP BWG2BITMAP BWG3BITMAP BWG4BITMAP 
	    BWGINVBITMAP CHERRYBITMAP COLOR1600BITMAP COLOR200BITMAP COLOR400BITMAP COLOR800BITMAP 
	    COLORAPPLEBITMAP COLORBELLBITMAP COLORBIGPMANC COLORBIGPMANR COLORBIRDBITMAP 
	    COLORCHERRYBITMAP COLORDOT COLORENERGIZER COLOREYESBITMAP COLORG1BITMAP COLORG2BITMAP 
	    COLORG3BITMAP COLORG4BITMAP COLORGINVBITMAP COLORKEYBITMAP COLORORANGEBITMAP COLORPACMANC 
	    COLORPINEAPPLEBITMAP COLORPMANDOWN COLORPMANLEFT COLORPMANRIGHT COLORPMANUP 
	    COLORQUARTERBITMAP COLORSIGLOGO COLORSTRAWBERRYBITMAP DOT ENERGIZER ENERGIZEROBJ 
	    EYESBITMAP FOLLOW FRUIT# FRUITLIST FRUITTIME FRUITVISIBLE G1 G1BITMAP G2 G2BITMAP G3 
	    G3BITMAP G4 G4BITMAP GINVBITMAP GVALUE GVALUEBITMAPLIST GVALUEPOS HASDOT HILIST HINAMES 
	    HIVALUES KEYBITMAP LASTMOUSEBUTTONS LASTMOUSEX LASTMOUSEY NAME NETP NEXTMOVE NUMDOTS 
	    NUMMEN OLDG1 OLDG2 OLDG3 OLDG4 OLDPMAN ORANGEBITMAP PMANINPUTMODE PACMANC PACMANCMAP 
	    PACMANINCOLOR PACMANVERSION PINEAPPLEBITMAP PIT PMANDOWN PMANDOWNMAP PMANLEFT PMANLEFTMAP 
	    PMANRIGHT PMANRIGHTMAP PMANUP PMANUPMAP PMGAMEOVER PMOLDCOLORMAP PMWANTMORE PSTREAM 
	    PWINDOW QUARTERBITMAP SAVEGVALUE SCORE SIGLOGO STRAWBERRYBITMAP VIRGINBOARD)
)
)
(PUTPROPS PACMAN COPYRIGHT ("Xerox Corporation" 1984 1985))
(DECLARE: DONTCOPY
  (FILEMAP (NIL (4005 61429 (ASSIGNDIR 4015 . 4937) (BLINKENERGIZERS 4939 . 5592) (PLAYERBOARDVAL 5594
 . 5959) (BOARDVAL 5961 . 6105) (CHECKAT 6107 . 6260) (COLLISIONCHECK 6262 . 9514) (DECIDE 9516 . 
11494) (DOTCHECK 11496 . 12073) (DRAWBOARD 12075 . 12892) (DRAWBOARDNEW 12894 . 13672) (ENERGIZERCHECK
 13674 . 14200) (ERASEOBJ 14202 . 14407) (FRUITCHECK 14409 . 15640) (FRUITINIT 15642 . 17398) (
GETHISCORES 17400 . 18274) (GETMONEY 18276 . 19480) (GETMOVE 19482 . 22556) (VOICEINPUT 22558 . 22734)
 (XLOCTOSCREEN 22736 . 23031) (XSCREENTOLOC 23033 . 23329) (YLOCTOSCREEN 23331 . 23616) (YSCREENTOLOC 
23618 . 23932) (HISCORE 23934 . 24708) (INCOLORQ 24710 . 25256) (INPUTMODEQ 25258 . 26500) (
HASCOLORDISPLAYP 26502 . 26901) (INTERMISSION1 26903 . 28261) (ISIGN 28263 . 28652) (JOYSTICK 28654 . 
29164) (LOSE 29166 . 30062) (MOVEDOWN 30064 . 30587) (MOVEGHOST 30589 . 34187) (MOVELEFT 34189 . 34712
) (MOVEOBJ 34714 . 34900) (MOVEPACMAN 34902 . 36595) (MOVERIGHT 36597 . 37120) (MOVEUP 37122 . 37643) 
(NEWHISCORES 37645 . 38361) (PACINTRO 38363 . 39747) (PACMAN 39749 . 43786) (PACMANINIT 43788 . 46031)
 (PACMANINITNEW 46033 . 47743) (PACMANNEWGAME 47745 . 48144) (PACMANREINIT 48146 . 50562) (PAINTOBJ 
50564 . 50787) (PAINTDOT 50789 . 50965) (PUTDOTS 50967 . 52348) (PUTDOTSAGAIN 52350 . 52790) (
PUTENERGIZERS 52792 . 53317) (REDODOT 53319 . 53904) (REPLACEOBJ 53906 . 54085) (SCAN 54087 . 54375) (
SETBITMAPS 54377 . 55226) (SETBOARDVAL 55228 . 55387) (SETCHARPROPS 55389 . 58200) (SETGCANS 58202 . 
58455) (SETGLOCS 58457 . 59873) (SETPLAYERBOARDVAL 59875 . 60140) (SHOW 60142 . 60319) (SHOWCAP 60321
 . 60477) (SHOWHISCORES 60479 . 60840) (SPEEDQ 60842 . 61427)))))
STOP