(DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10) (FILECREATED " 9-Sep-94 14:12:55" ("compiled on " {DSK}lispusers>PACMAN.;1) "28-Jul-94 17:28:46" bcompl'd in "Medley 25-Aug-94 ..." dated "25-Aug-94 10:02:49") (FILECREATED " 3-Feb-89 15:12:20" {ERIS}INTERNAL>LIBRARY>PACMANCORE>PACMAN.;6 153326 changes to%: (FNS INCOLORQ HASCOLORDISPLAYP PACMANINITNEW MOVEPACMAN ASSIGNDIR BLINKENERGIZERS PLAYERBOARDVAL BOARDVAL CHECKAT COLLISIONCHECK DECIDE DOTCHECK DRAWBOARD DRAWBOARDNEW ENERGIZERCHECK ERASEOBJ FRUITCHECK FRUITINIT GETHISCORES GETMONEY GETMOVE VOICEINPUT XLOCTOSCREEN XSCREENTOLOC YLOCTOSCREEN YSCREENTOLOC HISCORE INPUTMODEQ INTERMISSION1 ISIGN JOYSTICK LOSE MOVEDOWN MOVEGHOST MOVELEFT MOVEOBJ MOVERIGHT MOVEUP NEWHISCORES PACINTRO PACMAN PACMANINIT PACMANNEWGAME PACMANREINIT PAINTOBJ PAINTDOT PUTDOTS PUTDOTSAGAIN PUTENERGIZERS REDODOT REPLACEOBJ SCAN SETBITMAPS SETBOARDVAL SETCHARPROPS SETGCANS SETGLOCS SETPLAYERBOARDVAL SHOW SHOWCAP SHOWHISCORES SPEEDQ) (VARS PACMANCOMS 1600BITMAP 200BITMAP 400BITMAP 800BITMAP APPLEBITMAP ATTRACTMODE BELLBITMAP BIGPMANC BIGPMANR BIRDBITMAP BLUETIME BOARD BOARDLIST CHERRY CHERRYBITMAP COLORPMANDOWN COLORPMANLEFT COLORPMANRIGHT COLORPMANUP DOT ENERGIZER ENERGIZEROBJ EYESBITMAP FRUIT# FRUITTIME G1BITMAP G2BITMAP G3BITMAP G4BITMAP GINVBITMAP KEYBITMAP MRIGHT ORANGEBITMAP PACMANC PACMANINCOLOR PINEAPPLEBITMAP PMAN PMANDOWN PMANLEFT PMANRIGHT PMANUP PMGAMEOVER) previous date%: " 3-Feb-89 12:51:56" {ERIS}INTERNAL>LIBRARY>PACMANCORE>PACMAN.;3) ASSIGNDIR :D8 (L (1 WANT 0 GNUM)) @dk/oo"IHhAJjKIHl.oo"IHhAJjKIH@dl/oo"IHhAJjKIHl.oo"IHhAJjKIHiNIL NIL ( 166 (1 8 4 2) 161 (4 2 3 1) 117 (4 8 2 1) 112 (3 2 1 4) 65 (2 8 1 4) 60 (1 2 4 3) 16 (8 2 4 1) 11 (2 1 3 4)) BLINKENERGIZERS :D8 NIL kll `kl l lld` lll `ll l lld` kll `kl l lld` lll `ll l lld` (166 PAINTOBJ 135 CHECKAT 123 PAINTOBJ 93 CHECKAT 82 PAINTOBJ 51 CHECKAT 39 PAINTOBJ 9 CHECKAT) (160 PSTREAM 142 ENERGIZEROBJ 117 PSTREAM 100 ENERGIZEROBJ 76 PSTREAM 58 ENERGIZEROBJ 33 PSTREAM 16 ENERGIZEROBJ) () PLAYERBOARDVAL :D8 (I 0 PLAYER) @g @g (26 BOARDVAL 21 GETPROP 10 GETPROP) (16 YLOC 5 XLOC) () BOARDVAL :D8 (I 1 Y I 0 X) `A @ (16 FNTH 10 ELT) (4 BOARD) () CHECKAT :D8 (I 2 BIT I 1 Y I 0 X) @A Bjh(6 BOARDVAL) NIL () COLLISIONCHECK :D8 (P 4 G P 3 OLDGHOST P 2 GHOST P 1 Y P 0 X I 0 PMAN F 5 GNUM) :@@g X@g YHIn HI nc nU``9nU``&nU``nU```k`` ```l gg `j3``ll ``ld` ``l `Jg l l`dlJg l lld` `lJgk n Jdg l llJg l lld` Jg kSJg``` KgJg HIHI Jg odL g L g L g L g L g L gL g L gL g L g L g L g L g L g h(822 SETGCANS 808 SETBOARDVAL 802 GETPROP 792 EVAL 786 BOARDVAL 781 GETPROP 771 EVAL 765 GETPROP 755 EVAL 749 GETPROP 739 EVAL 733 GETPROP 723 EVAL 716 PUTPROP 711 GETPROP 701 EVAL 690 EVAL 683 PUTPROP 678 GETPROP 668 EVAL 657 EVAL 650 SETBOARDVAL 644 GETPROP 634 EVAL 628 BOARDVAL 623 GETPROP 613 EVAL 607 GETPROP 597 EVAL 591 GETPROP 581 EVAL 575 GETPROP 565 EVAL 543 SETBOARDVAL 537 GETPROP 526 BOARDVAL 516 PUTPROP 511 GETPROP 493 PUTPROP 461 GETPROP 449 ERASEOBJ 428 GETPROP 409 GETPROP 396 DISMISS 387 PUTPROP 360 PAINTOBJ 336 GETPROP 309 GETPROP 292 NTH 273 ERASEOBJ 246 NTH 214 PUTPROP 198 NTH 168 SHOW 144 LOSE 49 BOARDVAL 36 CHECKAT 25 GETPROP 13 GETPROP) (797 BIT 776 YLOC 760 XLOC 744 YLOC 728 XLOC 706 INITY 695 YLOC 673 INITX 662 XLOC 639 BIT 618 YLOC 602 XLOC 586 YLOC 570 XLOC 532 BIT 506 BITMAP 500 BITMAP 488 EYESBITMAP 482 COLOREYESBITMAP 476 PACMANINCOLOR 471 BITMAP 456 EATEN 443 PSTREAM 423 YLOC 404 XLOC 381 EATEN 374 GVALUE 366 GVALUE 354 PSTREAM 331 YLOC 322 GVALUEPOS 304 XLOC 298 GVALUEPOS 284 GVALUE 279 GVALUEBITMAPLIST 267 PSTREAM 258 GVALUEPOS 252 GVALUEPOS 235 GVALUE 230 GVALUEBITMAPLIST 220 GVALUEPOS 209 INVERT 204 OPERATION 190 GVALUE 185 GVALUEBITMAPLIST 179 SAVEGVALUE 174 GVALUE 163 SCORE 157 GVALUE 152 SCORE 136 FOLLOW 130 OLDG1 124 G1 111 OLDG2 105 G2 92 OLDG3 86 G3 73 OLDG4 67 G4 20 YLOC 8 XLOC) ( 551 (G1 G2 G3 G4)) DECIDE :D8 (P 3 CURLOC P 2 WANT P 1 GYINC P 0 GXINC I 0 GHOST F 4 PMAN) @@g jFkTg @g ` kTg @g `ڰ&kl @g kl @g jZ@ [HdkIkKlHkImKlHdmIkKl HmImKl ZJ@g ZdjK@g @g J (246 ASSIGNDIR 240 GETPROP 227 GETPROP 209 GETPROP 135 PLAYERBOARDVAL 126 ISIGN 120 GETPROP 105 ISIGN 99 GETPROP 76 GETPROP 65 GETPROP 52 ISIGN 40 GETPROP 29 GETPROP 13 GETPROP) (235 NUMBER 222 CAN 204 CAN 115 YLOC 94 XLOC 82 FOLLOW 71 YLOC 60 YLOC 46 FOLLOW 35 XLOC 24 XLOC 8 EATEN) () DOTCHECK :D8 (P 1 Y P 0 X I 0 PMAN) a@g @g HIl =HIHI l `k `mjh(93 PACMANREINIT 70 SHOW 52 SETBOARDVAL 44 BOARDVAL 33 CHECKAT 21 GETPROP 10 GETPROP) (84 NUMDOTS 76 NUMDOTS 65 SCORE 58 SCORE 16 YLOC 5 XLOC) () DRAWBOARD :D8 (P 3 Y2 P 2 X2 P 1 Y1 P 0 X1) @` jXXlch`HIJKhh HdJ7KI0Hl l lIll Jl lKlg` Hl l lIl Jl lKlg` d(169 DRAWLINE 126 DRAWLINE 65 \APPEND2 43 READ 37 READ 31 READ 19 READ 12 DSPRESET) (163 PSTREAM 158 PAINT 120 PSTREAM 115 PAINT 70 BOARDLIST 49 BOARDLIST 7 PSTREAM) () DRAWBOARDNEW :D8 (P 4 XYPAIR P 3 Y2 P 2 X2 P 1 Y1 P 0 X1) v@` `^dLLLLHdJKIHl l lIl؊Hl l lIl Jl lKlg`k h(109 DRAWLINE 12 DSPRESET) (102 PSTREAM 97 PAINT 17 BOARDLIST 7 PSTREAM) () ENERGIZERCHECK :D8 (P 1 Y P 0 X I 0 PMAN)  @g X@g YHIl _HIHI l ln^` `l` j` lmjh(106 PRIN1 94 PRIN1 70 MOVETO 54 SETBOARDVAL 46 BOARDVAL 35 CHECKAT 25 GETPROP 13 GETPROP) (129 BLUETIME 122 FOLLOW 114 GVALUE 101 PSTREAM 89 PSTREAM 84 SCORE 76 SCORE 65 PSTREAM 20 YLOC 8 XLOC) () ERASEOBJ :D8 (I 5 STREAM I 4 H I 3 W I 2 Y I 1 X I 0 OBJ) "@g hdEABCDhghd (31 BKBITBLT 10 GETPROP) (23 ERASE 5 BITMAP) () FRUITCHECK :D8 (F 0 PMAN) R`kddlPSYSICE 164 HILIST 149 READ 144 {ICE}PSYSICE 139 NETP 126 Y 92 DEFAULTMENUHELDFN 83 CLRPROMPT 67 |MENUTYPE#| 57 PWINDOW 43 PWINDOW 29 PWINDOW 4 PWINDOW) ( 184 "Click LEFT or FIRE (joystick) when ready." 74 ((Yes (QUOTE Y)) (No (QUOTE N))) 14 "Read high scores?") GETMONEY :D8 (P 0 PMHADENOUGH F 1 INTROOBJ) ol2l ol2l Qg``` Qll(l@l ` l`l jjkj`g jiz`ljh o` ` A`ljh"o` ` hXQHh(257 GETMOUSESTATE 248 INSIDEP 243 LASTMOUSEY 233 LASTMOUSEX 203 GETMOUSESTATE 191 INSIDEP 186 LASTMOUSEY 176 LASTMOUSEX 146 GETMOUSESTATE 129 VOICEINPUT 83 GETMOUSESTATE 78 PAINTOBJ 58 PUTPROP 30 SHOWCAP 16 SHOWCAP) (270 PMWANTMORE 238 PSTREAM 228 PSTREAM 209 LASTMOUSEBUTTONS 196 PMWANTMORE 181 PSTREAM 171 PSTREAM 152 LASTMOUSEBUTTONS 139 PMWANTMORE 121 VOICE 116 PMANINPUTMODE 107 PMWANTMORE 90 \LASTKEYSTATE 72 PSTREAM 53 QUARTERBITMAP 47 COLORQUARTERBITMAP 41 PACMANINCOLOR 36 BITMAP) ( 223 (150 40 32 32) 166 (150 40 32 32) 21 "(Click anywhere else to quit)" 7 "INSERT QUARTER TO START GAME") GETMOVEA0001 :D8 (NAME SI::*UNWIND-PROTECT* I 0 SI::*CLEANUP-FORMS* F 0 CHAR) 6cddgldglglPgkl(4 READC) (45 % 34 I 24 J 13 L) () GETMOVE :D8 (P 5 SI::*RESETFORMS* P 4 OLDY P 3 OLDX P 2 CHAR P 1 YINC P 0 XINC I 0 MOVE F 6 PMAN F 7 DIR) Bjd2i `gZdi ``gl `Kٸ`Lٹl Kl@j l Ljl@ K`nlnmj L`n̂n jm J2i q`jlH _lI T`j)Vg Vg ` `Vg Vg @  jJi 2gh hhhg ${`okl _HjH I lHjHH I l1IjI H ljII H khcVg Vg W WWVg Vg @ @(570 CHECKAT 564 GETPROP 553 GETPROP 525 CHECKAT 518 GETPROP 507 GETPROP 488 ABS 482 ABS 464 ABS 458 ABS 441 ABS 435 ABS 418 ABS 412 ABS 398 NTH 393 RAND 366 SI::RESETUNWIND 361 \MVLIST 356 GETMOVEA0001 336 ECHOMODE 323 READP 304 CHECKAT 298 GETPROP 287 GETPROP 269 CHECKAT 259 GETPROP 248 GETPROP 225 ABS 214 ABS 197 READP 183 ADJUSTCURSORPOSITION 158 ADJUSTCURSORPOSITION 133 ADJUSTCURSORPOSITION 119 ADJUSTCURSORPOSITION 89 DISMISS 75 MACHINETYPE 69 GETMOUSESTATE 48 READP 34 JOYSTICK 27 VOICEINPUT 10 CONTROL) (559 YLOC 548 XLOC 541 NEXTMOVE 533 NEXTMOVE 513 YLOC 502 XLOC 378 ATTRACTMODE 351 SI::RESETUNWIND 330 ECHOMODE 293 YLOC 282 XLOC 275 NEXTMOVE 264 NEXTMOVE 254 YLOC 243 XLOC 233 NEXTMOVE 204 ATTRACTMODE 165 PACMANINCOLOR 140 PACMANINCOLOR 103 LASTMOUSEY 95 LASTMOUSEX 80 DORADO 63 LASTMOUSEY 57 LASTMOUSEX 20 VOICE 15 PMANINPUTMODE) ( 385 (1 2 4 8)) VOICEINPUT :D8 NIL j 3(12 CHARACTER 4 RS232READBYTE) NIL () XLOCTOSCREEN :D8 (L (0 XLOC)) @l lNIL NIL () XSCREENTOLOC :D8 (I 0 XLOC) @ll NIL NIL () YLOCTOSCREEN :D8 (I 0 YLOC) l@l lNIL NIL () YSCREENTOLOC :D8 (I 0 YLOC) l@ll NIL NIL () HISCORE :D8 (P 4 J P 3 I P 0 Y) ` olFl gold ggog gg ` oldnJ n,``"JIg hKl2H LlH HlٸJI(210 SHOWCAP 200 SHOWCAP 187 CLOSEF 147 SHOWCAP 131 CLEARW 115 READ 104 READ 98 INFILE 82 SETPASSWORD 56 SHOWCAP 31 READ 26 SHOWCAP 12 CLEARW) (182 {ICE}PSYSICE 162 HINAMES 157 HIVALUES 126 PWINDOW 120 HIVALUES 109 HINAMES 93 READ 88 {ICE}PSYSICE 77 SYSIFS 67 PSYS 62 {ICE} 36 Y 7 PWINDOW) ( 137 "High scores" 72 "PRTZKRK" 48 "Y" 17 "Read high scores?") INCOLORQ :D8 NIL dgdgdgaXoi i `dodgdg dgjdndhHdI  dgdghoi h(155 PRIN1 124 MENU 56 TERPRI 49 PRIN1 36 HASCOLORDISPLAYP 4 MACHINETYPE) (139 DOVE 131 DANDELION 95 DEFAULTMENUHELDFN 86 CLRPROMPT 77 Color? 61 |MENUTYPE#| 27 MAIKO 19 DORADO 10 DOLPHIN) ( 149 "Unknown machine type." 68 ((Yes T "Will play Pacman in color. - Only if you have a color display.") (No (QUOTE NIL) "Plays Pacman on the standard display.")) 43 "In color?") INPUTMODEQ :D8 NIL i oi oi oi oi oi oi oi oi oi oi oi oi oi i `dodi dodg dgjdndhHdI  g(240 MENU 167 TERPRI 160 PRIN1 149 PRIN1 137 PRIN1 125 PRIN1 113 PRIN1 101 PRIN1 89 PRIN1 77 PRIN1 65 PRIN1 53 PRIN1 41 PRIN1 29 PRIN1 17 PRIN1 5 TERPRI) (247 SAMEDIRASCURSOR 211 DEFAULTMENUHELDFN 202 CLRPROMPT 172 |MENUTYPE#|) ( 193 "Choose mode" 179 ((Cursor (QUOTE SAMEDIRASCURSOR) "PMAN will move in the same direction as the cursor just moved.") (Keyboard (QUOTE KEYS) "PMAN is controlled by I, J, L and spacebar.") (Joystick (QUOTE JOYSTICK) "PMAN is controlled by the Joystick.") (Voice (QUOTE VOICE) "Pacman is controlled by voice control ('up', 'down', 'left', 'right'")) 154 "You can change modes any time even during a game." 143 "or voice control (if you have the voice board)." 131 "JOYSTICK (if you have one on your machine), " 119 "or " 107 "space is down) " 95 "L is right, " 83 "J is left, " 71 "KEYBOARD (I is up, " 59 "as the cursor moved), " 47 "in the same direction " 35 "PMAN move " 23 "MOUSE (by having " 11 "You can input your moves using the ") HASCOLORDISPLAYP :D8 NIL .dglPxldggg(4 MACHINETYPE) (43 MAYBE 35 MAIKO 28 DORADO 10 DOLPHIN) () INTERMISSION1 :D8 (P 3 X P 1 OLDBIGOBJ P 0 BIGOBJ F 4 PMAN) z `g` ` mn^JK*gXgYn^mKdJn hKl ljTg`Tg` T`KlKklld` `dKllKllld` `gTg KmԻNl ljHg`` `Hg``` HIKlKlll@d` `dKlKlKlMlld` IgHg Kl[(367 PUTPROP 362 GETPROP 344 MOVEOBJ 311 MOVEOBJ 285 PUTPROP 212 PUTPROP 207 GETPROP 185 MOVEOBJ 152 MOVEOBJ 123 PUTPROP 83 DISMISS 32 CLEARW 22 PUTPROP) (357 BITMAP 351 BITMAP 338 PSTREAM 317 G1 305 PSTREAM 280 BIGPMANC 274 COLORBIGPMANC 268 PACMANINCOLOR 263 BITMAP 255 BIGPMANR 248 COLORBIGPMANR 242 PACMANINCOLOR 237 BITMAP 202 BITMAP 196 BITMAP 191 OLDPMAN 179 PSTREAM 158 G1 146 PSTREAM 130 OLDPMAN 118 PACMANC 113 BITMAP 106 PMANLEFT 101 BITMAP 57 OLDBIGP 51 BIGP 27 PWINDOW 17 G1BITMAP 12 BITMAP 7 G1) () ISIGN :D8 (I 1 SIGN I 0 VALUE) 5Aj@jdA@@j@m@@j@okl (48 NTH 43 RAND) NIL ( 35 (-1 1)) JOYSTICK :D8 NIL ]l@`l jjkjll `l jjkjll`l jjkjkl`l jjkjlNIL (74 \LASTKEYSTATE 52 \LASTKEYSTATE 29 \LASTKEYSTATE 6 \LASTKEYSTATE) () LOSE :D8 (F 0 PMAN F 1 MOVE) `kPg` Pdg l llPg l lld` `dlPl(nYld` wdkPlnYld` [jXol dl l `'`l ` n id h iPgl Pgl lc(257 PUTPROP 244 PUTPROP 223 CONTROL 216 CLEARBUF 208 NEWHISCORES 202 DISMISS 190 LAST 164 SHOWCAP 139 ERASEOBJ 111 ERASEOBJ 79 ERASEOBJ 58 GETPROP 39 GETPROP 27 PUTPROP) (250 YLOC 237 XLOC 230 PMGAMEOVER 185 HILIST 177 SCORE 170 NETP 133 PSTREAM 105 PSTREAM 84 NUMMEN 73 PSTREAM 53 YLOC 34 XLOC 22 PACMANC 17 BITMAP 11 NUMMEN 4 NUMMEN) ( 150 "GAME OVER") MOVEDOWN :D8 (I 1 OLDOBJ I 0 OBJ) i@Adg l llAg l l@g l ll@g@g k l lld` (102 MOVEOBJ 81 PUTPROP 74 GETPROP 49 GETPROP 31 GETPROP 12 GETPROP) (96 PSTREAM 69 YLOC 63 YLOC 44 XLOC 26 YLOC 7 XLOC) () MOVEGHOST :D8 (I 1 OLDGHOST I 0 GHOST F 0 CYCLE) Pl#@g @g n i@g j;@g@g k @g l5@gj @g j@d @g @g jJ`dl*Pk(@go@g  j@g` @ dk@A @gl,dl@g @g l@ RAdg l llAg l lld` @gl @gk @A @gl dl@g @g l QAdg l llAg l lld` @gk @gk @A @gll@A @gl Ag Ag Ag@g Ag@g `lAg@g %@g j`jAg` @g km@g l ]@g l M@gj @go@g  Ag@g @g jD@g @g @g @g @g (915 SETBOARDVAL 909 GETPROP 898 BOARDVAL 893 GETPROP 882 GETPROP 871 GETPROP 860 GETPROP 845 GETPROP 833 PUTPROP 828 GETPROP 810 PUTPROP 805 EVAL 799 NTH 794 GETPROP 771 PUTPROP 754 GETPROP 738 GETPROP 723 GETPROP 711 PUTPROP 682 GETPROP 669 GETPROP 642 PUTPROP 637 GETPROP 620 PUTPROP 615 GETPROP 598 REDODOT 593 GETPROP 582 GETPROP 570 PUTPROP 556 MOVEDOWN 533 MOVERIGHT 525 PUTPROP 512 PUTPROP 499 ERASEOBJ 478 GETPROP 459 GETPROP 445 CHECKAT 438 GETPROP 427 GETPROP 395 MOVELEFT 387 PUTPROP 374 PUTPROP 360 ERASEOBJ 339 GETPROP 320 GETPROP 306 CHECKAT 299 GETPROP 288 GETPROP 256 MOVEUP 243 DECIDE 236 PUTPROP 215 EVAL 209 NTH 204 GETPROP 161 GETPROP 149 SETPLAYERBOARDVAL 143 GETPROP 132 PLAYERBOARDVAL 121 GETPROP 109 PUTPROP 88 GETPROP 77 PUTPROP 70 GETPROP 49 GETPROP 35 CHECKAT 27 GETPROP 16 GETPROP) (904 BIT 888 YLOC 877 XLOC 866 YLOC 855 XLOC 840 EATEN 823 BITMAP 817 BITMAP 789 NUMBER 778 BITMAP 765 EATEN 749 XLOC 733 YLOC 718 EATEN 706 GINVBITMAP 701 BITMAP 691 BLUETIME 677 EATEN 664 BITMAP 658 BITMAP 647 BLUETIME 632 YLOC 626 YLOC 610 XLOC 604 XLOC 588 YLOC 577 XLOC 563 CAN 540 CAN 519 GIT 506 XLOC 493 PSTREAM 473 YLOC 454 XLOC 433 YLOC 422 XLOC 402 CAN 381 GIT 367 XLOC 354 PSTREAM 334 YLOC 315 XLOC 294 YLOC 283 XLOC 263 CAN 231 GINVBITMAP 226 BITMAP 199 NUMBER 188 BITMAP 170 BLUETIME 156 EATEN 138 BIT 116 EATEN 103 GIT 83 GIT 65 GIT 59 GIT 44 GIT 22 YLOC 11 XLOC) ( 783 (G1BITMAP G2BITMAP G3BITMAP G4BITMAP) 193 (G1BITMAP G2BITMAP G3BITMAP G4BITMAP)) MOVELEFT :D8 (I 1 OLDOBJ I 0 OBJ) i@Adg l llAg l l@g@g k l ll@g l lld` (102 MOVEOBJ 81 GETPROP 62 PUTPROP 55 GETPROP 31 GETPROP 12 GETPROP) (96 PSTREAM 76 YLOC 50 XLOC 44 XLOC 26 YLOC 7 XLOC) () MOVEOBJ :D8 (I 8 STREAM I 7 H I 6 W I 5 Y2 I 4 X2 I 3 Y1 I 2 X1 I 1 OLDOBJ I 0 OBJ)  ABCFGG @DEFGG (27 PAINTOBJ 13 ERASEOBJ) NIL () MOVEPACMAN :D8 (I 1 DIR I 0 PMAN F 0 CYCLE) Adk,@gPk`` @` tl+@gPk`` @` FAdl@gPk`` @g @g l U`dg l ll`g l lld` @gk k@` l@gPk`` @g @g l@ T`dg l ll`g l lld` @gl k@` `g@g `g@g `g@g (495 PUTPROP 490 GETPROP 469 PUTPROP 464 GETPROP 443 PUTPROP 438 GETPROP 416 MOVELEFT 397 PUTPROP 383 ERASEOBJ 362 GETPROP 339 GETPROP 321 CHECKAT 314 GETPROP 303 GETPROP 291 PUTPROP 255 MOVERIGHT 234 PUTPROP 221 ERASEOBJ 200 GETPROP 177 GETPROP 159 CHECKAT 152 GETPROP 141 GETPROP 129 PUTPROP 90 MOVEUP 78 PUTPROP 44 MOVEDOWN 32 PUTPROP) (485 YLOC 479 YLOC 474 OLDPMAN 459 XLOC 453 XLOC 448 OLDPMAN 433 BITMAP 427 BITMAP 422 OLDPMAN 411 OLDPMAN 404 PIT 390 XLOC 377 PSTREAM 357 YLOC 352 OLDPMAN 334 XLOC 328 OLDPMAN 309 YLOC 298 XLOC 286 PACMANC 280 PMANLEFT 271 BITMAP 250 OLDPMAN 241 PIT 228 XLOC 215 PSTREAM 195 YLOC 190 OLDPMAN 172 XLOC 166 OLDPMAN 147 YLOC 136 XLOC 124 PACMANC 118 PMANRIGHT 109 BITMAP 85 OLDPMAN 73 PACMANC 67 PMANUP 58 BITMAP 39 OLDPMAN 27 PACMANC 21 PMANDOWN 12 BITMAP) () MOVERIGHT :D8 (I 1 OLDOBJ I 0 OBJ) i@Adg l llAg l l@g@g k l ll@g l lld` (102 MOVEOBJ 81 GETPROP 62 PUTPROP 55 GETPROP 31 GETPROP 12 GETPROP) (96 PSTREAM 76 YLOC 50 XLOC 44 XLOC 26 YLOC 7 XLOC) () MOVEUP :D8 (I 1 OLDOBJ I 0 OBJ) i@Adg l llAg l l@g l ll@g@g k l lld` (102 MOVEOBJ 81 PUTPROP 74 GETPROP 49 GETPROP 31 GETPROP 12 GETPROP) (96 PSTREAM 69 YLOC 63 YLOC 44 XLOC 26 YLOC 7 XLOC) () NEWHISCORES :D8 NIL ` olFl gg gg ggog g `l `hh i  g g ` g (188 CLOSEF 178 PRINT 168 OUTFILE 158 CLOSEF 148 SHOWHISCORES 138 REVERSE 132 SORT 126 \APPEND2 103 READ 98 INFILE 88 SETPASSWORD 63 SETSYNTAX 43 RSTRING 38 SETSYNTAX 23 SHOWCAP 9 CLEARW) (183 {ICE}PSYSICE.;2 173 HILIST 163 {ICE}PSYSICE.;2 153 {ICE}PSYSICE 143 HILIST 116 NAME 108 SCORE 93 {ICE}PSYSICE 83 SYSIFS 73 PSYS 68 {ICE} 58 SEPRCHAR 53 % 48 NAME 33 OTHER 28 % 4 PWINDOW) ( 78 "PRTZKRK" 14 "What is your name?") PACINTRO :D8 (P 9 X P 7 CHARNAME P 6 CHAR P 3 Y P 2 X P 1 CHARNAME P 0 CHAR F 10 INTROOBJ) ^ @` Wg``` Wgg WlnnJl@l ` n oln, n olPl l[o`oo"ML`ljh_WgN l2nh OO=WdOKOkKld` `ljOm_`ljvOlZKl ld KlٻMLGh(346 GETMONEY 326 DISMISS 318 SHOWCAP 290 GETMOUSESTATE 262 GETMOUSESTATE 256 GETMOUSESTATE 250 MOVEOBJ 209 PUTPROP 204 EVAL 170 GETMOUSESTATE 125 SHOWCAP 111 DISMISS 103 SHOWCAP 88 DISMISS 80 PAINTOBJ 58 PUTPROP 41 PUTPROP 12 CLEARW) (296 LASTMOUSEBUTTONS 268 LASTMOUSEBUTTONS 244 PSTREAM 198 BITMAP 176 LASTMOUSEBUTTONS 138 PACMANINCOLOR 74 PSTREAM 53 PAINT 48 OPERATION 36 SIGLOGO 30 COLORSIGLOGO 24 PACMANINCOLOR 19 BITMAP 7 PWINDOW) ( 150 (G1BITMAP G2BITMAP G3BITMAP G4BITMAP) 144 (COLORG1BITMAP COLORG2BITMAP COLORG3BITMAP COLORG4BITMAP) 133 ("SHADOW 'BLINKY'" "SPEEDY 'PINKY'" "BASHFUL 'INKY'" "POKEY 'CLYDE'") 116 "CHARACTER / NICKNAME" 93 "by Michel Denber") PACMAN :D8 (P 20 OLDGHOST P 19 GHOST P 16 OLDGHOST P 15 GHOST P 12 GHOST P 11 OLDGHOST P 8 GBITMAP P 7 GHOST P 4 CYCLE P 2 MOVE P 1 INTROOBJ P 0 PMAN) &gglgggggggggihH `'` ` i h`IlkLK8` `j`kljHJ Z H `m`k`l<kj`j;``l ``ld` ooo"N_Moo" O>E_O g jO gO NM_OLH H gl Ll`koo"O:A_O gO g O_O_9_OE_ O O O_O_oo"O$_&O"H Lk\_(O& O( O$_$O"_"hn ` ^(800 GETMONEY 794 CLEARW 783 DISMISS 749 MOVEGHOST 744 EVAL 737 EVAL 718 COLLISIONCHECK 668 MOVEGHOST 663 EVAL 656 EVAL 617 PUTPROP 612 GETPROP 602 EVAL 590 EVAL 539 DISMISS 525 MACHINETYPE 519 COLLISIONCHECK 512 ENERGIZERCHECK 487 PUTPROP 482 EVAL 470 EVAL 459 GETPROP 449 EVAL 379 ERASEOBJ 352 NTH 275 FRUITCHECK 269 DOTCHECK 262 BLINKENERGIZERS 256 MOVEPACMAN 250 GETMOVE 209 DISMISS 176 PACMANNEWGAME 169 SETDISPLAYHEIGHT 162 SCREENCOLORMAP 151 CHANGECURSORSCREEN 146 SCREENBITMAP 127 PACINTRO 122 PACMANINITNEW) (789 PWINDOW 774 PMGAMEOVER 607 BITMAP 595 BITMAP 553 FOLLOW 530 DORADO 475 BITMAP 454 EATEN 390 GVALUEPOS 373 PSTREAM 364 GVALUEPOS 358 GVALUEPOS 344 SAVEGVALUE 339 GVALUEBITMAPLIST 329 GVALUEPOS 323 BLUETIME 316 FOLLOW 303 BLUETIME 297 BLUETIME 290 BLUETIME 281 FOLLOW 242 PIT 231 PIT 224 PIT 215 PIT 204 PACMANWAITTIME 182 PMGAMEOVER 157 PMOLDCOLORMAP 139 PACMANINCOLOR 132 PMWANTMORE 116 PMGAMEOVER 110 PMWANTMORE 104 OLDG4 99 H 94 OLDG3 89 G 84 OLDG2 79 F 74 OLDG1 69 E 64 G4 59 D 54 G3 49 C 44 G2 39 B 34 G1 29 A 24 OLDPMAN 19 Y 9 TEMP 4 X) ( 693 (G1 G2 G3 G4) 688 (OLDG1 OLDG2 OLDG3 OLDG4) 569 (G1 G2 G3 G4) 564 (OLDG1 OLDG2 OLDG3 OLDG4) 428 (OLDG1 OLDG2 OLDG3 OLDG4) 423 (G1 G2 G3 G4) 401 (G1 G2 G3 G4) 396 (G1BITMAP G2BITMAP G3BITMAP G4BITMAP) 385 (280 . 291)) PACMANINIT :D8 (P 5 Y P 3 X P 1 I I 0 PMAN) ` l dn3nhoh  `hoh g gg ljd@lnYld` @l(nYld` l ll l n@ llll ll klkl l@l lkIdH3llIdH>ll KJJl l l l ll ll ll l gklkl l llll l klkl l llll l l l l l `g l l l l `g l l l l `g ll ll `g lIl n IkYlIl n IkYll MLKMKM l Mk]Kk[(626 SETBOARDVAL 618 BOARDVAL 589 SETBOARDVAL 580 BOARDVAL 562 SETBOARDVAL 553 BOARDVAL 542 SETBOARDVAL 536 GETPROP 521 BOARDVAL 508 SETBOARDVAL 502 GETPROP 487 BOARDVAL 474 SETBOARDVAL 468 GETPROP 453 BOARDVAL 440 SETBOARDVAL 434 GETPROP 419 BOARDVAL 406 SETBOARDVAL 398 BOARDVAL 385 SETBOARDVAL 377 BOARDVAL 366 SETBOARDVAL 358 BOARDVAL 345 SETBOARDVAL 337 BOARDVAL 316 SETBOARDVAL 308 BOARDVAL 295 SETBOARDVAL 284 BOARDVAL 225 SETBOARDVAL 214 BOARDVAL 203 SETBOARDVAL 192 BOARDVAL 179 SETBOARDVAL 170 BOARDVAL 157 PAINTOBJ 137 PAINTOBJ 117 PUTDOTS 112 DRAWBOARD 88 INFILE 73 CLOSEF? 58 DECODE/WINDOW/OR/DISPLAYSTREAM 41 CLEARW 31 CREATEW) (531 BIT 526 G4 497 BIT 492 G3 463 BIT 458 G2 429 BIT 424 G1 326 ENERGIZEROBJ 321 I 151 PSTREAM 131 PSTREAM 107 NUMDOTS 101 SCORE 95 NUMMEN 83 READ 78 {DSK}PACMAN.DAT 68 {DSK}PACMAN.DAT 63 PSTREAM 46 PWINDOW 36 PWINDOW 4 PWINDOW) ( 52 "PACMAN" 25 "PACMAN") PACMANINITNEW :D8 (I 0 PMAN F 2 DIRECTORIES) |oi i hi lhi lKi dglgggR `dododg dgjdndhHdI  lhk `>djdn3nh`kd l dn3nh`h  ` ` `1i   j g(377 GETHISCORES 372 SETCHARPROPS 367 SETBITMAPS 351 SETDISPLAYHEIGHT 344 CHANGECURSORSCREEN 339 COLORSCREENBITMAP 328 SCREENCOLORMAP 323 COLORMAPCREATE 317 COLORBACKGROUND 311 COLORDISPLAY 293 GETSTREAM 282 DSPCREATE 277 COLORSCREENBITMAP 266 CLEARW 256 CREATEW 229 COLORCREATEW 189 INCOLORQ 179 SPEEDQ 173 RS232INIT 164 MENU 95 LOAD? 90 PACKFILENAME 54 INPUTMODEQ 49 CURSORPOSITION 39 DSPYPOSITION 29 DSPXPOSITION 22 TERPRI 15 PRIN1) (362 ENERGIZEROBJ 357 I 333 PMOLDCOLORMAP 303 PACMANINCOLOR 298 PSTREAM 288 PWINDOW 271 PACMANINCOLOR 261 PWINDOW 250 PACMANVERSION 222 PACMANVERSION 199 PWINDOW 194 PACMANINCOLOR 184 PACMANWAITTIME 135 DEFAULTMENUHELDFN 126 CLRPROMPT 101 |MENUTYPE#| 83 DIRECTORY 78 RS232.LCOM 73 NAME 65 VOICE 59 PMANINPUTMODE 9 PACMANVERSION) ( 117 "Baud rate for voice input:" 108 (75 150 300 600 1200 2400 4800 9600) 4 "PACMAN Version 1.5") PACMANNEWGAME :D8 (F 0 PMAN) VljdoPlnYld` Pl(nYld` (83 PACMANREINIT 78 PAINTOBJ 58 PAINTOBJ 28 FRUITINIT 23 DRAWBOARDNEW) (72 PSTREAM 52 PSTREAM 38 GVALUEBITMAPLIST 18 NUMDOTS 12 SCORE 6 NUMMEN) ( 33 (GHOST1 GHOST2 T GHOST3 T T T GHOST4)) PACMANREINIT :D8 (P 2 GHOST P 1 I F 3 PMAN F 4 MOVE) l`dlwl ` Sg` `dkSlnYld` `lSl(nYld` `kIH-`I lIln^ld` IkYSg` Sdg l llSg l lld` lkIH$`I`I IkYoLdJ J g l llJ g l lld` oLdJ J g l llJ g l lld` ol l l l ` Sgl Sgl kjdi`kolcjn ol l l l ` (617 SHOWCAP 592 DISMISS 584 PUTENERGIZERS 579 PUTDOTSAGAIN 518 PUTPROP 505 PUTPROP 492 SHOWCAP 462 PAINTOBJ 441 GETPROP 431 EVAL 417 GETPROP 407 EVAL 401 EVAL 383 SETCHARPROPS 373 ERASEOBJ 352 GETPROP 342 EVAL 328 GETPROP 318 EVAL 312 EVAL 286 SETA 281 COPY 276 ELT 248 ERASEOBJ 227 GETPROP 208 GETPROP 196 PUTPROP 172 PAINTOBJ 147 NTH 121 PAINTOBJ 90 PAINTOBJ 58 PUTPROP 41 DRAWBOARDNEW 35 CLEARW 24 DISMISS 16 INTERMISSION1) (612 PSTREAM 574 PIT 564 GVALUEPOS 554 FRUIT# 547 FRUIT# 542 FRUITVISIBLE 536 FRUITTIME 530 BLUETIME 524 FOLLOW 511 YLOC 498 XLOC 487 PSTREAM 456 PSTREAM 436 YLOC 412 XLOC 367 PSTREAM 347 YLOC 323 XLOC 270 VIRGINBOARD 264 BOARD 242 PSTREAM 222 YLOC 203 XLOC 191 PACMANC 186 BITMAP 166 PSTREAM 141 FRUITLIST 127 FRUIT# 115 PSTREAM 96 NUMMEN 84 PSTREAM 64 NUMMEN 53 PMANLEFT 48 BITMAP 30 PWINDOW 4 FRUIT#) ( 597 " " 559 (159 . 269) 472 "READY!" 388 (G1 G2 G3 G4) 299 (G1 G2 G3 G4)) PAINTOBJ :D8 (I 5 STREAM I 4 H I 3 W I 2 Y I 1 X I 0 OBJ) (@g hdEABCDh@g hd (37 BKBITBLT 29 GETPROP 10 GETPROP) (24 OPERATION 5 BITMAP) () PAINTDOT :D8 (I 4 H I 3 W I 2 Y I 1 X I 0 OBJ) @hd`ABCDhghd (25 BKBITBLT) (17 PAINT 7 PSTREAM) () PUTDOTS :D8 (P 8 X P 6 Y P 4 W P 3 S P 2 E P 1 N P 0 ROW)  PlkNMlkNMDhdlkOOHh Ok_`NhH Nk^`N lkOOHO jHO k@```Ol lNl ld n `kjjYZ[OkHOk dkklOHOk dkkNk`Nk O dkklN`Nk O dkkHO `LlJlIlKOk_`NH Nk^(390 SETA 344 NTH 328 NTH 321 ELT 294 NTH 287 ELT 261 NTH 236 NTH 184 PAINTDOT 141 NTH 126 NTH 102 ELT 84 SETA 79 DREMOVE 56 \APPEND2 49 READ) (383 BOARD 349 HASDOT 313 BOARD 279 BOARD 214 HASDOT 206 NUMDOTS 199 NUMDOTS 193 HASDOT 163 DOT 157 COLORDOT 151 PACMANINCOLOR 96 BOARD 71 BOARD) () PUTDOTSAGAIN :D8 (P 3 X P 1 Y) clkIHhlkKdJIkYIn 5```Kl lIl ld `kKk[(77 PAINTDOT 38 CHECKAT) (90 NUMDOTS 83 NUMDOTS 57 DOT 51 COLORDOT 45 PACMANINCOLOR) () PUTENERGIZERS :D8 NIL t`kl l lld` `ll l lld` `kl l lld` `ll l lld` (113 PAINTOBJ 84 PAINTOBJ 56 PAINTOBJ 27 PAINTOBJ) (107 PSTREAM 89 ENERGIZEROBJ 78 PSTREAM 61 ENERGIZEROBJ 50 PSTREAM 32 ENERGIZEROBJ 21 PSTREAM 4 ENERGIZEROBJ) () REDODOT :D8 (I 1 Y I 0 X) @Al (```@l lAl ld @An@ K`l