(FILECREATED "11-Nov-87 16:20:22" {ICE}<DENBER>LISP>PACMAN.;65 123303
changes to: (FNS MOVEPACMAN)
previous date: "13-Oct-87 11:51:37" {ICE}<DENBER>LISP>PACMAN.;64)
(* Copyright (c) 1984, 1985, 1987 by Xerox Corporation. All rights reserved.)
(PRETTYCOMPRINT PACMANCOMS)
(RPAQQ PACMANCOMS ((FNS ASSIGNDIR BLINKENERGIZERS PLAYERBOARDVAL BOARDVAL CHECKAT COLLISIONCHECK
DECIDE DOTCHECK DRAWBOARD DRAWBOARDNEW ENERGIZERCHECK ERASEOBJ FRUITCHECK
FRUITINIT GETHISCORES GETMONEY GETMOVE VOICEINPUT XLOCTOSCREEN XSCREENTOLOC
YLOCTOSCREEN YSCREENTOLOC HISCORE INCOLORQ INPUTMODEQ HASCOLORDISPLAYP
INTERMISSION1 ISIGN JOYSTICK LOSE MOVEDOWN MOVEGHOST MOVELEFT MOVEOBJ
MOVEPACMAN MOVERIGHT MOVEUP NEWHISCORES PACINTRO PACMAN PACMANINIT
PACMANINITNEW PACMANNEWGAME PACMANREINIT PAINTOBJ PAINTDOT PUTDOTS
PUTDOTSAGAIN PUTENERGIZERS REDODOT REPLACEOBJ SCAN SETBITMAPS SETBOARDVAL
SETCHARPROPS SETGCANS SETGLOCS SETPLAYERBOARDVAL SHOW SHOWCAP SHOWHISCORES
SPEEDQ)
(VARS 1600BITMAP 200BITMAP 400BITMAP 800BITMAP APPLEBITMAP ATTRACTMODE BELLBITMAP BIGPMANC
BIGPMANR BIRDBITMAP BLUETIME BOARD BOARDLIST CHERRY CHERRYBITMAP COLORPMANDOWN
COLORPMANLEFT COLORPMANRIGHT COLORPMANUP DOT ENERGIZER ENERGIZEROBJ EYESBITMAP FRUIT#
FRUITTIME G1BITMAP G2BITMAP G3BITMAP G4BITMAP GINVBITMAP KEYBITMAP MRIGHT (NEXTMOVE
0)
ORANGEBITMAP PACMANC PACMANINCOLOR PINEAPPLEBITMAP PMAN PMANDOWN PMANLEFT PMANRIGHT
PMANUP PMGAMEOVER PSTREAM (PWINDOW)
QUARTERBITMAP ROW SIGLOGO STRAWBERRYBITMAP (PACMANWAITTIME 100)
(PMANINPUTMODE))
(BITMAPS PMANUPMAP COLORPMANUP PMANRIGHTMAP COLORPMANRIGHT PMANDOWNMAP COLORPMANDOWN
PMANLEFTMAP COLORPMANLEFT PACMANCMAP COLORPACMANC DOT COLORDOT ENERGIZER
COLORENERGIZER BWG1BITMAP COLORG1BITMAP BWG2BITMAP COLORG2BITMAP BWG3BITMAP
COLORG3BITMAP BWG4BITMAP COLORG4BITMAP BWGINVBITMAP COLORGINVBITMAP CHERRYBITMAP
COLORCHERRYBITMAP STRAWBERRYBITMAP COLORSTRAWBERRYBITMAP ORANGEBITMAP
COLORORANGEBITMAP APPLEBITMAP COLORAPPLEBITMAP PINEAPPLEBITMAP COLORPINEAPPLEBITMAP
BIRDBITMAP COLORBIRDBITMAP BELLBITMAP COLORBELLBITMAP KEYBITMAP COLORKEYBITMAP
200BITMAP COLOR200BITMAP 400BITMAP COLOR400BITMAP 800BITMAP COLOR800BITMAP
1600BITMAP COLOR1600BITMAP SIGLOGO COLORSIGLOGO EYESBITMAP COLOREYESBITMAP BIGPMANC
COLORBIGPMANC BIGPMANR COLORBIGPMANR QUARTERBITMAP COLORQUARTERBITMAP)
(ARRAY BOARD VIRGINBOARD)
(DECLARE: DOEVAL@COMPILE
(GLOBALVARS 1600BITMAP 200BITMAP 400BITMAP 800BITMAP APPLEBITMAP ATTRACTMODE
BELLBITMAP BIGPMANC BIGPMANR BIRDBITMAP BLUETIME BOARD BOARDLIST
BWG1BITMAP BWG2BITMAP BWG3BITMAP BWG4BITMAP BWGINVBITMAP CHERRYBITMAP
COLOR1600BITMAP COLOR200BITMAP COLOR400BITMAP COLOR800BITMAP
COLORAPPLEBITMAP COLORBELLBITMAP COLORBIGPMANC COLORBIGPMANR
COLORBIRDBITMAP COLORCHERRYBITMAP COLORDOT COLORENERGIZER
COLOREYESBITMAP COLORG1BITMAP COLORG2BITMAP COLORG3BITMAP COLORG4BITMAP
COLORGINVBITMAP COLORKEYBITMAP COLORORANGEBITMAP COLORPACMANC
COLORPINEAPPLEBITMAP COLORPMANDOWN COLORPMANLEFT COLORPMANRIGHT
COLORPMANUP COLORQUARTERBITMAP COLORSIGLOGO COLORSTRAWBERRYBITMAP DOT
ENERGIZER ENERGIZEROBJ EYESBITMAP FOLLOW FRUIT# FRUITLIST FRUITTIME
FRUITVISIBLE G1 G1BITMAP G2 G2BITMAP G3 G3BITMAP G4 G4BITMAP GINVBITMAP
GVALUE GVALUEBITMAPLIST GVALUEPOS HASDOT HILIST HINAMES HIVALUES
KEYBITMAP LASTMOUSEBUTTONS LASTMOUSEX LASTMOUSEY NAME NETP NEXTMOVE
NUMDOTS NUMMEN OLDG1 OLDG2 OLDG3 OLDG4 OLDPMAN ORANGEBITMAP
PMANINPUTMODE PACMANC PACMANCMAP PACMANINCOLOR PACMANVERSION
PINEAPPLEBITMAP PIT PMANDOWN PMANDOWNMAP PMANLEFT PMANLEFTMAP PMANRIGHT
PMANRIGHTMAP PMANUP PMANUPMAP PMGAMEOVER PMOLDCOLORMAP PMWANTMORE
PSTREAM PWINDOW QUARTERBITMAP SAVEGVALUE SCORE SIGLOGO STRAWBERRYBITMAP
VIRGINBOARD))))
(DEFINEQ
(ASSIGNDIR
[LAMBDA (GNUM WANT)
(* MD "27-JAN-84 11:32" When a ghost has a choice of directions to move in, this makes sure they don't all choose
the same way (avoids piggybacking) Returns the final assignment of direction for move)
(SELECTQ GNUM
[1 (for TRY in (QUOTE (8 2 4 1)) as ANS in (QUOTE (2 1 3 4))
do (COND
((NEQ (LOGAND WANT TRY)
0)
(RETURN ANS]
[2 (for TRY in (QUOTE (2 8 1 4)) as ANS in (QUOTE (1 2 4 3))
do (COND
((NEQ (LOGAND WANT TRY)
0)
(RETURN ANS]
[3 (for TRY in (QUOTE (4 8 2 1)) as ANS in (QUOTE (3 2 1 4))
do (COND
((NEQ (LOGAND WANT TRY)
0)
(RETURN ANS]
[4 (for TRY in (QUOTE (1 8 4 2)) as ANS in (QUOTE (4 2 3 1))
do (COND
((NEQ (LOGAND WANT TRY)
0)
(RETURN ANS]
T])
(BLINKENERGIZERS
[LAMBDA NIL (* MD "11-AUG-83 13:04")
(COND
((CHECKAT 1 3 32)
(PAINTOBJ ENERGIZEROBJ (ITIMES 1 11)
(ITIMES 11 (IDIFFERENCE 30 3))
8 8 PSTREAM)))
(COND
((CHECKAT 26 3 32)
(PAINTOBJ ENERGIZEROBJ (ITIMES 26 11)
(ITIMES 11 (IDIFFERENCE 30 3))
8 8 PSTREAM)))
(COND
((CHECKAT 1 23 32)
(PAINTOBJ ENERGIZEROBJ (ITIMES 1 11)
(ITIMES 11 (IDIFFERENCE 30 23))
8 8 PSTREAM)))
(COND
((CHECKAT 26 23 32)
(PAINTOBJ ENERGIZEROBJ (ITIMES 26 11)
(ITIMES 11 (IDIFFERENCE 30 23))
8 8 PSTREAM])
(PLAYERBOARDVAL
[LAMBDA (PLAYER) (* rrb " 3-Feb-84 10:55")
(* returns the representation of the board square that
PLAYER is currently located at.)
(BOARDVAL (GETPROP PLAYER (QUOTE XLOC))
(GETPROP PLAYER (QUOTE YLOC])
(BOARDVAL
[LAMBDA (X Y) (* MD "28-NOV-83 16:44")
(CAR (FNTH (ELT BOARD Y)
X])
(CHECKAT
[LAMBDA (X Y BIT) (* rrb "31-Jan-84 14:02")
(NEQ (LOGAND (BOARDVAL X Y)
BIT)
0])
(COLLISIONCHECK
[LAMBDA (PMAN) (* MD " 4-JAN-84 14:01")
(PROG (X Y GHOST OLDGHOST)
(SETQ X (GETPROP PMAN (QUOTE XLOC)))
(SETQ Y (GETPROP PMAN (QUOTE YLOC)))
(COND
((CHECKAT X Y 3840) (* Was there a collision?)
(SETQ GNUM (LOGAND (BOARDVAL X Y)
3840))
(COND
((IGEQ GNUM 2048)
(SETQ GHOST G4)
(SETQ OLDGHOST OLDG4))
((IGEQ GNUM 1024)
(SETQ GHOST G3)
(SETQ OLDGHOST OLDG3))
((IGEQ GNUM 512)
(SETQ GHOST G2)
(SETQ OLDGHOST OLDG2))
((IGEQ GNUM 256)
(SETQ GHOST G1)
(SETQ OLDGHOST OLDG1)))
(COND
((EQ FOLLOW 1) (* A ghost got him)
(LOSE))
(T (* He got a ghost)
(SHOW (add SCORE GVALUE))
(SETQ SAVEGVALUE GVALUE)
(PUTPROP (CAR (NTH GVALUEBITMAPLIST (IQUOTIENT GVALUE 20)))
(QUOTE OPERATION)
(QUOTE INVERT))
(COND
((IGREATERP (CAR GVALUEPOS)
0) (* Erase the previously displayed point value before
painting the new one.)
(ERASEOBJ (CAR (NTH GVALUEBITMAPLIST (IQUOTIENT (IQUOTIENT GVALUE 2)
20)))
(CAR GVALUEPOS)
(CDR GVALUEPOS)
16 16 PSTREAM)))
(PAINTOBJ (CAR (NTH GVALUEBITMAPLIST (IQUOTIENT GVALUE 20)))
(change (CAR GVALUEPOS)
(IDIFFERENCE (ITIMES (GETPROP GHOST (QUOTE XLOC))
11)
6))
(change (CDR GVALUEPOS)
(IDIFFERENCE (ITIMES (IDIFFERENCE 30 (GETPROP GHOST
(QUOTE YLOC)))
11)
6))
16 16 PSTREAM)
(SETQ GVALUE (ITIMES GVALUE 2))
(PUTPROP GHOST (QUOTE EATEN)
1)))
(DISMISS 1500)
(ERASEOBJ GHOST (IDIFFERENCE (ITIMES (GETPROP GHOST (QUOTE XLOC))
11)
6)
(IDIFFERENCE (ITIMES (IDIFFERENCE 30 (GETPROP GHOST (QUOTE YLOC)))
11)
6)
16 16 PSTREAM)
(COND
[(EQ (GETPROP GHOST (QUOTE EATEN))
1)
(PUTPROP GHOST (QUOTE BITMAP)
(COND
(PACMANINCOLOR COLOREYESBITMAP)
(T EYESBITMAP)))
(PUTPROP OLDGHOST (QUOTE BITMAP)
(GETPROP GHOST (QUOTE BITMAP)))
(SETBOARDVAL X Y (IDIFFERENCE (BOARDVAL X Y)
(GETPROP GHOST (QUOTE BIT]
(T [for G in (QUOTE (G1 G2 G3 G4))
do [SETBOARDVAL (GETPROP (EVAL G)
(QUOTE XLOC))
(GETPROP (EVAL G)
(QUOTE YLOC))
(IDIFFERENCE (BOARDVAL (GETPROP (EVAL G)
(QUOTE XLOC))
(GETPROP (EVAL G)
(QUOTE YLOC)))
(GETPROP (EVAL G)
(QUOTE BIT]
(PUTPROP (EVAL G)
(QUOTE XLOC)
(GETPROP (EVAL G)
(QUOTE INITX)))
(PUTPROP (EVAL G)
(QUOTE YLOC)
(GETPROP (EVAL G)
(QUOTE INITY)))
(SETBOARDVAL (GETPROP (EVAL G)
(QUOTE XLOC))
(GETPROP (EVAL G)
(QUOTE YLOC))
(IPLUS (BOARDVAL (GETPROP (EVAL G)
(QUOTE XLOC))
(GETPROP (EVAL G)
(QUOTE YLOC)))
(GETPROP (EVAL G)
(QUOTE BIT]
(SETGCANS])
(DECIDE
[LAMBDA (GHOST) (* rrb " 3-Feb-84 10:55")
(* MD "27-JAN-84 11:28" Choose a direction for this
ghost to move in)
(PROG (GXINC GYINC WANT CURLOC)
[COND
[(EQ (GETPROP GHOST (QUOTE EATEN))
0)
(SETQ GXINC (ISIGN 1 (ITIMES (IDIFFERENCE (GETPROP PMAN (QUOTE XLOC))
(GETPROP GHOST (QUOTE XLOC)))
FOLLOW)))
(SETQ GYINC (ISIGN 1 (ITIMES (IDIFFERENCE (GETPROP PMAN (QUOTE YLOC))
(GETPROP GHOST (QUOTE YLOC)))
FOLLOW]
(T [SETQ GXINC (ISIGN 1 (IDIFFERENCE 13 (GETPROP GHOST (QUOTE XLOC]
(SETQ GYINC (ISIGN 1 (IDIFFERENCE 12 (GETPROP GHOST (QUOTE YLOC]
(* GXINC & GYINC point towards the desired goal
(either the Pacman or home))
(SETQ WANT 0)
(SETQ CURLOC (PLAYERBOARDVAL GHOST)) (* The direction you WANT to move in is
(possibly) constrained by your CURrent LOCaction)
[COND
((AND (EQ GXINC 1)
(EQ GYINC 1))
(SETQ WANT (LOGAND 5 CURLOC]
[COND
((AND (EQ GXINC 1)
(EQ GYINC -1))
(SETQ WANT (LOGAND 6 CURLOC]
[COND
((AND (EQ GXINC -1)
(EQ GYINC 1))
(SETQ WANT (LOGAND 9 CURLOC]
[COND
((AND (EQ GXINC -1)
(EQ GYINC -1))
(SETQ WANT (LOGAND 10 CURLOC] (* WANT is further constrained to prohibit backing up
(to avoid getting stuck in local minima))
[SETQ WANT (LOGAND WANT (GETPROP GHOST (QUOTE CAN]
[COND
((EQ WANT 0) (* Too much constraint! Try and make the best of it.)
(SETQ WANT (LOGAND CURLOC (GETPROP GHOST (QUOTE CAN]
(RETURN (ASSIGNDIR (GETPROP GHOST (QUOTE NUMBER))
WANT])
(DOTCHECK
[LAMBDA (PMAN) (* MD "26-Mar-84 13:10")
(* Gives Pacman points if now on a dot.
Invokes next board when all dots gone.)
(PROG [(X (GETPROP PMAN (QUOTE XLOC)))
(Y (GETPROP PMAN (QUOTE YLOC]
(COND
((CHECKAT X Y 16)
(SETBOARDVAL X Y (IDIFFERENCE (BOARDVAL X Y)
16))
(SHOW (ADD SCORE 1))
(ADD NUMDOTS -1)
(COND
((EQ NUMDOTS 0)
(PACMANREINIT])
(DRAWBOARD
[LAMBDA NIL (* MD "16-AUG-83 11:44")
(PROG (X1 Y1 X2 Y2)
(DSPRESET PSTREAM)
(SETQ X1 0)
(while (NEQ (SETQ X1 (READ))
99)
do (SETQ Y1 (READ))
(SETQ X2 (READ))
(SETQ Y2 (READ))
[SETQ BOARDLIST (APPEND BOARDLIST (LIST (LIST X1 Y1 X2 Y2]
(COND
((AND (EQ X1 X2)
(ILESSP Y1 Y2))
(DRAWLINE (ITIMES X1 11)
(IPLUS (ITIMES 11 (IDIFFERENCE 30 Y1))
2)
(ITIMES 11 X2)
(ITIMES 11 (IDIFFERENCE 30 Y2))
4
(QUOTE PAINT)
PSTREAM))
(T (DRAWLINE (ITIMES X1 11)
(ITIMES 11 (IDIFFERENCE 30 Y1))
(ITIMES 11 X2)
(ITIMES 11 (IDIFFERENCE 30 Y2))
4
(QUOTE PAINT)
PSTREAM])
(DRAWBOARDNEW
[LAMBDA NIL (* MD " 8-NOV-83 16:12")
(PROG (X1 Y1 X2 Y2)
(DSPRESET PSTREAM)
(for XYPAIR in BOARDLIST
do (SETQ X1 (CAR XYPAIR))
(SETQ Y1 (CADR XYPAIR))
(SETQ X2 (CADDR XYPAIR))
(SETQ Y2 (CADDDR XYPAIR))
(COND
((AND (EQ X1 X2)
(ILESSP Y1 Y2))
(DRAWLINE (ITIMES X1 11)
(IPLUS (ITIMES 11 (IDIFFERENCE 30 Y1))
2)
(ITIMES 11 X2)
(ITIMES 11 (IDIFFERENCE 30 Y2))
4
(QUOTE PAINT)
PSTREAM 1))
(T (DRAWLINE (ITIMES X1 11)
(ITIMES 11 (IDIFFERENCE 30 Y1))
(ITIMES 11 X2)
(ITIMES 11 (IDIFFERENCE 30 Y2))
4
(QUOTE PAINT)
PSTREAM 1])
(ENERGIZERCHECK
[LAMBDA (PMAN) (* MD "22-JUL-83 10:56")
(PROG (X Y)
(SETQ X (GETPROP PMAN (QUOTE XLOC)))
(SETQ Y (GETPROP PMAN (QUOTE YLOC)))
(COND
((CHECKAT X Y 32)
(SETBOARDVAL X Y (IDIFFERENCE (BOARDVAL X Y)
32))
(MOVETO 130 350 PSTREAM)
(PRIN1 (SETQ SCORE (IPLUS SCORE 5))
PSTREAM)
(PRIN1 0 PSTREAM)
(SETQ GVALUE 20)
(SETQ FOLLOW -1)
(SETQ BLUETIME 0])
(ERASEOBJ
[LAMBDA (OBJ X Y W H STREAM) (* KW "18-MAY-83 14:52")
(BITBLT (GETPROP OBJ (QUOTE BITMAP))
NIL NIL STREAM X Y W H NIL (QUOTE ERASE)
NIL NIL])
(FRUITCHECK
[LAMBDA NIL (* MD "30-AUG-83 14:23")
(SETQ FRUITTIME (ADD1 FRUITTIME))
(COND
((EQ FRUITTIME 60)
(PUTPROP (CAR (NTH FRUITLIST FRUIT#))
(QUOTE OPERATION)
(QUOTE PAINT))
(PAINTOBJ (CAR (NTH FRUITLIST FRUIT#))
(IDIFFERENCE (ITIMES 13 11)
6)
(IDIFFERENCE (ITIMES (IDIFFERENCE 30 17)
11)
6)
16 16 PSTREAM))
((IGREATERP FRUITTIME 120)
(ERASEOBJ (CAR (NTH FRUITLIST FRUIT#))
(IDIFFERENCE (ITIMES 13 11)
6)
(IDIFFERENCE (ITIMES (IDIFFERENCE 30 17)
11)
6)
16 16 PSTREAM))
((IGREATERP FRUITTIME 60)
(COND
((CHECKAT (GETPROP PMAN (QUOTE XLOC))
(GETPROP PMAN (QUOTE YLOC))
16384)
[SETQ SCORE (IPLUS SCORE (GETPROP (CAR (NTH FRUITLIST FRUIT#))
(QUOTE VALUE]
(SHOW SCORE)
(SETQ FRUITVISIBLE NIL)
(ERASEOBJ (CAR (NTH FRUITLIST FRUIT#))
(IDIFFERENCE (ITIMES 13 11)
6)
(IDIFFERENCE (ITIMES (IDIFFERENCE 30 17)
11)
6)
16 16 PSTREAM)
(PAINTOBJ (CAR (NTH FRUITLIST FRUIT#))
(IPLUS 160 (ITIMES FRUIT# 20))
350 16 16 PSTREAM])
(FRUITINIT
[LAMBDA NIL (* MD "10-NOV-83 13:18")
(SETQ FRUIT# 0)
(SETQ FRUITLIST (QUOTE (CHERRY STRAWBERRY ORANGE ORANGE APPLE APPLE PINEAPPLE PINEAPPLE BIRD BIRD
BELL BELL KEY)))
(PUTPROP (QUOTE CHERRY)
(QUOTE BITMAP)
(COND
(PACMANINCOLOR COLORCHERRYBITMAP)
(T CHERRYBITMAP)))
(PUTPROP (QUOTE CHERRY)
(QUOTE VALUE)
10)
(PUTPROP (QUOTE STRAWBERRY)
(QUOTE BITMAP)
(COND
(PACMANINCOLOR COLORSTRAWBERRYBITMAP)
(T STRAWBERRYBITMAP)))
(PUTPROP (QUOTE STRAWBERRY)
(QUOTE VALUE)
30)
(PUTPROP (QUOTE ORANGE)
(QUOTE BITMAP)
(COND
(PACMANINCOLOR COLORORANGEBITMAP)
(T ORANGEBITMAP)))
(PUTPROP (QUOTE ORANGE)
(QUOTE VALUE)
50)
(PUTPROP (QUOTE APPLE)
(QUOTE BITMAP)
(COND
(PACMANINCOLOR COLORAPPLEBITMAP)
(T APPLEBITMAP)))
(PUTPROP (QUOTE APPLE)
(QUOTE VALUE)
70)
(PUTPROP (QUOTE PINEAPPLE)
(QUOTE BITMAP)
(COND
(PACMANINCOLOR COLORPINEAPPLEBITMAP)
(T PINEAPPLEBITMAP)))
(PUTPROP (QUOTE PINEAPPLE)
(QUOTE VALUE)
100)
(PUTPROP (QUOTE BIRD)
(QUOTE BITMAP)
(COND
(PACMANINCOLOR COLORBIRDBITMAP)
(T BIRDBITMAP)))
(PUTPROP (QUOTE BIRD)
(QUOTE VALUE)
200)
(PUTPROP (QUOTE BELL)
(QUOTE BITMAP)
(COND
(PACMANINCOLOR COLORBELLBITMAP)
(T BELLBITMAP)))
(PUTPROP (QUOTE BELL)
(QUOTE VALUE)
300)
(PUTPROP (QUOTE KEY)
(QUOTE BITMAP)
(COND
(PACMANINCOLOR COLORKEYBITMAP)
(T KEYBITMAP)))
(PUTPROP (QUOTE KEY)
(QUOTE VALUE)
500])
(GETHISCORES
[LAMBDA NIL (* rrb " 3-Feb-84 14:36")
(CLEARW PWINDOW)
(SHOWCAP "Read high scores?" 70 200) (* move cursor to near question.)
(CURSORPOSITION (create POSITION
XCOORD ←(IPLUS (DSPXPOSITION NIL PWINDOW)
20)
YCOORD ←(IDIFFERENCE (DSPYPOSITION NIL PWINDOW)
50))
PWINDOW)
(COND
((EQ [MENU (create MENU
ITEMS ←(QUOTE ((Yes (QUOTE Y))
(No (QUOTE N]
(QUOTE Y))
(SETQ NETP T)
(INFILE (QUOTE {ICE}<SYSIFS>PSYSICE)
(QUOTE READ))
(SETQ HILIST (READ))
(SHOWHISCORES)
(CLOSEF (QUOTE {ICE}<SYSIFS>PSYSICE))
(SHOWCAP "Click LEFT or FIRE (joystick) when ready." 6 20)
(until (OR (UNTILMOUSESTATE (OR LEFT MIDDLE)
10)
(KEYDOWNP (QUOTE PAD1)))
do))
(T (SETQ NETP NIL])
(GETMONEY
[LAMBDA NIL (* MD "15-Mar-85 16:05")
(PROG (PMHADENOUGH)
(SHOWCAP "INSERT QUARTER TO START GAME" 50 20)
(SHOWCAP "(Click anywhere else to quit)" 50 6)
(PUTPROP INTROOBJ (QUOTE BITMAP)
(COND
(PACMANINCOLOR COLORQUARTERBITMAP)
(T QUARTERBITMAP)))
(PAINTOBJ INTROOBJ 150 40 64 32 PSTREAM)
(GETMOUSESTATE)
(until [OR (SETQ PMWANTMORE (KEYDOWNP (QUOTE PAD1)))
(SETQ PMWANTMORE (COND
((AND (EQ PMANINPUTMODE (QUOTE VOICE))
(EQ (VOICEINPUT)
0))
T)
(T NIL)))
[SETQ PMWANTMORE (AND (MOUSESTATE (OR LEFT MIDDLE))
(INSIDEP (QUOTE (150 40 32 32))
(LASTMOUSEX PSTREAM)
(LASTMOUSEY PSTREAM]
(SETQ PMHADENOUGH (AND (MOUSESTATE (OR LEFT MIDDLE))
(NOT (INSIDEP (QUOTE (150 40 32 32))
(LASTMOUSEX PSTREAM)
(LASTMOUSEY PSTREAM]
do (GETMOUSESTATE))
(COND
(PMHADENOUGH (SETQ PMWANTMORE NIL])
(GETMOVE
[LAMBDA (MOVE) (* MJD "11-Dec-85 14:05")
(PROG (CHAR OLDX OLDY (XINC 0)
(YINC 0))
(CONTROL T)
(SETQ CHAR (OR (AND (EQ PMANINPUTMODE (QUOTE VOICE))
(VOICEINPUT))
(JOYSTICK)))
[COND
((AND (NOT CHAR)
(NOT (READP T)))
(SETQ OLDX LASTMOUSEX)
(SETQ OLDY LASTMOUSEY)
(GETMOUSESTATE)
(if (EQ (MACHINETYPE)
(QUOTE DORADO))
then (DISMISS 3)) (* This is needed to give LMX & LMY time to change
values.)
(SETQ XINC (IDIFFERENCE LASTMOUSEX OLDX))
(SETQ YINC (IDIFFERENCE LASTMOUSEY OLDY))
(COND
((ILESSP OLDX 32)
(ADJUSTCURSORPOSITION 64 0))) (* Keep cursor from bumping into edge of screen.)
(COND
((ILESSP OLDY 32)
(ADJUSTCURSORPOSITION 0 64)))
(COND
((IGREATERP OLDX (COND
(PACMANINCOLOR 620)
(T 1000)))
(ADJUSTCURSORPOSITION -64 0)))
(COND
((IGREATERP OLDY (COND
(PACMANINCOLOR 460)
(T 780)))
(ADJUSTCURSORPOSITION 0 -64]
[COND
((AND (NOT CHAR)
(NOT (READP T))
(NOT ATTRACTMODE)
(ILESSP (ABS XINC)
6)
(ILESSP (ABS YINC)
6))
(COND
((AND (NEQ NEXTMOVE 0)
(CHECKAT (GETPROP PMAN (QUOTE XLOC))
(GETPROP PMAN (QUOTE YLOC))
NEXTMOVE))
(RETURN NEXTMOVE))
((CHECKAT (GETPROP PMAN (QUOTE XLOC))
(GETPROP PMAN (QUOTE YLOC))
MOVE)
(RETURN MOVE))
(T (RETURN 0]
[SETQ DIR (COND
(CHAR CHAR)
[(READP T)
(RESETFORM (ECHOMODE NIL)
(SETQ CHAR (READC))
(COND
((EQ CHAR (QUOTE L))
4)
((EQ CHAR (QUOTE J))
8)
((EQ CHAR (QUOTE I))
2)
((EQ CHAR (QUOTE % ))
1)
(T MOVE]
[ATTRACTMODE (CAR (NTH (QUOTE (1 2 4 8))
(RAND 1 4]
(T (COND
((AND (IGREATERP XINC 0)
(IGREATERP (ABS XINC)
(ABS YINC)))
4)
((AND (ILESSP XINC 0)
(IGREATERP (ABS XINC)
(ABS YINC)))
8)
((AND (IGREATERP YINC 0)
(IGEQ (ABS YINC)
(ABS XINC)))
2)
((AND (ILESSP YINC 0)
(IGEQ (ABS YINC)
(ABS XINC)))
1]
(COND
((CHECKAT (GETPROP PMAN (QUOTE XLOC))
(GETPROP PMAN (QUOTE YLOC))
DIR)
(SETQ NEXTMOVE DIR)
(RETURN DIR))
(T (SETQ NEXTMOVE DIR)
(COND
((CHECKAT (GETPROP PMAN (QUOTE XLOC))
(GETPROP PMAN (QUOTE YLOC))
MOVE)
(RETURN MOVE))
(T (RETURN 0])
(VOICEINPUT
[LAMBDA NIL (* MD "15-Mar-85 13:15")
(NUMBERP (CHARACTER (OR (RS232READBYTE)
0])
(XLOCTOSCREEN
[LAMBDA (XLOC) (* rrb " 3-Feb-84 12:20")
(* converts from a pacman board square to a screen
coordinate.)
(IDIFFERENCE (ITIMES XLOC 11)
6])
(XSCREENTOLOC
[LAMBDA (XLOC) (* rrb " 3-Feb-84 12:29")
(* converts from a screen coordinate to a pacman board
square)
(IQUOTIENT (IPLUS XLOC 6)
11])
(YLOCTOSCREEN
[LAMBDA (YLOC) (* rrb " 3-Feb-84 12:31")
(* converts from a y location to window coordinates.)
(IPLUS (IQUOTIENT (IPLUS 6 YLOC)
11)
30])
(YSCREENTOLOC
[LAMBDA (YLOC) (* rrb " 3-Feb-84 12:41")
(* converts from a screen coordinate to a pacman board
square)
(IDIFFERENCE 30 (IQUOTIENT (IPLUS YLOC 6)
11])
(HISCORE
[LAMBDA NIL (* MD "29-AUG-83 17:11")
(PROG (Y)
(CLEARW PWINDOW)
(SHOWCAP "Read high scores?" 70 200)
(COND
((EQ (READ)
(QUOTE Y))
(SHOWCAP "Y" 200 200)
(SETPASSWORD (QUOTE {ICE})
(QUOTE PSYS)
"PRTZKRK"
(QUOTE SYSIFS))
(INFILE (QUOTE {ICE}<SYSIFS>PSYSICE)
(QUOTE READ))
(SETQ HINAMES (READ))
(SETQ HIVALUES (READ))
(CLEARW PWINDOW)
(SHOWCAP "High scores" 100 330)
(SETQ Y 300)
(for I in HINAMES as J in HIVALUES
do (SHOWCAP I 50 Y)
(SHOWCAP J 200 Y)
(SETQ Y (IDIFFERENCE Y 16)))
(CLOSEF (QUOTE {ICE}<SYSIFS>PSYSICE])
(INCOLORQ
[LAMBDA NIL (* MJD "13-Oct-87 11:41")
(SELECTQ (MACHINETYPE)
((DOLPHIN DORADO)
(COND
[(HASCOLORDISPLAYP)
(printout T "In color?" T)
(MENU (create MENU
ITEMS ←(QUOTE ((Yes T
"Will play Pacman in color. - Only if you have a color display.")
(No (QUOTE NIL)
"Plays Pacman on the standard display."))
)
TITLE ←(QUOTE Color?]
(T NIL)))
((DANDELION DOVE)
NIL)
(printout T "Unknown machine type."])
(INPUTMODEQ
[LAMBDA NIL (* MJD "11-Dec-85 14:08")
(* returns the mode of input after querying the user.)
(printout T T "You can input your moves using the " "MOUSE (by having " "PMAN move "
"in the same direction "
"as the cursor moved), " "KEYBOARD (I is up, " "J is left, " "L is right, "
"space is down) "
"or " "JOYSTICK (if you have one on your machine), "
"or voice control (if you have the voice board).")
(PRINTOUT T "You can change modes any time even during a game." T)
(OR (MENU (create MENU
ITEMS ← (QUOTE ((Cursor (QUOTE SAMEDIRASCURSOR)
"PMAN will move in the same direction as the cursor just moved.")
(Keyboard (QUOTE KEYS)
"PMAN is controlled by I, J, L and spacebar.")
(Joystick (QUOTE JOYSTICK)
"PMAN is controlled by the Joystick.")
(Voice (QUOTE VOICE)
"Pacman is controlled by voice control ('up', 'down', 'left', 'right'")))
CENTERFLG ← T
TITLE ← "Choose mode"))
(QUOTE SAMEDIRASCURSOR])
(HASCOLORDISPLAYP
[LAMBDA NIL (* rrb "27-Jan-84 14:48")
(* does this machine have a color display.
Returns MAYBE if is can't tell.)
(SELECTQ (MACHINETYPE)
(DOLPHIN (EQ (LRSH (\DEVICE.INPUT 80)
8)
175))
(DORADO (QUOTE MAYBE))
NIL])
(INTERMISSION1
[LAMBDA NIL (* MD "29-NOV-83 15:58")
(PROG (BIGOBJ OLDBIGOBJ)
(PUTPROP G1 (QUOTE BITMAP)
G1BITMAP)
(CLEARW PWINDOW)
[for X from 350 to -45 by -1
do (COND
((EQ (IREMAINDER (IQUOTIENT X 10)
2)
0)
(PUTPROP PMAN (QUOTE BITMAP)
PMANLEFT))
(T (PUTPROP PMAN (QUOTE BITMAP)
PACMANC)))
(MOVEOBJ PMAN OLDPMAN X 200 (SUB1 X)
200 16 16 PSTREAM)
(MOVEOBJ G1 G1 (IPLUS X 30)
200
(IPLUS X 29)
200 16 16 PSTREAM)
(PUTPROP OLDPMAN (QUOTE BITMAP)
(GETPROP PMAN (QUOTE BITMAP]
(SETQ BIGOBJ (QUOTE BIGP))
(SETQ OLDBIGOBJ (QUOTE OLDBIGP))
[for X from -45 to 350 by 2
do [COND
[(EQ (IREMAINDER (IQUOTIENT X 10)
2)
0)
(PUTPROP BIGOBJ (QUOTE BITMAP)
(COND
(PACMANINCOLOR COLORBIGPMANR)
(T BIGPMANR]
(T (PUTPROP BIGOBJ (QUOTE BITMAP)
(COND
(PACMANINCOLOR COLORBIGPMANC)
(T BIGPMANC]
(MOVEOBJ BIGOBJ OLDBIGOBJ X 200 (IPLUS X 2)
200 64 64 PSTREAM)
(MOVEOBJ G1 G1 (IPLUS X 75)
200
(IPLUS X 77)
200 16 16 PSTREAM)
(PUTPROP OLDBIGOBJ (QUOTE BITMAP)
(GETPROP BIGOBJ (QUOTE BITMAP]
(DISMISS 2000])
(ISIGN
[LAMBDA (VALUE SIGN) (* MD " 4-JAN-84 16:55")
(COND
((IGREATERP SIGN 0)
VALUE)
((ILESSP SIGN 0)
(ITIMES (IABS VALUE)
-1))
(T (* If sign is 0 then make + or -
randomly)
(ITIMES (IABS VALUE)
(CAR (NTH (QUOTE (-1 1))
(RAND 1 2])
(JOYSTICK
[LAMBDA NIL (* MD "28-NOV-83 12:13")
(* Pinouts: (Atari D0) (Fire PAD1) (E PAD2) (W PAD3) (S PAD4) (N PAD5) Atari connector: Top row
(view from outside) 0 E W S N; bottom row: 0 GND 0 Fire ; D0 connector: middle row: 0 0 Fire E W S N;
bottom row GND 0 0 0 0 0)
(COND
((KEYDOWNP (QUOTE PAD2))
4)
((KEYDOWNP (QUOTE PAD3))
8)
((KEYDOWNP (QUOTE PAD4))
1)
((KEYDOWNP (QUOTE PAD5))
2])
(LOSE
[LAMBDA NIL (* MD " 8-DEC-83 12:50")
(SETQ NUMMEN (SUB1 NUMMEN))
(PUTPROP PMAN (QUOTE BITMAP)
PACMANC)
(ERASEOBJ PMAN (IDIFFERENCE (ITIMES (GETPROP PMAN (QUOTE XLOC))
11)
6)
(IDIFFERENCE (ITIMES (IDIFFERENCE 30 (GETPROP PMAN (QUOTE YLOC)))
11)
6)
16 16 PSTREAM)
(COND
((EQ NUMMEN 2)
(ERASEOBJ PMAN 40 345 16 16 PSTREAM))
((EQ NUMMEN 1)
(ERASEOBJ PMAN 20 345 16 16 PSTREAM))
((EQ NUMMEN 0)
(SHOWCAP "GAME OVER" (ITIMES 11 11)
(ITIMES (IDIFFERENCE 30 17)
11))
(COND
([AND NETP (IGREATERP (ITIMES SCORE 10)
(CAAR (LAST HILIST]
(DISMISS 2000)
(NEWHISCORES)))
(CLEARBUF T T)
(CONTROL NIL)
(SETQ PMGAMEOVER T)))
(PUTPROP PMAN (QUOTE XLOC)
13)
(PUTPROP PMAN (QUOTE YLOC)
23)
(SETQ MOVE 8])
(MOVEDOWN
[LAMBDA (OBJ OLDOBJ) (* MD " 6-JAN-83 16:22")
(MOVEOBJ OBJ OLDOBJ (IDIFFERENCE (ITIMES (GETPROP OLDOBJ (QUOTE XLOC))
11)
6)
(IDIFFERENCE (ITIMES (IDIFFERENCE 30 (GETPROP OLDOBJ (QUOTE YLOC)))
11)
6)
(IDIFFERENCE (ITIMES (GETPROP OBJ (QUOTE XLOC))
11)
6)
(IDIFFERENCE (ITIMES [IDIFFERENCE 30 (PUTPROP OBJ (QUOTE YLOC)
(ADD1 (GETPROP OBJ (QUOTE YLOC]
11)
6)
16 16 PSTREAM])
(MOVEGHOST
[LAMBDA (GHOST OLDGHOST) (* rrb " 3-Feb-84 11:03")
(COND
((AND (EQ CYCLE 2)
(CHECKAT (GETPROP GHOST (QUOTE XLOC))
(GETPROP GHOST (QUOTE YLOC))
4096)) (* Slow spot)
T)
[(IGREATERP (GETPROP GHOST (QUOTE GIT))
0) (* In tunnel)
(add (GETPROP GHOST (QUOTE GIT))
1)
(COND
((IGREATERP (GETPROP GHOST (QUOTE GIT))
4)
(PUTPROP GHOST (QUOTE GIT)
0]
(T [COND
((EQ (GETPROP GHOST (QUOTE EATEN))
0)
(SETPLAYERBOARDVAL GHOST (IDIFFERENCE (PLAYERBOARDVAL GHOST)
(GETPROP GHOST (QUOTE BIT]
[COND
((EQ (GETPROP GHOST (QUOTE EATEN))
0)
(COND
[(IGREATERP BLUETIME 30) (* Blink all uneaten ghosts)
(COND
((EQ CYCLE 1)
(PUTPROP GHOST (QUOTE BITMAP)
GINVBITMAP))
(T (PUTPROP GHOST (QUOTE BITMAP)
(EVAL (CAR (NTH (QUOTE (G1BITMAP G2BITMAP G3BITMAP G4BITMAP))
(GETPROP GHOST (QUOTE NUMBER]
((IGREATERP BLUETIME 0)
(PUTPROP GHOST (QUOTE BITMAP)
GINVBITMAP]
(SELECTQ (DECIDE GHOST)
(1 (MOVEUP GHOST OLDGHOST)
(PUTPROP GHOST (QUOTE CAN)
14))
(2 (COND
((CHECKAT (GETPROP GHOST (QUOTE XLOC))
(GETPROP GHOST (QUOTE YLOC))
64)
(ERASEOBJ OLDGHOST (IDIFFERENCE (ITIMES (GETPROP OLDGHOST (QUOTE XLOC))
11)
6)
(IDIFFERENCE (ITIMES (IDIFFERENCE 30 (GETPROP OLDGHOST
(QUOTE YLOC)))
11)
6)
16 16 PSTREAM)
(PUTPROP GHOST (QUOTE XLOC)
26)
(PUTPROP GHOST (QUOTE GIT)
1))
(T (MOVELEFT GHOST OLDGHOST)))
(PUTPROP GHOST (QUOTE CAN)
11))
(3 (COND
((CHECKAT (GETPROP GHOST (QUOTE XLOC))
(GETPROP GHOST (QUOTE YLOC))
128)
(ERASEOBJ OLDGHOST (IDIFFERENCE (ITIMES (GETPROP OLDGHOST (QUOTE XLOC))
11)
6)
(IDIFFERENCE (ITIMES (IDIFFERENCE 30 (GETPROP OLDGHOST
(QUOTE YLOC)))
11)
6)
16 16 PSTREAM)
(PUTPROP GHOST (QUOTE XLOC)
1)
(PUTPROP GHOST (QUOTE GIT)
1))
(T (MOVERIGHT GHOST OLDGHOST)))
(PUTPROP GHOST (QUOTE CAN)
7))
(4 (MOVEDOWN GHOST OLDGHOST)
(PUTPROP GHOST (QUOTE CAN)
13))
T)
(REDODOT (GETPROP OLDGHOST (QUOTE XLOC))
(GETPROP OLDGHOST (QUOTE YLOC)))
(PUTPROP OLDGHOST (QUOTE XLOC)
(GETPROP GHOST (QUOTE XLOC)))
(PUTPROP OLDGHOST (QUOTE YLOC)
(GETPROP GHOST (QUOTE YLOC)))
(COND
[(IGREATERP BLUETIME 30)
(PUTPROP OLDGHOST (QUOTE BITMAP)
(GETPROP GHOST (QUOTE BITMAP]
((AND (EQ (GETPROP GHOST (QUOTE EATEN))
0)
(IGREATERP BLUETIME 0))
(PUTPROP OLDGHOST (QUOTE BITMAP)
GINVBITMAP)))
[COND
((AND (EQ (GETPROP GHOST (QUOTE EATEN))
1)
(EQ (GETPROP GHOST (QUOTE YLOC))
12)
(EQ (GETPROP GHOST (QUOTE XLOC))
13))
(PUTPROP GHOST (QUOTE EATEN)
0)
[PUTPROP GHOST (QUOTE BITMAP)
(EVAL (CAR (NTH (QUOTE (G1BITMAP G2BITMAP G3BITMAP G4BITMAP))
(GETPROP GHOST (QUOTE NUMBER]
(PUTPROP OLDGHOST (QUOTE BITMAP)
(GETPROP GHOST (QUOTE BITMAP]
(COND
((EQ (GETPROP GHOST (QUOTE EATEN))
0)
(SETBOARDVAL (GETPROP GHOST (QUOTE XLOC))
(GETPROP GHOST (QUOTE YLOC))
(IPLUS (BOARDVAL (GETPROP GHOST (QUOTE XLOC))
(GETPROP GHOST (QUOTE YLOC)))
(GETPROP GHOST (QUOTE BIT])
(MOVELEFT
[LAMBDA (OBJ OLDOBJ) (* rrb "31-Jan-84 10:15")
(MOVEOBJ OBJ OLDOBJ (IDIFFERENCE (ITIMES (GETPROP OLDOBJ (QUOTE XLOC))
11)
6)
(IDIFFERENCE (ITIMES (IDIFFERENCE 30 (GETPROP OLDOBJ (QUOTE YLOC)))
11)
6)
(IDIFFERENCE (ITIMES [PUTPROP OBJ (QUOTE XLOC)
(SUB1 (GETPROP OBJ (QUOTE XLOC]
11)
6)
(IDIFFERENCE (ITIMES (IDIFFERENCE 30 (GETPROP OBJ (QUOTE YLOC)))
11)
6)
16 16 PSTREAM])
(MOVEOBJ
[LAMBDA (OBJ OLDOBJ X1 Y1 X2 Y2 W H STREAM) (* MD " 3-JAN-83 14:51")
(ERASEOBJ OLDOBJ X1 Y1 W H STREAM)
(PAINTOBJ OBJ X2 Y2 W H STREAM])
(MOVEPACMAN
[LAMBDA (PMAN DIR) (* MJD "11-Nov-87 16:18")
(SELECTQ DIR
(1 (PUTPROP PMAN (QUOTE BITMAP)
(COND
((EQ CYCLE 1)
PMANDOWN)
(T PACMANC)))
(MOVEDOWN PMAN OLDPMAN))
(2 (PUTPROP PMAN (QUOTE BITMAP)
(COND
((EQ CYCLE 1)
PMANUP)
(T PACMANC)))
(MOVEUP PMAN OLDPMAN))
[4 (PUTPROP PMAN (QUOTE BITMAP)
(COND
((EQ CYCLE 1)
PMANRIGHT)
(T PACMANC)))
(COND
((CHECKAT (GETPROP PMAN (QUOTE XLOC))
(GETPROP PMAN (QUOTE YLOC))
128)
(ERASEOBJ OLDPMAN (IDIFFERENCE (ITIMES (GETPROP OLDPMAN (QUOTE XLOC))
11)
6)
(IDIFFERENCE (ITIMES (IDIFFERENCE 30 (GETPROP OLDPMAN
(QUOTE
YLOC)))
11)
6)
16 16 PSTREAM)
(PUTPROP PMAN (QUOTE XLOC)
1)
(SETQ PIT 1))
(T (MOVERIGHT PMAN OLDPMAN]
[8 (PUTPROP PMAN (QUOTE BITMAP)
(COND
((EQ CYCLE 1)
PMANLEFT)
(T PACMANC)))
(COND
((CHECKAT (GETPROP PMAN (QUOTE XLOC))
(GETPROP PMAN (QUOTE YLOC))
64)
(ERASEOBJ OLDPMAN (IDIFFERENCE (ITIMES (GETPROP OLDPMAN (QUOTE XLOC))
11)
6)
(IDIFFERENCE (ITIMES (IDIFFERENCE 30 (GETPROP OLDPMAN
(QUOTE
YLOC)))
11)
6)
16 16 PSTREAM)
(PUTPROP PMAN (QUOTE XLOC)
26)
(SETQ PIT 1))
(T (MOVELEFT PMAN OLDPMAN]
(T NIL))
(PUTPROP OLDPMAN (QUOTE BITMAP)
(GETPROP PMAN (QUOTE BITMAP)))
(PUTPROP OLDPMAN (QUOTE XLOC)
(GETPROP PMAN (QUOTE XLOC)))
(PUTPROP OLDPMAN (QUOTE YLOC)
(GETPROP PMAN (QUOTE YLOC])
(MOVERIGHT
[LAMBDA (OBJ OLDOBJ) (* MD " 6-JAN-83 16:21")
(MOVEOBJ OBJ OLDOBJ (IDIFFERENCE (ITIMES (GETPROP OLDOBJ (QUOTE XLOC))
11)
6)
(IDIFFERENCE (ITIMES (IDIFFERENCE 30 (GETPROP OLDOBJ (QUOTE YLOC)))
11)
6)
(IDIFFERENCE (ITIMES [PUTPROP OBJ (QUOTE XLOC)
(ADD1 (GETPROP OBJ (QUOTE XLOC]
11)
6)
(IDIFFERENCE (ITIMES (IDIFFERENCE 30 (GETPROP OBJ (QUOTE YLOC)))
11)
6)
16 16 PSTREAM])
(MOVEUP
[LAMBDA (OBJ OLDOBJ) (* MD " 6-JAN-83 16:21")
(MOVEOBJ OBJ OLDOBJ (IDIFFERENCE (ITIMES (GETPROP OLDOBJ (QUOTE XLOC))
11)
6)
(IDIFFERENCE (ITIMES (IDIFFERENCE 30 (GETPROP OLDOBJ (QUOTE YLOC)))
11)
6)
(IDIFFERENCE (ITIMES (GETPROP OBJ (QUOTE XLOC))
11)
6)
(IDIFFERENCE (ITIMES [IDIFFERENCE 30 (PUTPROP OBJ (QUOTE YLOC)
(SUB1 (GETPROP OBJ (QUOTE YLOC]
11)
6)
16 16 PSTREAM])
(NEWHISCORES
[LAMBDA NIL (* MD "30-AUG-83 14:09")
(CLEARW PWINDOW)
(SHOWCAP "What is your name?" 70 200)
(SETSYNTAX (QUOTE % )
(QUOTE OTHER))
(SETQ NAME (RSTRING))
(SETSYNTAX (QUOTE % )
(QUOTE SEPRCHAR))
(SETPASSWORD (QUOTE {ICE})
(QUOTE PSYS)
"PRTZKRK"
(QUOTE SYSIFS))
(INFILE (QUOTE {ICE}<SYSIFS>PSYSICE))
[SETQ HILIST (REVERSE (CDR (SORT (APPEND (READ)
(LIST (LIST (ITIMES SCORE 10)
NAME)))
T]
(SHOWHISCORES)
(CLOSEF (QUOTE {ICE}<SYSIFS>PSYSICE))
(OUTFILE (QUOTE {ICE}<SYSIFS>PSYSICE.;2))
(PRINT HILIST)
(CLOSEF (QUOTE {ICE}<SYSIFS>PSYSICE.;2])
(PACINTRO
[LAMBDA NIL (* rrb "31-Jan-84 11:00")
(PROG (CHAR CHARNAME X Y)
(CLEARW PWINDOW)
(PUTPROP INTROOBJ (QUOTE BITMAP)
(COND
(PACMANINCOLOR COLORSIGLOGO)
(T SIGLOGO)))
(PUTPROP INTROOBJ (QUOTE OPERATION)
(QUOTE PAINT))
(PAINTOBJ INTROOBJ 110 330 64 32 PSTREAM)
(DISMISS 400)
(SHOWCAP "by Michel Denber" 150 300)
(DISMISS 400)
(SHOWCAP "CHARACTER / NICKNAME" 80 250)
(SETQ Y 200)
(for CHAR in [COND
(PACMANINCOLOR (QUOTE (COLORG1BITMAP COLORG2BITMAP COLORG3BITMAP
COLORG4BITMAP)))
(T (QUOTE (G1BITMAP G2BITMAP G3BITMAP G4BITMAP]
as CHARNAME in (QUOTE ("SHADOW 'BLINKY'" "SPEEDY 'PINKY'" "BASHFUL 'INKY'"
"POKEY 'CLYDE'"))
do (PUTPROP INTROOBJ (QUOTE BITMAP)
(EVAL CHAR))
[for X from 360 to 50 by -1
do (MOVEOBJ INTROOBJ INTROOBJ X Y (SUB1 X)
Y 16 16 PSTREAM)
(GETMOUSESTATE)
(COND
((MOUSESTATE LEFT)
(RETURN NIL]
(COND
((MOUSESTATE LEFT)
(RETURN NIL)))
(SHOWCAP CHARNAME 90 (IPLUS Y 5))
(DISMISS 100)
(SETQ Y (IDIFFERENCE Y 30)))
(COND
((MOUSESTATE LEFT)
(RETURN NIL)))
(GETMONEY])
(PACMAN
[LAMBDA NIL (* MJD "11-Dec-85 13:20")
(DECLARE (GLOBALVARS PACMANWAITTIME))
(PROG ((PMAN (QUOTE X))
(INTROOBJ (QUOTE TEMP))
(MOVE 8))
(* Bit assignments: (15 32768 Unused) (14 16384 fruit-loc) (13 8192 starts-w/dot) (12 4096 slow-area)
(11 2048 G4) (10 1024 G3) (9 512 G2) (8 256 G1) (7 128 R-tunnel-exit) (6 64 L-tunnel-exit)
(5 32 has-energizer) (4 16 still-has-dot) (3 8 W) (2 4 E) (1 2 N) (0 1 S))
(SETQ OLDPMAN (QUOTE Y))
(SETQ G1 (QUOTE A))
(SETQ G2 (QUOTE B))
(SETQ G3 (QUOTE C))
(SETQ G4 (QUOTE D))
(SETQ OLDG1 (QUOTE E))
(SETQ OLDG2 (QUOTE F))
(SETQ OLDG3 (QUOTE G))
(SETQ OLDG4 (QUOTE H))
(SETQ PMWANTMORE T)
(SETQ PMGAMEOVER NIL)
(PACMANINITNEW PMAN)
(PACINTRO)
(while PMWANTMORE
do (PACMANNEWGAME)
(until PMGAMEOVER do (for CYCLE from 1 to 3
do (DISMISS PACMANWAITTIME)
[COND
[(IGREATERP PIT 0)
(add PIT 1)
(COND
((IGREATERP PIT 4)
(SETQ PIT 0]
(T (MOVEPACMAN PMAN (SETQ MOVE
(GETMOVE MOVE]
(BLINKENERGIZERS)
(DOTCHECK PMAN)
(FRUITCHECK)
(COND
((EQ FOLLOW -1)
(add BLUETIME 1)))
[COND
((IGREATERP BLUETIME 60)
(SETQ FOLLOW 1)
(SETQ BLUETIME 0)
[COND
((NEQ (CAR GVALUEPOS)
0)
(* Erase any remaining point value)
(* Caution -
a kludge:)
(ERASEOBJ (CAR (NTH
GVALUEBITMAPLIST
(IQUOTIENT
SAVEGVALUE
20)))
(CAR GVALUEPOS)
(CDR GVALUEPOS)
16 16 PSTREAM)
(SETQ GVALUEPOS (QUOTE (280 . 291]
(for GHOST
in (QUOTE (G1 G2 G3 G4))
as GBITMAP
in (QUOTE (G1BITMAP G2BITMAP G3BITMAP
G4BITMAP))
when (EQ (GETPROP (EVAL GHOST)
(QUOTE EATEN))
0)
do (PUTPROP (EVAL GHOST)
(QUOTE BITMAP)
(EVAL GBITMAP)))
(for OLDGHOST
in (QUOTE (OLDG1 OLDG2 OLDG3 OLDG4))
as GHOST
in (QUOTE (G1 G2 G3 G4))
do (PUTPROP (EVAL OLDGHOST)
(QUOTE BITMAP)
(GETPROP (EVAL GHOST)
(QUOTE
BITMAP]
(ENERGIZERCHECK PMAN)
(COLLISIONCHECK PMAN)
(COND
((EQ (MACHINETYPE)
(QUOTE DORADO))
(DISMISS 3)))
[COND
[(EQ CYCLE 3)
(COND
((EQ FOLLOW 1)
(for GHOST
in (QUOTE (G1 G2 G3 G4))
as OLDGHOST
in (QUOTE (OLDG1 OLDG2 OLDG3
OLDG4))
do (MOVEGHOST (EVAL GHOST)
(EVAL OLDGHOST]
(T (for GHOST
in (QUOTE (G1 G2 G3 G4))
as OLDGHOST
in (QUOTE (OLDG1 OLDG2 OLDG3 OLDG4))
do (MOVEGHOST (EVAL GHOST)
(EVAL OLDGHOST]
(COLLISIONCHECK PMAN)))
(SETQ PMGAMEOVER NIL)
(DISMISS 2000)
(CLEARW PWINDOW)
(GETMONEY))
(COND
(PACMANINCOLOR (CHANGECURSORSCREEN (SCREENBITMAP))
(SCREENCOLORMAP PMOLDCOLORMAP)
(SETDISPLAYHEIGHT T])
(PACMANINIT
[LAMBDA (PMAN) (* MD "18-AUG-83 16:03")
[CLEARW (OR PWINDOW
(PROG1 (SETQ PWINDOW
(CREATEW (create REGION
LEFT ← 32
BOTTOM ← 32
WIDTH ← 307
HEIGHT ← 390)
"PACMAN" NIL]
(SETQ PSTREAM (DECODE/WINDOW/OR/DISPLAYSTREAM PWINDOW NIL "PACMAN" NIL))
(CLOSEF? (QUOTE {DSK}PACMAN.DAT))
(INFILE (QUOTE {DSK}PACMAN.DAT)
(QUOTE READ))
(SETQ NUMMEN 3)
(SETQ SCORE 0)
(SETQ NUMDOTS 0)
(DRAWBOARD)
(PUTDOTS)
(PAINTOBJ PMAN 20 345 16 16 PSTREAM)
(PAINTOBJ PMAN 40 345 16 16 PSTREAM)
(SETBOARDVAL 13 17 (IPLUS (BOARDVAL 13 17)
16384)) (* Fruit location)
(SETBOARDVAL 26 14 (IPLUS (BOARDVAL 26 14)
128 4)) (* Tunnel exits)
(SETBOARDVAL 1 14 (IPLUS (BOARDVAL 1 14)
64 8))
(for I from 1 to 5 do (SETBOARDVAL I 14 (IPLUS (BOARDVAL I 14)
4096)))
(for I from 22 to 26 do (SETBOARDVAL I 14 (IPLUS (BOARDVAL I 14)
4096)))
(* Slow spots)
[for X from 13 to 15 do (for Y from 13 to 15 do (SETBOARDVAL X Y (IPLUS (BOARDVAL X Y)
2]
(SETBOARDVAL 12 13 (IPLUS (BOARDVAL 12 13)
4 2))
(SETBOARDVAL 15 13 (IPLUS (BOARDVAL 15 13)
8))
(SETQ ENERGIZEROBJ (QUOTE I))
(SETBOARDVAL 1 3 (IPLUS (BOARDVAL 1 3)
32))
(SETBOARDVAL 26 3 (IPLUS (BOARDVAL 26 3)
32))
(SETBOARDVAL 1 23 (IPLUS (BOARDVAL 1 23)
32))
(SETBOARDVAL 26 23 (IPLUS (BOARDVAL 26 23)
32)) (* Energizers)
[SETBOARDVAL 13 11 (IPLUS (BOARDVAL 13 11)
(GETPROP G1 (QUOTE BIT] (* Ghosts)
[SETBOARDVAL 13 12 (IPLUS (BOARDVAL 13 12)
(GETPROP G2 (QUOTE BIT]
[SETBOARDVAL 12 13 (IPLUS (BOARDVAL 12 13)
(GETPROP G3 (QUOTE BIT]
(SETBOARDVAL 15 13 (IPLUS (BOARDVAL 15 13)
(GETPROP G4 (QUOTE BIT])
(PACMANINITNEW
[LAMBDA (PMAN) (* MJD "11-Dec-85 13:13")
(printout T (SETQ PACMANVERSION "PACMAN Version 1.5")
T)
(CURSORPOSITION (create POSITION
XCOORD ← (IPLUS (DSPXPOSITION NIL T)
20)
YCOORD ← (IDIFFERENCE (DSPYPOSITION NIL T)
75))
T)
(SETQ PMANINPUTMODE (INPUTMODEQ))
(if (EQ PMANINPUTMODE (QUOTE VOICE))
then (LOAD? (PACKFILENAME (QUOTE NAME)
(QUOTE RS232.DCOM)
(QUOTE DIRECTORY)
(CAR DIRECTORIES)))
(RS232INIT (MENU (create MENU
ITEMS ← (QUOTE (75 150 300 600 1200 2400 4800 9600))
TITLE ← "Baud rate for voice input:"))
8 NIL 1))
(SETQ PACMANWAITTIME (SPEEDQ))
(SETQ PACMANINCOLOR (INCOLORQ))
[CLEARW (OR PWINDOW
(SETQ PWINDOW
(COND
(PACMANINCOLOR (COLORCREATEW (create REGION
LEFT ← 0
BOTTOM ← 0
WIDTH ← 307
HEIGHT ← 390)
PACMANVERSION 1 1))
(T (CREATEW (create REGION
LEFT ← 32
BOTTOM ← 32
WIDTH ← 307
HEIGHT ← 390)
PACMANVERSION NIL]
[SETQ PSTREAM (COND
(PACMANINCOLOR (DSPCREATE (COLORSCREENBITMAP)))
(T (GETSTREAM PWINDOW]
(COND
(PACMANINCOLOR (COLORDISPLAY T)
(COLORBACKGROUND)
(SETQ PMOLDCOLORMAP (SCREENCOLORMAP (COLORMAPCREATE)))
(CHANGECURSORSCREEN (COLORSCREENBITMAP))
(SETDISPLAYHEIGHT 0)))
(SETQ ENERGIZEROBJ (QUOTE I))
(SETBITMAPS)
(SETCHARPROPS)
(GETHISCORES])
(PACMANNEWGAME
[LAMBDA NIL (* MD " 7-DEC-83 14:50")
(SETQ NUMMEN 3)
(SETQ SCORE 0)
(SETQ NUMDOTS 0)
(DRAWBOARDNEW)
(FRUITINIT)
(SETQ GVALUEBITMAPLIST (QUOTE (GHOST1 GHOST2 T GHOST3 T T T GHOST4)))
(PAINTOBJ PMAN 20 345 16 16 PSTREAM)
(PAINTOBJ PMAN 40 345 16 16 PSTREAM)
(PACMANREINIT])
(PACMANREINIT
[LAMBDA NIL (* rrb " 3-Feb-84 14:04")
[COND
((EQ FRUIT# 2)
(INTERMISSION1)
(DISMISS 200)
(CLEARW PWINDOW)
(DRAWBOARDNEW)
(PUTPROP PMAN (QUOTE BITMAP)
PMANLEFT)
(COND
((IGREATERP NUMMEN 1)
(PAINTOBJ PMAN 20 345 16 16 PSTREAM)))
(COND
((IGREATERP NUMMEN 2)
(PAINTOBJ PMAN 40 345 16 16 PSTREAM]
(for I from 1 to FRUIT# do (PAINTOBJ (CAR (NTH FRUITLIST I))
(IPLUS 160 (ITIMES I 20))
350 16 16 PSTREAM))
(PUTPROP PMAN (QUOTE BITMAP)
PACMANC)
(ERASEOBJ PMAN (IDIFFERENCE (ITIMES (GETPROP PMAN (QUOTE XLOC))
11)
6)
(IDIFFERENCE (ITIMES (IDIFFERENCE 30 (GETPROP PMAN (QUOTE YLOC)))
11)
6)
16 16 PSTREAM)
[for I from 1 to 29 do (SETA BOARD I (COPY (ELT VIRGINBOARD I]
(for GHOST in (QUOTE (G1 G2 G3 G4)) do (ERASEOBJ (EVAL GHOST)
(IDIFFERENCE (ITIMES (GETPROP (EVAL GHOST)
(QUOTE XLOC))
11)
6)
(IDIFFERENCE (ITIMES (IDIFFERENCE
30
(GETPROP (EVAL GHOST)
(QUOTE YLOC)))
11)
6)
16 16 PSTREAM))
(SETCHARPROPS)
(for GHOST in (QUOTE (G1 G2 G3 G4)) do (PAINTOBJ (EVAL GHOST)
(IDIFFERENCE (ITIMES (GETPROP (EVAL GHOST)
(QUOTE XLOC))
11)
6)
(IDIFFERENCE (ITIMES (IDIFFERENCE
30
(GETPROP (EVAL GHOST)
(QUOTE YLOC)))
11)
6)
16 16 PSTREAM))
(SHOWCAP (QUOTE "READY!")
(ITIMES 12 11)
(ITIMES (IDIFFERENCE 30 17)
11)
PSTREAM)
(PUTPROP PMAN (QUOTE XLOC)
13)
(PUTPROP PMAN (QUOTE YLOC)
23)
(SETQ FOLLOW 1)
(SETQ BLUETIME 0)
(SETQ FRUITTIME 0)
(SETQ FRUITVISIBLE T) (* Used by REDODOT)
(SETQ FRUIT# (ADD1 FRUIT#))
(SETQ GVALUEPOS (QUOTE (181 . 5))) (* Used by COLLISIONCHECK)
(SETQ MOVE 8)
(SETQ PIT 0) (* Pacman in tunnel)
(PUTDOTSAGAIN)
(PUTENERGIZERS)
(DISMISS 2000)
(SHOWCAP (QUOTE " ")
(ITIMES 12 11)
(ITIMES (IDIFFERENCE 30 17)
11)
PSTREAM])
(PAINTOBJ
[LAMBDA (OBJ X Y W H STREAM) (* MD " 3-JAN-83 14:22")
(BITBLT (GETPROP OBJ (QUOTE BITMAP))
NIL NIL STREAM X Y W H NIL (GETPROP OBJ (QUOTE OPERATION))
NIL NIL])
(PAINTDOT
[LAMBDA (OBJ X Y W H) (* MD "19-NOV-82 10:30")
(BITBLT OBJ NIL NIL PSTREAM X Y W H NIL (QUOTE PAINT)
NIL NIL])
(PUTDOTS
[LAMBDA NIL (* MD " 8-NOV-83 16:20")
(PROG (ROW N E S W)
(for Y from 1 to 29
do (SETQ ROW (LIST NIL))
[for X from 1 to 26 do (SETQ ROW (APPEND ROW (LIST (READ]
(SETA BOARD Y (DREMOVE NIL ROW)))
(for Y from 1 to 29
do (SETQ ROW (ELT BOARD Y))
(for X from 1 to 26 when (NEQ (CAR (NTH ROW X))
0)
do (COND
((EQ (CAR (NTH ROW X))
1)
(PAINTDOT (IF PACMANINCOLOR
THEN COLORDOT
ELSE DOT)
(ITIMES X 11)
(ITIMES (IDIFFERENCE 30 Y)
11)
4 4)
(SETQ HASDOT 8208)
(SETQ NUMDOTS (ADD1 NUMDOTS)))
(T (SETQ HASDOT 0)))
(SETQ N 0)
(SETQ E 0)
(SETQ S 0)
(SETQ W 0)
[COND
((IGREATERP X 1)
(SETQ W (IMIN (CAR (NTH ROW (SUB1 X)))
1]
[COND
((ILESSP X 26)
(SETQ E (IMIN (CAR (NTH ROW (ADD1 X)))
1]
[COND
((IGREATERP Y 1)
(SETQ N (IMIN (CAR (NTH (ELT BOARD (SUB1 Y))
X))
1]
[COND
((ILESSP Y 29)
(SETQ S (IMIN (CAR (NTH (ELT BOARD (ADD1 Y))
X))
1]
(RPLACA (NTH ROW X)
(IPLUS HASDOT (ITIMES W 8)
(ITIMES E 4)
(ITIMES N 2)
S)))
(SETA BOARD Y ROW])
(PUTDOTSAGAIN
[LAMBDA NIL (* MD " 8-NOV-83 16:23")
(for Y from 1 to 29 do (for X from 1 to 26 do (COND
((CHECKAT X Y 8192)
(PAINTDOT (COND
(PACMANINCOLOR COLORDOT)
(T DOT))
(ITIMES X 11)
(ITIMES (IDIFFERENCE 30 Y)
11)
4 4)
(SETQ NUMDOTS (ADD1 NUMDOTS])
(PUTENERGIZERS
[LAMBDA NIL (* MD " 7-JAN-83 15:57")
(PAINTOBJ ENERGIZEROBJ (ITIMES 1 11)
(ITIMES 11 (IDIFFERENCE 30 3))
8 8 PSTREAM)
(PAINTOBJ ENERGIZEROBJ (ITIMES 26 11)
(ITIMES 11 (IDIFFERENCE 30 3))
8 8 PSTREAM)
(PAINTOBJ ENERGIZEROBJ (ITIMES 1 11)
(ITIMES 11 (IDIFFERENCE 30 23))
8 8 PSTREAM)
(PAINTOBJ ENERGIZEROBJ (ITIMES 26 11)
(ITIMES 11 (IDIFFERENCE 30 23))
8 8 PSTREAM])
(REDODOT
[LAMBDA (X Y) (* MD "10-NOV-83 12:46")
(COND
((CHECKAT X Y 16)
(PAINTDOT (COND
(PACMANINCOLOR COLORDOT)
(T DOT))
(ITIMES X 11)
(ITIMES (IDIFFERENCE 30 Y)
11)
4 4))
((AND (CHECKAT X Y 16384)
(IGREATERP FRUITTIME 60)
(ILESSP FRUITTIME 120)
FRUITVISIBLE)
(PAINTOBJ (CAR (NTH FRUITLIST FRUIT#))
(IDIFFERENCE (ITIMES 13 11)
6)
(IDIFFERENCE (ITIMES (IDIFFERENCE 30 17)
11)
6)
16 16 PSTREAM))
(T NIL])
(REPLACEOBJ
[LAMBDA (OBJ X Y W H STREAM) (* MD " 8-DEC-82 17:54")
(BITBLT OBJ NIL NIL STREAM X Y W H NIL (QUOTE REPLACE)
NIL NIL])
(SCAN
[LAMBDA NIL (* MD "17-AUG-83 11:40")
(for X from 1 to 26 do (for Y from 1 to 29 do (COND
((CHECKAT X Y 3840)
(printout T X , Y , (BOARDVAL X Y)
T])
(SETBITMAPS
[LAMBDA NIL (* MD "10-NOV-83 16:19")
(SETQ PMANLEFT (COND
(PACMANINCOLOR COLORPMANLEFT)
(T PMANLEFTMAP)))
(SETQ PMANRIGHT (COND
(PACMANINCOLOR COLORPMANRIGHT)
(T PMANRIGHTMAP)))
(SETQ PMANUP (COND
(PACMANINCOLOR COLORPMANUP)
(T PMANUPMAP)))
(SETQ PMANDOWN (COND
(PACMANINCOLOR COLORPMANDOWN)
(T PMANDOWNMAP)))
(SETQ PACMANC (COND
(PACMANINCOLOR COLORPACMANC)
(T PACMANCMAP)))
(SETQ G1BITMAP (COND
(PACMANINCOLOR COLORG1BITMAP)
(T BWG1BITMAP)))
(SETQ G2BITMAP (COND
(PACMANINCOLOR COLORG2BITMAP)
(T BWG2BITMAP)))
(SETQ G3BITMAP (COND
(PACMANINCOLOR COLORG3BITMAP)
(T BWG3BITMAP)))
(SETQ G4BITMAP (COND
(PACMANINCOLOR COLORG4BITMAP)
(T BWG4BITMAP)))
(SETQ GINVBITMAP (COND
(PACMANINCOLOR COLORGINVBITMAP)
(T BWGINVBITMAP])
(SETBOARDVAL
[LAMBDA (X Y VAL) (* MD "28-NOV-83 16:48")
(FRPLACA (FNTH (ELT BOARD Y)
X)
VAL])
(SETCHARPROPS
[LAMBDA NIL (* MD "10-NOV-83 16:53")
(PUTPROP PMAN (QUOTE BITMAP)
PMANLEFT)
(PUTPROP (QUOTE GHOST1)
(QUOTE BITMAP)
(COND
(PACMANINCOLOR COLOR200BITMAP)
(T 200BITMAP)))
(PUTPROP (QUOTE GHOST2)
(QUOTE BITMAP)
(COND
(PACMANINCOLOR COLOR400BITMAP)
(T 400BITMAP)))
(PUTPROP (QUOTE GHOST3)
(QUOTE BITMAP)
(COND
(PACMANINCOLOR COLOR800BITMAP)
(T 800BITMAP)))
(PUTPROP (QUOTE GHOST4)
(QUOTE BITMAP)
(COND
(PACMANINCOLOR COLOR1600BITMAP)
(T 1600BITMAP)))
(PUTPROP ENERGIZEROBJ (QUOTE BITMAP)
(COND
(PACMANINCOLOR COLORENERGIZER)
(T ENERGIZER)))
(PUTPROP ENERGIZEROBJ (QUOTE OPERATION)
(QUOTE INVERT)) (* Energizers)
(PUTPROP OLDPMAN (QUOTE BITMAP)
PACMANC)
(PUTPROP OLDPMAN (QUOTE OPERATION)
(QUOTE PAINT))
(PUTPROP PMAN (QUOTE OPERATION)
(QUOTE PAINT))
(PUTPROP PMAN (QUOTE XLOC)
13)
(PUTPROP PMAN (QUOTE YLOC)
23)
(PUTPROP OLDPMAN (QUOTE XLOC)
13)
(PUTPROP OLDPMAN (QUOTE YLOC)
23)
(SETGLOCS)
(SETGCANS)
(PUTPROP G1 (QUOTE BITMAP)
G1BITMAP) (* Ghost 1)
(PUTPROP OLDG1 (QUOTE BITMAP)
(GETPROP G1 (QUOTE BITMAP)))
(PUTPROP G1 (QUOTE NUMBER)
1)
(PUTPROP G1 (QUOTE BIT)
256)
(PUTPROP G1 (QUOTE OPERATION)
(QUOTE INVERT))
(PUTPROP G1 (QUOTE EATEN)
0)
(PUTPROP G1 (QUOTE GIT)
0) (* Ghost 2)
(PUTPROP G2 (QUOTE BITMAP)
G2BITMAP)
(PUTPROP OLDG2 (QUOTE BITMAP)
(GETPROP G2 (QUOTE BITMAP)))
(PUTPROP G2 (QUOTE BIT)
512)
(PUTPROP G2 (QUOTE NUMBER)
2)
(PUTPROP G2 (QUOTE OPERATION)
(QUOTE INVERT))
(PUTPROP G2 (QUOTE EATEN)
0)
(PUTPROP G2 (QUOTE GIT)
0) (* Ghost 3)
(PUTPROP G3 (QUOTE BITMAP)
G3BITMAP)
(PUTPROP OLDG3 (QUOTE BITMAP)
(GETPROP G3 (QUOTE BITMAP)))
(PUTPROP G3 (QUOTE BIT)
1024)
(PUTPROP G3 (QUOTE NUMBER)
3)
(PUTPROP G3 (QUOTE OPERATION)
(QUOTE INVERT))
(PUTPROP G3 (QUOTE EATEN)
0)
(PUTPROP G3 (QUOTE GIT)
0) (* Ghost 4)
(PUTPROP G4 (QUOTE BITMAP)
G4BITMAP)
(PUTPROP OLDG4 (QUOTE BITMAP)
(GETPROP G4 (QUOTE BITMAP)))
(PUTPROP G4 (QUOTE BIT)
2048)
(PUTPROP G4 (QUOTE NUMBER)
4)
(PUTPROP G4 (QUOTE OPERATION)
(QUOTE INVERT))
(PUTPROP G4 (QUOTE EATEN)
0)
(PUTPROP G4 (QUOTE GIT)
0])
(SETGCANS
[LAMBDA NIL (* MD "19-AUG-83 17:25")
(PUTPROP G1 (QUOTE CAN)
12)
(PUTPROP G2 (QUOTE CAN)
2)
(PUTPROP G3 (QUOTE CAN)
4)
(PUTPROP G4 (QUOTE CAN)
8])
(SETGLOCS
[LAMBDA NIL (* MD "18-AUG-83 14:55")
(PUTPROP OLDG1 (QUOTE INITX)
13)
(PUTPROP OLDG1 (QUOTE INITY)
11)
(PUTPROP OLDG1 (QUOTE XLOC)
13)
(PUTPROP OLDG1 (QUOTE YLOC)
11)
(PUTPROP G1 (QUOTE INITX)
13)
(PUTPROP G1 (QUOTE INITY)
11)
(PUTPROP G1 (QUOTE XLOC)
13)
(PUTPROP G1 (QUOTE YLOC)
11)
(PUTPROP OLDG2 (QUOTE INITX)
13)
(PUTPROP OLDG2 (QUOTE INITY)
12)
(PUTPROP OLDG2 (QUOTE XLOC)
13)
(PUTPROP OLDG2 (QUOTE YLOC)
12)
(PUTPROP G2 (QUOTE INITX)
13)
(PUTPROP G2 (QUOTE INITY)
12)
(PUTPROP G2 (QUOTE XLOC)
13)
(PUTPROP G2 (QUOTE YLOC)
12)
(PUTPROP OLDG3 (QUOTE INITX)
12)
(PUTPROP OLDG3 (QUOTE INITY)
13)
(PUTPROP OLDG3 (QUOTE XLOC)
12)
(PUTPROP OLDG3 (QUOTE YLOC)
13)
(PUTPROP G3 (QUOTE INITX)
12)
(PUTPROP G3 (QUOTE INITY)
13)
(PUTPROP G3 (QUOTE XLOC)
12)
(PUTPROP G3 (QUOTE YLOC)
13)
(PUTPROP OLDG4 (QUOTE INITX)
15)
(PUTPROP OLDG4 (QUOTE INITY)
13)
(PUTPROP OLDG4 (QUOTE XLOC)
15)
(PUTPROP OLDG4 (QUOTE YLOC)
13)
(PUTPROP G4 (QUOTE INITX)
15)
(PUTPROP G4 (QUOTE INITY)
13)
(PUTPROP G4 (QUOTE XLOC)
15)
(PUTPROP G4 (QUOTE YLOC)
13])
(SETPLAYERBOARDVAL
[LAMBDA (PLAYER VAL) (* sets the board representation of the current location
of player.)
(SETBOARDVAL (GETPROP PLAYER (QUOTE XLOC))
(GETPROP PLAYER (QUOTE YLOC))
VAL])
(SHOW
[LAMBDA (VALUE) (* MD "10-JAN-83 15:07")
(MOVETO 130 350 PSTREAM)
(PRIN1 VALUE PSTREAM)
(PRIN1 0 PSTREAM])
(SHOWCAP
[LAMBDA (MESSAGE X Y) (* MD "10-NOV-83 12:31")
(MOVETO X Y PSTREAM)
(PRIN1 MESSAGE PSTREAM])
(SHOWHISCORES
[LAMBDA NIL (* MD "30-AUG-83 11:39")
(PROG (Y)
(CLEARW PWINDOW)
(SHOWCAP "High scores" 100 330)
(SETQ Y 300)
(for I in HILIST
do (SHOWCAP (CADR I)
50 Y)
(SHOWCAP (CAR I)
200 Y)
(SETQ Y (IDIFFERENCE Y 16])
(SPEEDQ
[LAMBDA NIL (* rrb " 3-Feb-84 14:55")
(* queries about the speed of the game.)
(IMAX 0 (IDIFFERENCE (MENU (create MENU
ITEMS ←(QUOTE ((Fast 50 "Expert players")
(Medium 100 "Intermediate players")
(Slow 200 "Beginning Players")
(Snail 400 "First time players")))
TITLE ← "How fast?"
CENTERFLG ← T))
(SELECTQ (MACHINETYPE)
(DOLPHIN 75)
(DANDELION 40)
0])
)
(RPAQ 1600BITMAP (READBITMAP))
(16 16
"@@@@"
"@@@@"
"@@@@"
"IHLF"
"JEBI"
"JABI"
"JABI"
"KIBI"
"JEBI"
"JEBI"
"JEBI"
"IHLF"
"@@@@"
"@@@@"
"@@@@"
"@@@@")
(RPAQ 200BITMAP (READBITMAP))
(16 16
"@@@@"
"@@@@"
"@@@@"
"FAHF"
"IBDI"
"ABDI"
"ABDI"
"BBDI"
"DBDI"
"HBDI"
"HBDI"
"OAHF"
"@@@@"
"@@@@"
"@@@@"
"@@@@")
(RPAQ 400BITMAP (READBITMAP))
(16 16
"@@@@"
"@@@@"
"@@@@"
"IAHF"
"IBDI"
"IBDI"
"IBDI"
"OJDI"
"ABDI"
"ABDI"
"ABDI"
"AAHF"
"@@@@"
"@@@@"
"@@@@"
"@@@@")
(RPAQ 800BITMAP (READBITMAP))
(16 16
"@@@@"
"@@@@"
"@@@@"
"FAHF"
"IBDI"
"IBDI"
"IBDI"
"FBDI"
"IBDI"
"IBDI"
"IBDI"
"FAHF"
"@@@@"
"@@@@"
"@@@@"
"@@@@")
(RPAQ APPLEBITMAP (READBITMAP))
(16 16
"@@L@"
"@AH@"
"@OO@"
"COOL"
"COOL"
"GOON"
"GOON"
"GOON"
"GONF"
"GOLF"
"GOHF"
"COHL"
"COIL"
"AOOH"
"@ON@"
"@GL@")
(RPAQQ ATTRACTMODE NIL)
(RPAQ BELLBITMAP (READBITMAP))
(16 16
"@GN@"
"@OO@"
"AOOH"
"AGOH"
"CGOL"
"CGOL"
"CGOL"
"CGOL"
"CGOL"
"CGOL"
"CGOL"
"CGOL"
"GOON"
"OOOO"
"@@@@"
"@@@@")
(RPAQ BIGPMANC (READBITMAP))
(64 64
"@@@@@@@@@@@@@@@@"
"@@@@@@@@@@@@@@@@"
"@@@@@@@@@@@@@@@@"
"@@@@@@@@@@@@@@@@"
"@@@@@@@@@@@@@@@@"
"@@@@@@COOL@@@@@@"
"@@@@@GOOOON@@@@@"
"@@@@AOOOOOOL@@@@"
"@@@@GOOOOOOO@@@@"
"@@@AOOOOOOOOL@@@"
"@@@GOOOOOOOOO@@@"
"@@@OOOOOOOOOOH@@"
"@@COOOOOOOOOOL@@"
"@@GOOOOOOOOOON@@"
"@@OOOOOOOOOOOO@@"
"@AOOOOOOOOOOOOH@"
"@COOOOOOOOOOOOL@"
"@COOOOOOOOOOOON@"
"@GOOOOOOOOOOOOO@"
"@GOOOOOOOOOOOOO@"
"@OOOOOOOOOOOOOOH"
"AOOOOOOOOOOOOOOH"
"AOOOOOOOOOOOOOOL"
"COOOOOOOOOOOOOOL"
"COOOOOOOOOOOOOON"
"GOOOOOOOOOOOOOON"
"GOOOOOOOOOOOOOON"
"GOOOOOOOOOOOOOON"
"GOOOOOOOOOOOOOON"
"OOOOOOOOOOOOOOOO"
"OOOOOOOOOOOOOOOO"
"OOOOOOOOOOOOOOOO"
"OOOOOOOOOOOOOOOO"
"OOOOOOOOOOOOOOOO"
"OOOOOOOOOOOOOOOO"
"OOOOOOOOOOOOOOOO"
"OOOOOOOOOOOOOOOO"
"OOOOOOOOOOOOOOOO"
"OOOOOOOOOOOOOOOO"
"OOOOOOOOOOOOOOOO"
"GOOOOOOOOOOOOOOO"
"GOOOOOOOOOOOOOON"
"GOOOOOOOOOOOOOON"
"GOOOOOOOOOOOOOON"
"GOOOOOOOOOOOOOON"
"COOOOOOOOOOOOOOL"
"COOOOOOOOOOOOOOL"
"AOOOOOOOOOOOOOOL"
"AOOOOOOOOOOOOOOH"
"@OOOOOOOOOOOOOO@"
"@OOOOOOOOOOOOOO@"
"@GOOOOOOOOOOOON@"
"@GOOOOOOOOOOOON@"
"@COOOOOOOOOOOOL@"
"@AOOOOOOOOOOOOH@"
"@@OOOOOOOOOOOO@@"
"@@GOOOOOOOOOON@@"
"@@COOOOOOOOOOL@@"
"@@@OOOOOOOOOO@@@"
"@@@GOOOOOOOOL@@@"
"@@@AOOOOOOOO@@@@"
"@@@@GOOOOOOL@@@@"
"@@@@@GOOOON@@@@@"
"@@@@@@COON@@@@@@")
(RPAQ BIGPMANR (READBITMAP))
(64 64
"@@@@@@@@@@@@@@@@"
"@@@@@@@@@@@@@@@@"
"@@@@@@@@@@@@@@@@"
"@@@@@@@@@@@@@@@@"
"@@@@@@@@@@@@@@@@"
"@@@@@@COOL@@@@@@"
"@@@@@GOOOON@@@@@"
"@@@@AOOOOOOL@@@@"
"@@@@GOOOOOOO@@@@"
"@@@AOOOOOOOOL@@@"
"@@@GOOOOOOOOO@@@"
"@@@OOOOOOOOOOH@@"
"@@COOOOOOOOOOL@@"
"@@GOOOOOOOOOOH@@"
"@@OOOOOOOOOOO@@@"
"@AOOOOOOOOOON@@@"
"@COOOOOOOOOOL@@@"
"@COOOOOOOOOOH@@@"
"@GOOOOOOOOOO@@@@"
"@GOOOOOOOOON@@@@"
"@OOOOOOOOOOL@@@@"
"AOOOOOOOOOOH@@@@"
"AOOOOOOOOOO@@@@@"
"COOOOOOOOON@@@@@"
"COOOOOOOOOL@@@@@"
"GOOOOOOOOOH@@@@@"
"GOOOOOOOOO@@@@@@"
"GOOOOOOOON@@@@@@"
"GOOOOOOOOL@@@@@@"
"OOOOOOOOOH@@@@@@"
"OOOOOOOOO@@@@@@@"
"OOOOOOOON@@@@@@@"
"OOOOOOOOL@@@@@@@"
"OOOOOOOOH@@@@@@@"
"OOOOOOOOH@@@@@@@"
"OOOOOOOOH@@@@@@@"
"OOOOOOOOL@@@@@@@"
"OOOOOOOON@@@@@@@"
"OOOOOOOOO@@@@@@@"
"OOOOOOOOOH@@@@@@"
"GOOOOOOOOL@@@@@@"
"GOOOOOOOON@@@@@@"
"GOOOOOOOOO@@@@@@"
"GOOOOOOOOOH@@@@@"
"GOOOOOOOOOL@@@@@"
"COOOOOOOOON@@@@@"
"COOOOOOOOOO@@@@@"
"AOOOOOOOOOOH@@@@"
"AOOOOOOOOOOL@@@@"
"@OOOOOOOOOON@@@@"
"@OOOOOOOOOOO@@@@"
"@GOOOOOOOOOOH@@@"
"@GOOOOOOOOOOL@@@"
"@COOOOOOOOOON@@@"
"@AOOOOOOOOOOO@@@"
"@@OOOOOOOOOOOH@@"
"@@GOOOOOOOOOOL@@"
"@@COOOOOOOOOOH@@"
"@@@OOOOOOOOOO@@@"
"@@@GOOOOOOOOL@@@"
"@@@AOOOOOOOO@@@@"
"@@@@GOOOOOOL@@@@"
"@@@@@GOOOON@@@@@"
"@@@@@@COON@@@@@@")
(RPAQ BIRDBITMAP (READBITMAP))
(16 16
"AOOH"
"@HA@"
"@DB@"
"@BD@"
"@BD@"
"OOOO"
"H@@A"
"H@@A"
"DFFB"
"BJED"
"ABDH"
"@BD@"
"@BD@"
"@BD@"
"@AH@"
"@@@@")
(RPAQQ BLUETIME 0)
(RPAQ BOARD (READARRAY 29 (QUOTE DOUBLEPOINTER) 1))
((8213 8220 8220 8220 8220 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 8205 8204 8204 8206 8204 8204 8206 8204 8204 8205 8204 8204
8207 8204 8204 8204 8204 8203)
(8211 0 0 0 0 8211 0 0 8195 0 0 0 0 0 0 0 0 8211 0 0 8195 0 0 0 0 8195)
(8211 0 0 0 0 8211 0 0 8195 0 0 0 0 0 0 0 0 8211 0 0 8195 0 0 0 0 8195)
(8214 8220 8220 8220 8220 8219 0 0 8198 8204 8204 8201 0 0 8213 8220 8220 8218 0 0 8199 8204 8204 8204
8204 8202)
(0 0 0 0 0 8211 0 0 0 0 0 3 0 0 3 0 0 0 0 0 8195 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 8195 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 8195 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 8195 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 8195 0 0 0 0 0)
(4172 4108 4108 4108 4108 8207 12 12 11 0 0 0 2 2 2 0 0 7 12 12 8207 4108 4108 4108 4108 4236)
(0 0 0 0 0 8195 0 0 3 0 0 0 2 2 2 0 0 3 0 0 8195 0 0 0 0 0)
(0 0 0 0 0 8195 0 0 3 0 0 0 0 0 0 0 0 3 0 0 8195 0 0 0 0 0)
(0 0 0 0 0 8195 0 0 7 12 12 12 16396 12 12 12 12 11 0 0 8195 0 0 0 0 0)
(0 0 0 0 0 8195 0 0 3 0 0 0 0 0 0 0 0 3 0 0 8195 0 0 0 0 0)
(0 0 0 0 0 8195 0 0 3 0 0 0 0 0 0 0 0 3 0 0 8195 0 0 0 0 0)
(8197 8204 8204 8204 8204 8207 8220 8220 8206 8204 8204 8201 0 0 8197 8204 8204 8206 8204 8204 8207
8204 8204 8204 8204 8201)
(8195 0 0 0 0 8195 0 0 0 0 0 8195 0 0 8195 0 0 0 0 0 8195 0 0 0 0 8195)
(8195 0 0 0 0 8195 0 0 0 0 0 8195 0 0 8195 0 0 0 0 0 8195 0 0 0 0 8195)
(6 8220 8217 0 0 8199 8204 8204 8205 8204 8204 8206 12 12 8206 8204 8204 8205 8204 8204 8203 0 0 8197
8204 10)
(0 0 8211 0 0 8195 0 0 8195 0 0 0 0 0 0 0 0 8211 0 0 8195 0 0 8195 0 0)
(0 0 8211 0 0 8195 0 0 8195 0 0 0 0 0 0 0 0 8211 0 0 8195 0 0 8195 0 0)
(8197 8204 8206 8204 8204 8202 0 0 8198 8204 8204 8201 0 0 8213 8220 8220 8218 0 0 8198 8204 8204 8206
8220 8217)
(8195 0 0 0 0 0 0 0 0 0 0 8195 0 0 8211 0 0 0 0 0 0 0 0 0 0 8211)
(8195 0 0 0 0 0 0 0 0 0 0 8195 0 0 8211 0 0 0 0 0 0 0 0 0 0 8211)
(8198 8204 8204 8204 8204 8204 8204 8204 8204 8204 8204 8206 8220 8220 8222 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)
(RPAQ CHERRYBITMAP (READBITMAP))
(16 16
"@@@C"
"@@CN"
"@@ND"
"CMHH"
"GNA@"
"OMC@"
"OHJ@"
"OHJ@"
"OLOH"
"OOON"
"GOOK"
"COOA"
"@COA"
"@COI"
"@AON"
"@@OL")
(RPAQ COLORPMANDOWN (READBITMAP))
(16 16 4
"@@@@@DDDDDD@@@@@"
"@@@DDDDDDDDDD@@@"
"@@DDDDDDDDDDDD@@"
"@DDDDDDDDDDDDDD@"
"@DDDDDDDDDDDDDD@"
"DDDDDDDDDDDDDDDD"
"DDDDDDDDDDDDDDDD"
"DDDDDDDDDDDDDDDD"
"DDDDDDDDDDDDDDDD"
"DDDDDDDDDDDDDDDD"
"DDDDDD@@@@DDDDDD"
"@DDDD@@@@@@DDDD@"
"@DDD@@@@@@@@DDD@"
"@@D@@@@@@@@@@D@@"
"@@@@@@@@@@@@@@@@"
"@@@@@@@@@@@@@@@@")
(RPAQ COLORPMANLEFT (READBITMAP))
(16 16 4
"@@@@@DDDDDD@@@@@"
"@@@DDDDDDDDDD@@@"
"@@DDDDDDDDDDDD@@"
"@@@DDDDDDDDDDDD@"
"@@@@DDDDDDDDDDD@"
"@@@@@DDDDDDDDDDD"
"@@@@@@DDDDDDDDDD"
"@@@@@@DDDDDDDDDD"
"@@@@@@DDDDDDDDDD"
"@@@@@@DDDDDDDDDD"
"@@@@@DDDDDDDDDDD"
"@@@@DDDDDDDDDDD@"
"@@@DDDDDDDDDDDD@"
"@@DDDDDDDDDDDD@@"
"@@@DDDDDDDDDD@@@"
"@@@@@DDDDDD@@@@@")
(RPAQ COLORPMANRIGHT (READBITMAP))
(16 16 4
"@@@@@DDDDDD@@@@@"
"@@@DDDDDDDDDD@@@"
"@@DDDDDDDDDDDD@@"
"@DDDDDDDDDDDD@@@"
"@DDDDDDDDDDD@@@@"
"DDDDDDDDDDD@@@@@"
"DDDDDDDDDD@@@@@@"
"DDDDDDDDDD@@@@@@"
"DDDDDDDDDD@@@@@@"
"DDDDDDDDDD@@@@@@"
"DDDDDDDDDDD@@@@@"
"@DDDDDDDDDDD@@@@"
"@DDDDDDDDDDDD@@@"
"@@DDDDDDDDDDDD@@"
"@@@DDDDDDDDDD@@@"
"@@@@@DDDDDD@@@@@")
(RPAQ COLORPMANUP (READBITMAP))
(16 16 4
"@@@@@@@@@@@@@@@@"
"@@@@@@@@@@@@@@@@"
"@@D@@@@@@@@@@D@@"
"@DDD@@@@@@@@DDD@"
"@DDDD@@@@@@DDDD@"
"DDDDDD@@@@DDDDDD"
"DDDDDDDDDDDDDDDD"
"DDDDDDDDDDDDDDDD"
"DDDDDDDDDDDDDDDD"
"DDDDDDDDDDDDDDDD"
"DDDDDDDDDDDDDDDD"
"@DDDDDDDDDDDDDD@"
"@DDDDDDDDDDDDDD@"
"@@DDDDDDDDDDDD@@"
"@@@DDDDDDDDDD@@@"
"@@@@@DDDDDD@@@@@")
(RPAQ DOT (READBITMAP))
(4 4
"O@@@"
"O@@@"
"O@@@"
"O@@@")
(RPAQ ENERGIZER (READBITMAP))
(8 8
"CL@@"
"GN@@"
"OO@@"
"OO@@"
"OO@@"
"OO@@"
"GN@@"
"CL@@")
(RPAQQ ENERGIZEROBJ I)
(RPAQ EYESBITMAP (READBITMAP))
(16 16
"@@@@"
"@@@@"
"@@@@"
"@@@@"
"@@@@"
"ALCH"
"BFDL"
"BFDL"
"BFDL"
"ALCH"
"@@@@"
"@@@@"
"@@@@"
"@@@@"
"@@@@"
"@@@@")
(RPAQQ FRUIT# 1)
(RPAQQ FRUITTIME 306)
(RPAQ G1BITMAP (READBITMAP))
(16 16
"@GN@"
"ALCH"
"B@@D"
"D@@B"
"H@@A"
"ILCI"
"JFDM"
"JFDM"
"JFDM"
"ILCI"
"H@@A"
"H@@A"
"H@@A"
"ICLI"
"JJEE"
"LFFC")
(RPAQ G2BITMAP (READBITMAP))
(16 16
"@GN@"
"ALCH"
"C@@L"
"F@@F"
"MNGC"
"KAHI"
"JC@M"
"JC@M"
"JC@M"
"KAHI"
"INGA"
"H@@A"
"H@@A"
"KKMM"
"NNGG"
"LFFC")
(RPAQ G3BITMAP (READBITMAP))
(16 16
"@GN@"
"ALCH"
"B@@D"
"D@@B"
"H@@A"
"ILCI"
"JFDM"
"JFDM"
"JFDM"
"ILCI"
"H@@A"
"H@@A"
"H@@A"
"ICLI"
"JJEE"
"LFFC")
(RPAQ G4BITMAP (READBITMAP))
(16 16
"@GN@"
"AMEH"
"BJJL"
"EEEF"
"JBJE"
"MMCK"
"JFDM"
"NFDO"
"JFDM"
"OMKK"
"JJME"
"MEJK"
"JJEE"
"MEJK"
"JJEE"
"LFFC")
(RPAQ GINVBITMAP (READBITMAP))
(16 16
"@GN@"
"AOOH"
"COOL"
"GOON"
"OOOO"
"OOOO"
"NGLO"
"NGLO"
"NGLO"
"OOOO"
"OOOO"
"OOOO"
"OOOO"
"OOOO"
"NNGG"
"LFFC")
(RPAQ KEYBITMAP (READBITMAP))
(16 16
"@GN@"
"AOOH"
"ANGH"
"CNGL"
"COOL"
"COOL"
"COOL"
"AOOH"
"@OO@"
"@GF@"
"@CD@"
"@CD@"
"@CD@"
"@CH@"
"@C@@"
"@B@@")
(RPAQQ MRIGHT {BITMAP}#7,66154)
(RPAQQ NEXTMOVE 0)
(RPAQ ORANGEBITMAP (READBITMAP))
(16 16
"@GN@"
"@OOL"
"CIL@"
"G@@L"
"GOON"
"OOOO"
"OOOO"
"OOOO"
"OOOO"
"OOOO"
"OOOO"
"GOON"
"GOON"
"COOL"
"@GN@"
"@@@@")
(RPAQ PACMANC (READBITMAP))
(16 16
"@GN@"
"AOOH"
"COOL"
"GOON"
"GOON"
"OOOO"
"OOOO"
"OOOO"
"OOOO"
"OOOO"
"OOOO"
"GOON"
"GOON"
"COOL"
"AOOH"
"@GN@")
(RPAQQ PACMANINCOLOR NIL)
(RPAQ PINEAPPLEBITMAP (READBITMAP))
(16 16
"@CL@"
"@EJ@"
"@EJ@"
"@EJ@"
"@EJ@"
"@OK@"
"@OO@"
"AJMH"
"AGOH"
"@NK@"
"AENH"
"AOKH"
"AJO@"
"AOKH"
"@MO@"
"@GN@")
(RPAQQ PMAN X)
(RPAQ PMANDOWN (READBITMAP))
(16 16
"@GN@"
"AOOH"
"COOL"
"GOON"
"GOON"
"OOOO"
"OOOO"
"OOOO"
"OOOO"
"OOOO"
"OLCO"
"GHAN"
"G@@N"
"B@@D"
"@@@@"
"@@@@")
(RPAQ PMANLEFT (READBITMAP))
(16 16
"@GN@"
"AOOH"
"COOL"
"AOON"
"@OON"
"@GOO"
"@COO"
"@COO"
"@COO"
"@COO"
"@GOO"
"@OON"
"AOON"
"COOL"
"AOOH"
"@GN@")
(RPAQ PMANRIGHT (READBITMAP))
(16 16
"@GN@"
"AOOH"
"COOL"
"GOOH"
"GOO@"
"OON@"
"OOL@"
"OOL@"
"OOL@"
"OOL@"
"OON@"
"GOO@"
"GOOH"
"COOL"
"AOOH"
"@GN@")
(RPAQ PMANUP (READBITMAP))
(16 16
"@@@@"
"@@@@"
"B@@D"
"G@@N"
"GHAN"
"OLCO"
"OOOO"
"OOOO"
"OOOO"
"OOOO"
"OOOO"
"GOON"
"GOON"
"COOL"
"AOOH"
"@GN@")
(RPAQQ PMGAMEOVER NIL)
(RPAQQ PSTREAM {STREAM}#371,40320)
(RPAQQ PWINDOW NIL)
(RPAQ QUARTERBITMAP (READBITMAP))
(32 32
"@@@GN@@@"
"@@GHAL@@"
"@@NAIC@@"
"@CIIJHL@"
"@EEECAJ@"
"@LDMJII@"
"ADB@@BBH"
"AFHGO@BD"
"CKAIOLED"
"A@A@ON@B"
"D@A@ON@B"
"F@ADGO@A"
"B@B@CO@A"
"L@D@CO@A"
"H@D@@F@A"
"N@B@@F@A"
"@@C@@F@A"
"L@B@@B@A"
"N@CL@C@A"
"@@@D@E@A"
"LEDB@DHA"
"B@@B@F@B"
"DBHD@B@B"
"B@@OON@D"
"C@@@@@@D"
"A@BLI@@H"
"@HBMDHA@"
"@DBLI@B@"
"@BBEDHL@"
"@AHLIA@@"
"@@G@@N@@"
"@@@OO@@@")
(RPAQQ ROW (8214 8222 8222 8222 8222 8222 8222 8222 8222 8222 8222 8222 8222 8222 8222 8222 8222
8222 8222 8222 8222 8222 8222 8222 8222 8210))
(RPAQ SIGLOGO (READBITMAP))
(64 32
"@@@@@AOHC@@@@@@@"
"@@@@@GOHCH@@@@@@"
"@@@@@GO@GH@@@@@@"
"@@@@@ON@GH@L@@@@"
"@@@@@OL@GLCL@@@@"
"@@@@@OL@GLGH@@@@"
"@@@@@OH@GLOH@@@@"
"@@B@@OONOOOH@@@@"
"@@CL@OONOOO@@G@@"
"@@CN@GOLOON@AN@@"
"@@AOHGOIOON@GN@@"
"@@AONAO@OOL@OL@@"
"@@AOOH@@COLCOL@H"
"@@@OOL@@@GHOOLAH"
"@O@OOH@@@@IOOHAH"
"AOHGO@@@@@COOHCH"
"COLGN@@@@@COO@GH"
"COLGL@@@@@AOO@O@"
"GOLCH@@@@@@GN@O@"
"GOLC@@@@@@@CNAO@"
"GOLB@@@@@@@ALCN@"
"OOL@@@@@@@@@LGNA"
"OOH@@@@@@@@@@ONC"
"OOH@@@@@@@@@COLG"
"OOH@@@@@@@@@AOLO"
"GON@@@@@@@@@@OOO"
"AON@@@@@@@@@@OOO"
"@OL@@@@@@@@@@GON"
"@CL@@@@@@@@@@GOH"
"@AH@@@@@@@@@@CO@"
"@@H@@@@@@@@@@CL@"
"@@@@@@@@@@@@@@@@")
(RPAQ STRAWBERRYBITMAP (READBITMAP))
(16 16
"@AH@"
"@AH@"
"AOOH"
"GMKN"
"MNGN"
"HMCK"
"H@@A"
"IHCA"
"DAHB"
"D@CF"
"FNBD"
"C@@L"
"CBI@"
"AHC@"
"@IJ@"
"@GL@")
(RPAQQ PACMANWAITTIME 100)
(RPAQQ PMANINPUTMODE NIL)
(RPAQ PMANUPMAP (READBITMAP))
(16 16
"@@@@"
"@@@@"
"B@@D"
"G@@N"
"GHAN"
"OLCO"
"OOOO"
"OOOO"
"OOOO"
"OOOO"
"OOOO"
"GOON"
"GOON"
"COOL"
"AOOH"
"@GN@")
(RPAQ COLORPMANUP (READBITMAP))
(16 16 4
"@@@@@@@@@@@@@@@@"
"@@@@@@@@@@@@@@@@"
"@@D@@@@@@@@@@D@@"
"@DDD@@@@@@@@DDD@"
"@DDDD@@@@@@DDDD@"
"DDDDDD@@@@DDDDDD"
"DDDDDDDDDDDDDDDD"
"DDDDDDDDDDDDDDDD"
"DDDDDDDDDDDDDDDD"
"DDDDDDDDDDDDDDDD"
"DDDDDDDDDDDDDDDD"
"@DDDDDDDDDDDDDD@"
"@DDDDDDDDDDDDDD@"
"@@DDDDDDDDDDDD@@"
"@@@DDDDDDDDDD@@@"
"@@@@@DDDDDD@@@@@")
(RPAQ PMANRIGHTMAP (READBITMAP))
(16 16
"@GN@"
"AOOH"
"COOL"
"GOOH"
"GOO@"
"OON@"
"OOL@"
"OOL@"
"OOL@"
"OOL@"
"OON@"
"GOO@"
"GOOH"
"COOL"
"AOOH"
"@GN@")
(RPAQ COLORPMANRIGHT (READBITMAP))
(16 16 4
"@@@@@DDDDDD@@@@@"
"@@@DDDDDDDDDD@@@"
"@@DDDDDDDDDDDD@@"
"@DDDDDDDDDDDD@@@"
"@DDDDDDDDDDD@@@@"
"DDDDDDDDDDD@@@@@"
"DDDDDDDDDD@@@@@@"
"DDDDDDDDDD@@@@@@"
"DDDDDDDDDD@@@@@@"
"DDDDDDDDDD@@@@@@"
"DDDDDDDDDDD@@@@@"
"@DDDDDDDDDDD@@@@"
"@DDDDDDDDDDDD@@@"
"@@DDDDDDDDDDDD@@"
"@@@DDDDDDDDDD@@@"
"@@@@@DDDDDD@@@@@")
(RPAQ PMANDOWNMAP (READBITMAP))
(16 16
"@GN@"
"AOOH"
"COOL"
"GOON"
"GOON"
"OOOO"
"OOOO"
"OOOO"
"OOOO"
"OOOO"
"OLCO"
"GHAN"
"G@@N"
"B@@D"
"@@@@"
"@@@@")
(RPAQ COLORPMANDOWN (READBITMAP))
(16 16 4
"@@@@@DDDDDD@@@@@"
"@@@DDDDDDDDDD@@@"
"@@DDDDDDDDDDDD@@"
"@DDDDDDDDDDDDDD@"
"@DDDDDDDDDDDDDD@"
"DDDDDDDDDDDDDDDD"
"DDDDDDDDDDDDDDDD"
"DDDDDDDDDDDDDDDD"
"DDDDDDDDDDDDDDDD"
"DDDDDDDDDDDDDDDD"
"DDDDDD@@@@DDDDDD"
"@DDDD@@@@@@DDDD@"
"@DDD@@@@@@@@DDD@"
"@@D@@@@@@@@@@D@@"
"@@@@@@@@@@@@@@@@"
"@@@@@@@@@@@@@@@@")
(RPAQ PMANLEFTMAP (READBITMAP))
(16 16
"@GN@"
"AOOH"
"COOL"
"AOON"
"@OON"
"@GOO"
"@COO"
"@COO"
"@COO"
"@COO"
"@GOO"
"@OON"
"AOON"
"COOL"
"AOOH"
"@GN@")
(RPAQ COLORPMANLEFT (READBITMAP))
(16 16 4
"@@@@@DDDDDD@@@@@"
"@@@DDDDDDDDDD@@@"
"@@DDDDDDDDDDDD@@"
"@@@DDDDDDDDDDDD@"
"@@@@DDDDDDDDDDD@"
"@@@@@DDDDDDDDDDD"
"@@@@@@DDDDDDDDDD"
"@@@@@@DDDDDDDDDD"
"@@@@@@DDDDDDDDDD"
"@@@@@@DDDDDDDDDD"
"@@@@@DDDDDDDDDDD"
"@@@@DDDDDDDDDDD@"
"@@@DDDDDDDDDDDD@"
"@@DDDDDDDDDDDD@@"
"@@@DDDDDDDDDD@@@"
"@@@@@DDDDDD@@@@@")
(RPAQ PACMANCMAP (READBITMAP))
(16 16
"@GN@"
"AOOH"
"COOL"
"GOON"
"GOON"
"OOOO"
"OOOO"
"OOOO"
"OOOO"
"OOOO"
"OOOO"
"GOON"
"GOON"
"COOL"
"AOOH"
"@GN@")
(RPAQ COLORPACMANC (READBITMAP))
(16 16 4
"@@@@@DDDDDD@@@@@"
"@@@DDDDDDDDDD@@@"
"@@DDDDDDDDDDDD@@"
"@DDDDDDDDDDDDDD@"
"@DDDDDDDDDDDDDD@"
"DDDDDDDDDDDDDDDD"
"DDDDDDDDDDDDDDDD"
"DDDDDDDDDDDDDDDD"
"DDDDDDDDDDDDDDDD"
"DDDDDDDDDDDDDDDD"
"DDDDDDDDDDDDDDDD"
"@DDDDDDDDDDDDDD@"
"@DDDDDDDDDDDDDD@"
"@@DDDDDDDDDDDD@@"
"@@@DDDDDDDDDD@@@"
"@@@@@DDDDDD@@@@@")
(RPAQ DOT (READBITMAP))
(4 4
"O@@@"
"O@@@"
"O@@@"
"O@@@")
(RPAQ COLORDOT (READBITMAP))
(4 4 4
"DDDD"
"DDDD"
"DDDD"
"DDDD")
(RPAQ ENERGIZER (READBITMAP))
(8 8
"CL@@"
"GN@@"
"OO@@"
"OO@@"
"OO@@"
"OO@@"
"GN@@"
"CL@@")
(RPAQ COLORENERGIZER (READBITMAP))
(8 8 4
"@@DDDD@@"
"@DDDDDD@"
"DDDDDDDD"
"DDDDDDDD"
"DDDDDDDD"
"DDDDDDDD"
"@DDDDDD@"
"@@DDDD@@")
(RPAQ BWG1BITMAP (READBITMAP))
(16 16
"@GN@"
"ALCH"
"B@@D"
"D@@B"
"H@@A"
"ILCI"
"JFDM"
"JFDM"
"JFDM"
"ILCI"
"H@@A"
"H@@A"
"H@@A"
"ICLI"
"JJEE"
"LFFC")
(RPAQ COLORG1BITMAP (READBITMAP))
(16 16 4
"@@@@@CCCCCC@@@@@"
"@@@CCCCCCCCCC@@@"
"@@CCCCCCCCCCCC@@"
"@CCCCCCCCCCCCCC@"
"CCCGGGCCCCGGGCCC"
"CCCGGGCCCCGGGCCC"
"CCCGG@@CCCGG@@CC"
"CCCGG@@CCCGG@@CC"
"CCCGG@@CCCGG@@CC"
"CCCCCCCCCCCCCCCC"
"CCCCCCCCCCCCCCCC"
"CCCCCCCCCCCCCCCC"
"CCCCCCCCCCCCCCCC"
"CCCCCCCCCCCCCCCC"
"CCC@CCC@@CCC@CCC"
"CC@@@CC@@CC@@@CC")
(RPAQ BWG2BITMAP (READBITMAP))
(16 16
"@GN@"
"ALCH"
"C@@L"
"F@@F"
"MNGC"
"KAHI"
"JC@M"
"JC@M"
"JC@M"
"KAHI"
"INGA"
"H@@A"
"H@@A"
"KKMM"
"NNGG"
"LFFC")
(RPAQ COLORG2BITMAP (READBITMAP))
(16 16 4
"@@@@@IIIIII@@@@@"
"@@@IIIIIIIIII@@@"
"@@IIIIIIIIIIII@@"
"@IIIIIIIIIIIIII@"
"IIIGGIIIIIGGGIII"
"IIIGGIIIIIGGGIII"
"IIIG@@AIIIG@@AII"
"IIIG@@AIIIG@@AII"
"IIIG@@AIIIG@@AII"
"IIIIIIIIIIIIIIII"
"IIIIIIIIIIIIIIII"
"IIIIIIIIIIIIIIII"
"IIIIIIIIIIIIIIII"
"IIIIIIIIIIIIIIII"
"III@III@@III@III"
"II@@@II@@II@@@II")
(RPAQ BWG3BITMAP (READBITMAP))
(16 16
"@GN@"
"ALCH"
"B@@D"
"D@@B"
"H@@A"
"ILCI"
"JFDM"
"JFDM"
"JFDM"
"ILCI"
"H@@A"
"H@@A"
"H@@A"
"ICLI"
"JJEE"
"LFFC")
(RPAQ COLORG3BITMAP (READBITMAP))
(16 16 4
"@@@@@DDDDDD@@@@@"
"@@@DDDDDDDDDD@@@"
"@@DDDDDDDDDDDD@@"
"@DDDDDDDDDDDDDD@"
"DDGGGDDDDGGGDDDD"
"DDGGGDDDDGGGDDDD"
"DDGG@@@DDGG@@@DD"
"DDGG@@@DDGG@@@DD"
"DDDG@@@DDDG@@@DD"
"DDDDDDDDDDDDDDDD"
"DDDDDDDDDDDDDDDD"
"DDDDDDDDDDDDDDDD"
"DDDDDDDDDDDDDDDD"
"DDDDDDDDDDDDDDDD"
"DDD@DDD@@DDD@DDD"
"DD@@@DD@@DD@@@DD")
(RPAQ BWG4BITMAP (READBITMAP))
(16 16
"@GN@"
"AMEH"
"BJJL"
"EEEF"
"JBJE"
"MMCK"
"JFDM"
"NFDO"
"JFDM"
"OMKK"
"JJME"
"MEJK"
"JJEE"
"MEJK"
"JJEE"
"LFFC")
(RPAQ COLORG4BITMAP (READBITMAP))
(16 16 4
"@@@@@GGGGGG@@@@@"
"@@@GGGGGGGGGG@@@"
"@@GGGGGGGGGGGG@@"
"@GGGGGGGGGGGGGG@"
"GGGGGGGGGGGGGGGG"
"GGGGGGGGGGGGGGGG"
"GGGGG@@GGGGG@@GG"
"GGGGG@@GGGGG@@GG"
"GGGGG@@GGGGG@@GG"
"GGGGGGGGGGGGGGGG"
"GGGGGGGGGGGGGGGG"
"GGGGGGGGGGGGGGGG"
"GGGGGGGGGGGGGGGG"
"GGGGGGGGGGGGGGGG"
"GGG@GGG@@GGG@GGG"
"GG@@@GG@@GG@@@GG")
(RPAQ BWGINVBITMAP (READBITMAP))
(16 16
"@GN@"
"AOOH"
"COOL"
"GOON"
"OOOO"
"OOOO"
"NGLO"
"NGLO"
"NGLO"
"OOOO"
"OOOO"
"OOOO"
"OOOO"
"OOOO"
"NNGG"
"LFFC")
(RPAQ COLORGINVBITMAP (READBITMAP))
(16 16 4
"@@@@@AAAAAA@@@@@"
"@@@AAAAAAAAAA@@@"
"@@AAAAAAAAAAAA@@"
"@AAAAAAAAAAAAAA@"
"AAAAAAAAAAAAAAAA"
"AAAAAAAAAAAAAAAA"
"AAA@@AAAAA@@AAAA"
"AAA@@AAAAA@@AAAA"
"AAA@@AAAAA@@AAAA"
"AAAAAAAAAAAAAAAA"
"AAAAAAAAAAAAAAAA"
"AAAAAAAAAAAAAAAA"
"AAAAAAAAAAAAAAAA"
"AAAAAAAAAAAAAAAA"
"AAA@AAA@@AAA@AAA"
"AA@@@AA@@AA@@@AA")
(RPAQ CHERRYBITMAP (READBITMAP))
(16 16
"@@@C"
"@@CN"
"@@ND"
"CMHH"
"GNA@"
"OMC@"
"OHJ@"
"OHJ@"
"OLOH"
"OOON"
"GOOK"
"COOA"
"@COA"
"@COI"
"@AON"
"@@OL")
(RPAQ COLORCHERRYBITMAP (READBITMAP))
(16 16 4
"@@@@@@@@@@@@@@CC"
"@@@@@@@@@@CCCCC@"
"@@@@@@@@CCC@@C@@"
"@@CCCC@CC@@@C@@@"
"@CCCCCC@@@@C@@@@"
"CCCCCC@C@@CC@@@@"
"CCCCC@@@C@C@@@@@"
"CCCCC@@@C@C@@@@@"
"CCCCCC@@CCCCC@@@"
"CCCCCCCCCCCCCCC@"
"@CCCCCCCCCCCC@CC"
"@@CCCCCCCCCC@@@C"
"@@@@@@CCCCCC@@@C"
"@@@@@@CCCCCCC@@C"
"@@@@@@@CCCCCCCC@"
"@@@@@@@@CCCCCC@@")
(RPAQ STRAWBERRYBITMAP (READBITMAP))
(16 16
"@AH@"
"@AH@"
"AOOH"
"GMKN"
"MNGN"
"HMCK"
"H@@A"
"IHCA"
"DAHB"
"D@CF"
"FNBD"
"C@@L"
"CBI@"
"AHC@"
"@IJ@"
"@GL@")
(RPAQ COLORSTRAWBERRYBITMAP (READBITMAP))
(16 16 4
"@@@@@@@EE@@@@@@@"
"@@@@@@@EE@@@@@@@"
"@@@EEEEEEEEEE@@@"
"@EEEEE@EE@EEEEE@"
"EE@EEEE@@EEEEEE@"
"E@@@EE@E@@EEE@EE"
"E@@@@@@@@@@@@@@E"
"E@@EE@@@@@EE@@@E"
"@E@@@@@EE@@@@@E@"
"@E@@@@@@@@EE@EE@"
"@EE@EEE@@@E@@E@@"
"@@EE@@@@@@@@EE@@"
"@@EE@@E@E@@E@@@@"
"@@@EE@@@@@EE@@@@"
"@@@@E@@EE@E@@@@@"
"@@@@@EEEEE@@@@@@")
(RPAQ ORANGEBITMAP (READBITMAP))
(16 16
"@GN@"
"@OOL"
"CIL@"
"G@@L"
"GOON"
"OOOO"
"OOOO"
"OOOO"
"OOOO"
"OOOO"
"OOOO"
"GOON"
"GOON"
"COOL"
"@GN@"
"@@@@")
(RPAQ COLORORANGEBITMAP (READBITMAP))
(16 16 4
"@@@@@CCCCCC@@@@@"
"@@@@CCCCCCCCCC@@"
"@@CCC@@CCC@@@@@@"
"@CCC@@@@@@@@CC@@"
"@CCCCCCCCCCCCCC@"
"CCCCCCCCCCCCCCCC"
"CCCCCCCCCCCCCCCC"
"CCCCCCCCCCCCCCCC"
"CCCCCCCCCCCCCCCC"
"CCCCCCCCCCCCCCCC"
"CCCCCCCCCCCCCCCC"
"@CCCCCCCCCCCCCC@"
"@CCCCCCCCCCCCCC@"
"@@CCCCCCCCCCCC@@"
"@@@@@CCCCCC@@@@@"
"@@@@@@@@@@@@@@@@")
(RPAQ APPLEBITMAP (READBITMAP))
(16 16
"@@L@"
"@AH@"
"@OO@"
"COOL"
"COOL"
"GOON"
"GOON"
"GOON"
"GONF"
"GOLF"
"GOHF"
"COHL"
"COIL"
"AOOH"
"@ON@"
"@GL@")
(RPAQ COLORAPPLEBITMAP (READBITMAP))
(16 16 4
"@@@@@@@@CC@@@@@@"
"@@@@@@@CC@@@@@@@"
"@@@@CCCCCCCC@@@@"
"@@CCCCCCCCCCCC@@"
"@@CCCCCCCCCCCC@@"
"@CCCCCCCCCCCCCC@"
"@CCCCCCCCCCCCCC@"
"@CCCCCCCCCCCCCC@"
"@CCCCCCCCCC@@CC@"
"@CCCCCCCCC@@@CC@"
"@CCCCCCCC@@@@CC@"
"@@CCCCCCC@@@CC@@"
"@@CCCCCCC@@CCC@@"
"@@@CCCCCCCCCC@@@"
"@@@@CCCCCCC@@@@@"
"@@@@@CCCCC@@@@@@")
(RPAQ PINEAPPLEBITMAP (READBITMAP))
(16 16
"@CL@"
"@EJ@"
"@EJ@"
"@EJ@"
"@EJ@"
"@OK@"
"@OO@"
"AJMH"
"AGOH"
"@NK@"
"AENH"
"AOKH"
"AJO@"
"AOKH"
"@MO@"
"@GN@")
(RPAQ COLORPINEAPPLEBITMAP (READBITMAP))
(16 16 4
"@@@@@@BBBB@@@@@@"
"@@@@@B@BB@B@@@@@"
"@@@@@B@BB@B@@@@@"
"@@@@@B@BB@B@@@@@"
"@@@@@B@BB@B@@@@@"
"@@@@BBBBB@BB@@@@"
"@@@@BBBBBBBB@@@@"
"@@@BB@B@BB@BB@@@"
"@@@B@BBBBBBBB@@@"
"@@@@BBB@B@BB@@@@"
"@@@B@B@BBBB@B@@@"
"@@@BBBBBB@BBB@@@"
"@@@BB@B@BBBB@@@@"
"@@@BBBBBB@BBB@@@"
"@@@@BB@BBBBB@@@@"
"@@@@@BBBBBB@@@@@")
(RPAQ BIRDBITMAP (READBITMAP))
(16 16
"AOOH"
"@HA@"
"@DB@"
"@BD@"
"@BD@"
"OOOO"
"H@@A"
"H@@A"
"DFFB"
"BJED"
"ABDH"
"@BD@"
"@BD@"
"@BD@"
"@AH@"
"@@@@")
(RPAQ COLORBIRDBITMAP (READBITMAP))
(16 16 4
"@@@FFFFFFFFFF@@@"
"@@@@F@@@@@@F@@@@"
"@@@@@F@@@@F@@@@@"
"@@@@@@F@@F@@@@@@"
"@@@@@@F@@F@@@@@@"
"FFFFFFFFFFFFFFFF"
"F@@@@@@@@@@@@@@F"
"F@@@@@@@@@@@@@@F"
"@F@@@FF@@FF@@@F@"
"@@F@F@F@@F@F@F@@"
"@@@F@@F@@F@@F@@@"
"@@@@@@F@@F@@@@@@"
"@@@@@@F@@F@@@@@@"
"@@@@@@F@@F@@@@@@"
"@@@@@@@FF@@@@@@@"
"@@@@@@@@@@@@@@@@")
(RPAQ BELLBITMAP (READBITMAP))
(16 16
"@GN@"
"@OO@"
"AOOH"
"AGOH"
"CGOL"
"CGOL"
"CGOL"
"CGOL"
"CGOL"
"CGOL"
"CGOL"
"CGOL"
"GOON"
"OOOO"
"@@@@"
"@@@@")
(RPAQ COLORBELLBITMAP (READBITMAP))
(16 16 4
"@@@@@FFFFFF@@@@@"
"@@@@FFFFFFFF@@@@"
"@@@FFFFFFFFFF@@@"
"@@@F@FFFFFFFF@@@"
"@@FF@FFFFFFFFF@@"
"@@FF@FFFFFFFFF@@"
"@@FF@FFFFFFFFF@@"
"@@FF@FFFFFFFFF@@"
"@@FF@FFFFFFFFF@@"
"@@FF@FFFFFFFFF@@"
"@@FF@FFFFFFFFF@@"
"@@FF@FFFFFFFFF@@"
"@FFFFFFFFFFFFFF@"
"FFFFFFFFFFFFFFFF"
"@@@@@@@@@@@@@@@@"
"@@@@@@@@@@@@@@@@")
(RPAQ KEYBITMAP (READBITMAP))
(16 16
"@GN@"
"AOOH"
"ANGH"
"CNGL"
"COOL"
"COOL"
"COOL"
"AOOH"
"@OO@"
"@GF@"
"@CD@"
"@CD@"
"@CD@"
"@CH@"
"@C@@"
"@B@@")
(RPAQ COLORKEYBITMAP (READBITMAP))
(16 16 4
"@@@@@GGGGGG@@@@@"
"@@@GGGGGGGGGG@@@"
"@@@GGGG@@GGGG@@@"
"@@GGGGG@@GGGGG@@"
"@@GGGGGGGGGGGG@@"
"@@GGGGGGGGGGGG@@"
"@@GGGGGGGGGGGG@@"
"@@@GGGGGGGGGG@@@"
"@@@@GGGGGGGG@@@@"
"@@@@@GGG@GG@@@@@"
"@@@@@@GG@G@@@@@@"
"@@@@@@GG@G@@@@@@"
"@@@@@@GG@G@@@@@@"
"@@@@@@GGG@@@@@@@"
"@@@@@@GG@@@@@@@@"
"@@@@@@G@@@@@@@@@")
(RPAQ 200BITMAP (READBITMAP))
(16 16
"@@@@"
"@@@@"
"@@@@"
"FAHF"
"IBDI"
"ABDI"
"ABDI"
"BBDI"
"DBDI"
"HBDI"
"HBDI"
"OAHF"
"@@@@"
"@@@@"
"@@@@"
"@@@@")
(RPAQ COLOR200BITMAP (READBITMAP))
(16 16 4
"@@@@@@@@@@@@@@@@"
"@@@@@@@@@@@@@@@@"
"@@@@@@@@@@@@@@@@"
"@GG@@@@GG@@@@GG@"
"G@@G@@G@@G@@G@@G"
"@@@G@@G@@G@@G@@G"
"@@@G@@G@@G@@G@@G"
"@@G@@@G@@G@@G@@G"
"@G@@@@G@@G@@G@@G"
"G@@@@@G@@G@@G@@G"
"G@@@@@G@@G@@G@@G"
"GGGG@@@GG@@@@GG@"
"@@@@@@@@@@@@@@@@"
"@@@@@@@@@@@@@@@@"
"@@@@@@@@@@@@@@@@"
"@@@@@@@@@@@@@@@@")
(RPAQ 400BITMAP (READBITMAP))
(16 16
"@@@@"
"@@@@"
"@@@@"
"IAHF"
"IBDI"
"IBDI"
"IBDI"
"OJDI"
"ABDI"
"ABDI"
"ABDI"
"AAHF"
"@@@@"
"@@@@"
"@@@@"
"@@@@")
(RPAQ COLOR400BITMAP (READBITMAP))
(16 16 4
"@@@@@@@@@@@@@@@@"
"@@@@@@@@@@@@@@@@"
"@@@@@@@@@@@@@@@@"
"G@@G@@@GG@@@@GG@"
"G@@G@@G@@G@@G@@G"
"G@@G@@G@@G@@G@@G"
"G@@G@@G@@G@@G@@G"
"GGGGG@G@@G@@G@@G"
"@@@G@@G@@G@@G@@G"
"@@@G@@G@@G@@G@@G"
"@@@G@@G@@G@@G@@G"
"@@@G@@@GG@@@@GG@"
"@@@@@@@@@@@@@@@@"
"@@@@@@@@@@@@@@@@"
"@@@@@@@@@@@@@@@@"
"@@@@@@@@@@@@@@@@")
(RPAQ 800BITMAP (READBITMAP))
(16 16
"@@@@"
"@@@@"
"@@@@"
"FAHF"
"IBDI"
"IBDI"
"IBDI"
"FBDI"
"IBDI"
"IBDI"
"IBDI"
"FAHF"
"@@@@"
"@@@@"
"@@@@"
"@@@@")
(RPAQ COLOR800BITMAP (READBITMAP))
(16 16 4
"@@@@@@@@@@@@@@@@"
"@@@@@@@@@@@@@@@@"
"@@@@@@@@@@@@@@@@"
"@GG@@@@GG@@@@GG@"
"G@@G@@G@@G@@G@@G"
"G@@G@@G@@G@@G@@G"
"G@@G@@G@@G@@G@@G"
"@GG@@@G@@G@@G@@G"
"G@@G@@G@@G@@G@@G"
"G@@G@@G@@G@@G@@G"
"G@@G@@G@@G@@G@@G"
"@GG@@@@GG@@@@GG@"
"@@@@@@@@@@@@@@@@"
"@@@@@@@@@@@@@@@@"
"@@@@@@@@@@@@@@@@"
"@@@@@@@@@@@@@@@@")
(RPAQ 1600BITMAP (READBITMAP))
(16 16
"@@@@"
"@@@@"
"@@@@"
"IHLF"
"JEBI"
"JABI"
"JABI"
"KIBI"
"JEBI"
"JEBI"
"JEBI"
"IHLF"
"@@@@"
"@@@@"
"@@@@"
"@@@@")
(RPAQ COLOR1600BITMAP (READBITMAP))
(16 16 4
"@@@@@@@@@@@@@@@@"
"@@@@@@@@@@@@@@@@"
"@@@@@@@@@@@@@@@@"
"G@@GG@@@GG@@@GG@"
"G@G@@G@G@@G@G@@G"
"G@G@@@@G@@G@G@@G"
"G@G@@@@G@@G@G@@G"
"G@GGG@@G@@G@G@@G"
"G@G@@G@G@@G@G@@G"
"G@G@@G@G@@G@G@@G"
"G@G@@G@G@@G@G@@G"
"G@@GG@@@GG@@@GG@"
"@@@@@@@@@@@@@@@@"
"@@@@@@@@@@@@@@@@"
"@@@@@@@@@@@@@@@@"
"@@@@@@@@@@@@@@@@")
(RPAQ SIGLOGO (READBITMAP))
(64 32
"@@@@@AOHC@@@@@@@"
"@@@@@GOHCH@@@@@@"
"@@@@@GO@GH@@@@@@"
"@@@@@ON@GH@L@@@@"
"@@@@@OL@GLCL@@@@"
"@@@@@OL@GLGH@@@@"
"@@@@@OH@GLOH@@@@"
"@@B@@OONOOOH@@@@"
"@@CL@OONOOO@@G@@"
"@@CN@GOLOON@AN@@"
"@@AOHGOIOON@GN@@"
"@@AONAO@OOL@OL@@"
"@@AOOH@@COLCOL@H"
"@@@OOL@@@GHOOLAH"
"@O@OOH@@@@IOOHAH"
"AOHGO@@@@@COOHCH"
"COLGN@@@@@COO@GH"
"COLGL@@@@@AOO@O@"
"GOLCH@@@@@@GN@O@"
"GOLC@@@@@@@CNAO@"
"GOLB@@@@@@@ALCN@"
"OOL@@@@@@@@@LGNA"
"OOH@@@@@@@@@@ONC"
"OOH@@@@@@@@@COLG"
"OOH@@@@@@@@@AOLO"
"GON@@@@@@@@@@OOO"
"AON@@@@@@@@@@OOO"
"@OL@@@@@@@@@@GON"
"@CL@@@@@@@@@@GOH"
"@AH@@@@@@@@@@CO@"
"@@H@@@@@@@@@@CL@"
"@@@@@@@@@@@@@@@@")
(RPAQ COLORSIGLOGO (READBITMAP))
(64 32 4
"@@@@@@@@@@@@@@@@@@@@@@@DDDDDD@@@@@DD@@@@@@@@@@@@@@@@@@@@@@@@@@@@"
"@@@@@@@@@@@@@@@@@@@@@DDDDDDDD@@@@@DDD@@@@@@@@@@@@@@@@@@@@@@@@@@@"
"@@@@@@@@@@@@@@@@@@@@@DDDDDDD@@@@@DDDD@@@@@@@@@@@@@@@@@@@@@@@@@@@"
"@@@@@@@@@@@@@@@@@@@@DDDDDDD@@@@@@DDDD@@@@@@@DD@@@@@@@@@@@@@@@@@@"
"@@@@@@@@@@@@@@@@@@@@DDDDDD@@@@@@@DDDDD@@@@DDDD@@@@@@@@@@@@@@@@@@"
"@@@@@@@@@@@@@@@@@@@@DDDDDD@@@@@@@DDDDD@@@DDDD@@@@@@@@@@@@@@@@@@@"
"@@@@@@@@@@@@@@@@@@@@DDDDD@@@@@@@@DDDDD@@DDDDD@@@@@@@@@@@@@@@@@@@"
"@@@@@@@@@@D@@@@@@@@@DDDDDDDDDDD@DDDDDDDDDDDDD@@@@@@@@@@@@@@@@@@@"
"@@@@@@@@@@DDDD@@@@@@DDDDDDDDDDD@DDDDDDDDDDDD@@@@@@@@@DDD@@@@@@@@"
"@@@@@@@@@@DDDDD@@@@@@DDDDDDDDD@@DDDDDDDDDDD@@@@@@@@DDDD@@@@@@@@@"
"@@@@@@@@@@@DDDDDD@@@@DDDDDDDD@@DDDDDDDDDDDD@@@@@@DDDDDD@@@@@@@@@"
"@@@@@@@@@@@DDDDDDDD@@@@DDDDD@@@@DDDDDDDDDD@@@@@@DDDDDD@@@@@@@@@@"
"@@@@@@@@@@@DDDDDDDDDD@@@@@@@@@@@@@DDDDDDDD@@@@DDDDDDDD@@@@@@D@@@"
"@@@@@@@@@@@@DDDDDDDDDD@@@@@@@@@@@@@@@DDDD@@@DDDDDDDDDD@@@@@DD@@@"
"@@@@DDDD@@@@DDDDDDDDD@@@@@@@@@@@@@@@@@@@D@@DDDDDDDDDD@@@@@@DD@@@"
"@@@DDDDDD@@@@DDDDDDD@@@@@@@@@@@@@@@@@@@@@@DDDDDDDDDDD@@@@@DDD@@@"
"@@DDDDDDDD@@@DDDDDD@@@@@@@@@@@@@@@@@@@@@@@DDDDDDDDDD@@@@@DDDD@@@"
"@@DDDDDDDD@@@DDDDD@@@@@@@@@@@@@@@@@@@@@@@@@DDDDDDDDD@@@@DDDD@@@@"
"@DDDDDDDDD@@@@DDD@@@@@@@@@@@@@@@@@@@@@@@@@@@@DDDDDD@@@@@DDDD@@@@"
"@DDDDDDDDD@@@@DD@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@DDDDD@@@@DDDDD@@@@"
"@DDDDDDDDD@@@@D@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@DDD@@@@DDDDD@@@@@"
"DDDDDDDDDD@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@DD@@@DDDDDD@@@@D"
"DDDDDDDDD@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@DDDDDDD@@@DD"
"DDDDDDDDD@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@DDDDDDDD@@@DDD"
"DDDDDDDDD@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@DDDDDDD@@DDDD"
"@DDDDDDDDDD@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@DDDDDDDDDDDD"
"@@@DDDDDDDD@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@DDDDDDDDDDDD"
"@@@@DDDDDD@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@DDDDDDDDDD@"
"@@@@@@DDDD@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@DDDDDDDD@@@"
"@@@@@@@DD@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@DDDDDD@@@@"
"@@@@@@@@D@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@DDDD@@@@@@"
"@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@")
(RPAQ EYESBITMAP (READBITMAP))
(16 16
"@@@@"
"@@@@"
"@@@@"
"@@@@"
"@@@@"
"ALCH"
"BFDL"
"BFDL"
"BFDL"
"ALCH"
"@@@@"
"@@@@"
"@@@@"
"@@@@"
"@@@@"
"@@@@")
(RPAQ COLOREYESBITMAP (READBITMAP))
(16 16 4
"@@@@@@@@@@@@@@@@"
"@@@@@@@@@@@@@@@@"
"@@@@@@@@@@@@@@@@"
"@@@@@@@@@@@@@@@@"
"@@@@@@@@@@@@@@@@"
"@@@CCC@@@@CCC@@@"
"@@C@@CC@@C@@CC@@"
"@@C@@CC@@C@@CC@@"
"@@C@@CC@@C@@CC@@"
"@@@CCC@@@@CCC@@@"
"@@@@@@@@@@@@@@@@"
"@@@@@@@@@@@@@@@@"
"@@@@@@@@@@@@@@@@"
"@@@@@@@@@@@@@@@@"
"@@@@@@@@@@@@@@@@"
"@@@@@@@@@@@@@@@@")
(RPAQ BIGPMANC (READBITMAP))
(64 64
"@@@@@@@@@@@@@@@@"
"@@@@@@@@@@@@@@@@"
"@@@@@@@@@@@@@@@@"
"@@@@@@@@@@@@@@@@"
"@@@@@@@@@@@@@@@@"
"@@@@@@COOL@@@@@@"
"@@@@@GOOOON@@@@@"
"@@@@AOOOOOOL@@@@"
"@@@@GOOOOOOO@@@@"
"@@@AOOOOOOOOL@@@"
"@@@GOOOOOOOOO@@@"
"@@@OOOOOOOOOOH@@"
"@@COOOOOOOOOOL@@"
"@@GOOOOOOOOOON@@"
"@@OOOOOOOOOOOO@@"
"@AOOOOOOOOOOOOH@"
"@COOOOOOOOOOOOL@"
"@COOOOOOOOOOOON@"
"@GOOOOOOOOOOOOO@"
"@GOOOOOOOOOOOOO@"
"@OOOOOOOOOOOOOOH"
"AOOOOOOOOOOOOOOH"
"AOOOOOOOOOOOOOOL"
"COOOOOOOOOOOOOOL"
"COOOOOOOOOOOOOON"
"GOOOOOOOOOOOOOON"
"GOOOOOOOOOOOOOON"
"GOOOOOOOOOOOOOON"
"GOOOOOOOOOOOOOON"
"OOOOOOOOOOOOOOOO"
"OOOOOOOOOOOOOOOO"
"OOOOOOOOOOOOOOOO"
"OOOOOOOOOOOOOOOO"
"OOOOOOOOOOOOOOOO"
"OOOOOOOOOOOOOOOO"
"OOOOOOOOOOOOOOOO"
"OOOOOOOOOOOOOOOO"
"OOOOOOOOOOOOOOOO"
"OOOOOOOOOOOOOOOO"
"OOOOOOOOOOOOOOOO"
"GOOOOOOOOOOOOOOO"
"GOOOOOOOOOOOOOON"
"GOOOOOOOOOOOOOON"
"GOOOOOOOOOOOOOON"
"GOOOOOOOOOOOOOON"
"COOOOOOOOOOOOOOL"
"COOOOOOOOOOOOOOL"
"AOOOOOOOOOOOOOOL"
"AOOOOOOOOOOOOOOH"
"@OOOOOOOOOOOOOO@"
"@OOOOOOOOOOOOOO@"
"@GOOOOOOOOOOOON@"
"@GOOOOOOOOOOOON@"
"@COOOOOOOOOOOOL@"
"@AOOOOOOOOOOOOH@"
"@@OOOOOOOOOOOO@@"
"@@GOOOOOOOOOON@@"
"@@COOOOOOOOOOL@@"
"@@@OOOOOOOOOO@@@"
"@@@GOOOOOOOOL@@@"
"@@@AOOOOOOOO@@@@"
"@@@@GOOOOOOL@@@@"
"@@@@@GOOOON@@@@@"
"@@@@@@COON@@@@@@")
(RPAQ COLORBIGPMANC (READBITMAP))
(64 64 4
"@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@"
"@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@"
"@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@"
"@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@"
"@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@"
"@@@@@@@@@@@@@@@@@@@@@@@@@@DDDDDDDDDDDD@@@@@@@@@@@@@@@@@@@@@@@@@@"
"@@@@@@@@@@@@@@@@@@@@@DDDDDDDDDDDDDDDDDDDDDD@@@@@@@@@@@@@@@@@@@@@"
"@@@@@@@@@@@@@@@@@@@DDDDDDDDDDDDDDDDDDDDDDDDDDD@@@@@@@@@@@@@@@@@@"
"@@@@@@@@@@@@@@@@@DDDDDDDDDDDDDDDDDDDDDDDDDDDDDDD@@@@@@@@@@@@@@@@"
"@@@@@@@@@@@@@@@DDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDD@@@@@@@@@@@@@@"
"@@@@@@@@@@@@@DDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDD@@@@@@@@@@@@"
"@@@@@@@@@@@@DDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDD@@@@@@@@@@@"
"@@@@@@@@@@DDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDD@@@@@@@@@@"
"@@@@@@@@@DDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDD@@@@@@@@@"
"@@@@@@@@DDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDD@@@@@@@@"
"@@@@@@@DDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDD@@@@@@@"
"@@@@@@DDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDD@@@@@@"
"@@@@@@DDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDD@@@@@"
"@@@@@DDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDD@@@@"
"@@@@@DDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDD@@@@"
"@@@@DDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDD@@@"
"@@@DDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDD@@@"
"@@@DDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDD@@"
"@@DDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDD@@"
"@@DDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDD@"
"@DDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDD@"
"@DDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDD@"
"@DDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDD@"
"@DDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDD@"
"DDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDD"
"DDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDD"
"DDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDD"
"DDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDD"
"DDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDD"
"DDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDD"
"DDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDD"
"DDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDD"
"DDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDD"
"DDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDD"
"DDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDD"
"@DDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDD"
"@DDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDD@"
"@DDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDD@"
"@DDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDD@"
"@DDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDD@"
"@@DDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDD@@"
"@@DDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDD@@"
"@@@DDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDD@@"
"@@@DDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDD@@@"
"@@@@DDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDD@@@@"
"@@@@DDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDD@@@@"
"@@@@@DDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDD@@@@@"
"@@@@@DDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDD@@@@@"
"@@@@@@DDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDD@@@@@@"
"@@@@@@@DDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDD@@@@@@@"
"@@@@@@@@DDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDD@@@@@@@@"
"@@@@@@@@@DDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDD@@@@@@@@@"
"@@@@@@@@@@DDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDD@@@@@@@@@@"
"@@@@@@@@@@@@DDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDD@@@@@@@@@@@@"
"@@@@@@@@@@@@@DDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDD@@@@@@@@@@@@@@"
"@@@@@@@@@@@@@@@DDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDD@@@@@@@@@@@@@@@@"
"@@@@@@@@@@@@@@@@@DDDDDDDDDDDDDDDDDDDDDDDDDDDDD@@@@@@@@@@@@@@@@@@"
"@@@@@@@@@@@@@@@@@@@@@DDDDDDDDDDDDDDDDDDDDDD@@@@@@@@@@@@@@@@@@@@@"
"@@@@@@@@@@@@@@@@@@@@@@@@@@DDDDDDDDDDDDD@@@@@@@@@@@@@@@@@@@@@@@@@")
(RPAQ BIGPMANR (READBITMAP))
(64 64
"@@@@@@@@@@@@@@@@"
"@@@@@@@@@@@@@@@@"
"@@@@@@@@@@@@@@@@"
"@@@@@@@@@@@@@@@@"
"@@@@@@@@@@@@@@@@"
"@@@@@@COOL@@@@@@"
"@@@@@GOOOON@@@@@"
"@@@@AOOOOOOL@@@@"
"@@@@GOOOOOOO@@@@"
"@@@AOOOOOOOOL@@@"
"@@@GOOOOOOOOO@@@"
"@@@OOOOOOOOOOH@@"
"@@COOOOOOOOOOL@@"
"@@GOOOOOOOOOOH@@"
"@@OOOOOOOOOOO@@@"
"@AOOOOOOOOOON@@@"
"@COOOOOOOOOOL@@@"
"@COOOOOOOOOOH@@@"
"@GOOOOOOOOOO@@@@"
"@GOOOOOOOOON@@@@"
"@OOOOOOOOOOL@@@@"
"AOOOOOOOOOOH@@@@"
"AOOOOOOOOOO@@@@@"
"COOOOOOOOON@@@@@"
"COOOOOOOOOL@@@@@"
"GOOOOOOOOOH@@@@@"
"GOOOOOOOOO@@@@@@"
"GOOOOOOOON@@@@@@"
"GOOOOOOOOL@@@@@@"
"OOOOOOOOOH@@@@@@"
"OOOOOOOOO@@@@@@@"
"OOOOOOOON@@@@@@@"
"OOOOOOOOL@@@@@@@"
"OOOOOOOOH@@@@@@@"
"OOOOOOOOH@@@@@@@"
"OOOOOOOOH@@@@@@@"
"OOOOOOOOL@@@@@@@"
"OOOOOOOON@@@@@@@"
"OOOOOOOOO@@@@@@@"
"OOOOOOOOOH@@@@@@"
"GOOOOOOOOL@@@@@@"
"GOOOOOOOON@@@@@@"
"GOOOOOOOOO@@@@@@"
"GOOOOOOOOOH@@@@@"
"GOOOOOOOOOL@@@@@"
"COOOOOOOOON@@@@@"
"COOOOOOOOOO@@@@@"
"AOOOOOOOOOOH@@@@"
"AOOOOOOOOOOL@@@@"
"@OOOOOOOOOON@@@@"
"@OOOOOOOOOOO@@@@"
"@GOOOOOOOOOOH@@@"
"@GOOOOOOOOOOL@@@"
"@COOOOOOOOOON@@@"
"@AOOOOOOOOOOO@@@"
"@@OOOOOOOOOOOH@@"
"@@GOOOOOOOOOOL@@"
"@@COOOOOOOOOOH@@"
"@@@OOOOOOOOOO@@@"
"@@@GOOOOOOOOL@@@"
"@@@AOOOOOOOO@@@@"
"@@@@GOOOOOOL@@@@"
"@@@@@GOOOON@@@@@"
"@@@@@@COON@@@@@@")
(RPAQ COLORBIGPMANR (READBITMAP))
(64 64 4
"@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@"
"@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@"
"@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@"
"@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@"
"@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@"
"@@@@@@@@@@@@@@@@@@@@@@@@@@DDDDDDDDDDDD@@@@@@@@@@@@@@@@@@@@@@@@@@"
"@@@@@@@@@@@@@@@@@@@@@DDDDDDDDDDDDDDDDDDDDDD@@@@@@@@@@@@@@@@@@@@@"
"@@@@@@@@@@@@@@@@@@@DDDDDDDDDDDDDDDDDDDDDDDDDDD@@@@@@@@@@@@@@@@@@"
"@@@@@@@@@@@@@@@@@DDDDDDDDDDDDDDDDDDDDDDDDDDDDDDD@@@@@@@@@@@@@@@@"
"@@@@@@@@@@@@@@@DDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDD@@@@@@@@@@@@@@"
"@@@@@@@@@@@@@DDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDD@@@@@@@@@@@@"
"@@@@@@@@@@@@DDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDD@@@@@@@@@@@"
"@@@@@@@@@@DDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDD@@@@@@@@@@"
"@@@@@@@@@DDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDD@@@@@@@@@@@"
"@@@@@@@@DDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDD@@@@@@@@@@@@"
"@@@@@@@DDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDD@@@@@@@@@@@@@"
"@@@@@@DDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDD@@@@@@@@@@@@@@"
"@@@@@@DDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDD@@@@@@@@@@@@@@@"
"@@@@@DDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDD@@@@@@@@@@@@@@@@"
"@@@@@DDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDD@@@@@@@@@@@@@@@@@"
"@@@@DDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDD@@@@@@@@@@@@@@@@@@"
"@@@DDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDD@@@@@@@@@@@@@@@@@@@"
"@@@DDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDD@@@@@@@@@@@@@@@@@@@@"
"@@DDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDD@@@@@@@@@@@@@@@@@@@@@"
"@@DDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDD@@@@@@@@@@@@@@@@@@@@@@"
"@DDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDD@@@@@@@@@@@@@@@@@@@@@@@"
"@DDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDD@@@@@@@@@@@@@@@@@@@@@@@@"
"@DDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDD@@@@@@@@@@@@@@@@@@@@@@@@@"
"@DDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDD@@@@@@@@@@@@@@@@@@@@@@@@@@"
"DDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDD@@@@@@@@@@@@@@@@@@@@@@@@@@@"
"DDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDD@@@@@@@@@@@@@@@@@@@@@@@@@@@@"
"DDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDD@@@@@@@@@@@@@@@@@@@@@@@@@@@@@"
"DDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDD@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@"
"DDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDD@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@"
"DDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDD@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@"
"DDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDD@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@"
"DDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDD@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@"
"DDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDD@@@@@@@@@@@@@@@@@@@@@@@@@@@@@"
"DDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDD@@@@@@@@@@@@@@@@@@@@@@@@@@@@"
"DDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDD@@@@@@@@@@@@@@@@@@@@@@@@@@@"
"@DDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDD@@@@@@@@@@@@@@@@@@@@@@@@@@"
"@DDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDD@@@@@@@@@@@@@@@@@@@@@@@@@"
"@DDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDD@@@@@@@@@@@@@@@@@@@@@@@@"
"@DDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDD@@@@@@@@@@@@@@@@@@@@@@@"
"@DDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDD@@@@@@@@@@@@@@@@@@@@@@"
"@@DDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDD@@@@@@@@@@@@@@@@@@@@@"
"@@DDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDD@@@@@@@@@@@@@@@@@@@@"
"@@@DDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDD@@@@@@@@@@@@@@@@@@@"
"@@@DDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDD@@@@@@@@@@@@@@@@@@"
"@@@@DDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDD@@@@@@@@@@@@@@@@@"
"@@@@DDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDD@@@@@@@@@@@@@@@@"
"@@@@@DDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDD@@@@@@@@@@@@@@@"
"@@@@@DDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDD@@@@@@@@@@@@@@"
"@@@@@@DDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDD@@@@@@@@@@@@@"
"@@@@@@@DDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDD@@@@@@@@@@@@"
"@@@@@@@@DDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDD@@@@@@@@@@@"
"@@@@@@@@@DDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDD@@@@@@@@@@"
"@@@@@@@@@@DDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDD@@@@@@@@@@@"
"@@@@@@@@@@@@DDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDD@@@@@@@@@@@@"
"@@@@@@@@@@@@@DDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDD@@@@@@@@@@@@@@"
"@@@@@@@@@@@@@@@DDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDD@@@@@@@@@@@@@@@@"
"@@@@@@@@@@@@@@@@@DDDDDDDDDDDDDDDDDDDDDDDDDDDDD@@@@@@@@@@@@@@@@@@"
"@@@@@@@@@@@@@@@@@@@@@DDDDDDDDDDDDDDDDDDDDDD@@@@@@@@@@@@@@@@@@@@@"
"@@@@@@@@@@@@@@@@@@@@@@@@@@DDDDDDDDDDDDD@@@@@@@@@@@@@@@@@@@@@@@@@")
(RPAQ QUARTERBITMAP (READBITMAP))
(32 32
"@@@GN@@@"
"@@GHAL@@"
"@@NAIC@@"
"@CIIJHL@"
"@EEECAJ@"
"@LDMJII@"
"ADB@@BBH"
"AFHGO@BD"
"CKAIOLED"
"A@A@ON@B"
"D@A@ON@B"
"F@ADGO@A"
"B@B@CO@A"
"L@D@CO@A"
"H@D@@F@A"
"N@B@@F@A"
"@@C@@F@A"
"L@B@@B@A"
"N@CL@C@A"
"@@@D@E@A"
"LEDB@DHA"
"B@@B@F@B"
"DBHD@B@B"
"B@@OON@D"
"C@@@@@@D"
"A@BLI@@H"
"@HBMDHA@"
"@DBLI@B@"
"@BBEDHL@"
"@AHLIA@@"
"@@G@@N@@"
"@@@OO@@@")
(RPAQ COLORQUARTERBITMAP (READBITMAP))
(32 32 4
"@@@@@@@@@@@@@GGGGGG@@@@@@@@@@@@@"
"@@@@@@@@@GGGG@@@@@@GGG@@@@@@@@@@"
"@@@@@@@@GGG@@@@GG@@G@@GG@@@@@@@@"
"@@@@@@GGG@@GG@@GG@G@G@@@GG@@@@@@"
"@@@@@G@G@G@G@G@G@@GG@@@GG@G@@@@@"
"@@@@GG@@@G@@GG@GG@G@G@@GG@@G@@@@"
"@@@G@G@@@@G@@@@@@@@@@@G@@@G@G@@@"
"@@@G@GG@G@@@@GGGGGGG@@@@@@G@@G@@"
"@@GGG@GG@@@GG@@GGGGGGG@@@G@G@G@@"
"@@@G@@@@@@@G@@@@GGGGGGG@@@@@@@G@"
"@G@@@@@@@@@G@@@@GGGGGGG@@@@@@@G@"
"@GG@@@@@@@@G@G@@@GGGGGGG@@@@@@@G"
"@@G@@@@@@@G@@@@@@@GGGGGG@@@@@@@G"
"GG@@@@@@@G@@@@@@@@GGGGGG@@@@@@@G"
"G@@@@@@@@G@@@@@@@@@@@GG@@@@@@@@G"
"GGG@@@@@@@G@@@@@@@@@@GG@@@@@@@@G"
"@@@@@@@@@@GG@@@@@@@@@GG@@@@@@@@G"
"GG@@@@@@@@G@@@@@@@@@@@G@@@@@@@@G"
"GGG@@@@@@@GGGG@@@@@@@@GG@@@@@@@G"
"@@@@@@@@@@@@@G@@@@@@@G@G@@@@@@@G"
"GG@@@G@G@G@@@@G@@@@@@G@@G@@@@@@G"
"@@G@@@@@@@@@@@G@@@@@@GG@@@@@@@G@"
"@G@@@@G@G@@@@G@@@@@@@@G@@@@@@@G@"
"@@G@@@@@@@@@GGGGGGGGGGG@@@@@@G@@"
"@@GG@@@@@@@@@@@@@@@@@@@@@@@@@G@@"
"@@@G@@@@@@G@GG@@G@@G@@@@@@@@G@@@"
"@@@@G@@@@@G@GG@G@G@@G@@@@@@G@@@@"
"@@@@@G@@@@G@GG@@G@@G@@@@@@G@@@@@"
"@@@@@@G@@@G@@G@G@G@@G@@@GG@@@@@@"
"@@@@@@@GG@@@GG@@G@@G@@@G@@@@@@@@"
"@@@@@@@@@GGG@@@@@@@@GGG@@@@@@@@@"
"@@@@@@@@@@@@GGGGGGGG@@@@@@@@@@@@")
(RPAQ BOARD (READARRAY 29 (QUOTE DOUBLEPOINTER) 1))
((8213 8220 8220 8220 8220 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 8205 8204 8204 8206 8204 8204 8206 8204 8204 8205 8204 8204
8207 8204 8204 8204 8204 8203)
(8211 0 0 0 0 8211 0 0 8195 0 0 0 0 0 0 0 0 8211 0 0 8195 0 0 0 0 8195)
(8211 0 0 0 0 8211 0 0 8195 0 0 0 0 0 0 0 0 8211 0 0 8195 0 0 0 0 8195)
(8214 8220 8220 8220 8220 8219 0 0 8198 8204 8204 8201 0 0 8213 8220 8220 8218 0 0 8199 8204 8204 8204
8204 8202)
(0 0 0 0 0 8211 0 0 0 0 0 3 0 0 3 0 0 0 0 0 8195 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 8195 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 8195 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 8195 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 8195 0 0 0 0 0)
(4172 4108 4108 4108 4108 8207 12 12 11 0 0 0 2 2 2 0 0 7 12 12 8207 4108 4108 4108 4108 4236)
(0 0 0 0 0 8195 0 0 3 0 0 0 2 2 2 0 0 3 0 0 8195 0 0 0 0 0)
(0 0 0 0 0 8195 0 0 3 0 0 0 0 0 0 0 0 3 0 0 8195 0 0 0 0 0)
(0 0 0 0 0 8195 0 0 7 12 12 12 16396 12 12 12 12 11 0 0 8195 0 0 0 0 0)
(0 0 0 0 0 8195 0 0 3 0 0 0 0 0 0 0 0 3 0 0 8195 0 0 0 0 0)
(0 0 0 0 0 8195 0 0 3 0 0 0 0 0 0 0 0 3 0 0 8195 0 0 0 0 0)
(8197 8204 8204 8204 8204 8207 8220 8220 8206 8204 8204 8201 0 0 8197 8204 8204 8206 8204 8204 8207
8204 8204 8204 8204 8201)
(8195 0 0 0 0 8195 0 0 0 0 0 8195 0 0 8195 0 0 0 0 0 8195 0 0 0 0 8195)
(8195 0 0 0 0 8195 0 0 0 0 0 8195 0 0 8195 0 0 0 0 0 8195 0 0 0 0 8195)
(6 8220 8217 0 0 8199 8204 8204 8205 8204 8204 8206 12 12 8206 8204 8204 8205 8204 8204 8203 0 0 8197
8204 10)
(0 0 8211 0 0 8195 0 0 8195 0 0 0 0 0 0 0 0 8211 0 0 8195 0 0 8195 0 0)
(0 0 8211 0 0 8195 0 0 8195 0 0 0 0 0 0 0 0 8211 0 0 8195 0 0 8195 0 0)
(8197 8204 8206 8204 8204 8202 0 0 8198 8204 8204 8201 0 0 8213 8220 8220 8218 0 0 8198 8204 8204 8206
8220 8217)
(8195 0 0 0 0 0 0 0 0 0 0 8195 0 0 8211 0 0 0 0 0 0 0 0 0 0 8211)
(8195 0 0 0 0 0 0 0 0 0 0 8195 0 0 8211 0 0 0 0 0 0 0 0 0 0 8211)
(8198 8204 8204 8204 8204 8204 8204 8204 8204 8204 8204 8206 8220 8220 8222 8220 8220 8220 8220 8220
8220 8220 8220 8220 8220 8218)
NIL
)
(RPAQ VIRGINBOARD (READARRAY 29 (QUOTE DOUBLEPOINTER) 1))
((8213 8220 8220 8220 8220 8221 8220 8220 8220 8220 8220 8217 0 0 8213 8220 8220 8220 8220 8220 8221
8220 8220 8220 8220 8217)
(8211 0 0 0 0 8211 0 0 0 0 0 8211 0 0 8211 0 0 0 0 0 8211 0 0 0 0 8211)
(35 0 0 0 0 8211 0 0 0 0 0 8211 0 0 8211 0 0 0 0 0 8211 0 0 0 0 35)
(8211 0 0 0 0 8211 0 0 0 0 0 8211 0 0 8211 0 0 0 0 0 8211 0 0 0 0 8211)
(8215 8220 8220 8220 8220 8223 8220 8220 8221 8220 8220 8222 8220 8220 8222 8220 8220 8221 8220 8220
8223 8220 8220 8220 8220 8219)
(8211 0 0 0 0 8211 0 0 8211 0 0 0 0 0 0 0 0 8211 0 0 8211 0 0 0 0 8211)
(8211 0 0 0 0 8211 0 0 8211 0 0 0 0 0 0 0 0 8211 0 0 8211 0 0 0 0 8211)
(8214 8220 8220 8220 8220 8219 0 0 8214 8220 8220 8217 0 0 8213 8220 8220 8218 0 0 8215 8220 8220 8220
8220 8218)
(0 0 0 0 0 8211 0 0 0 0 0 3 0 0 3 0 0 0 0 0 8211 0 0 0 0 0)
(0 0 0 0 0 8211 0 0 0 0 0 3 0 0 3 0 0 0 0 0 8211 0 0 0 0 0)
(0 0 0 0 0 8211 0 0 5 12 12 14 269 13 14 12 12 9 0 0 8211 0 0 0 0 0)
(0 0 0 0 0 8211 0 0 3 0 0 0 518 10 0 0 0 3 0 0 8211 0 0 0 0 0)
(0 0 0 0 0 8211 0 0 3 0 0 1028 2 2 2056 0 0 3 0 0 8211 0 0 0 0 0)
(4172 4108 4108 4108 4108 8223 12 12 11 0 0 0 2 2 2 0 0 7 12 12 8223 4108 4108 4108 4108 4236)
(0 0 0 0 0 8211 0 0 3 0 0 0 2 2 2 0 0 3 0 0 8211 0 0 0 0 0)
(0 0 0 0 0 8211 0 0 3 0 0 0 0 0 0 0 0 3 0 0 8211 0 0 0 0 0)
(0 0 0 0 0 8211 0 0 7 12 12 12 16396 12 12 12 12 11 0 0 8211 0 0 0 0 0)
(0 0 0 0 0 8211 0 0 3 0 0 0 0 0 0 0 0 3 0 0 8211 0 0 0 0 0)
(0 0 0 0 0 8211 0 0 3 0 0 0 0 0 0 0 0 3 0 0 8211 0 0 0 0 0)
(8213 8220 8220 8220 8220 8223 8220 8220 8222 8220 8220 8217 0 0 8213 8220 8220 8222 8220 8220 8223
8220 8220 8220 8220 8217)
(8211 0 0 0 0 8211 0 0 0 0 0 8211 0 0 8211 0 0 0 0 0 8211 0 0 0 0 8211)
(8211 0 0 0 0 8211 0 0 0 0 0 8211 0 0 8211 0 0 0 0 0 8211 0 0 0 0 8211)
(38 8220 8217 0 0 8215 8220 8220 8221 8220 8220 8222 12 12 8222 8220 8220 8221 8220 8220 8219 0 0 8213
8220 42)
(0 0 8211 0 0 8211 0 0 8211 0 0 0 0 0 0 0 0 8211 0 0 8211 0 0 8211 0 0)
(0 0 8211 0 0 8211 0 0 8211 0 0 0 0 0 0 0 0 8211 0 0 8211 0 0 8211 0 0)
(8213 8220 8222 8220 8220 8218 0 0 8214 8220 8220 8217 0 0 8213 8220 8220 8218 0 0 8214 8220 8220 8222
8220 8217)
(8211 0 0 0 0 0 0 0 0 0 0 8211 0 0 8211 0 0 0 0 0 0 0 0 0 0 8211)
(8211 0 0 0 0 0 0 0 0 0 0 8211 0 0 8211 0 0 0 0 0 0 0 0 0 0 8211)
(8214 8220 8220 8220 8220 8220 8220 8220 8220 8220 8220 8222 8220 8220 8222 8220 8220 8220 8220 8220
8220 8220 8220 8220 8220 8218)
NIL
)
(DECLARE: DOEVAL@COMPILE
(DECLARE: DOEVAL@COMPILE DONTCOPY
(GLOBALVARS 1600BITMAP 200BITMAP 400BITMAP 800BITMAP APPLEBITMAP ATTRACTMODE BELLBITMAP BIGPMANC
BIGPMANR BIRDBITMAP BLUETIME BOARD BOARDLIST BWG1BITMAP BWG2BITMAP BWG3BITMAP BWG4BITMAP
BWGINVBITMAP CHERRYBITMAP COLOR1600BITMAP COLOR200BITMAP COLOR400BITMAP COLOR800BITMAP
COLORAPPLEBITMAP COLORBELLBITMAP COLORBIGPMANC COLORBIGPMANR COLORBIRDBITMAP
COLORCHERRYBITMAP COLORDOT COLORENERGIZER COLOREYESBITMAP COLORG1BITMAP COLORG2BITMAP
COLORG3BITMAP COLORG4BITMAP COLORGINVBITMAP COLORKEYBITMAP COLORORANGEBITMAP COLORPACMANC
COLORPINEAPPLEBITMAP COLORPMANDOWN COLORPMANLEFT COLORPMANRIGHT COLORPMANUP
COLORQUARTERBITMAP COLORSIGLOGO COLORSTRAWBERRYBITMAP DOT ENERGIZER ENERGIZEROBJ
EYESBITMAP FOLLOW FRUIT# FRUITLIST FRUITTIME FRUITVISIBLE G1 G1BITMAP G2 G2BITMAP G3
G3BITMAP G4 G4BITMAP GINVBITMAP GVALUE GVALUEBITMAPLIST GVALUEPOS HASDOT HILIST HINAMES
HIVALUES KEYBITMAP LASTMOUSEBUTTONS LASTMOUSEX LASTMOUSEY NAME NETP NEXTMOVE NUMDOTS
NUMMEN OLDG1 OLDG2 OLDG3 OLDG4 OLDPMAN ORANGEBITMAP PMANINPUTMODE PACMANC PACMANCMAP
PACMANINCOLOR PACMANVERSION PINEAPPLEBITMAP PIT PMANDOWN PMANDOWNMAP PMANLEFT PMANLEFTMAP
PMANRIGHT PMANRIGHTMAP PMANUP PMANUPMAP PMGAMEOVER PMOLDCOLORMAP PMWANTMORE PSTREAM
PWINDOW QUARTERBITMAP SAVEGVALUE SCORE SIGLOGO STRAWBERRYBITMAP VIRGINBOARD)
)
)
(PUTPROPS PACMAN COPYRIGHT ("Xerox Corporation" 1984 1985 1987))
(DECLARE: DONTCOPY
(FILEMAP (NIL (3976 61820 (ASSIGNDIR 3986 . 4908) (BLINKENERGIZERS 4910 . 5563) (PLAYERBOARDVAL 5565
. 5930) (BOARDVAL 5932 . 6076) (CHECKAT 6078 . 6231) (COLLISIONCHECK 6233 . 9485) (DECIDE 9487 .
11465) (DOTCHECK 11467 . 12044) (DRAWBOARD 12046 . 12863) (DRAWBOARDNEW 12865 . 13643) (ENERGIZERCHECK
13645 . 14171) (ERASEOBJ 14173 . 14378) (FRUITCHECK 14380 . 15611) (FRUITINIT 15613 . 17369) (
GETHISCORES 17371 . 18245) (GETMONEY 18247 . 19451) (GETMOVE 19453 . 22527) (VOICEINPUT 22529 . 22705)
(XLOCTOSCREEN 22707 . 23002) (XSCREENTOLOC 23004 . 23300) (YLOCTOSCREEN 23302 . 23587) (YSCREENTOLOC
23589 . 23903) (HISCORE 23905 . 24679) (INCOLORQ 24681 . 25294) (INPUTMODEQ 25296 . 26538) (
HASCOLORDISPLAYP 26540 . 26939) (INTERMISSION1 26941 . 28299) (ISIGN 28301 . 28690) (JOYSTICK 28692 .
29202) (LOSE 29204 . 30100) (MOVEDOWN 30102 . 30625) (MOVEGHOST 30627 . 34225) (MOVELEFT 34227 . 34750
) (MOVEOBJ 34752 . 34938) (MOVEPACMAN 34940 . 36986) (MOVERIGHT 36988 . 37511) (MOVEUP 37513 . 38034)
(NEWHISCORES 38036 . 38752) (PACINTRO 38754 . 40138) (PACMAN 40140 . 44177) (PACMANINIT 44179 . 46422)
(PACMANINITNEW 46424 . 48134) (PACMANNEWGAME 48136 . 48535) (PACMANREINIT 48537 . 50953) (PAINTOBJ
50955 . 51178) (PAINTDOT 51180 . 51356) (PUTDOTS 51358 . 52739) (PUTDOTSAGAIN 52741 . 53181) (
PUTENERGIZERS 53183 . 53708) (REDODOT 53710 . 54295) (REPLACEOBJ 54297 . 54476) (SCAN 54478 . 54766) (
SETBITMAPS 54768 . 55617) (SETBOARDVAL 55619 . 55778) (SETCHARPROPS 55780 . 58591) (SETGCANS 58593 .
58846) (SETGLOCS 58848 . 60264) (SETPLAYERBOARDVAL 60266 . 60531) (SHOW 60533 . 60710) (SHOWCAP 60712
. 60868) (SHOWHISCORES 60870 . 61231) (SPEEDQ 61233 . 61818)))))
STOP