(FILECREATED " 8-Sep-84 17:44:43" ("compiled on " {ERIS}PACMAN.;3) " 8-Sep-84 01:10:18" bcompl'd in "INTERLISP-D 8-Sep-84 ..." dated " 8-Sep-84 01:22:25") (FILECREATED "27-JAN-84 11:37:24" {ICE}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}LISP>PACMAN.;55) ASSIGNDIR D1 (L (1 WANT 0 GNUM)) @dk-oo"IHhAJjKIHl,oo"IHhAJjKIH@dl-oo"IHhAJjKIHl,oo"IHhAJjKIHiNIL NIL ( 236Q (1 10Q 4 2) 232Q (4 2 3 1) 157Q (4 10Q 2 1) 153Q (3 2 1 4) 75Q (2 10Q 1 4) 71Q (1 2 4 3) 16Q (10Q 2 4 1) 12Q (2 1 3 4)) BLINKENERGIZERS D1 (F 0 ENERGIZEROBJ F 1 PSTREAM) dkll Pl n)ldQ lll Pnn)ldQ kll Pl lMldQ lll PnlMldQ (141Q PAINTOBJ 121Q CHECKAT 107Q PAINTOBJ 71Q CHECKAT 60Q PAINTOBJ 40Q CHECKAT 26Q PAINTOBJ 7 CHECKAT) NIL () BOARDVAL D1 (I 1 Y I 0 X F 0 BOARD) PA(@ (6 FNTH) NIL () CHECKAT D1 (I 2 BIT I 1 Y I 0 X) @A Bjih(4 BOARDVAL) NIL () COLLISIONCHECK D1 (P 4 G P 3 OLDGHOST P 2 GHOST P 1 Y P 0 X I 0 PMAN F 5 GVALUE F 6 GNUM F 7 GVALUEPOS F 10Q GVALUEBITMAPLIST F 11Q PSTREAM F 12Q SCORE F 13Q G4 F 14Q OLDG4 F 15Q G1 F 16Q G3 F 17Q OLDG3 F 20Q OLDG1 F 21Q G2 F 22Q OLDG2 F 23Q EYESBITMAP F 24Q FOLLOW F 25Q PACMANINCOLOR F 26Q SAVEGVALUE F 27Q COLOREYESBITMAP) @@gX@gYHIn HI nc nVWW&nVWWnVW"W$nVWW W(kWUc Uc,WUl gg WjWUll WWldW WUl WJgl lWdlJgl lldW Ulc Jgk n Jdgl llJgl lldW Jgk2JgW*W.W& KgJg HIHI Jg odL gL gL gL g L g L gL g L gL g L gL gL gL g L g ph(763Q SETGCANS 747Q SETBOARDVAL 737Q EVAL 733Q BOARDVAL 724Q EVAL 714Q EVAL 704Q EVAL 674Q EVAL 667Q PUTPROP 660Q EVAL 651Q EVAL 644Q PUTPROP 635Q EVAL 626Q EVAL 621Q SETBOARDVAL 611Q EVAL 605Q BOARDVAL 576Q EVAL 566Q EVAL 556Q EVAL 546Q EVAL 523Q SETBOARDVAL 512Q BOARDVAL 502Q PUTPROP 465Q PUTPROP 434Q ERASEOBJ 370Q DISMISS 361Q PUTPROP 341Q PAINTOBJ 264Q NTH 252Q ERASEOBJ 232Q NTH 206Q PUTPROP 174Q NTH 156Q SHOW 142Q LOSE 41Q BOARDVAL 26Q CHECKAT) (742Q BIT 727Q YLOC 717Q XLOC 707Q YLOC 677Q XLOC 663Q INITY 654Q YLOC 640Q INITX 631Q XLOC 614Q BIT 601Q YLOC 571Q XLOC 561Q YLOC 551Q XLOC 516Q BIT 476Q BITMAP 472Q BITMAP 452Q BITMAP 441Q EATEN 413Q YLOC 376Q XLOC 355Q EATEN 315Q YLOC 273Q XLOC 203Q INVERT 200Q OPERATION 14Q YLOC 6 XLOC) ( 532Q (G1 G2 G3 G4)) DECIDE D1 (P 3 CURLOC P 2 WANT P 1 GYINC P 0 GXINC I 0 GHOST F 4 PMAN F 5 FOLLOW F 6 BOARD) @@gj$kTg@gU kTg@gUڰkl @g kl @g jZV@g(@g [HdkIkKlHkImKlHdmIkKl HmImKl J@gZdjK@g@gJ (263Q ASSIGNDIR 130Q NTH 106Q ISIGN 71Q ISIGN 34Q ISIGN) (256Q NUMBER 247Q CAN 233Q CAN 124Q XLOC 116Q YLOC 101Q YLOC 64Q XLOC 47Q YLOC 42Q YLOC 25Q XLOC 20Q XLOC 6 EATEN) () DOTCHECK D1 (P 1 Y P 0 X I 0 PMAN F 2 SCORE F 3 NUMDOTS) > @gX@gYHIl &HIHI l Rkc Skcjh(72Q WIN 55Q SHOW 44Q SETBOARDVAL 36Q BOARDVAL 25Q CHECKAT) (14Q YLOC 6 XLOC) () DRAWBOARD D1 (P 3 Y2 P 2 X2 P 1 Y1 P 0 X1 F 4 PSTREAM F 5 BOARDLIST) @T jXXlcuUHIJKhh c HdJ/KI(Hl lIl lJl lKl lgT Hl lIl Jl lKl lgT h(201Q DRAWLINE 136Q DRAWLINE 54Q \APPEND2 34Q READ 30Q READ 24Q READ 13Q READ 6 DSPRESET) (174Q PAINT 131Q PAINT) () DRAWBOARDNEW D1 (P 4 XYPAIR P 3 Y2 P 2 X2 P 1 Y1 P 0 X1 F 5 PSTREAM F 6 BOARDLIST) d@U VVdLLLLHdJKIHl lIl l؊Hl lIl Jl lKl lgUk h(133Q DRAWLINE 6 DSPRESET) (125Q PAINT) () ENERGIZERCHECK D1 (P 1 Y P 0 X I 0 PMAN F 2 PSTREAM F 3 SCORE F 4 BLUETIME F 5 GVALUE F 6 FOLLOW) Q @gX@gYHIl 9HIHI l ln^R SlcR jR lc mc jch(77Q PRIN1 71Q PRIN1 56Q MOVETO 44Q SETBOARDVAL 36Q BOARDVAL 25Q CHECKAT) (14Q YLOC 6 XLOC) () ERASEOBJ D1 (I 5 STREAM I 4 H I 3 W I 2 Y I 1 X I 0 OBJ) @ghdEABCDhg (23Q BITBLT) (17Q ERASE 3 BITMAP) () FRUITCHECK D1 (F 0 FRUIT# F 1 FRUITLIST F 2 PSTREAM F 3 FRUITTIME F 4 PMAN F 5 SCORE F 6 FRUITVISIBLE) Skcddl<$QP gg QP ldldR lxQP ldldR SlPSYSICE 142Q READ 137Q {ICE}PSYSICE 131Q SYSIFS 122Q PSYS 117Q {ICE} 106Q Y 45Q DEFAULTMENUHELDFN 36Q CLRPROMPT 21Q MENUTYPE#) ( 167Q "Click LEFT or FIRE (joystick) when ready." 126Q "PRTZKRK" 27Q ((Yes (QUOTE Y)) (No (QUOTE N))) 7 "Read high scores?") GETMONEY D1 (P 0 PMHADENOUGH F 1 PSTREAM F 2 PMWANTMORE F 3 OBJ F 4 PACMANINCOLOR F 5 COLORQUARTERBITMAP F 6 QUARTERBITMAP) ol2l ol2l SgTUV Sll(l@l Q `ljcN`ljhoQ Q c+`ljhoQ Q hXHhc(214Q GETMOUSESTATE 205Q INSIDEP 202Q LASTMOUSEY 176Q LASTMOUSEX 151Q GETMOUSESTATE 142Q INSIDEP 137Q LASTMOUSEY 133Q LASTMOUSEX 106Q GETMOUSESTATE 65Q GETMOUSESTATE 62Q PAINTOBJ 44Q PUTPROP 30Q SHOWCAP 15Q SHOWCAP) (155Q LASTMOUSEBUTTONS 112Q LASTMOUSEBUTTONS 70Q \EM.UTILIN 34Q BITMAP) ( 172Q (226Q 50Q 40Q 40Q) 127Q (226Q 50Q 40Q 40Q) 21Q "(Click anywhere else to quit)" 6 "INSERT QUARTER TO START GAME") GETMOVE D1 (P 4 OLDY P 3 OLDX P 2 CHAR P 1 YINC P 0 XINC I 0 MOVE F 5 PMAN F 6 NEXTMOVE F 7 DIR F 10Q PACMANINCOLOR F 11Q ATTRACTMODE) jd2i ZdHi Z```Kٸ`Lٹl Kl@j l Ljl@ KWnlnmj LWn̂n jm Ji BW>lH 5lI ,VjUgUgV VUgUg@ jJi 2ZdglglvJdgljgkb@_Wokl LHjH I l:jHH I l(IjI H ljII H khcUgUgW Wc Wc UgUg@ 9@(602Q CHECKAT 551Q CHECKAT 522Q ABS 516Q ABS 476Q ABS 472Q ABS 454Q ABS 450Q ABS 432Q ABS 426Q ABS 413Q NTH 410Q RAND 316Q READC 311Q READP 270Q CHECKAT 247Q CHECKAT 221Q ABS 210Q ABS 174Q READP 160Q ADJUSTCURSORPOSITION 134Q ADJUSTCURSORPOSITION 110Q ADJUSTCURSORPOSITION 74Q ADJUSTCURSORPOSITION 44Q GETMOUSESTATE 27Q READP 13Q JOYSTICK 10Q CONTROL) (575Q YLOC 570Q XLOC 543Q YLOC 536Q XLOC 363Q % 351Q I 336Q J 323Q L 263Q YLOC 256Q XLOC 242Q YLOC 235Q XLOC 56Q LASTMOUSEY 50Q LASTMOUSEX 40Q LASTMOUSEY 34Q LASTMOUSEX) ( 402Q (1 2 4 10Q)) HISCORE D1 (P 4 J P 3 I P 0 Y F 5 PWINDOW F 6 HINAMES F 7 HIVALUES) U olFl gcold ggog gg c cU oldnJ n,WV"JI g hKl2H LlH HlٸJI(215Q SHOWCAP 205Q SHOWCAP 172Q CLOSEF 135Q SHOWCAP 120Q CLEARW 111Q READ 103Q READ 77Q INFILE 65Q SETPASSWORD 44Q SHOWCAP 24Q READ 21Q SHOWCAP 6 CLEARW) (167Q {ICE}PSYSICE 74Q READ 71Q {ICE}PSYSICE 62Q SYSIFS 53Q PSYS 50Q {ICE} 27Q Y) ( 125Q "High scores" 57Q "PRTZKRK" 36Q "Y" 12Q "Read high scores?") INCOLORQ D1 NIL dgdg[lP loi i `dodgdg dgjdndhHdI l dgdghdgdgLoi i `dodgdg dgjdndhHdI l oi (326Q PRIN1 314Q MENU 221Q TERPRI 214Q PRIN1 147Q MENU 54Q TERPRI 47Q PRIN1 25Q \DEVICE.INPUT 2 MACHINETYPE) (257Q DEFAULTMENUHELDFN 250Q CLRPROMPT 241Q Color? 224Q MENUTYPE# 200Q DORADO 172Q QUOTE 162Q DANDELION 154Q QUOTE 112Q DEFAULTMENUHELDFN 103Q CLRPROMPT 74Q Color? 57Q MENUTYPE# 14Q DOLPHIN 6 QUOTE) ( 322Q "Unknown machine type." 232Q ((Yes T) (No NIL)) 210Q "In color?" 65Q ((Yes T) (No NIL)) 43Q "In color?") INTERMISSION1 D1 (P 3 X P 1 OLDBIGOBJ P 0 BIGOBJ F 4 PMAN F 5 PSTREAM F 6 G1 F 7 OLDPMAN F 10Q PACMANINCOLOR F 11Q G1BITMAP F 12Q PWINDOW F 13Q COLORBIGPMANC F 14Q BIGPMANR F 15Q PMANLEFT F 16Q PACMANC F 17Q COLORBIGPMANR F 20Q BIGPMANC)   VgW W mn^JK\Kl ljTgWTgW TWKlKklldU VdKllKllldU WgTg KkٻgXgYn^mKdJn hl ljHgWWWHgWWW HIKlKlll@dU VdKlKlKlMlldU IgHg Kl[(363Q PUTPROP 346Q MOVEOBJ 317Q MOVEOBJ 273Q PUTPROP 224Q DISMISS 160Q PUTPROP 142Q MOVEOBJ 113Q MOVEOBJ 67Q PUTPROP 20Q CLEARW 13Q PUTPROP) (357Q BITMAP 353Q BITMAP 260Q BITMAP 243Q BITMAP 177Q OLDBIGP 173Q BIGP 154Q BITMAP 150Q BITMAP 62Q BITMAP 53Q BITMAP 6 BITMAP) () ISIGN D1 (I 1 SIGN I 0 VALUE) 0Aj@jdA@@j@m@@j@okl (53Q NTH 50Q RAND) NIL ( 42Q (-1 1)) JOYSTICK D1 NIL 9`l@jl`l jl`ljk`ljlNIL (53Q \EM.UTILIN 36Q \EM.UTILIN 20Q \EM.UTILIN 2 \EM.UTILIN) () LOSE D1 (F 0 PMAN F 1 NUMMEN F 2 PSTREAM F 3 PACMANC F 4 HILIST F 5 PMGAMEOVER F 6 NETP F 7 SCORE F 10Q MOVE) QkcPgS Pdgl llPgl lldR QdlPl(nYldR OkPlnYldR PSYSICE.;2 141Q {ICE}PSYSICE.;2 133Q {ICE}PSYSICE 70Q {ICE}PSYSICE 62Q SYSIFS 53Q PSYS 50Q {ICE} 42Q SEPRCHAR 37Q % 24Q OTHER 21Q % ) ( 57Q "PRTZKRK" 7 "What is your name?") PACINTRO D1 (P 12Q X P 10Q CHARNAME P 7 CHAR P 4 Y P 3 X P 2 OBJ P 1 CHARNAME P 0 CHAR F 13Q PACMANINCOLOR F 14Q PSTREAM F 15Q PWINDOW F 16Q COLORSIGLOGO F 17Q SIGLOGO)  PW gZdgWWW Jgg JlnnJl@l W n oln, n olPl l\oWoo"N_M`ljh_JgO l2nh OO0JdOLOkLldW `ljOk_`ljOlZLl ld LlټNMfh(415Q GETMONEY 373Q DISMISS 365Q SHOWCAP 337Q GETMOUSESTATE 310Q GETMOUSESTATE 304Q GETMOUSESTATE 300Q MOVEOBJ 235Q PUTPROP 232Q EVAL 176Q GETMOUSESTATE 127Q SHOWCAP 114Q DISMISS 106Q SHOWCAP 72Q DISMISS 64Q PAINTOBJ 44Q PUTPROP 32Q PUTPROP 7 CLEARW) (343Q LASTMOUSEBUTTONS 314Q LASTMOUSEBUTTONS 225Q BITMAP 202Q LASTMOUSEBUTTONS 41Q PAINT 36Q OPERATION 17Q BITMAP 12Q TEMP) ( 152Q (G1BITMAP G2BITMAP G3BITMAP G4BITMAP) 145Q (COLORG1BITMAP COLORG2BITMAP COLORG3BITMAP COLORG4BITMAP) 136Q ("SHADOW 'BLINKY'" "SPEEDY 'PINKY'" "BASHFUL 'INKY'" "POKEY 'CLYDE'") 120Q "CHARACTER / NICKNAME" 76Q "by Michel Denber") PACMAN D1 (P 22Q OLDGHOST P 21Q GHOST P 16Q OLDGHOST P 15Q GHOST P 12Q GHOST P 11Q OLDGHOST P 6 GBITMAP P 5 GHOST P 2 CYCLE P 0 PMAN F 23Q PIT F 24Q BLUETIME F 25Q GVALUEPOS F 26Q PMGAMEOVER F 27Q FOLLOW F 30Q PMWANTMORE F 31Q MOVE F 32Q OLDPMAN F 33Q G1 F 34Q PSTREAM F 35Q G2 F 36Q G3 F 37Q G4 F 40Q OLDG1 F 41Q OLDG2 F 42Q OLDG3 F 43Q OLDG4 F 44Q SAVEGVALUE F 45Q PMOLDCOLORMAP F 46Q PWINDOW F 47Q PACMANINCOLOR F 50Q GVALUEBITMAPLIST) EgXgc4gc6gc:gcgc@gcBgcDgcFic0hc,H W0W,lkJIggl W&jW&kc&ljc&HW2 c2 H W.mW(kc(W(l<kc.jc(W*j$WPWHl W*W*ldW8 oc*oo"LKoo" O(/M gjM gN LK_O;H H gl JlpW.koo"O,3_O gO g O_O_n_O=_O O O_O_oo"O _"OH JkZj_$O" O$ O _ O_9hc,n WL WN` WJ i h(1101Q SETDISPLAYHEIGHT 1074Q SCREENCOLORMAP 1066Q CHANGECURSORSCREEN 1050Q GETMONEY 1044Q CLEARW 1036Q DISMISS 1001Q MOVEGHOST 776Q EVAL 771Q EVAL 750Q COLLISIONCHECK 672Q MOVEGHOST 667Q EVAL 662Q EVAL 615Q PUTPROP 606Q EVAL 576Q EVAL 524Q DISMISS 512Q MACHINETYPE 506Q COLLISIONCHECK 501Q ENERGIZERCHECK 452Q PUTPROP 447Q EVAL 440Q EVAL 425Q EVAL 336Q ERASEOBJ 316Q NTH 236Q FRUITCHECK 232Q DOTCHECK 225Q BLINKENERGIZERS 221Q MOVEPACMAN 214Q GETMOVE 162Q DISMISS 150Q MACHINETYPE 140Q MACHINETYPE 111Q PACMANNEWGAME 100Q PACINTRO 75Q PACMANINITNEW) (1063Q ScreenBitMap 611Q BITMAP 601Q BITMAP 515Q DORADO 443Q BITMAP 430Q EATEN 153Q DORADO 143Q DANDELION 61Q H 54Q G 47Q F 42Q E 35Q D 30Q C 23Q B 16Q A 11Q Y 5 X) ( 721Q (G1 G2 G3 G4) 715Q (OLDG1 OLDG2 OLDG3 OLDG4) 553Q (G1 G2 G3 G4) 547Q (OLDG1 OLDG2 OLDG3 OLDG4) 405Q (OLDG1 OLDG2 OLDG3 OLDG4) 401Q (G1 G2 G3 G4) 356Q (G1 G2 G3 G4) 352Q (G1BITMAP G2BITMAP G3BITMAP G4BITMAP) 343Q (0 . 0)) PACMANINIT D1 (P 5 Y P 3 X P 1 I I 0 PMAN F 6 PWINDOW F 7 PSTREAM F 10Q NUMMEN F 11Q G2 F 12Q SCORE F 13Q NUMDOTS F 14Q G3 F 15Q ENERGIZEROBJ F 16Q G1 F 17Q G4)  Vl dn3nho c Vho cg gg lcjcdc@lnYldW @l(nYldW l ll l n@ llll l klkl lH lkIdHllIdHll KJl l l l l ll ll l gcklkl l llll l klkl l llll l l l l l Wg l l l l Wg l l l l Wg ll ll Wg lIl n IkY lIl n IkYll MLKMKM l Mk]Kk[(707Q SETBOARDVAL 701Q BOARDVAL 646Q SETBOARDVAL 637Q BOARDVAL 617Q SETBOARDVAL 610Q BOARDVAL 577Q SETBOARDVAL 565Q BOARDVAL 552Q SETBOARDVAL 540Q BOARDVAL 525Q SETBOARDVAL 513Q BOARDVAL 500Q SETBOARDVAL 466Q BOARDVAL 453Q SETBOARDVAL 445Q BOARDVAL 432Q SETBOARDVAL 424Q BOARDVAL 413Q SETBOARDVAL 405Q BOARDVAL 372Q SETBOARDVAL 364Q BOARDVAL 346Q SETBOARDVAL 340Q BOARDVAL 325Q SETBOARDVAL 317Q BOARDVAL 226Q SETBOARDVAL 220Q BOARDVAL 207Q SETBOARDVAL 201Q BOARDVAL 166Q SETBOARDVAL 157Q BOARDVAL 144Q PAINTOBJ 125Q PAINTOBJ 106Q PUTDOTS 103Q DRAWBOARD 66Q INFILE 55Q CLOSEF? 45Q DECODE/WINDOW/OR/DISPLAYSTREAM 34Q CLEARW 27Q CREATEW) (572Q BIT 545Q BIT 520Q BIT 473Q BIT 351Q I 63Q READ 60Q {DSK}PACMAN.DAT 52Q {DSK}PACMAN.DAT) ( 42Q "PACMAN" 24Q "PACMAN") PACMANINITNEW D1 (I 0 PMAN F 0 PACMANVERSION F 1 PACMANINCOLOR F 2 PWINDOW F 3 ENERGIZEROBJ F 4 PSTREAM F 5 PMOLDCOLORMAP) oci i cR.djdn3nhPkd l dn3nhP c Q RhP cQ i  c  j gc(205Q GETHISCORES 202Q SETCHARPROPS 177Q SETBITMAPS 166Q SETDISPLAYHEIGHT 161Q CHANGECURSORSCREEN 156Q COLORSCREENBITMAP 150Q SCREENCOLORMAP 145Q COLORMAPCREATE 141Q COLORBACKGROUND 135Q COLORDISPLAY 124Q DECODE/WINDOW/OR/DISPLAYSTREAM 115Q DSPCREATE 112Q COLORSCREENBITMAP 105Q CLEARW 100Q CREATEW 54Q COLORCREATEW 21Q INCOLORQ 16Q TERPRI 11Q PRIN1) (172Q I) ( 3 "PACMAN Version 1.4") PACMANNEWGAME D1 (F 0 PMAN F 1 PSTREAM F 2 NUMMEN F 3 SCORE F 4 NUMDOTS F 5 GVALUEBITMAPLIST) 7lcjcdcoc PlnYldQ Pl(nYldQ (64Q PACMANREINIT 61Q PAINTOBJ 43Q PAINTOBJ 17Q FRUITINIT 14Q DRAWBOARDNEW) NIL ( 23Q (GHOST1 GHOST2 T GHOST3 T T T GHOST4)) PACMANREINIT D1 (P 2 GHOST P 1 I F 3 PMAN F 4 PSTREAM F 5 FRUIT# F 6 NUMMEN F 7 PWINDOW F 10Q GVALUEPOS F 11Q PMANLEFT F 12Q PIT F 13Q FRUITVISIBLE F 14Q FRUITLIST F 15Q PACMANC F 16Q BOARD F 17Q NEXTMOVE F 20Q VIRGINBOARD F 21Q FOLLOW F 22Q BLUETIME F 23Q MOVE F 24Q FRUITTIME) UdlLl W SgW VdkSlnYldT VlSl(nYldT UkIH"WI Illn^ldT IkYSgW Sdgl llSgl lldT lkIHWIW I( *IkYo4dJ J gl llJ gl lldT o4dJ J gl llJ gl lldT ollT Sgl Sgl kc"jc$dc(icUkc oclc&jcdcn ollT (623Q SHOWCAP 607Q DISMISS 601Q PUTENERGIZERS 576Q PUTDOTSAGAIN 532Q PUTPROP 521Q PUTPROP 510Q SHOWCAP 467Q PAINTOBJ 444Q EVAL 424Q EVAL 420Q EVAL 401Q SETCHARPROPS 371Q ERASEOBJ 346Q EVAL 326Q EVAL 322Q EVAL 272Q COPY 245Q ERASEOBJ 203Q PUTPROP 162Q PAINTOBJ 137Q NTH 116Q PAINTOBJ 72Q PAINTOBJ 44Q PUTPROP 32Q DRAWBOARDNEW 26Q CLEARW 20Q DISMISS 12Q INTERMISSION1) (525Q YLOC 514Q XLOC 447Q YLOC 427Q XLOC 351Q YLOC 331Q XLOC 225Q YLOC 210Q XLOC 176Q BITMAP 37Q BITMAP) ( 613Q " " 557Q (430Q . 135Q) 500Q "READY!" 405Q (G1 G2 G3 G4) 307Q (G1 G2 G3 G4)) PAINTOBJ D1 (I 5 STREAM I 4 H I 3 W I 2 Y I 1 X I 0 OBJ) @ghdEABCDh@g (25Q BITBLT) (20Q OPERATION 3 BITMAP) () PAINTDOT D1 (I 4 H I 3 W I 2 Y I 1 X I 0 OBJ F 0 PSTREAM) @hdPABCDhg (17Q BITBLT) (13Q PAINT) () PUTDOTS D1 (P 10Q X P 6 Y P 4 W P 3 S P 2 E P 1 N P 0 ROW F 11Q BOARD F 12Q HASDOT F 13Q NUMDOTS F 14Q PACMANINCOLOR F 15Q COLORDOT F 16Q DOT) = PlkNMlkNM7hhlkOOHh Ok_WNhH *Nk^WN(lkOOHO jHO k,WWWOl lNl ld n cWkcjcjYZ[OkHOk dkklOHOk dkkNkWNk(O dkklNWNk(O dkkHO WLlJlIlKOk_1WNH*Nk^(417Q NTH 401Q NTH 350Q NTH 320Q NTH 272Q NTH 225Q PAINTDOT 165Q NTH 150Q NTH 106Q DREMOVE 64Q \APPEND2 57Q READ) NIL () PUTDOTSAGAIN D1 (P 3 X P 1 Y F 4 NUMDOTS F 5 PACMANINCOLOR F 6 COLORDOT F 7 DOT) MlkIHhlkKdJIkYIn !UVWKl lIl ld TkcKk[(76Q PAINTDOT 44Q CHECKAT) NIL () PUTENERGIZERS D1 (F 0 ENERGIZEROBJ F 1 PSTREAM) :Pl n)ldQ Pnn)ldQ Pl lMldQ PnlMldQ (67Q PAINTOBJ 51Q PAINTOBJ 34Q PAINTOBJ 15Q PAINTOBJ) NIL () REDODOT D1 (I 1 Y I 0 X F 0 FRUITTIME F 1 PACMANINCOLOR F 2 COLORDOT F 3 DOT F 4 PSTREAM F 5 FRUITVISIBLE F 6 FRUITLIST F 7 FRUIT#) N@Al QRS@l lAl ld @An@ #Pl<lxPUVW ldldT (113Q PAINTOBJ 77Q NTH 50Q CHECKAT 37Q PAINTDOT 6 CHECKAT) NIL () REPLACEOBJ D1 (I 5 STREAM I 4 H I 3 W I 2 Y I 1 X I 0 OBJ) @hdEABCDhg (17Q BITBLT) (13Q REPLACE) () SCAN D1 (P 3 Y P 1 X) VlkIHhlkKJ9IKn )Ii ki Ki ki IK i i Kk[IkY(106Q TERPRI 101Q PRIN1 75Q BOARDVAL 67Q SPACES 61Q PRIN1 53Q SPACES 45Q PRIN1 36Q CHECKAT) NIL () SETBITMAPS D1 (F 0 PACMANINCOLOR F 1 COLORPMANLEFT F 2 PMANLEFTMAP F 3 G3BITMAP F 4 PMANLEFT F 5 COLORPMANRIGHT F 6 BWG4BITMAP F 7 PMANRIGHTMAP F 10Q PMANRIGHT F 11Q BWG3BITMAP F 12Q COLORPMANUP F 13Q PMANUPMAP F 14Q GINVBITMAP F 15Q BWGINVBITMAP F 16Q PMANUP F 17Q COLORPMANDOWN F 20Q PMANDOWNMAP F 21Q COLORG3BITMAP F 22Q BWG2BITMAP F 23Q PMANDOWN F 24Q COLORPACMANC F 25Q PACMANCMAP F 26Q G4BITMAP F 27Q COLORG4BITMAP F 30Q G2BITMAP F 31Q PACMANC F 32Q COLORG1BITMAP F 33Q COLORGINVBITMAP F 34Q BWG1BITMAP F 35Q G1BITMAP F 36Q COLORG2BITMAP) XPQRcPUWcPWWcPWW c&PW(W*c2PW4W8c:PW