(FILECREATED "27-JAN-84 11:37:24" {ICE}<DENBER>LISP>PACMAN.;58 112389
changes to: (VARS PACMANCOMS PACMANVARS 1600BITMAP 200BITMAP 400BITMAP 800BITMAP APPLEBITMAP
ATTRACTMODE BELLBITMAP BIGPMANC BIGPMANR BIRDBITMAP BLUETIME BOARD BOARDLIST
CHERRY CHERRYBITMAP)
(FNS MOVEGHOST DECIDE ASSIGNDIR GETHISCORES)
previous date: " 4-JAN-84 17:21:55" {ICE}<DENBER>LISP>PACMAN.;55)
(PRETTYCOMPRINT PACMANCOMS)
(RPAQQ PACMANCOMS ((VARS * PACMANVARS)
(FNS * PACMANFNS)
(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 PMX PMY)
(PROP (BITMAP OPERATION)
CHERRY)))
(RPAQQ PACMANVARS (1600BITMAP 200BITMAP 400BITMAP 800BITMAP APPLEBITMAP ATTRACTMODE BELLBITMAP
BIGPMANC BIGPMANR BIRDBITMAP BLUETIME BOARD BOARDLIST CHERRY
CHERRYBITMAP COLORPMANDOWN COLORPMANLEFT COLORPMANRIGHT COLORPMANUP DOT
ENERGIZER ENERGIZEROBJ EYESBITMAP FRUIT# FRUITTIME G1BITMAP G2BITMAP
G3BITMAP G4BITMAP GINVBITMAP KEYBITMAP MRIGHT ORANGEBITMAP PACMANC
PACMANINCOLOR PINEAPPLEBITMAP PMAN PMANDOWN PMANLEFT PMANRIGHT PMANUP
PMGAMEOVER PMX PMY PSTREAM PWINDOW QUARTERBITMAP ROW SIGLOGO
STRAWBERRYBITMAP))
(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))
((8197 8204 8204 8204 8204 8205 8204 8204 8204 8204 8204 8201 0 0 8197 8204 8204 8204 8204 8204 8205
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)
(3 0 0 0 0 8195 0 0 0 0 0 8195 0 0 8195 0 0 0 0 0 8195 0 0 0 0 3)
(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)
(8199 8204 8204 8204 8204 8207 8204 8204 8205 8204 8204 8206 8204 8204 8206 8204 8204 8205 8204 8204
8207 8204 8204 8204 8204 8203)
(8195 0 0 0 0 8195 0 0 8211 0 0 0 0 0 0 0 0 8195 0 0 8195 0 0 0 0 8195)
(8195 0 0 0 0 8195 0 0 8211 0 0 0 0 0 0 0 0 8195 0 0 8195 0 0 0 0 8195)
(8198 8204 8204 8204 8204 8203 0 0 8214 8220 8220 8217 0 0 8197 8204 8204 8202 0 0 8199 8204 8204 8204
8204 8202)
(0 0 0 0 0 8195 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 8195 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 8195 0 0 5 12 12 14 269 13 14 12 12 9 0 0 8195 0 0 0 0 0)
(0 0 0 0 0 8195 0 0 3 0 0 0 518 10 0 0 0 3 0 0 8195 0 0 0 0 0)
(0 0 0 0 0 8195 0 0 3 0 0 1028 2 2 2056 0 0 3 0 0 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 8211 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 8211 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 8211 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 8211 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 8211 0 0 3 0 0 0 0 0 0 0 0 3 0 0 8195 0 0 0 0 0)
(8213 8220 8220 8220 8220 8207 8204 8204 8206 8204 8204 8201 0 0 8197 8204 8204 8206 8204 8204 8207
8204 8204 8204 8204 8201)
(8211 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)
(8211 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)
(38 8220 8217 0 0 8199 8204 8204 8205 8204 8204 8206 12 12 8206 8204 8204 8205 8204 8204 8203 0 0 8213
8220 10)
(0 0 8211 0 0 8195 0 0 8195 0 0 0 0 0 0 0 0 8211 0 0 8211 0 0 8211 0 0)
(0 0 8211 0 0 8195 0 0 8195 0 0 0 0 0 0 0 0 8211 0 0 8211 0 0 8211 0 0)
(8197 8204 8206 8204 8204 8202 0 0 8198 8220 8220 8217 0 0 8197 8204 8204 8202 0 0 8214 8220 8220 8222
8220 8217)
(8195 0 0 0 0 0 0 0 0 0 0 8211 0 0 8195 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 8195 0 0 0 0 0 0 0 0 0 0 8211)
(8198 8204 8204 8204 8204 8204 8204 8204 8204 8204 8204 8206 8204 8204 8206 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 549)
(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)
(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 PMX {CMLARRAY}#6,47662)
(RPAQQ PMY {CMLARRAY}#6,47644)
(RPAQQ PSTREAM {STREAM}#6,102204)
(RPAQQ PWINDOW {WINDOW}#6,103226)
(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 PACMANFNS (ASSIGNDIR BLINKENERGIZERS BOARDVAL CHECKAT COLLISIONCHECK DECIDE DOTCHECK DRAWBOARD
DRAWBOARDNEW ENERGIZERCHECK ERASEOBJ FRUITCHECK FRUITINIT GETHISCORES
GETMONEY GETMOVE HISCORE INCOLORQ 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 SETCOORDS SETGCANS
SETGLOCS SHOW SHOWCAP SHOWHISCORES WIN))
(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])
(BOARDVAL
[LAMBDA (X Y) (* MD "28-NOV-83 16:44")
(CAR (FNTH (ELT BOARD Y)
X])
(CHECKAT
[LAMBDA (X Y BIT) (* MD "10-JAN-83 14:39")
(COND
((NEQ (LOGAND (BOARDVAL X Y)
BIT)
0)
T)
(T NIL])
(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) (* 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 (CAR (NTH (ELT BOARD (GETPROP GHOST (QUOTE YLOC)))
(GETPROP GHOST (QUOTE XLOC]
(* 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 " 5-AUG-83 15:54")
(PROG (X Y)
(SETQ X (GETPROP PMAN (QUOTE XLOC)))
(SETQ Y (GETPROP PMAN (QUOTE YLOC)))
(COND
((CHECKAT X Y 16)
(SETBOARDVAL X Y (IDIFFERENCE (BOARDVAL X Y)
16))
(SETQ SCORE (ADD1 SCORE))
(SHOW SCORE)
(SETQ NUMDOTS (SUB1 NUMDOTS))
(COND
((EQ NUMDOTS 0)
(WIN])
(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 (* MD "27-JAN-84 11:34")
(CLEARW PWINDOW)
(SHOWCAP "Read high scores?" 70 200)
(COND
((EQ (MENU [create MENU
ITEMS ←(QUOTE ((Yes (QUOTE Y))
(No (QUOTE N]
NIL 5)
(QUOTE Y))
(SETQ NETP T)
(SETPASSWORD (QUOTE {ICE})
(QUOTE PSYS)
"PRTZKRK"
(QUOTE SYSIFS))
(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 " 7-DEC-83 16:10")
(PROG (PMHADENOUGH)
(SHOWCAP "INSERT QUARTER TO START GAME" 50 20)
(SHOWCAP "(Click anywhere else to quit)" 50 6)
(PUTPROP OBJ (QUOTE BITMAP)
(COND
(PACMANINCOLOR COLORQUARTERBITMAP)
(T QUARTERBITMAP)))
(PAINTOBJ OBJ 150 40 64 32 PSTREAM)
(GETMOUSESTATE)
(until [OR (SETQ PMWANTMORE (KEYDOWNP (QUOTE PAD1)))
[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))
(IF PMHADENOUGH
THEN (SETQ PMWANTMORE NIL])
(GETMOVE
[LAMBDA (MOVE) (* MD " 9-DEC-83 10:08")
(PROG (CHAR OLDX OLDY (XINC 0)
(YINC 0))
(CONTROL T)
(SETQ CHAR (JOYSTICK))
[COND
((AND (NOT CHAR)
(NOT (READP T)))
(SETQ OLDX LASTMOUSEX)
(SETQ OLDY LASTMOUSEY)
(GETMOUSESTATE)
(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 (IF PACMANINCOLOR
THEN 620
ELSE 1000))
(ADJUSTCURSORPOSITION -64 0)))
(COND
((IGREATERP OLDY (IF PACMANINCOLOR
THEN 460
ELSE 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)
(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])
(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 (* MD " 4-JAN-84 15:19")
(SELECTQ (MACHINETYPE)
((QUOTE DOLPHIN)
(COND
((EQ (LRSH (\DEVICE.INPUT 80)
8)
175)
(printout T "In color?" T)
(MENU (create MENU
ITEMS ←(QUOTE ((Yes T)
(No NIL)))
TITLE ←(QUOTE Color?))
5))
(T NIL)))
((QUOTE DANDELION)
NIL)
((QUOTE DORADO)
(printout T "In color?" T)
(MENU (create MENU
ITEMS ←(QUOTE ((Yes T)
(No NIL)))
TITLE ←(QUOTE Color?))
5))
(printout T "Unknown machine type."])
(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) (* MD "25-JAN-84 15:46")
(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)
(SETBOARDVAL (GETPROP GHOST (QUOTE XLOC))
(GETPROP GHOST (QUOTE YLOC))
(IDIFFERENCE (BOARDVAL (GETPROP GHOST (QUOTE XLOC))
(GETPROP GHOST (QUOTE YLOC)))
(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) (* MD "29-NOV-83 11:28")
(MOVEOBJ OBJ OLDOBJ (16AREF PMX (GETPROP OLDOBJ (QUOTE XLOC)))
(16AREF PMY (GETPROP OLDOBJ (QUOTE YLOC)))
[16AREF PMX (PUTPROP OBJ (QUOTE XLOC)
(SUB1 (GETPROP OBJ (QUOTE XLOC]
(16AREF PMY (GETPROP OBJ (QUOTE YLOC)))
16 16 PSTREAM])
(MOVEOBJ
[LAMBDA (OBJ OLDOBJ X1 Y1 X2 Y2 W H STREAM) (* MD " 3-JAN-83 14:51")
(ERASEOBJ OLDOBJ X1 Y1 W H STREAM)
(PAINTOBJ OBJ X2 Y2 W H STREAM])
(MOVEPACMAN
[LAMBDA (PMAN DIR) (* MD "15-AUG-83 17:20")
(SELECTQ DIR
(1 (PUTPROP PMAN (QUOTE BITMAP)
(COND
((EQ CYCLE 1)
PMANDOWN)
(T PACMANC)))
(MOVEDOWN PMAN OLDPMAN))
(2 (PUTPROP PMAN (QUOTE BITMAP)
(COND
((EQ CYCLE 1)
PMANUP)
(T PACMANC)))
(MOVEUP PMAN OLDPMAN))
[4 (PUTPROP PMAN (QUOTE BITMAP)
(COND
((EQ CYCLE 1)
PMANRIGHT)
(T PACMANC)))
(COND
((CHECKAT (GETPROP PMAN (QUOTE XLOC))
(GETPROP PMAN (QUOTE YLOC))
128)
(ERASEOBJ OLDPMAN (IDIFFERENCE (ITIMES (GETPROP OLDPMAN (QUOTE XLOC))
11)
6)
(IDIFFERENCE (ITIMES (IDIFFERENCE 30 (GETPROP OLDPMAN (QUOTE YLOC)))
11)
6)
16 16 PSTREAM)
(PUTPROP PMAN (QUOTE XLOC)
1)
(SETQ PIT 1))
(T (MOVERIGHT PMAN OLDPMAN]
[8 (PUTPROP PMAN (QUOTE BITMAP)
(COND
((EQ CYCLE 1)
PMANLEFT)
(T PACMANC)))
(COND
((CHECKAT (GETPROP PMAN (QUOTE XLOC))
(GETPROP PMAN (QUOTE YLOC))
64)
(ERASEOBJ OLDPMAN (IDIFFERENCE (ITIMES (GETPROP OLDPMAN (QUOTE XLOC))
11)
6)
(IDIFFERENCE (ITIMES (IDIFFERENCE 30 (GETPROP OLDPMAN (QUOTE YLOC)))
11)
6)
16 16 PSTREAM)
(PUTPROP PMAN (QUOTE XLOC)
26)
(SETQ PIT 1))
(T (MOVELEFT PMAN OLDPMAN]
T NIL)
(PUTPROP OLDPMAN (QUOTE BITMAP)
(GETPROP PMAN (QUOTE BITMAP)))
(PUTPROP OLDPMAN (QUOTE XLOC)
(GETPROP PMAN (QUOTE XLOC)))
(PUTPROP OLDPMAN (QUOTE YLOC)
(GETPROP PMAN (QUOTE YLOC])
(MOVERIGHT
[LAMBDA (OBJ OLDOBJ) (* MD " 6-JAN-83 16:21")
(MOVEOBJ OBJ OLDOBJ (IDIFFERENCE (ITIMES (GETPROP OLDOBJ (QUOTE XLOC))
11)
6)
(IDIFFERENCE (ITIMES (IDIFFERENCE 30 (GETPROP OLDOBJ (QUOTE YLOC)))
11)
6)
(IDIFFERENCE (ITIMES [PUTPROP OBJ (QUOTE XLOC)
(ADD1 (GETPROP OBJ (QUOTE XLOC]
11)
6)
(IDIFFERENCE (ITIMES (IDIFFERENCE 30 (GETPROP OBJ (QUOTE YLOC)))
11)
6)
16 16 PSTREAM])
(MOVEUP
[LAMBDA (OBJ OLDOBJ) (* MD " 6-JAN-83 16:21")
(MOVEOBJ OBJ OLDOBJ (IDIFFERENCE (ITIMES (GETPROP OLDOBJ (QUOTE XLOC))
11)
6)
(IDIFFERENCE (ITIMES (IDIFFERENCE 30 (GETPROP OLDOBJ (QUOTE YLOC)))
11)
6)
(IDIFFERENCE (ITIMES (GETPROP OBJ (QUOTE XLOC))
11)
6)
(IDIFFERENCE (ITIMES [IDIFFERENCE 30 (PUTPROP OBJ (QUOTE YLOC)
(SUB1 (GETPROP OBJ (QUOTE YLOC]
11)
6)
16 16 PSTREAM])
(NEWHISCORES
[LAMBDA NIL (* MD "30-AUG-83 14:09")
(CLEARW PWINDOW)
(SHOWCAP "What is your name?" 70 200)
(SETSYNTAX (QUOTE % )
(QUOTE OTHER))
(SETQ NAME (RSTRING))
(SETSYNTAX (QUOTE % )
(QUOTE SEPRCHAR))
(SETPASSWORD (QUOTE {ICE})
(QUOTE PSYS)
"PRTZKRK"
(QUOTE SYSIFS))
(INFILE (QUOTE {ICE}<SYSIFS>PSYSICE))
[SETQ HILIST (REVERSE (CDR (SORT (APPEND (READ)
(LIST (LIST (ITIMES SCORE 10)
NAME)))
T]
(SHOWHISCORES)
(CLOSEF (QUOTE {ICE}<SYSIFS>PSYSICE))
(OUTFILE (QUOTE {ICE}<SYSIFS>PSYSICE.;2))
(PRINT HILIST)
(CLOSEF (QUOTE {ICE}<SYSIFS>PSYSICE.;2])
(PACINTRO
[LAMBDA NIL (* MD " 7-DEC-83 16:10")
(PROG (CHAR CHARNAME OBJ X Y)
(CLEARW PWINDOW)
(SETQ OBJ (QUOTE TEMP))
(PUTPROP OBJ (QUOTE BITMAP)
(COND
(PACMANINCOLOR COLORSIGLOGO)
(T SIGLOGO)))
(PUTPROP OBJ (QUOTE OPERATION)
(QUOTE PAINT))
(PAINTOBJ OBJ 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 OBJ (QUOTE BITMAP)
(EVAL CHAR))
[for X from 360 to 50 by -1
do (MOVEOBJ OBJ OBJ 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 (* MD " 4-JAN-84 14:50")
(PROG (PMAN)
(* 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 PMAN (QUOTE X))
(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 (COND
((EQ (MACHINETYPE)
(QUOTE DANDELION))
(DISMISS 3))
((EQ (MACHINETYPE)
(QUOTE DORADO))
(DISMISS 3)))
[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 reamining point value)
(* Caution -
a kludge:)
(ERASEOBJ (CAR (NTH GVALUEBITMAPLIST
(IQUOTIENT SAVEGVALUE 20)))
(CAR GVALUEPOS)
(CDR GVALUEPOS)
16 16 PSTREAM)
(SETQ GVALUEPOS (QUOTE (0 . 0]
(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) (* MD " 4-JAN-84 11:26")
(printout T (SETQ PACMANVERSION "PACMAN Version 1.4")
T)
(SETQ PACMANINCOLOR (INCOLORQ))
[CLEARW (OR PWINDOW
(PROG1 (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 (DECODE/WINDOW/OR/DISPLAYSTREAM PWINDOW NIL PACMANVERSION NIL]
(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 (* MD " 4-JAN-84 14:09")
[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 (280 . 93))) (* Used by COLLISIONCHECK)
(SETQ MOVE 8)
(SETQ NEXTMOVE 0)
(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])
(SETCOORDS
[LAMBDA NIL (* MD "29-NOV-83 11:05")
(for X from 1 to 26 do (ASET (IDIFFERENCE (ITIMES X 11)
6)
PMX X))
(for Y from 1 to 29 do (ASET (IDIFFERENCE (ITIMES (IDIFFERENCE 30 Y)
11)
6)
PMY Y])
(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])
(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])
(WIN
[LAMBDA NIL (* MD " 5-AUG-83 17:40")
(PACMANREINIT])
)
(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))
((8197 8204 8204 8204 8204 8205 8204 8204 8204 8204 8204 8201 0 0 8197 8204 8204 8204 8204 8204 8205
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)
(3 0 0 0 0 8195 0 0 0 0 0 8195 0 0 8195 0 0 0 0 0 8195 0 0 0 0 3)
(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)
(8199 8204 8204 8204 8204 8207 8204 8204 8205 8204 8204 8206 8204 8204 8206 8204 8204 8205 8204 8204
8207 8204 8204 8204 8204 8203)
(8195 0 0 0 0 8195 0 0 8211 0 0 0 0 0 0 0 0 8195 0 0 8195 0 0 0 0 8195)
(8195 0 0 0 0 8195 0 0 8211 0 0 0 0 0 0 0 0 8195 0 0 8195 0 0 0 0 8195)
(8198 8204 8204 8204 8204 8203 0 0 8214 8220 8220 8217 0 0 8197 8204 8204 8202 0 0 8199 8204 8204 8204
8204 8202)
(0 0 0 0 0 8195 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 8195 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 8195 0 0 5 12 12 14 269 13 14 12 12 9 0 0 8195 0 0 0 0 0)
(0 0 0 0 0 8195 0 0 3 0 0 0 518 10 0 0 0 3 0 0 8195 0 0 0 0 0)
(0 0 0 0 0 8195 0 0 3 0 0 1028 2 2 2056 0 0 3 0 0 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 8211 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 8211 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 8211 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 8211 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 8211 0 0 3 0 0 0 0 0 0 0 0 3 0 0 8195 0 0 0 0 0)
(8213 8220 8220 8220 8220 8207 8204 8204 8206 8204 8204 8201 0 0 8197 8204 8204 8206 8204 8204 8207
8204 8204 8204 8204 8201)
(8211 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)
(8211 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)
(38 8220 8217 0 0 8199 8204 8204 8205 8204 8204 8206 12 12 8206 8204 8204 8205 8204 8204 8203 0 0 8213
8220 10)
(0 0 8211 0 0 8195 0 0 8195 0 0 0 0 0 0 0 0 8211 0 0 8211 0 0 8211 0 0)
(0 0 8211 0 0 8195 0 0 8195 0 0 0 0 0 0 0 0 8211 0 0 8211 0 0 8211 0 0)
(8197 8204 8206 8204 8204 8202 0 0 8198 8220 8220 8217 0 0 8197 8204 8204 8202 0 0 8214 8220 8220 8222
8220 8217)
(8195 0 0 0 0 0 0 0 0 0 0 8211 0 0 8195 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 8195 0 0 0 0 0 0 0 0 0 0 8211)
(8198 8204 8204 8204 8204 8204 8204 8204 8204 8204 8204 8206 8204 8204 8206 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
)
(RPAQQ PMX {CMLARRAY}#6,47662)
(RPAQQ PMY {CMLARRAY}#6,47644)
(PUTPROPS CHERRY BITMAP {BITMAP}#4,130314)
(PUTPROPS CHERRY OPERATION PAINT)
(DECLARE: DONTCOPY
(FILEMAP (NIL (28504 79856 (ASSIGNDIR 28514 . 29436) (BLINKENERGIZERS 29438 . 30091) (BOARDVAL 30093
. 30237) (CHECKAT 30239 . 30428) (COLLISIONCHECK 30430 . 33682) (DECIDE 33684 . 35674) (DOTCHECK
35676 . 36146) (DRAWBOARD 36148 . 36965) (DRAWBOARDNEW 36967 . 37745) (ENERGIZERCHECK 37747 . 38273) (
ERASEOBJ 38275 . 38480) (FRUITCHECK 38482 . 39713) (FRUITINIT 39715 . 41471) (GETHISCORES 41473 .
42202) (GETMONEY 42204 . 43140) (GETMOVE 43142 . 45486) (HISCORE 45488 . 46262) (INCOLORQ 46264 .
46918) (INTERMISSION1 46920 . 48278) (ISIGN 48280 . 48669) (JOYSTICK 48671 . 49181) (LOSE 49183 .
50079) (MOVEDOWN 50081 . 50604) (MOVEGHOST 50606 . 54314) (MOVELEFT 54316 . 54689) (MOVEOBJ 54691 .
54877) (MOVEPACMAN 54879 . 56572) (MOVERIGHT 56574 . 57097) (MOVEUP 57099 . 57620) (NEWHISCORES 57622
. 58338) (PACINTRO 58340 . 59731) (PACMAN 59733 . 63238) (PACMANINIT 63240 . 65483) (PACMANINITNEW
65485 . 66538) (PACMANNEWGAME 66540 . 66939) (PACMANREINIT 66941 . 69378) (PAINTOBJ 69380 . 69603) (
PAINTDOT 69605 . 69781) (PUTDOTS 69783 . 71164) (PUTDOTSAGAIN 71166 . 71606) (PUTENERGIZERS 71608 .
72133) (REDODOT 72135 . 72720) (REPLACEOBJ 72722 . 72901) (SCAN 72903 . 73191) (SETBITMAPS 73193 .
74042) (SETBOARDVAL 74044 . 74203) (SETCHARPROPS 74205 . 77016) (SETCOORDS 77018 . 77357) (SETGCANS
77359 . 77612) (SETGLOCS 77614 . 79030) (SHOW 79032 . 79209) (SHOWCAP 79211 . 79367) (SHOWHISCORES
79369 . 79730) (WIN 79732 . 79854)))))
STOP