(DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10) (FILECREATED " 3-Feb-89 15:12:20" {ERIS}INTERNAL>LIBRARY>PACMANCORE>PACMAN.;6 153326 changes to%: (FNS INCOLORQ HASCOLORDISPLAYP PACMANINITNEW MOVEPACMAN ASSIGNDIR BLINKENERGIZERS PLAYERBOARDVAL BOARDVAL CHECKAT COLLISIONCHECK DECIDE DOTCHECK DRAWBOARD DRAWBOARDNEW ENERGIZERCHECK ERASEOBJ FRUITCHECK FRUITINIT GETHISCORES GETMONEY GETMOVE VOICEINPUT XLOCTOSCREEN XSCREENTOLOC YLOCTOSCREEN YSCREENTOLOC HISCORE INPUTMODEQ INTERMISSION1 ISIGN JOYSTICK LOSE MOVEDOWN MOVEGHOST MOVELEFT MOVEOBJ MOVERIGHT MOVEUP NEWHISCORES PACINTRO PACMAN PACMANINIT PACMANNEWGAME PACMANREINIT PAINTOBJ PAINTDOT PUTDOTS PUTDOTSAGAIN PUTENERGIZERS REDODOT REPLACEOBJ SCAN SETBITMAPS SETBOARDVAL SETCHARPROPS SETGCANS SETGLOCS SETPLAYERBOARDVAL SHOW SHOWCAP SHOWHISCORES SPEEDQ) (VARS PACMANCOMS 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 ORANGEBITMAP PACMANC PACMANINCOLOR PINEAPPLEBITMAP PMAN PMANDOWN PMANLEFT PMANRIGHT PMANUP PMGAMEOVER) previous date%: " 3-Feb-89 12:51:56" {ERIS}INTERNAL>LIBRARY>PACMANCORE>PACMAN.;3) (* " Copyright (c) 1984, 1985, 1987, 1988, 1989 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 '(8 2 4 1) as ANS in '(2 1 3 4) do (COND ((NEQ (LOGAND WANT TRY) 0) (RETURN ANS]) (2 [for TRY in '(2 8 1 4) as ANS in '(1 2 4 3) do (COND ((NEQ (LOGAND WANT TRY) 0) (RETURN ANS]) (3 [for TRY in '(4 8 2 1) as ANS in '(3 2 1 4) do (COND ((NEQ (LOGAND WANT TRY) 0) (RETURN ANS]) (4 [for TRY in '(1 8 4 2) as ANS in '(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 'XLOC) (GETPROP PLAYER '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 'XLOC)) (SETQ Y (GETPROP PMAN '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))) 'OPERATION '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 'XLOC) 11) 6)) (change (CDR GVALUEPOS) (IDIFFERENCE (ITIMES (IDIFFERENCE 30 (GETPROP GHOST 'YLOC)) 11) 6)) 16 16 PSTREAM) (SETQ GVALUE (ITIMES GVALUE 2)) (PUTPROP GHOST 'EATEN 1))) (DISMISS 1500) (ERASEOBJ GHOST (IDIFFERENCE (ITIMES (GETPROP GHOST 'XLOC) 11) 6) (IDIFFERENCE (ITIMES (IDIFFERENCE 30 (GETPROP GHOST 'YLOC)) 11) 6) 16 16 PSTREAM) (COND [(EQ (GETPROP GHOST 'EATEN) 1) (PUTPROP GHOST 'BITMAP (COND (PACMANINCOLOR COLOREYESBITMAP) (T EYESBITMAP))) (PUTPROP OLDGHOST 'BITMAP (GETPROP GHOST 'BITMAP)) (SETBOARDVAL X Y (IDIFFERENCE (BOARDVAL X Y) (GETPROP GHOST 'BIT] (T [for G in '(G1 G2 G3 G4) do [SETBOARDVAL (GETPROP (EVAL G) 'XLOC) (GETPROP (EVAL G) 'YLOC) (IDIFFERENCE (BOARDVAL (GETPROP (EVAL G) 'XLOC) (GETPROP (EVAL G) 'YLOC)) (GETPROP (EVAL G) 'BIT] (PUTPROP (EVAL G) 'XLOC (GETPROP (EVAL G) 'INITX)) (PUTPROP (EVAL G) 'YLOC (GETPROP (EVAL G) 'INITY)) (SETBOARDVAL (GETPROP (EVAL G) 'XLOC) (GETPROP (EVAL G) 'YLOC) (IPLUS (BOARDVAL (GETPROP (EVAL G) 'XLOC) (GETPROP (EVAL G) 'YLOC)) (GETPROP (EVAL G) '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 'EATEN) 0) (SETQ GXINC (ISIGN 1 (ITIMES (IDIFFERENCE (GETPROP PMAN 'XLOC) (GETPROP GHOST 'XLOC)) FOLLOW))) (SETQ GYINC (ISIGN 1 (ITIMES (IDIFFERENCE (GETPROP PMAN 'YLOC) (GETPROP GHOST 'YLOC)) FOLLOW] (T [SETQ GXINC (ISIGN 1 (IDIFFERENCE 13 (GETPROP GHOST 'XLOC] (SETQ GYINC (ISIGN 1 (IDIFFERENCE 12 (GETPROP GHOST '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 'CAN] [COND ((EQ WANT 0) (* Too much constraint! Try and make  the best of it.) (SETQ WANT (LOGAND CURLOC (GETPROP GHOST 'CAN] (RETURN (ASSIGNDIR (GETPROP GHOST '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 'XLOC)) (Y (GETPROP PMAN '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 'PAINT PSTREAM)) (T (DRAWLINE (ITIMES X1 11) (ITIMES 11 (IDIFFERENCE 30 Y1)) (ITIMES 11 X2) (ITIMES 11 (IDIFFERENCE 30 Y2)) 4 '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 'PAINT PSTREAM 1)) (T (DRAWLINE (ITIMES X1 11) (ITIMES 11 (IDIFFERENCE 30 Y1)) (ITIMES 11 X2) (ITIMES 11 (IDIFFERENCE 30 Y2)) 4 'PAINT PSTREAM 1]) (ENERGIZERCHECK [LAMBDA (PMAN) (* MD "22-JUL-83 10:56") (PROG (X Y) (SETQ X (GETPROP PMAN 'XLOC)) (SETQ Y (GETPROP PMAN '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 'BITMAP) NIL NIL STREAM X Y W H NIL '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#)) 'OPERATION '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 'XLOC) (GETPROP PMAN 'YLOC) 16384) [SETQ SCORE (IPLUS SCORE (GETPROP (CAR (NTH FRUITLIST FRUIT#)) '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 '(CHERRY STRAWBERRY ORANGE ORANGE APPLE APPLE PINEAPPLE PINEAPPLE BIRD BIRD BELL BELL KEY)) (PUTPROP 'CHERRY 'BITMAP (COND (PACMANINCOLOR COLORCHERRYBITMAP) (T CHERRYBITMAP))) (PUTPROP 'CHERRY 'VALUE 10) (PUTPROP 'STRAWBERRY 'BITMAP (COND (PACMANINCOLOR COLORSTRAWBERRYBITMAP) (T STRAWBERRYBITMAP))) (PUTPROP 'STRAWBERRY 'VALUE 30) (PUTPROP 'ORANGE 'BITMAP (COND (PACMANINCOLOR COLORORANGEBITMAP) (T ORANGEBITMAP))) (PUTPROP 'ORANGE 'VALUE 50) (PUTPROP 'APPLE 'BITMAP (COND (PACMANINCOLOR COLORAPPLEBITMAP) (T APPLEBITMAP))) (PUTPROP 'APPLE 'VALUE 70) (PUTPROP 'PINEAPPLE 'BITMAP (COND (PACMANINCOLOR COLORPINEAPPLEBITMAP) (T PINEAPPLEBITMAP))) (PUTPROP 'PINEAPPLE 'VALUE 100) (PUTPROP 'BIRD 'BITMAP (COND (PACMANINCOLOR COLORBIRDBITMAP) (T BIRDBITMAP))) (PUTPROP 'BIRD 'VALUE 200) (PUTPROP 'BELL 'BITMAP (COND (PACMANINCOLOR COLORBELLBITMAP) (T BELLBITMAP))) (PUTPROP 'BELL 'VALUE 300) (PUTPROP 'KEY 'BITMAP (COND (PACMANINCOLOR COLORKEYBITMAP) (T KEYBITMAP))) (PUTPROP 'KEY '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 _ '((Yes 'Y) (No 'N] 'Y) (SETQ NETP T) (INFILE '{ICE}PSYSICE 'READ) (SETQ HILIST (READ)) (SHOWHISCORES) (CLOSEF '{ICE}PSYSICE) (SHOWCAP "Click LEFT or FIRE (joystick) when ready." 6 20) (until (OR (UNTILMOUSESTATE (OR LEFT MIDDLE) 10) (KEYDOWNP '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 'BITMAP (COND (PACMANINCOLOR COLORQUARTERBITMAP) (T QUARTERBITMAP))) (PAINTOBJ INTROOBJ 150 40 64 32 PSTREAM) (GETMOUSESTATE) (until [OR (SETQ PMWANTMORE (KEYDOWNP 'PAD1)) (SETQ PMWANTMORE (COND ((AND (EQ PMANINPUTMODE 'VOICE) (EQ (VOICEINPUT) 0)) T) (T NIL))) [SETQ PMWANTMORE (AND (MOUSESTATE (OR LEFT MIDDLE)) (INSIDEP '(150 40 32 32) (LASTMOUSEX PSTREAM) (LASTMOUSEY PSTREAM] (SETQ PMHADENOUGH (AND (MOUSESTATE (OR LEFT MIDDLE)) (NOT (INSIDEP '(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 'VOICE) (VOICEINPUT)) (JOYSTICK))) [COND ((AND (NOT CHAR) (NOT (READP T))) (SETQ OLDX LASTMOUSEX) (SETQ OLDY LASTMOUSEY) (GETMOUSESTATE) (if (EQ (MACHINETYPE) '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 'XLOC) (GETPROP PMAN 'YLOC) NEXTMOVE)) (RETURN NEXTMOVE)) ((CHECKAT (GETPROP PMAN 'XLOC) (GETPROP PMAN 'YLOC) MOVE) (RETURN MOVE)) (T (RETURN 0] [SETQ DIR (COND (CHAR CHAR) [(READP T) (RESETFORM (ECHOMODE NIL) (SETQ CHAR (READC)) (COND ((EQ CHAR 'L) 4) ((EQ CHAR 'J) 8) ((EQ CHAR 'I) 2) ((EQ CHAR '% ) 1) (T MOVE] [ATTRACTMODE (CAR (NTH '(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 'XLOC) (GETPROP PMAN 'YLOC) DIR) (SETQ NEXTMOVE DIR) (RETURN DIR)) (T (SETQ NEXTMOVE DIR) (COND ((CHECKAT (GETPROP PMAN 'XLOC) (GETPROP PMAN '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) 'Y) (SHOWCAP "Y" 200 200) (SETPASSWORD '{ICE} 'PSYS "PRTZKRK" 'SYSIFS) (INFILE '{ICE}PSYSICE '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 '{ICE}PSYSICE]) (INCOLORQ [LAMBDA NIL (* ; "Edited 3-Feb-89 15:07 by FS") (SELECTQ (MACHINETYPE) ((DOLPHIN DORADO MAIKO) (COND [(HASCOLORDISPLAYP) (printout T "In color?" T) (MENU (create MENU ITEMS _ '((Yes T "Will play Pacman in color. - Only if you have a color display." ) (No 'NIL "Plays Pacman on the standard display.")) TITLE _ 'Color?] (T NIL))) ((DANDELION DOVE) NIL) (LET NIL (PRINTOUT T "Unknown machine type.") NIL]) (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 _ '((Cursor 'SAMEDIRASCURSOR "PMAN will move in the same direction as the cursor just moved." ) (Keyboard 'KEYS "PMAN is controlled by I, J, L and spacebar.") (Joystick 'JOYSTICK "PMAN is controlled by the Joystick.") (Voice 'VOICE "Pacman is controlled by voice control ('up', 'down', 'left', 'right'" )) CENTERFLG _ T TITLE _ "Choose mode")) 'SAMEDIRASCURSOR]) (HASCOLORDISPLAYP [LAMBDA NIL (* ; "Edited 3-Feb-89 15:05 by FS") (* 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 'MAYBE) (MAIKO 'MAYBE) NIL]) (INTERMISSION1 [LAMBDA NIL (* MD "29-NOV-83 15:58") (PROG (BIGOBJ OLDBIGOBJ) (PUTPROP G1 'BITMAP G1BITMAP) (CLEARW PWINDOW) [for X from 350 to -45 by -1 do (COND ((EQ (IREMAINDER (IQUOTIENT X 10) 2) 0) (PUTPROP PMAN 'BITMAP PMANLEFT)) (T (PUTPROP PMAN '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 'BITMAP (GETPROP PMAN 'BITMAP] (SETQ BIGOBJ 'BIGP) (SETQ OLDBIGOBJ 'OLDBIGP) [for X from -45 to 350 by 2 do [COND [(EQ (IREMAINDER (IQUOTIENT X 10) 2) 0) (PUTPROP BIGOBJ 'BITMAP (COND (PACMANINCOLOR COLORBIGPMANR) (T BIGPMANR] (T (PUTPROP BIGOBJ '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 'BITMAP (GETPROP BIGOBJ '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 '(-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 'PAD2) 4) ((KEYDOWNP 'PAD3) 8) ((KEYDOWNP 'PAD4) 1) ((KEYDOWNP 'PAD5) 2]) (LOSE [LAMBDA NIL (* MD " 8-DEC-83 12:50") (SETQ NUMMEN (SUB1 NUMMEN)) (PUTPROP PMAN 'BITMAP PACMANC) (ERASEOBJ PMAN (IDIFFERENCE (ITIMES (GETPROP PMAN 'XLOC) 11) 6) (IDIFFERENCE (ITIMES (IDIFFERENCE 30 (GETPROP PMAN '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 'XLOC 13) (PUTPROP PMAN 'YLOC 23) (SETQ MOVE 8]) (MOVEDOWN [LAMBDA (OBJ OLDOBJ) (* MD " 6-JAN-83 16:22") (MOVEOBJ OBJ OLDOBJ (IDIFFERENCE (ITIMES (GETPROP OLDOBJ 'XLOC) 11) 6) (IDIFFERENCE (ITIMES (IDIFFERENCE 30 (GETPROP OLDOBJ 'YLOC)) 11) 6) (IDIFFERENCE (ITIMES (GETPROP OBJ 'XLOC) 11) 6) (IDIFFERENCE (ITIMES [IDIFFERENCE 30 (PUTPROP OBJ 'YLOC (ADD1 (GETPROP OBJ 'YLOC] 11) 6) 16 16 PSTREAM]) (MOVEGHOST [LAMBDA (GHOST OLDGHOST) (* rrb " 3-Feb-84 11:03") (COND ((AND (EQ CYCLE 2) (CHECKAT (GETPROP GHOST 'XLOC) (GETPROP GHOST 'YLOC) 4096)) (* Slow spot) T) [(IGREATERP (GETPROP GHOST 'GIT) 0) (* In tunnel) (add (GETPROP GHOST 'GIT) 1) (COND ((IGREATERP (GETPROP GHOST 'GIT) 4) (PUTPROP GHOST 'GIT 0] (T [COND ((EQ (GETPROP GHOST 'EATEN) 0) (SETPLAYERBOARDVAL GHOST (IDIFFERENCE (PLAYERBOARDVAL GHOST) (GETPROP GHOST 'BIT] [COND ((EQ (GETPROP GHOST 'EATEN) 0) (COND [(IGREATERP BLUETIME 30) (* Blink all uneaten ghosts) (COND ((EQ CYCLE 1) (PUTPROP GHOST 'BITMAP GINVBITMAP)) (T (PUTPROP GHOST 'BITMAP (EVAL (CAR (NTH '(G1BITMAP G2BITMAP G3BITMAP G4BITMAP) (GETPROP GHOST 'NUMBER] ((IGREATERP BLUETIME 0) (PUTPROP GHOST 'BITMAP GINVBITMAP] (SELECTQ (DECIDE GHOST) (1 (MOVEUP GHOST OLDGHOST) (PUTPROP GHOST 'CAN 14)) (2 (COND ((CHECKAT (GETPROP GHOST 'XLOC) (GETPROP GHOST 'YLOC) 64) (ERASEOBJ OLDGHOST (IDIFFERENCE (ITIMES (GETPROP OLDGHOST 'XLOC) 11) 6) (IDIFFERENCE (ITIMES (IDIFFERENCE 30 (GETPROP OLDGHOST 'YLOC)) 11) 6) 16 16 PSTREAM) (PUTPROP GHOST 'XLOC 26) (PUTPROP GHOST 'GIT 1)) (T (MOVELEFT GHOST OLDGHOST))) (PUTPROP GHOST 'CAN 11)) (3 (COND ((CHECKAT (GETPROP GHOST 'XLOC) (GETPROP GHOST 'YLOC) 128) (ERASEOBJ OLDGHOST (IDIFFERENCE (ITIMES (GETPROP OLDGHOST 'XLOC) 11) 6) (IDIFFERENCE (ITIMES (IDIFFERENCE 30 (GETPROP OLDGHOST 'YLOC)) 11) 6) 16 16 PSTREAM) (PUTPROP GHOST 'XLOC 1) (PUTPROP GHOST 'GIT 1)) (T (MOVERIGHT GHOST OLDGHOST))) (PUTPROP GHOST 'CAN 7)) (4 (MOVEDOWN GHOST OLDGHOST) (PUTPROP GHOST 'CAN 13)) T) (REDODOT (GETPROP OLDGHOST 'XLOC) (GETPROP OLDGHOST 'YLOC)) (PUTPROP OLDGHOST 'XLOC (GETPROP GHOST 'XLOC)) (PUTPROP OLDGHOST 'YLOC (GETPROP GHOST 'YLOC)) (COND [(IGREATERP BLUETIME 30) (PUTPROP OLDGHOST 'BITMAP (GETPROP GHOST 'BITMAP] ((AND (EQ (GETPROP GHOST 'EATEN) 0) (IGREATERP BLUETIME 0)) (PUTPROP OLDGHOST 'BITMAP GINVBITMAP))) [COND ((AND (EQ (GETPROP GHOST 'EATEN) 1) (EQ (GETPROP GHOST 'YLOC) 12) (EQ (GETPROP GHOST 'XLOC) 13)) (PUTPROP GHOST 'EATEN 0) [PUTPROP GHOST 'BITMAP (EVAL (CAR (NTH '(G1BITMAP G2BITMAP G3BITMAP G4BITMAP) (GETPROP GHOST 'NUMBER] (PUTPROP OLDGHOST 'BITMAP (GETPROP GHOST 'BITMAP] (COND ((EQ (GETPROP GHOST 'EATEN) 0) (SETBOARDVAL (GETPROP GHOST 'XLOC) (GETPROP GHOST 'YLOC) (IPLUS (BOARDVAL (GETPROP GHOST 'XLOC) (GETPROP GHOST 'YLOC)) (GETPROP GHOST 'BIT]) (MOVELEFT [LAMBDA (OBJ OLDOBJ) (* rrb "31-Jan-84 10:15") (MOVEOBJ OBJ OLDOBJ (IDIFFERENCE (ITIMES (GETPROP OLDOBJ 'XLOC) 11) 6) (IDIFFERENCE (ITIMES (IDIFFERENCE 30 (GETPROP OLDOBJ 'YLOC)) 11) 6) (IDIFFERENCE (ITIMES [PUTPROP OBJ 'XLOC (SUB1 (GETPROP OBJ 'XLOC] 11) 6) (IDIFFERENCE (ITIMES (IDIFFERENCE 30 (GETPROP OBJ '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) (* ; "Edited 3-Feb-89 13:09 by FS") (SELECTQ DIR (1 (PUTPROP PMAN 'BITMAP (COND ((EQ CYCLE 1) PMANDOWN) (T PACMANC))) (MOVEDOWN PMAN OLDPMAN)) (2 (PUTPROP PMAN 'BITMAP (COND ((EQ CYCLE 1) PMANUP) (T PACMANC))) (MOVEUP PMAN OLDPMAN)) (4 (PUTPROP PMAN 'BITMAP (COND ((EQ CYCLE 1) PMANRIGHT) (T PACMANC))) (COND ((CHECKAT (GETPROP PMAN 'XLOC) (GETPROP PMAN 'YLOC) 128) (ERASEOBJ OLDPMAN (IDIFFERENCE (ITIMES (GETPROP OLDPMAN 'XLOC) 11) 6) (IDIFFERENCE (ITIMES (IDIFFERENCE 30 (GETPROP OLDPMAN 'YLOC)) 11) 6) 16 16 PSTREAM) (PUTPROP PMAN 'XLOC 1) (SETQ PIT 1)) (T (MOVERIGHT PMAN OLDPMAN)))) (8 (PUTPROP PMAN 'BITMAP (COND ((EQ CYCLE 1) PMANLEFT) (T PACMANC))) (COND ((CHECKAT (GETPROP PMAN 'XLOC) (GETPROP PMAN 'YLOC) 64) (ERASEOBJ OLDPMAN (IDIFFERENCE (ITIMES (GETPROP OLDPMAN 'XLOC) 11) 6) (IDIFFERENCE (ITIMES (IDIFFERENCE 30 (GETPROP OLDPMAN 'YLOC)) 11) 6) 16 16 PSTREAM) (PUTPROP PMAN 'XLOC 26) (SETQ PIT 1)) (T (MOVELEFT PMAN OLDPMAN)))) NIL) (PUTPROP OLDPMAN 'BITMAP (GETPROP PMAN 'BITMAP)) (PUTPROP OLDPMAN 'XLOC (GETPROP PMAN 'XLOC)) (PUTPROP OLDPMAN 'YLOC (GETPROP PMAN 'YLOC]) (MOVERIGHT [LAMBDA (OBJ OLDOBJ) (* MD " 6-JAN-83 16:21") (MOVEOBJ OBJ OLDOBJ (IDIFFERENCE (ITIMES (GETPROP OLDOBJ 'XLOC) 11) 6) (IDIFFERENCE (ITIMES (IDIFFERENCE 30 (GETPROP OLDOBJ 'YLOC)) 11) 6) (IDIFFERENCE (ITIMES [PUTPROP OBJ 'XLOC (ADD1 (GETPROP OBJ 'XLOC] 11) 6) (IDIFFERENCE (ITIMES (IDIFFERENCE 30 (GETPROP OBJ 'YLOC)) 11) 6) 16 16 PSTREAM]) (MOVEUP [LAMBDA (OBJ OLDOBJ) (* MD " 6-JAN-83 16:21") (MOVEOBJ OBJ OLDOBJ (IDIFFERENCE (ITIMES (GETPROP OLDOBJ 'XLOC) 11) 6) (IDIFFERENCE (ITIMES (IDIFFERENCE 30 (GETPROP OLDOBJ 'YLOC)) 11) 6) (IDIFFERENCE (ITIMES (GETPROP OBJ 'XLOC) 11) 6) (IDIFFERENCE (ITIMES [IDIFFERENCE 30 (PUTPROP OBJ 'YLOC (SUB1 (GETPROP OBJ '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 '% 'OTHER) (SETQ NAME (RSTRING)) (SETSYNTAX '% 'SEPRCHAR) (SETPASSWORD '{ICE} 'PSYS "PRTZKRK" 'SYSIFS) (INFILE '{ICE}PSYSICE) [SETQ HILIST (REVERSE (CDR (SORT (APPEND (READ) (LIST (LIST (ITIMES SCORE 10) NAME))) T] (SHOWHISCORES) (CLOSEF '{ICE}PSYSICE) (OUTFILE '{ICE}PSYSICE.;2) (PRINT HILIST) (CLOSEF '{ICE}PSYSICE.;2]) (PACINTRO [LAMBDA NIL (* rrb "31-Jan-84 11:00") (PROG (CHAR CHARNAME X Y) (CLEARW PWINDOW) (PUTPROP INTROOBJ 'BITMAP (COND (PACMANINCOLOR COLORSIGLOGO) (T SIGLOGO))) (PUTPROP INTROOBJ 'OPERATION '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 '(COLORG1BITMAP COLORG2BITMAP COLORG3BITMAP COLORG4BITMAP)) (T '(G1BITMAP G2BITMAP G3BITMAP G4BITMAP] as CHARNAME in '("SHADOW 'BLINKY'" "SPEEDY 'PINKY'" "BASHFUL 'INKY'" "POKEY 'CLYDE'" ) do (PUTPROP INTROOBJ '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 'X) (INTROOBJ '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 'Y) (SETQ G1 'A) (SETQ G2 'B) (SETQ G3 'C) (SETQ G4 'D) (SETQ OLDG1 'E) (SETQ OLDG2 'F) (SETQ OLDG3 'G) (SETQ OLDG4 '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 '(280 . 291] (for GHOST in '(G1 G2 G3 G4) as GBITMAP in '(G1BITMAP G2BITMAP G3BITMAP G4BITMAP) when (EQ (GETPROP (EVAL GHOST) 'EATEN) 0) do (PUTPROP (EVAL GHOST) 'BITMAP (EVAL GBITMAP))) (for OLDGHOST in '(OLDG1 OLDG2 OLDG3 OLDG4) as GHOST in '(G1 G2 G3 G4) do (PUTPROP (EVAL OLDGHOST) 'BITMAP (GETPROP (EVAL GHOST) 'BITMAP] (ENERGIZERCHECK PMAN) (COLLISIONCHECK PMAN) (COND ((EQ (MACHINETYPE) 'DORADO) (DISMISS 3))) [COND [(EQ CYCLE 3) (COND ((EQ FOLLOW 1) (for GHOST in '(G1 G2 G3 G4) as OLDGHOST in '(OLDG1 OLDG2 OLDG3 OLDG4) do (MOVEGHOST (EVAL GHOST) (EVAL OLDGHOST] (T (for GHOST in '(G1 G2 G3 G4) as OLDGHOST in '(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? '{DSK}PACMAN.DAT) (INFILE '{DSK}PACMAN.DAT '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 '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 'BIT] (* Ghosts) [SETBOARDVAL 13 12 (IPLUS (BOARDVAL 13 12) (GETPROP G2 'BIT] [SETBOARDVAL 12 13 (IPLUS (BOARDVAL 12 13) (GETPROP G3 'BIT] (SETBOARDVAL 15 13 (IPLUS (BOARDVAL 15 13) (GETPROP G4 'BIT]) (PACMANINITNEW [LAMBDA (PMAN) (* ; "Edited 3-Feb-89 15:10 by FS") (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 'VOICE) then (LOAD? (PACKFILENAME 'NAME 'RS232.LCOM 'DIRECTORY (CAR DIRECTORIES))) (RS232INIT (MENU (create MENU ITEMS _ '(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 '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 '(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 '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 'BITMAP PACMANC) (ERASEOBJ PMAN (IDIFFERENCE (ITIMES (GETPROP PMAN 'XLOC) 11) 6) (IDIFFERENCE (ITIMES (IDIFFERENCE 30 (GETPROP PMAN 'YLOC)) 11) 6) 16 16 PSTREAM) [for I from 1 to 29 do (SETA BOARD I (COPY (ELT VIRGINBOARD I] (for GHOST in '(G1 G2 G3 G4) do (ERASEOBJ (EVAL GHOST) (IDIFFERENCE (ITIMES (GETPROP (EVAL GHOST) 'XLOC) 11) 6) (IDIFFERENCE (ITIMES (IDIFFERENCE 30 (GETPROP (EVAL GHOST) 'YLOC)) 11) 6) 16 16 PSTREAM)) (SETCHARPROPS) (for GHOST in '(G1 G2 G3 G4) do (PAINTOBJ (EVAL GHOST) (IDIFFERENCE (ITIMES (GETPROP (EVAL GHOST) 'XLOC) 11) 6) (IDIFFERENCE (ITIMES (IDIFFERENCE 30 (GETPROP (EVAL GHOST) 'YLOC)) 11) 6) 16 16 PSTREAM)) (SHOWCAP '"READY!" (ITIMES 12 11) (ITIMES (IDIFFERENCE 30 17) 11) PSTREAM) (PUTPROP PMAN 'XLOC 13) (PUTPROP PMAN 'YLOC 23) (SETQ FOLLOW 1) (SETQ BLUETIME 0) (SETQ FRUITTIME 0) (SETQ FRUITVISIBLE T) (* Used by REDODOT) (SETQ FRUIT# (ADD1 FRUIT#)) (SETQ GVALUEPOS '(159 . 269)) (* Used by COLLISIONCHECK) (SETQ MOVE 8) (SETQ PIT 0) (* Pacman in tunnel) (PUTDOTSAGAIN) (PUTENERGIZERS) (DISMISS 2000) (SHOWCAP '" " (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 'BITMAP) NIL NIL STREAM X Y W H NIL (GETPROP OBJ '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 '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 '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 'BITMAP PMANLEFT) (PUTPROP 'GHOST1 'BITMAP (COND (PACMANINCOLOR COLOR200BITMAP) (T 200BITMAP))) (PUTPROP 'GHOST2 'BITMAP (COND (PACMANINCOLOR COLOR400BITMAP) (T 400BITMAP))) (PUTPROP 'GHOST3 'BITMAP (COND (PACMANINCOLOR COLOR800BITMAP) (T 800BITMAP))) (PUTPROP 'GHOST4 'BITMAP (COND (PACMANINCOLOR COLOR1600BITMAP) (T 1600BITMAP))) (PUTPROP ENERGIZEROBJ 'BITMAP (COND (PACMANINCOLOR COLORENERGIZER) (T ENERGIZER))) (PUTPROP ENERGIZEROBJ 'OPERATION 'INVERT) (* Energizers) (PUTPROP OLDPMAN 'BITMAP PACMANC) (PUTPROP OLDPMAN 'OPERATION 'PAINT) (PUTPROP PMAN 'OPERATION 'PAINT) (PUTPROP PMAN 'XLOC 13) (PUTPROP PMAN 'YLOC 23) (PUTPROP OLDPMAN 'XLOC 13) (PUTPROP OLDPMAN 'YLOC 23) (SETGLOCS) (SETGCANS) (PUTPROP G1 'BITMAP G1BITMAP) (* Ghost 1) (PUTPROP OLDG1 'BITMAP (GETPROP G1 'BITMAP)) (PUTPROP G1 'NUMBER 1) (PUTPROP G1 'BIT 256) (PUTPROP G1 'OPERATION 'INVERT) (PUTPROP G1 'EATEN 0) (PUTPROP G1 'GIT 0) (* Ghost 2) (PUTPROP G2 'BITMAP G2BITMAP) (PUTPROP OLDG2 'BITMAP (GETPROP G2 'BITMAP)) (PUTPROP G2 'BIT 512) (PUTPROP G2 'NUMBER 2) (PUTPROP G2 'OPERATION 'INVERT) (PUTPROP G2 'EATEN 0) (PUTPROP G2 'GIT 0) (* Ghost 3) (PUTPROP G3 'BITMAP G3BITMAP) (PUTPROP OLDG3 'BITMAP (GETPROP G3 'BITMAP)) (PUTPROP G3 'BIT 1024) (PUTPROP G3 'NUMBER 3) (PUTPROP G3 'OPERATION 'INVERT) (PUTPROP G3 'EATEN 0) (PUTPROP G3 'GIT 0) (* Ghost 4) (PUTPROP G4 'BITMAP G4BITMAP) (PUTPROP OLDG4 'BITMAP (GETPROP G4 'BITMAP)) (PUTPROP G4 'BIT 2048) (PUTPROP G4 'NUMBER 4) (PUTPROP G4 'OPERATION 'INVERT) (PUTPROP G4 'EATEN 0) (PUTPROP G4 'GIT 0]) (SETGCANS [LAMBDA NIL (* MD "19-AUG-83 17:25") (PUTPROP G1 'CAN 12) (PUTPROP G2 'CAN 2) (PUTPROP G3 'CAN 4) (PUTPROP G4 'CAN 8]) (SETGLOCS [LAMBDA NIL (* MD "18-AUG-83 14:55") (PUTPROP OLDG1 'INITX 13) (PUTPROP OLDG1 'INITY 11) (PUTPROP OLDG1 'XLOC 13) (PUTPROP OLDG1 'YLOC 11) (PUTPROP G1 'INITX 13) (PUTPROP G1 'INITY 11) (PUTPROP G1 'XLOC 13) (PUTPROP G1 'YLOC 11) (PUTPROP OLDG2 'INITX 13) (PUTPROP OLDG2 'INITY 12) (PUTPROP OLDG2 'XLOC 13) (PUTPROP OLDG2 'YLOC 12) (PUTPROP G2 'INITX 13) (PUTPROP G2 'INITY 12) (PUTPROP G2 'XLOC 13) (PUTPROP G2 'YLOC 12) (PUTPROP OLDG3 'INITX 12) (PUTPROP OLDG3 'INITY 13) (PUTPROP OLDG3 'XLOC 12) (PUTPROP OLDG3 'YLOC 13) (PUTPROP G3 'INITX 12) (PUTPROP G3 'INITY 13) (PUTPROP G3 'XLOC 12) (PUTPROP G3 'YLOC 13) (PUTPROP OLDG4 'INITX 15) (PUTPROP OLDG4 'INITY 13) (PUTPROP OLDG4 'XLOC 15) (PUTPROP OLDG4 'YLOC 13) (PUTPROP G4 'INITX 15) (PUTPROP G4 'INITY 13) (PUTPROP G4 'XLOC 15) (PUTPROP G4 'YLOC 13]) (SETPLAYERBOARDVAL [LAMBDA (PLAYER VAL) (* sets the board representation of  the current location of player.) (SETBOARDVAL (GETPROP PLAYER 'XLOC) (GETPROP PLAYER '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 _ '((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]) ) (RPAQQ 1600BITMAP #*(16 16)@@@@@@@@@@@@IHLFJEBIJABIJABIKIBIJEBIJEBIJEBIIHLF@@@@@@@@@@@@@@@@) (RPAQQ 200BITMAP #*(16 16)@@@@@@@@@@@@FAHFIBDIABDIABDIBBDIDBDIHBDIHBDIOAHF@@@@@@@@@@@@@@@@) (RPAQQ 400BITMAP #*(16 16)@@@@@@@@@@@@IAHFIBDIIBDIIBDIOJDIABDIABDIABDIAAHF@@@@@@@@@@@@@@@@) (RPAQQ 800BITMAP #*(16 16)@@@@@@@@@@@@FAHFIBDIIBDIIBDIFBDIIBDIIBDIIBDIFAHF@@@@@@@@@@@@@@@@) (RPAQQ APPLEBITMAP #*(16 16)@@L@@AH@@OO@COOLCOOLGOONGOONGOONGONFGOLFGOHFCOHLCOILAOOH@ON@@GL@) (RPAQQ ATTRACTMODE NIL) (RPAQQ BELLBITMAP #*(16 16)@GN@@OO@AOOHAGOHCGOLCGOLCGOLCGOLCGOLCGOLCGOLCGOLGOONOOOO@@@@@@@@) (RPAQQ BIGPMANC #*(64 64)@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@COOL@@@@@@@@@@@GOOOON@@@@@@@@@AOOOOOOL@@@@@@@@GOOOOOOO@@@@@@@AOOOOOOOOL@@@@@@GOOOOOOOOO@@@@@@OOOOOOOOOOH@@@@COOOOOOOOOOL@@@@GOOOOOOOOOON@@@@OOOOOOOOOOOO@@@AOOOOOOOOOOOOH@@COOOOOOOOOOOOL@@COOOOOOOOOOOON@@GOOOOOOOOOOOOO@@GOOOOOOOOOOOOO@@OOOOOOOOOOOOOOHAOOOOOOOOOOOOOOHAOOOOOOOOOOOOOOLCOOOOOOOOOOOOOOLCOOOOOOOOOOOOOONGOOOOOOOOOOOOOONGOOOOOOOOOOOOOONGOOOOOOOOOOOOOONGOOOOOOOOOOOOOONOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOGOOOOOOOOOOOOOOOGOOOOOOOOOOOOOONGOOOOOOOOOOOOOONGOOOOOOOOOOOOOONGOOOOOOOOOOOOOONCOOOOOOOOOOOOOOLCOOOOOOOOOOOOOOLAOOOOOOOOOOOOOOLAOOOOOOOOOOOOOOH@OOOOOOOOOOOOOO@@OOOOOOOOOOOOOO@@GOOOOOOOOOOOON@@GOOOOOOOOOOOON@@COOOOOOOOOOOOL@@AOOOOOOOOOOOOH@@@OOOOOOOOOOOO@@@@GOOOOOOOOOON@@@@COOOOOOOOOOL@@@@@OOOOOOOOOO@@@@@@GOOOOOOOOL@@@@@@AOOOOOOOO@@@@@@@@GOOOOOOL@@@@@@@@@GOOOON@@@@@@@@@@@COON@@@@@@ ) (RPAQQ BIGPMANR #*(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@@@@@@ ) (RPAQQ BIRDBITMAP #*(16 16)AOOH@HA@@DB@@BD@@BD@OOOOH@@AH@@ADFFBBJEDABDH@BD@@BD@@BD@@AH@@@@@) (RPAQQ BLUETIME 0) (RPAQ BOARD (READARRAY-FROM-LIST 29 (QUOTE DOUBLEPOINTER) 1 (QUOTE ((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 268 526 13 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 1030 2058 0 0 0 3 0 0 8211 0 0 0 0 0) (0 0 0 0 0 8211 0 0 3 0 0 4 2 2 8 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 8205 8204 8204 8206 12 12 8222 8220 8220 8221 8220 8220 8219 0 0 8213 8220 42) (0 0 8211 0 0 8211 0 0 8195 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 8195 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 8198 8204 8204 8201 0 0 8197 8204 8204 8202 0 0 8214 8220 8220 8222 8220 8217) (8211 0 0 0 0 0 0 0 0 0 0 8195 0 0 8195 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 8195 0 0 0 0 0 0 0 0 0 0 8211) (8214 8220 8220 8220 8220 8220 8220 8220 8220 8220 8220 8206 8204 8204 8206 8220 8220 8220 8220 8220 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) (RPAQQ CHERRYBITMAP #*(16 16)@@@C@@CN@@NDCMHHGNA@OMC@OHJ@OHJ@OLOHOOONGOOKCOOA@COA@COI@AON@@OL) (RPAQQ COLORPMANDOWN #*(16 16 4)@@@@@DDDDDD@@@@@@@@DDDDDDDDDD@@@@@DDDDDDDDDDDD@@@DDDDDDDDDDDDDD@@DDDDDDDDDDDDDD@DDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDD@@@@DDDDDD@DDDD@@@@@@DDDD@@DDD@@@@@@@@DDD@@@D@@@@@@@@@@D@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ ) (RPAQQ COLORPMANLEFT #*(16 16 4)@@@@@DDDDDD@@@@@@@@DDDDDDDDDD@@@@@DDDDDDDDDDDD@@@@@DDDDDDDDDDDD@@@@@DDDDDDDDDDD@@@@@@DDDDDDDDDDD@@@@@@DDDDDDDDDD@@@@@@DDDDDDDDDD@@@@@@DDDDDDDDDD@@@@@@DDDDDDDDDD@@@@@DDDDDDDDDDD@@@@DDDDDDDDDDD@@@@DDDDDDDDDDDD@@@DDDDDDDDDDDD@@@@@DDDDDDDDDD@@@@@@@@DDDDDD@@@@@ ) (RPAQQ COLORPMANRIGHT #*(16 16 4)@@@@@DDDDDD@@@@@@@@DDDDDDDDDD@@@@@DDDDDDDDDDDD@@@DDDDDDDDDDDD@@@@DDDDDDDDDDD@@@@DDDDDDDDDDD@@@@@DDDDDDDDDD@@@@@@DDDDDDDDDD@@@@@@DDDDDDDDDD@@@@@@DDDDDDDDDD@@@@@@DDDDDDDDDDD@@@@@@DDDDDDDDDDD@@@@@DDDDDDDDDDDD@@@@@DDDDDDDDDDDD@@@@@DDDDDDDDDD@@@@@@@@DDDDDD@@@@@ ) (RPAQQ COLORPMANUP #*(16 16 4)@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@D@@@@@@@@@@D@@@DDD@@@@@@@@DDD@@DDDD@@@@@@DDDD@DDDDDD@@@@DDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDD@DDDDDDDDDDDDDD@@DDDDDDDDDDDDDD@@@DDDDDDDDDDDD@@@@@DDDDDDDDDD@@@@@@@@DDDDDD@@@@@ ) (RPAQQ DOT #*(4 4)O@@@O@@@O@@@O@@@) (RPAQQ ENERGIZER #*(8 8)CL@@GN@@OO@@OO@@OO@@OO@@GN@@CL@@) (RPAQQ ENERGIZEROBJ I) (RPAQQ EYESBITMAP #*(16 16)@@@@@@@@@@@@@@@@@@@@ALCHBFDLBFDLBFDLALCH@@@@@@@@@@@@@@@@@@@@@@@@) (RPAQQ FRUIT# 2) (RPAQQ FRUITTIME 60) (RPAQQ G1BITMAP #*(16 16)@GN@ALCHB@@DD@@BH@@AILCIJFDMJFDMJFDMILCIH@@AH@@AH@@AICLIJJEELFFC) (RPAQQ G2BITMAP #*(16 16)@GN@ALCHC@@LF@@FMNGCKAHIJC@MJC@MJC@MKAHIINGAH@@AH@@AKKMMNNGGLFFC) (RPAQQ G3BITMAP #*(16 16)@GN@ALCHB@@DD@@BH@@AILCIJFDMJFDMJFDMILCIH@@AH@@AH@@AICLIJJEELFFC) (RPAQQ G4BITMAP #*(16 16)@GN@AMEHBJJLEEEFJBJEMMCKJFDMNFDOJFDMOMKKJJMEMEJKJJEEMEJKJJEELFFC) (RPAQQ GINVBITMAP #*(16 16)@GN@AOOHCOOLGOONOOOOOOOONGLONGLONGLOOOOOOOOOOOOOOOOOOOOONNGGLFFC) (RPAQQ KEYBITMAP #*(16 16)@GN@AOOHANGHCNGLCOOLCOOLCOOLAOOH@OO@@GF@@CD@@CD@@CD@@CH@@C@@@B@@) (RPAQQ MRIGHT {BITMAP}#7,66154) (RPAQQ NEXTMOVE 0) (RPAQQ ORANGEBITMAP #*(16 16)@GN@@OOLCIL@G@@LGOONOOOOOOOOOOOOOOOOOOOOOOOOGOONGOONCOOL@GN@@@@@) (RPAQQ PACMANC #*(16 16)@GN@AOOHCOOLGOONGOONOOOOOOOOOOOOOOOOOOOOOOOOGOONGOONCOOLAOOH@GN@) (RPAQQ PACMANINCOLOR NIL) (RPAQQ PINEAPPLEBITMAP #*(16 16)@CL@@EJ@@EJ@@EJ@@EJ@@OK@@OO@AJMHAGOH@NK@AENHAOKHAJO@AOKH@MO@@GN@) (RPAQQ PMAN X) (RPAQQ PMANDOWN #*(16 16)@GN@AOOHCOOLGOONGOONOOOOOOOOOOOOOOOOOOOOOLCOGHANG@@NB@@D@@@@@@@@) (RPAQQ PMANLEFT #*(16 16)@GN@AOOHCOOLAOON@OON@GOO@COO@COO@COO@COO@GOO@OONAOONCOOLAOOH@GN@) (RPAQQ PMANRIGHT #*(16 16)@GN@AOOHCOOLGOOHGOO@OON@OOL@OOL@OOL@OOL@OON@GOO@GOOHCOOLAOOH@GN@) (RPAQQ PMANUP #*(16 16)@@@@@@@@B@@DG@@NGHANOLCOOOOOOOOOOOOOOOOOOOOOGOONGOONCOOLAOOH@GN@) (RPAQQ PMGAMEOVER NIL) (RPAQQ PSTREAM NIL) (RPAQQ PWINDOW NIL) (RPAQQ QUARTERBITMAP #*(32 32)@@@GN@@@@@GHAL@@@@NAIC@@@CIIJHL@@EEECAJ@@LDMJII@ADB@@BBHAFHGO@BDCKAIOLEDA@A@ON@BD@A@ON@BF@ADGO@AB@B@CO@AL@D@CO@AH@D@@F@AN@B@@F@A@@C@@F@AL@B@@B@AN@CL@C@A@@@D@E@ALEDB@DHAB@@B@F@BDBHD@B@BB@@OON@DC@@@@@@DA@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)) (RPAQQ SIGLOGO #*(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@@@@IOOHAHAOHGO@@@@@COOHCHCOLGN@@@@@COO@GHCOLGL@@@@@AOO@O@GOLCH@@@@@@GN@O@GOLC@@@@@@@CNAO@GOLB@@@@@@@ALCN@OOL@@@@@@@@@LGNAOOH@@@@@@@@@@ONCOOH@@@@@@@@@COLGOOH@@@@@@@@@AOLOGON@@@@@@@@@@OOOAON@@@@@@@@@@OOO@OL@@@@@@@@@@GON@CL@@@@@@@@@@GOH@AH@@@@@@@@@@CO@@@H@@@@@@@@@@CL@@@@@@@@@@@@@@@@@ ) (RPAQQ STRAWBERRYBITMAP #*(16 16)@AH@@AH@AOOHGMKNMNGNHMCKH@@AIHCADAHBD@CFFNBDC@@LCBI@AHC@@IJ@@GL@) (RPAQQ PACMANWAITTIME 100) (RPAQQ PMANINPUTMODE NIL) (RPAQQ PMANUPMAP #*(16 16)@@@@@@@@B@@DG@@NGHANOLCOOOOOOOOOOOOOOOOOOOOOGOONGOONCOOLAOOH@GN@) (RPAQQ COLORPMANUP #*(16 16 4)@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@D@@@@@@@@@@D@@@DDD@@@@@@@@DDD@@DDDD@@@@@@DDDD@DDDDDD@@@@DDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDD@DDDDDDDDDDDDDD@@DDDDDDDDDDDDDD@@@DDDDDDDDDDDD@@@@@DDDDDDDDDD@@@@@@@@DDDDDD@@@@@ ) (RPAQQ PMANRIGHTMAP #*(16 16)@GN@AOOHCOOLGOOHGOO@OON@OOL@OOL@OOL@OOL@OON@GOO@GOOHCOOLAOOH@GN@) (RPAQQ COLORPMANRIGHT #*(16 16 4)@@@@@DDDDDD@@@@@@@@DDDDDDDDDD@@@@@DDDDDDDDDDDD@@@DDDDDDDDDDDD@@@@DDDDDDDDDDD@@@@DDDDDDDDDDD@@@@@DDDDDDDDDD@@@@@@DDDDDDDDDD@@@@@@DDDDDDDDDD@@@@@@DDDDDDDDDD@@@@@@DDDDDDDDDDD@@@@@@DDDDDDDDDDD@@@@@DDDDDDDDDDDD@@@@@DDDDDDDDDDDD@@@@@DDDDDDDDDD@@@@@@@@DDDDDD@@@@@ ) (RPAQQ PMANDOWNMAP #*(16 16)@GN@AOOHCOOLGOONGOONOOOOOOOOOOOOOOOOOOOOOLCOGHANG@@NB@@D@@@@@@@@) (RPAQQ COLORPMANDOWN #*(16 16 4)@@@@@DDDDDD@@@@@@@@DDDDDDDDDD@@@@@DDDDDDDDDDDD@@@DDDDDDDDDDDDDD@@DDDDDDDDDDDDDD@DDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDD@@@@DDDDDD@DDDD@@@@@@DDDD@@DDD@@@@@@@@DDD@@@D@@@@@@@@@@D@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ ) (RPAQQ PMANLEFTMAP #*(16 16)@GN@AOOHCOOLAOON@OON@GOO@COO@COO@COO@COO@GOO@OONAOONCOOLAOOH@GN@) (RPAQQ COLORPMANLEFT #*(16 16 4)@@@@@DDDDDD@@@@@@@@DDDDDDDDDD@@@@@DDDDDDDDDDDD@@@@@DDDDDDDDDDDD@@@@@DDDDDDDDDDD@@@@@@DDDDDDDDDDD@@@@@@DDDDDDDDDD@@@@@@DDDDDDDDDD@@@@@@DDDDDDDDDD@@@@@@DDDDDDDDDD@@@@@DDDDDDDDDDD@@@@DDDDDDDDDDD@@@@DDDDDDDDDDDD@@@DDDDDDDDDDDD@@@@@DDDDDDDDDD@@@@@@@@DDDDDD@@@@@ ) (RPAQQ PACMANCMAP #*(16 16)@GN@AOOHCOOLGOONGOONOOOOOOOOOOOOOOOOOOOOOOOOGOONGOONCOOLAOOH@GN@) (RPAQQ COLORPACMANC #*(16 16 4)@@@@@DDDDDD@@@@@@@@DDDDDDDDDD@@@@@DDDDDDDDDDDD@@@DDDDDDDDDDDDDD@@DDDDDDDDDDDDDD@DDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDD@DDDDDDDDDDDDDD@@DDDDDDDDDDDDDD@@@DDDDDDDDDDDD@@@@@DDDDDDDDDD@@@@@@@@DDDDDD@@@@@ ) (RPAQQ DOT #*(4 4)O@@@O@@@O@@@O@@@) (RPAQQ COLORDOT #*(4 4 4)DDDDDDDDDDDDDDDD) (RPAQQ ENERGIZER #*(8 8)CL@@GN@@OO@@OO@@OO@@OO@@GN@@CL@@) (RPAQQ COLORENERGIZER #*(8 8 4)@@DDDD@@@DDDDDD@DDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDD@DDDDDD@@@DDDD@@) (RPAQQ BWG1BITMAP #*(16 16)@GN@ALCHB@@DD@@BH@@AILCIJFDMJFDMJFDMILCIH@@AH@@AH@@AICLIJJEELFFC) (RPAQQ COLORG1BITMAP #*(16 16 4)@@@@@CCCCCC@@@@@@@@CCCCCCCCCC@@@@@CCCCCCCCCCCC@@@CCCCCCCCCCCCCC@CCCGGGCCCCGGGCCCCCCGGGCCCCGGGCCCCCCGG@@CCCGG@@CCCCCGG@@CCCGG@@CCCCCGG@@CCCGG@@CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC@CCC@@CCC@CCCCC@@@CC@@CC@@@CC ) (RPAQQ BWG2BITMAP #*(16 16)@GN@ALCHC@@LF@@FMNGCKAHIJC@MJC@MJC@MKAHIINGAH@@AH@@AKKMMNNGGLFFC) (RPAQQ COLORG2BITMAP #*(16 16 4)@@@@@IIIIII@@@@@@@@IIIIIIIIII@@@@@IIIIIIIIIIII@@@IIIIIIIIIIIIII@IIIGGIIIIIGGGIIIIIIGGIIIIIGGGIIIIIIG@@AIIIG@@AIIIIIG@@AIIIG@@AIIIIIG@@AIIIG@@AIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIII@III@@III@IIIII@@@II@@II@@@II ) (RPAQQ BWG3BITMAP #*(16 16)@GN@ALCHB@@DD@@BH@@AILCIJFDMJFDMJFDMILCIH@@AH@@AH@@AICLIJJEELFFC) (RPAQQ COLORG3BITMAP #*(16 16 4)@@@@@DDDDDD@@@@@@@@DDDDDDDDDD@@@@@DDDDDDDDDDDD@@@DDDDDDDDDDDDDD@DDGGGDDDDGGGDDDDDDGGGDDDDGGGDDDDDDGG@@@DDGG@@@DDDDGG@@@DDGG@@@DDDDDG@@@DDDG@@@DDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDD@DDD@@DDD@DDDDD@@@DD@@DD@@@DD ) (RPAQQ BWG4BITMAP #*(16 16)@GN@AMEHBJJLEEEFJBJEMMCKJFDMNFDOJFDMOMKKJJMEMEJKJJEEMEJKJJEELFFC) (RPAQQ COLORG4BITMAP #*(16 16 4)@@@@@GGGGGG@@@@@@@@GGGGGGGGGG@@@@@GGGGGGGGGGGG@@@GGGGGGGGGGGGGG@GGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGG@@GGGGG@@GGGGGGG@@GGGGG@@GGGGGGG@@GGGGG@@GGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGG@GGG@@GGG@GGGGG@@@GG@@GG@@@GG ) (RPAQQ BWGINVBITMAP #*(16 16)@GN@AOOHCOOLGOONOOOOOOOONGLONGLONGLOOOOOOOOOOOOOOOOOOOOONNGGLFFC) (RPAQQ COLORGINVBITMAP #*(16 16 4)@@@@@AAAAAA@@@@@@@@AAAAAAAAAA@@@@@AAAAAAAAAAAA@@@AAAAAAAAAAAAAA@AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA@@AAAAA@@AAAAAAA@@AAAAA@@AAAAAAA@@AAAAA@@AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA@AAA@@AAA@AAAAA@@@AA@@AA@@@AA ) (RPAQQ CHERRYBITMAP #*(16 16)@@@C@@CN@@NDCMHHGNA@OMC@OHJ@OHJ@OLOHOOONGOOKCOOA@COA@COI@AON@@OL) (RPAQQ COLORCHERRYBITMAP #*(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@@ ) (RPAQQ STRAWBERRYBITMAP #*(16 16)@AH@@AH@AOOHGMKNMNGNHMCKH@@AIHCADAHBD@CFFNBDC@@LCBI@AHC@@IJ@@GL@) (RPAQQ COLORSTRAWBERRYBITMAP #*(16 16 4)@@@@@@@EE@@@@@@@@@@@@@@EE@@@@@@@@@@EEEEEEEEEE@@@@EEEEE@EE@EEEEE@EE@EEEE@@EEEEEE@E@@@EE@E@@EEE@EEE@@@@@@@@@@@@@@EE@@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@@@@@@ ) (RPAQQ ORANGEBITMAP #*(16 16)@GN@@OOLCIL@G@@LGOONOOOOOOOOOOOOOOOOOOOOOOOOGOONGOONCOOL@GN@@@@@) (RPAQQ COLORORANGEBITMAP #*(16 16 4)@@@@@CCCCCC@@@@@@@@@CCCCCCCCCC@@@@CCC@@CCC@@@@@@@CCC@@@@@@@@CC@@@CCCCCCCCCCCCCC@CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC@CCCCCCCCCCCCCC@@CCCCCCCCCCCCCC@@@CCCCCCCCCCCC@@@@@@@CCCCCC@@@@@@@@@@@@@@@@@@@@@ ) (RPAQQ APPLEBITMAP #*(16 16)@@L@@AH@@OO@COOLCOOLGOONGOONGOONGONFGOLFGOHFCOHLCOILAOOH@ON@@GL@) (RPAQQ COLORAPPLEBITMAP #*(16 16 4)@@@@@@@@CC@@@@@@@@@@@@@CC@@@@@@@@@@@CCCCCCCC@@@@@@CCCCCCCCCCCC@@@@CCCCCCCCCCCC@@@CCCCCCCCCCCCCC@@CCCCCCCCCCCCCC@@CCCCCCCCCCCCCC@@CCCCCCCCCC@@CC@@CCCCCCCCC@@@CC@@CCCCCCCC@@@@CC@@@CCCCCCC@@@CC@@@@CCCCCCC@@CCC@@@@@CCCCCCCCCC@@@@@@@CCCCCCC@@@@@@@@@@CCCCC@@@@@@ ) (RPAQQ PINEAPPLEBITMAP #*(16 16)@CL@@EJ@@EJ@@EJ@@EJ@@OK@@OO@AJMHAGOH@NK@AENHAOKHAJO@AOKH@MO@@GN@) (RPAQQ COLORPINEAPPLEBITMAP #*(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@@@@@ ) (RPAQQ BIRDBITMAP #*(16 16)AOOH@HA@@DB@@BD@@BD@OOOOH@@AH@@ADFFBBJEDABDH@BD@@BD@@BD@@AH@@@@@) (RPAQQ COLORBIRDBITMAP #*(16 16 4)@@@FFFFFFFFFF@@@@@@@F@@@@@@F@@@@@@@@@F@@@@F@@@@@@@@@@@F@@F@@@@@@@@@@@@F@@F@@@@@@FFFFFFFFFFFFFFFFF@@@@@@@@@@@@@@FF@@@@@@@@@@@@@@F@F@@@FF@@FF@@@F@@@F@F@F@@F@F@F@@@@@F@@F@@F@@F@@@@@@@@@F@@F@@@@@@@@@@@@F@@F@@@@@@@@@@@@F@@F@@@@@@@@@@@@@FF@@@@@@@@@@@@@@@@@@@@@@@ ) (RPAQQ BELLBITMAP #*(16 16)@GN@@OO@AOOHAGOHCGOLCGOLCGOLCGOLCGOLCGOLCGOLCGOLGOONOOOO@@@@@@@@) (RPAQQ COLORBELLBITMAP #*(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@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ ) (RPAQQ KEYBITMAP #*(16 16)@GN@AOOHANGHCNGLCOOLCOOLCOOLAOOH@OO@@GF@@CD@@CD@@CD@@CH@@C@@@B@@) (RPAQQ COLORKEYBITMAP #*(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@@@@@@@@@ ) (RPAQQ 200BITMAP #*(16 16)@@@@@@@@@@@@FAHFIBDIABDIABDIBBDIDBDIHBDIHBDIOAHF@@@@@@@@@@@@@@@@) (RPAQQ COLOR200BITMAP #*(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@@GG@@@@@G@@G@@G@@GG@@@@@G@@G@@G@@GGGGG@@@GG@@@@GG@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ ) (RPAQQ 400BITMAP #*(16 16)@@@@@@@@@@@@IAHFIBDIIBDIIBDIOJDIABDIABDIABDIAAHF@@@@@@@@@@@@@@@@) (RPAQQ COLOR400BITMAP #*(16 16 4)@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@G@@G@@@GG@@@@GG@G@@G@@G@@G@@G@@GG@@G@@G@@G@@G@@GG@@G@@G@@G@@G@@GGGGGG@G@@G@@G@@G@@@G@@G@@G@@G@@G@@@G@@G@@G@@G@@G@@@G@@G@@G@@G@@G@@@G@@@GG@@@@GG@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ ) (RPAQQ 800BITMAP #*(16 16)@@@@@@@@@@@@FAHFIBDIIBDIIBDIFBDIIBDIIBDIIBDIFAHF@@@@@@@@@@@@@@@@) (RPAQQ COLOR800BITMAP #*(16 16 4)@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@GG@@@@GG@@@@GG@G@@G@@G@@G@@G@@GG@@G@@G@@G@@G@@GG@@G@@G@@G@@G@@G@GG@@@G@@G@@G@@GG@@G@@G@@G@@G@@GG@@G@@G@@G@@G@@GG@@G@@G@@G@@G@@G@GG@@@@GG@@@@GG@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ ) (RPAQQ 1600BITMAP #*(16 16)@@@@@@@@@@@@IHLFJEBIJABIJABIKIBIJEBIJEBIJEBIIHLF@@@@@@@@@@@@@@@@) (RPAQQ COLOR1600BITMAP #*(16 16 4)@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@G@@GG@@@GG@@@GG@G@G@@G@G@@G@G@@GG@G@@@@G@@G@G@@GG@G@@@@G@@G@G@@GG@GGG@@G@@G@G@@GG@G@@G@G@@G@G@@GG@G@@G@G@@G@G@@GG@G@@G@G@@G@G@@GG@@GG@@@GG@@@GG@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ ) (RPAQQ SIGLOGO #*(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@@@@IOOHAHAOHGO@@@@@COOHCHCOLGN@@@@@COO@GHCOLGL@@@@@AOO@O@GOLCH@@@@@@GN@O@GOLC@@@@@@@CNAO@GOLB@@@@@@@ALCN@OOL@@@@@@@@@LGNAOOH@@@@@@@@@@ONCOOH@@@@@@@@@COLGOOH@@@@@@@@@AOLOGON@@@@@@@@@@OOOAON@@@@@@@@@@OOO@OL@@@@@@@@@@GON@CL@@@@@@@@@@GOH@AH@@@@@@@@@@CO@@@H@@@@@@@@@@CL@@@@@@@@@@@@@@@@@ ) (RPAQQ COLORSIGLOGO #*(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@@@@DDDDDDDDDD@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@DDDDDDD@@@DDDDDDDDDDD@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@DDDDDDDD@@@DDDDDDDDDDDD@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@DDDDDDD@@DDDD@DDDDDDDDDD@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@DDDDDDDDDDDD@@@DDDDDDDD@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@DDDDDDDDDDDD@@@@DDDDDD@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@DDDDDDDDDD@@@@@@@DDDD@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@DDDDDDDD@@@@@@@@@@DD@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@DDDDDD@@@@@@@@@@@@D@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@DDDD@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ ) (RPAQQ EYESBITMAP #*(16 16)@@@@@@@@@@@@@@@@@@@@ALCHBFDLBFDLBFDLALCH@@@@@@@@@@@@@@@@@@@@@@@@) (RPAQQ COLOREYESBITMAP #*(16 16 4)@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@CCC@@@@CCC@@@@@C@@CC@@C@@CC@@@@C@@CC@@C@@CC@@@@C@@CC@@C@@CC@@@@@CCC@@@@CCC@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ ) (RPAQQ BIGPMANC #*(64 64)@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@COOL@@@@@@@@@@@GOOOON@@@@@@@@@AOOOOOOL@@@@@@@@GOOOOOOO@@@@@@@AOOOOOOOOL@@@@@@GOOOOOOOOO@@@@@@OOOOOOOOOOH@@@@COOOOOOOOOOL@@@@GOOOOOOOOOON@@@@OOOOOOOOOOOO@@@AOOOOOOOOOOOOH@@COOOOOOOOOOOOL@@COOOOOOOOOOOON@@GOOOOOOOOOOOOO@@GOOOOOOOOOOOOO@@OOOOOOOOOOOOOOHAOOOOOOOOOOOOOOHAOOOOOOOOOOOOOOLCOOOOOOOOOOOOOOLCOOOOOOOOOOOOOONGOOOOOOOOOOOOOONGOOOOOOOOOOOOOONGOOOOOOOOOOOOOONGOOOOOOOOOOOOOONOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOGOOOOOOOOOOOOOOOGOOOOOOOOOOOOOONGOOOOOOOOOOOOOONGOOOOOOOOOOOOOONGOOOOOOOOOOOOOONCOOOOOOOOOOOOOOLCOOOOOOOOOOOOOOLAOOOOOOOOOOOOOOLAOOOOOOOOOOOOOOH@OOOOOOOOOOOOOO@@OOOOOOOOOOOOOO@@GOOOOOOOOOOOON@@GOOOOOOOOOOOON@@COOOOOOOOOOOOL@@AOOOOOOOOOOOOH@@@OOOOOOOOOOOO@@@@GOOOOOOOOOON@@@@COOOOOOOOOOL@@@@@OOOOOOOOOO@@@@@@GOOOOOOOOL@@@@@@AOOOOOOOO@@@@@@@@GOOOOOOL@@@@@@@@@GOOOON@@@@@@@@@@@COON@@@@@@ ) (RPAQQ COLORBIGPMANC #*(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@DDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDD@DDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDD@DDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDD@@DDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDD@@DDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDD@@DDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDD@@@DDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDD@@@@DDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDD@@@@@DDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDD@@@@@DDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDD@@@@@@@DDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDD@@@@@@@@DDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDD@@@@@@@@@DDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDD@@@@@@@@@@DDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDD@@@@@@@@@@@DDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDD@@@@@@@@@@@@@DDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDD@@@@@@@@@@@@@@@DDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDD@@@@@@@@@@@@@@@@@DDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDD@@@@@@@@@@@@@@@@@@@DDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDD@@@@@@@@@@@@@@@@@@@@@@DDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDD@@@@@@@@@@@@@@@@@@@@@@@@@DDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDD@@@@@@@@@@@@@@@@@@@@@@@@@@@@@DDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDD@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@DDDDDDDDDDDDDDDDDDDDDDDDDDDDD@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@DDDDDDDDDDDDDDDDDDDDDD@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@DDDDDDDDDDDDD@@@@@@@@@@@@@@@@@@@@@@@@@ ) (RPAQQ BIGPMANR #*(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@@@@@@ ) (RPAQQ COLORBIGPMANR #*(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@@@@@@@@@@@@@@@@@@@@@@@@@ ) (RPAQQ QUARTERBITMAP #*(32 32)@@@GN@@@@@GHAL@@@@NAIC@@@CIIJHL@@EEECAJ@@LDMJII@ADB@@BBHAFHGO@BDCKAIOLEDA@A@ON@BD@A@ON@BF@ADGO@AB@B@CO@AL@D@CO@AH@D@@F@AN@B@@F@A@@C@@F@AL@B@@B@AN@CL@C@A@@@D@E@ALEDB@DHAB@@B@F@BDBHD@B@BB@@OON@DC@@@@@@DA@BLI@@H@HBMDHA@@DBLI@B@@BBEDHL@@AHLIA@@@@G@@N@@@@@OO@@@ ) (RPAQQ COLORQUARTERBITMAP #*(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@@@@@@@GGG@@@@@@@G@@@@@@@@GGGGGG@@@@@@@GG@@@@@@@@G@@@@@@@@@@@GG@@@@@@@@GGGG@@@@@@@G@@@@@@@@@@GG@@@@@@@@G@@@@@@@@@@GG@@@@@@@@@GG@@@@@@@@GGG@@@@@@@@G@@@@@@@@@@@G@@@@@@@@GGGG@@@@@@@GGGG@@@@@@@@GG@@@@@@@G@@@@@@@@@@@@@G@@@@@@@G@G@@@@@@@GGG@@@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-FROM-LIST 29 (QUOTE DOUBLEPOINTER) 1 (QUOTE ((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 268 526 13 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 1030 2058 0 0 0 3 0 0 8211 0 0 0 0 0) (0 0 0 0 0 8211 0 0 3 0 0 4 2 2 8 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 8205 8204 8204 8206 12 12 8222 8220 8220 8221 8220 8220 8219 0 0 8213 8220 42) (0 0 8211 0 0 8211 0 0 8195 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 8195 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 8198 8204 8204 8201 0 0 8197 8204 8204 8202 0 0 8214 8220 8220 8222 8220 8217) (8211 0 0 0 0 0 0 0 0 0 0 8195 0 0 8195 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 8195 0 0 0 0 0 0 0 0 0 0 8211) (8214 8220 8220 8220 8220 8220 8220 8220 8220 8220 8220 8206 8204 8204 8206 8220 8220 8220 8220 8220 8220 8220 8220 8220 8220 8218) NIL))) ) (RPAQ VIRGINBOARD (READARRAY-FROM-LIST 29 (QUOTE DOUBLEPOINTER) 1 (QUOTE ((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 1987 1988 1989)) (DECLARE%: DONTCOPY (FILEMAP (NIL (6098 83833 (ASSIGNDIR 6108 . 7285) (BLINKENERGIZERS 7287 . 8060) (PLAYERBOARDVAL 8062 . 8529) (BOARDVAL 8531 . 8682) (CHECKAT 8684 . 8857) (COLLISIONCHECK 8859 . 14228) (DECIDE 14230 . 17019) (DOTCHECK 17021 . 17635) (DRAWBOARD 17637 . 19204) (DRAWBOARDNEW 19206 . 20904) (ENERGIZERCHECK 20906 . 21522) (ERASEOBJ 21524 . 21716) (FRUITCHECK 21718 . 23358) (FRUITINIT 23360 . 25095) ( GETHISCORES 25097 . 26175) (GETMONEY 26177 . 27987) (GETMOVE 27989 . 32338) (VOICEINPUT 32340 . 32521) (XLOCTOSCREEN 32523 . 32873) (XSCREENTOLOC 32875 . 33221) (YLOCTOSCREEN 33223 . 33589) (YSCREENTOLOC 33591 . 33969) (HISCORE 33971 . 34891) (INCOLORQ 34893 . 35690) (INPUTMODEQ 35692 . 37111) ( HASCOLORDISPLAYP 37113 . 37696) (INTERMISSION1 37698 . 40635) (ISIGN 40637 . 41138) (JOYSTICK 41140 . 41686) (LOSE 41688 . 42768) (MOVEDOWN 42770 . 43447) (MOVEGHOST 43449 . 48028) (MOVELEFT 48030 . 48709 ) (MOVEOBJ 48711 . 48897) (MOVEPACMAN 48899 . 51299) (MOVERIGHT 51301 . 51980) (MOVEUP 51982 . 52657) (NEWHISCORES 52659 . 53384) (PACINTRO 53386 . 55391) (PACMAN 55393 . 61110) (PACMANINIT 61112 . 64127) (PACMANINITNEW 64129 . 66345) (PACMANNEWGAME 66347 . 66739) (PACMANREINIT 66741 . 70580) (PAINTOBJ 70582 . 70803) (PAINTDOT 70805 . 70969) (PUTDOTS 70971 . 73776) (PUTDOTSAGAIN 73778 . 74758) ( PUTENERGIZERS 74760 . 75317) (REDODOT 75319 . 76114) (REPLACEOBJ 76116 . 76283) (SCAN 76285 . 76764) ( SETBITMAPS 76766 . 78035) (SETBOARDVAL 78037 . 78215) (SETCHARPROPS 78217 . 80551) (SETGCANS 80553 . 80754) (SETGLOCS 80756 . 81756) (SETPLAYERBOARDVAL 81758 . 82073) (SHOW 82075 . 82252) (SHOWCAP 82254 . 82410) (SHOWHISCORES 82412 . 82934) (SPEEDQ 82936 . 83831))))) STOP