(DEFINE-FILE-INFO READTABLE "INTERLISP" PACKAGE "INTERLISP") (FILECREATED " 9-Sep-94 14:03:58" ("compiled on " {DSK}lispusers>MISSILE.;1) "28-Jul-94 17:28:46" bcompl'd in "Medley 25-Aug-94 ..." dated "25-Aug-94 10:02:49") (FILECREATED " 1-May-87 17:22:51" {ERIS}F>CODE>MISSILE.;2 34474 changes to%: (FNS COIN-FLIP) previous date%: "20-May-86 20:49:29" {ERIS}F>CODE>MISSILE.;1) BARGRAPH-ERASE :D8 (F 0 *BAR-GRAPH* F 1 *GAME-WINDOW*) PjgQ (12 DSPFILL) (6 REPLACE) () BLAST-CITY :D8 (I 0 X F 0 *GAME-WINDOW* F 1 *SKYLINE* F 2 *BLASTED-SKYLINE* F 3 *TARGETS*) @dgQgQRjdP@@hddg @gQjdP@@ RjdP@@ gQRjdP@@hddg @g@gQRjdP@@ @S l (179 RINGBELLS 172 DREMOVE 164 BKBITBLT 126 BKBITBLT 90 BKBITBLT 74 BKBITBLT 47 BKBITBLT) (145 OK 135 GONE 120 ERASE 99 OK 57 OK 41 ERASE 20 OK 9 GONE) () BONUS-DISPLAY :D8 (F 0 *GAME-WINDOW* F 1 *BONUS* F 2 *TARGETS* F 3 *SCORE* F 4 *BONUS-DELTA*) P n^nP oP n^nP oP QP n^nP oP R kP n^nXP oP R kQP n SR kQP cTQc(164 PRIN1 154 LENGTH 147 DISMISS 139 PRIN1 129 LENGTH 123 PRIN1 112 MOVETO 100 PRIN1 92 LENGTH 86 PRIN1 75 MOVETO 63 STROBE-CITIES 58 PRIN1 51 PRIN1 40 MOVETO 28 PRIN1 17 MOVETO 5 CLEARW) NIL ( 117 "TOTAL is " 80 " X " 45 "BONUS=" 22 " ") BUMP-TRACE :D8 (I 0 NEWTRACE) 0@@@ @@@ (43 ABS 19 ABS) NIL () COIN-FLIP :D8 (F 0 *GUESSFACTOR* F 1 *TARGETS*) kld PlQ ih(18 LENGTH 7 RAND) NIL () COLLIDE-TRACE :D8 (P 4 TRACE-REGION P 3 TRACE-POS P 2 TRACE-TARGET P 1 ENDY P 0 ENDX I 0 NEWTRACE F 5 *GAME-WINDOW* F 6 *BLOCK-TIME* F 7 *TRACES* F 8 *TARGETS* F 9 *BLASTED-SKYLINE* F 10 *LEGAL-REGION* F 11 *SKYLINE*) @A@@HIJ\K >V @@@@lgU J JW @W iWK OV @@@@lgU JgWWjdUJJ @W i@K i(191 INTERCEPTED 182 DREMOVE 173 BKBITBLT 142 DRAWLINE 113 BLOCK 105 MYINSIDE 95 DREMOVE 87 DREMOVE 79 BLAST-CITY 72 DRAWLINE 43 BLOCK 35 MYINSIDE) (152 OK 135 ERASE 65 ERASE) () DISPLAY-MISSILES :D8 (F 0 *MISSILES-USED* F 1 *MISSILES-LEFT* F 2 *BAR-GRAPHX* F 3 *BAR-GRAPHY* F 4 *GAME-WINDOW* F 5 *BARFACTOR* F 6 *MAX-MISSILES* F 7 *BARHEIGHT* F 8 *BARDISPX* F 9 *BARDISPY* F 10 *BAR-GRAPH*) . RST PkcVPcWWQUWhc(43 UPDATE-BARGRAPH 12 MOVETO 4 BARGRAPH-ERASE) NIL () GEN-MIRV :D8 (P 8 TMP P 7 CLUSTER P 6 N P 1 SY P 0 SX I 0 NEWTRACE F 9 *TRACES* F 10 *TARGETS* F 11 *SPEED* F 12 *CITY-XOFST* F 13 *GAME-WINDOW* F 14 *CITY-YOFST* F 15 *BLOCK-TIME*) @@W kAk^JK@W OW cjdddhddOWN OHOHOIOIOHOWWOIOWWW OOOOlgW OL Mh\NkԱ4M&(213 DRAWLINE 179 BLOCK 91 NTH 64 PICK-TARGETS 52 \NCONC2 43 DREMOVE 19 LENGTH) (205 REPLACE) () GEN-SHOCK :D8 (P 3 SIZE P 2 NEWSHOCK P 1 POSY P 0 POSX F 4 *RADIUS-DELTA* F 5 *GAME-WINDOW* F 6 *SHOCK-WAVES* F 7 *MAX-MISSILES* F 8 *MISSILES-USED* F 9 *BLOCK-TIME*) pWWhU U lddl hdTdJHJIJTW JJJnU JHTITKdhJVc (85 FILLCIRCLE 65 BLOCK 46 DISPLAY-MISSILES 24 LASTMOUSEY 18 LASTMOUSEX 12 GETMOUSESTATE) NIL () GEN-TARGETS :D8 (P 2 TMP P 1 I F 3 *TARGETS* F 4 *CITY-WIDTH* F 5 *CITY-HEIGHT* F 6 *GAME-WINDOW* F 7 *SKYLINE* F 8 *BLASTED-SKYLINE*) knldIHhjdghdJIlZJl2JIlZl2TUhJScJgWWjdVJJ IlY(97 BKBITBLT) (76 OK 20 OK) () GEN-TRACES :D8 (P 5 TMP P 4 N F 6 *MAX-TRACES* F 7 *TRACES*) PkV Ak\HIcdih jdddhddM MJ KhZLk԰K&(56 INIT-TRACE 37 PICK-TARGETS 27 \NCONC2 6 RAND) NIL () GROW-SHOCK :D8 (P 1 SIZE P 0 DISP I 0 SHOCKWAVE F 2 *BLOCK-TIME* F 3 *GAME-WINDOW* F 4 *RADIUS-DELTA* F 5 *SHOCK-WAVES* F 6 *MAX-RADIUS*) R @@@jS @dihTV@U @T@R @@@nS @Hd@@H@HIdh@ (124 SHOCK-COLLISION 83 FILLCIRCLE 63 BLOCK 46 DREMOVE 23 FILLCIRCLE 5 BLOCK) NIL () INIT-MISSILE :D8 (F 0 *GAME-WINDOW* F 1 *LEFT* F 2 *FLOOR* F 3 *MAX-MISSILES* F 4 *MISSILES-USED* F 5 *MISSILES-LEFT* F 6 *BARDISPX* F 7 *BARDISPY* F 8 *BARHEIGHT* F 9 *BARFACTOR* F 10 *MISSILE-COMMAND-ICON* F 11 *MISSILE-COMMAND-MASK* F 12 *BAR-GRAPHY* F 13 *TARGETS* F 14 *BARMSGY* F 15 *TRACES* F 16 *MAX-TRACES* F 17 *BAR-GRAPH* F 18 *MISSILES* F 19 *RIGHT* F 20 *ROUND* F 21 *INITIAL-Y* F 22 *BAR-GRAPHX* F 23 *SCORE-DELTA* F 24 *LEGAL-REGION* F 25 *SPEED* F 26 *CITY-HEIGHT* F 27 *SCORE-INCR* F 28 *CITY-WIDTH* F 29 *BARMSGX* F 30 *CITY-XOFST* F 31 *CITY-YOFST* F 32 *SCORE* F 33 DEFAULTCURSOR F 34 *SCOREX* F 35 *SCOREY* F 36 *MAX-RADIUS* F 37 *RADIUS-DELTA* F 38 *SHOCK-WAVES* F 39 *BONUS* F 40 *BONUS-DELTA* F 41 *BLOCK-TIME* F 42 *GUESSFACTOR*) +` g Pboo cgg gl$g P PgWWo g`(`gohh hococl2c oc$l cnc&lAcnc*l c2l2c4lc8lZcjc@ncDlcFl c.dc6lKcHlcJocLlKcjcSTc lc lclclcVWUWWhc"lc,dcl c:lclcRQRnnhc0ldcNdcPjc(lcTWB  (383 CLEARW 377 DISPLAY-MISSILES 372 UPDATE-SCORE 367 SETCURSOR 360 GEN-TRACES 355 GEN-TARGETS 148 \APPEND2 109 PUTWINDOWPROP 104 ICONW 83 DSPFONT 77 FONTCREATE 59 PUTWINDOWPROP 42 CREATEW 19 BOUNDP 9 SETCURSOR) (160 BackgroundMenu 153 BackgroundMenuCommands 133 MissileCommand 128 BackgroundMenuCommands 120 BackgroundMenuCommands 115 MissileCommand 90 ICON 72 BOLD 65 TIMESROMAN 54 GEN-SHOCK 49 BUTTONEVENTFN 14 *GAME-WINDOW* 4 WAITINGCURSOR) ( 256 (T) 184 (T) 173 (T) 166 (T) 138 (MISSILE-COMMAND) 99 (20 . 20) 37 "Missile Command" 32 (5 20 1010 780)) INIT-TRACE :D8 (P 2 YT P 1 XT P 0 SPOT I 0 NEWTRACE F 3 *INITIAL-Y* F 4 *SPEED* F 5 *LEFT* F 6 *RIGHT* F 7 *CITY-XOFST* F 8 *CITY-YOFST*) MUV @@@H@S@HIWT@SJWT@H@S(6 RAND) NIL () INTERCEPTED :D8 (P 2 N P 0 SHOCKS I 1 TRACEPOS I 0 NEWTRACE F 3 *SHOCK-WAVES* F 4 *BLOCK-TIME* F 5 *SCORE-DELTA* F 6 *GAME-WINDOW* F 7 *TRACES*) bSH kkJIhHA 6T @@@@lgV @W U HJkZ(86 SCORE-ADD 79 DREMOVE 70 DRAWLINE 41 BLOCK 33 MYINSIDE 9 LENGTH) (63 ERASE) () MAIN-LOOP :D8 (F 0 CROSSHAIRS F 1 *TARGETS* F 2 DEFAULTCURSOR F 3 *TRACES* F 4 *GAME-WINDOW* F 5 MY-PARENT) ?P QiR T Ui Si(58 MAIN-LOOP-AUX 52 NEXT-PHASE 46 GEN-TRACES 35 WAKE.PROCESS 28 SHRINKW 22 SETCURSOR 10 SETCURSOR 4 INIT-MISSILE) NIL () MAIN-LOOP-AUX :D8 (P 1 TRACES P 0 SHOCKS F 2 *SHOCK-WAVES* F 3 *TRACES*) YRkR k SkS k IdiHiiIiIHiHd  h(82 MOVE-TRACE 76 GROW-SHOCK 40 FNTH 35 RAND 28 LENGTH 19 FNTH 14 RAND 7 LENGTH) NIL () MISSILE-COMMAND :D8 (F 0 MISSILE-PROC F 1 MY-PARENT) Dogggi cd `cPi i P (65 DEL.PROCESS 59 BLOCK 53 WAKE.PROCESS 39 SPAWN.MOUSE 34 TTY.PROCESS 26 ADD.PROCESS) (44 \RUNNING.PROCESS 19 SUSPEND 14 MissileCommand 9 NAME) ( 4 (MAIN-LOOP)) MOVE-TRACE :D8 (I 0 NEWTRACE F 0 *BLOCK-TIME* F 1 *GAME-WINDOW*) e@ h@ P @@@@lgQ @ P @@@@lgQ h(97 DRAWLINE 69 BLOCK 63 BUMP-TRACE 56 DRAWLINE 27 BLOCK 20 GEN-MIRV 13 COIN-FLIP 5 COLLIDE-TRACE) (90 REPLACE 49 ERASE) () MYINSIDE :D8 (P 5 HEIGHT P 4 WIDTH P 3 BOT P 2 LEFT P 1 YT P 0 XT I 1 POS I 0 REGION) /AA@@@@JHKIHJLIKMihNIL NIL () NEXT-PHASE :D8 (P 1 SOMECITY F 2 *GAME-WINDOW* F 3 *ROUND* F 4 *SPEED* F 5 *SCORE-DELTA* F 6 *SHOCK-WAVES* F 7 *TARGETS* F 8 *MISSILES-USED* F 9 *SKYLINE* F 10 *SCORE-INCR* F 11 *BLASTED-SKYLINE*)  SkcR oc TkTkcmcR nwnR oR SR n R UWc WHhYdigWWjdRII HX(159 BKBITBLT 106 UPDATE-SCORE 101 DISPLAY-MISSILES 96 CLEARW 90 DISMISS 82 PRIN1 75 PRIN1 64 MOVETO 52 UPDATE-SCORE 47 CLEARW 41 BONUS-DISPLAY 32 UPDATE-SCORE 10 CLEARW) (138 OK) ( 69 "End of Round " 15 (T)) PICK-TARGETS :D8 (F 0 *TARGETS*) PkP k (19 NTH 14 RAND 7 LENGTH) NIL () SCORE-ADD :D8 (I 0 N F 0 *SCORE*) P@c(9 UPDATE-SCORE) NIL () SHOCK-COLLISION :D8 (P 2 N P 0 TRACES I 0 SHOCKWAVE F 3 *TRACES* F 4 *BLOCK-TIME* F 5 *GAME-WINDOW* F 6 *SCORE-DELTA*) xSH kkJIhHdiT@HH :T HHHHlgU HS V HJkZ(108 SCORE-ADD 101 DREMOVE 92 DRAWLINE 59 BLOCK 51 MYINSIDE 9 LENGTH) (85 ERASE) () STROBE-CITIES :D8 (P 2 SOMECITY P 0 TMP F 3 *SKYLINE* F 4 *BLASTED-SKYLINE* F 5 *GAME-WINDOW* F 6 *TARGETS*) kVI V kZdiwgSTjdUJJ n,Hldnu0h JgSTjdUJJhddg HkظJgSTjdUJJ IYs(145 BKBITBLT 112 BKBITBLT 75 PLAYTUNE 55 BKBITBLT 18 LENGTH) (126 OK 106 ERASE 85 OK 36 OK) () UPDATE-BARGRAPH :D8 (F 0 *GAME-WINDOW* F 1 *BARMSGX* F 2 *BARMSGY* F 3 *BAR-GRAPH*) )QRP oP SngP (38 DSPFILL 23 PRIN1 12 MOVETO 4 BARGRAPH-ERASE) (32 REPLACE) ( 17 "MISSILES> ") UPDATE-SCORE :D8 (F 0 *GAME-WINDOW* F 1 *SCOREX* F 2 *SCOREY* F 3 *SCORE*) QRP oP SP (25 PRIN1 18 PRIN1 7 MOVETO) NIL ( 12 "SCORE: ") (PRETTYCOMPRINT MISSILECOMS) (RPAQQ MISSILECOMS ((VARS *BLASTED-SKYLINE* *MISSILE-COMMAND-ICON* *MISSILE-COMMAND-MASK* *MISSLE-COMMAND-ICON* *SCORE* *SKYLINE*) (RECORDS CITY SHOCK TRACE) (FNS BARGRAPH-ERASE BLAST-CITY BONUS-DISPLAY BUMP-TRACE COIN-FLIP COLLIDE-TRACE DISPLAY-MISSILES GEN-MIRV GEN-SHOCK GEN-TARGETS GEN-TRACES GROW-SHOCK INIT-MISSILE INIT-TRACE INTERCEPTED MAIN-LOOP MAIN-LOOP-AUX MISSILE-COMMAND MOVE-TRACE MYINSIDE NEXT-PHASE PICK-TARGETS SCORE-ADD SHOCK-COLLISION STROBE-CITIES UPDATE-BARGRAPH UPDATE-SCORE))) (RPAQQ *BLASTED-SKYLINE* #*(180 50)@@D@@@@@L@@@@@@@@@@@@@@@@@@CL@@@@@@@@@H@@@@AH@@@@@F@@@@@N@@@@@@@@@@@@@@@@@@GN@@@@@@@@AH@@@@CH@@@@@N@@@@AO@@@@@@@@@@@@@@@@@@OO@@@@@@@@AL@@@@CH@@@@@O@@@@AO@@@@@@@@@@@@@@@@@AOO@@@@@@@@CL@@@@GH@@@@@OH@@@AOH@@@@@@@@@@@@@@@@COOH@@@@@@@CL@@@@OL@@@@@OH@@@COL@@@@@@@@@@@@@@@@GOOL@@@@@@@GN@@@@OL@@@@@OL@@@CON@@@@@@@@@@@@@@@@OOON@@@@@@@GN@@@AOL@@@@@ON@@@CON@@@@@@@@@@@@@@@AOOON@@@@@@@ON@@@COL@@@@@ON@@@GOO@@@@@@@@@@@@@@@COOOO@@@@@@@OO@@@CON@@@@@OO@@@GOOH@@@@@@@@@@@@@@GOOOOH@@@@@AOO@@@GON@@@@@OOH@@GOOL@@@@@@@@@@@@@@OOOOOL@@@@@AOO@@@OON@@@@AOOH@@OOOL@@@@@@@@@@@@@AOOOOOL@@@@@COOH@@OON@@@@AOOL@@OOON@@@@@@@@@@@@@COOOOON@@@@@COOH@AOOO@@@@AOON@@OOOO@@@@@@@@@@@@@GOOOOOO@@@@@GOOH@COOO@@@@AOON@AOOOOH@@@@@@H@@@@@OOOOOOOH@@@@GOOL@COOO@@@@AOOO@AOOOOH@@@@@AN@@@@AOOOOOOOH@@@@OOOL@GOOO@@@@AOOOHAOOOOL@@@@@COH@@@COOOOOOOL@@@@OOOL@OOOO@@@@AOOOHCOOOON@@@@@GON@@@GOOOOOOON@@@AOOON@OOOO@@@@AOOOLCOOOOO@@@@@OOOH@@OOOOOOOOO@@@AOOONAOOOO@@@@AOOONCOOOOO@@@@AOOON@AOOOOOOOOO@@@COOONCOOOO@@@@COOONGOOOOOH@@@COOOOHCOOOOOOOOOH@@COOOOCOOOO@@@@COOOOGOOOOOL@@@GOOOONGOOOOOOOOOL@@GOOOOGOOOO@@@@COOOOOOOOOON@@@OOOOOOOOOOOOOOOON@@GOOOOOOOOO@@@@COOOOOOOOOON@@AOOOOOOOOOOOOOOOON@@OOOOOOOOOO@@@@COOOOOOOOOOO@@COOOOOOOOOOOOOOOOO@@OOOOOOOOOO@@@@COOOOOOOOOOOH@GOOOOOOOOOOOOOOOOOHAOOOOOOOOOO@@@@COOOOOOOOOOOL@OOOOOOOOOOOOOOOOOOLAOOOOOOOOOO@@@@COOOOOOOOOOOLAOOOOOOOOOOOOOOOOOOLCOOOOOOOOOO@@@@COOOOOOOOOOONCOOOOOOOOOOOOOOOOOONCOOOOOOOOOO@@@@GOOOOOOOOOOOOGOOOOOOOOOOOOOOOOOOOGOOOOOOOOOO@@@@GOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOO@@@@GOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOO@@@@GOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOO@@@@GOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOO@@@@GOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOO@@@@GOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOO@@@@GOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOO@@@@GOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOO@@@@OOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOO@@@@OOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOO@@@@OOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOO@@@@OOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOO@@@@OOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOO@@@@OOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOO@@@@OOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOO@@@@OOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOO@@@@OOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOO@@@AOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOO@@@AOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOO@@@AOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOO@@@ ) (RPAQQ *MISSILE-COMMAND-ICON* #*(80 60)@@@@@@@@@@@@@@@@@@@@@@@@@@@@@B@@@@@@@@@@@@@@@@@@@G@@@@@@@@@@@@@@@@@@@OH@@@@@@@@@@@@@@@@@AOL@@@@@@@@@@@@@@@@@CON@@@@@@@@@@@@@@@@@GOO@@@@@@@@@@@@@@@@@OOOH@@@@@@@@@@@@@@@AOOOL@@@@@@@@@@@@@@@COOON@@@@@@@@@@@@@@@GOOOO@@@@@@@@@@@@@@@OOOOOH@@@@@@@@@@@@@AOOOOOL@@@@@@@@@@@@@COOOOON@@@@@@@@@@@@@GOOOOOO@@@@@@@@@@@@@EOOOOOI@@@@@@@@@@@@@DAOOONA@@@@@@@@@@@@@D@@OL@A@@@@@@@@@@@@@D@@@@@A@@@@@@@@@@@@@D@@@@@A@@@@@@@@@@@@@D@B@H@A@@@@@@@@@@@@@D@C@H@A@@@@@@@@@@@@@D@BHH@A@@@@@@@@@@@@@D@BDH@A@@@@@@@@@@@@@D@BBH@A@@@@@@@@@@@@@D@BAH@A@@@@@@@@@@@@@D@B@H@A@@@@@@@@@@@@@D@@@@@A@@@@@@@@@@@@@D@@D@@A@@@@@@@@@@@@@D@@D@@A@@@@@@@@@@@@@D@@D@@A@@@@@@@@@@@@@D@@D@@A@@@@@@@@@@@@@L@@D@@A@@@@@@@@@@@@AL@@D@@A@@@@@@@@@@@@CL@@D@@AH@@@@@@@@@@@GL@@@@@AL@@@@@@@@@@@GL@BAH@AN@@@@@@@@@@@OL@BB@@AO@@@@@@@@@@@OL@BD@@AOH@@@@@@@@@AOL@BH@@AOL@@@@@@@@@AOL@C@@@AOL@@@@@@@@@COL@BH@@AON@@@@@@@@@COL@BD@@AON@@@@@@@@@GOL@BB@@AOO@@@@@@@@@GOL@BAH@AOOH@@@@@@@@OOL@@@@@AOOH@@@@@@@@OOL@AOL@AOOH@@@@@@@AOOL@A@@@AOOL@@@@@@@AOOL@A@@@AOOL@@@@@@@AOOL@A@@@AOOL@@@@@@@COOL@AOH@AOON@@@@@@@COOL@A@@@AOON@@@@@@@GOOL@A@@@AOON@@@@@@@GOOL@A@@@AOON@@@@@@@GOOO@AOL@OOOO@@@@@@@GOOLN@@@GIOOO@@@@@@@@@@@CN@CLAOOO@@@@@@@@@@@@CON@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ ) (RPAQQ *MISSILE-COMMAND-MASK* #*(80 60)@@@@@@@@@@@@@@@@@@@@@@@@@@@@@B@@@@@@@@@@@@@@@@@@@G@@@@@@@@@@@@@@@@@@@OH@@@@@@@@@@@@@@@@@AOL@@@@@@@@@@@@@@@@@CON@@@@@@@@@@@@@@@@@GOO@@@@@@@@@@@@@@@@@OOOH@@@@@@@@@@@@@@@AOOOL@@@@@@@@@@@@@@@COOON@@@@@@@@@@@@@@@GOOOO@@@@@@@@@@@@@@@OOOOOH@@@@@@@@@@@@@AOOOOOL@@@@@@@@@@@@@COOOOON@@@@@@@@@@@@@GOOOOOO@@@@@@@@@@@@@GOOOOOO@@@@@@@@@@@@@GOOOOOO@@@@@@@@@@@@@GOOOOOO@@@@@@@@@@@@@GOOOOOO@@@@@@@@@@@@@GOOOOOO@@@@@@@@@@@@@GOOOOOO@@@@@@@@@@@@@GOOOOOO@@@@@@@@@@@@@GOOOOOO@@@@@@@@@@@@@GOOOOOO@@@@@@@@@@@@@GOOOOOO@@@@@@@@@@@@@GOOOOOO@@@@@@@@@@@@@GOOOOOO@@@@@@@@@@@@@GOOOOOO@@@@@@@@@@@@@GOOOOOO@@@@@@@@@@@@@GOOOOOO@@@@@@@@@@@@@GOOOOOO@@@@@@@@@@@@@GOOOOOO@@@@@@@@@@@@@OOOOOOO@@@@@@@@@@@@AOOOOOOO@@@@@@@@@@@@COOOOOOOH@@@@@@@@@@@GOOOOOOOL@@@@@@@@@@@GOOOOOOON@@@@@@@@@@@OOOOOOOOO@@@@@@@@@@@OOOOOOOOOH@@@@@@@@@AOOOOOOOOOL@@@@@@@@@AOOOOOOOOOL@@@@@@@@@COOOOOOOOON@@@@@@@@@COOOOOOOOON@@@@@@@@@GOOOOOOOOOO@@@@@@@@@GOOOOOOOOOOH@@@@@@@@OOOOOOOOOOOH@@@@@@@@OOOOOOOOOOOH@@@@@@@AOOOOOOOOOOOL@@@@@@@AOOOOOOOOOOOL@@@@@@@AOOOOOOOOOOOL@@@@@@@COOOOOOOOOOON@@@@@@@COOOOOOOOOOON@@@@@@@GOOOOOOOOOOON@@@@@@@GOOOOOOOOOOON@@@@@@@GOOOOOOOOOOOO@@@@@@@GOOLOOOOOIOOO@@@@@@@@@@@COOOLAOOO@@@@@@@@@@@@CON@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ ) (RPAQQ *MISSLE-COMMAND-ICON* #*(80 60)@@@@@@@@@@@@@@@@@@@@@@@@@@@@@B@@@@@@@@@@@@@@@@@@@G@@@@@@@@@@@@@@@@@@@OH@@@@@@@@@@@@@@@@@AOL@@@@@@@@@@@@@@@@@CON@@@@@@@@@@@@@@@@@GOO@@@@@@@@@@@@@@@@@OOOH@@@@@@@@@@@@@@@AOOOL@@@@@@@@@@@@@@@COOON@@@@@@@@@@@@@@@GOOOO@@@@@@@@@@@@@@@OOOOOH@@@@@@@@@@@@@AOOOOOL@@@@@@@@@@@@@COOOOON@@@@@@@@@@@@@GOOOOOO@@@@@@@@@@@@@EOOOOOI@@@@@@@@@@@@@DAOOONA@@@@@@@@@@@@@D@@OL@A@@@@@@@@@@@@@D@@@@@A@@@@@@@@@@@@@D@@@@@A@@@@@@@@@@@@@D@B@H@A@@@@@@@@@@@@@D@C@H@A@@@@@@@@@@@@@D@BHH@A@@@@@@@@@@@@@D@BDH@A@@@@@@@@@@@@@D@BBH@A@@@@@@@@@@@@@D@BAH@A@@@@@@@@@@@@@D@B@H@A@@@@@@@@@@@@@D@@@@@A@@@@@@@@@@@@@D@@D@@A@@@@@@@@@@@@@D@@D@@A@@@@@@@@@@@@@D@@D@@A@@@@@@@@@@@@@D@@D@@A@@@@@@@@@@@@@L@@D@@A@@@@@@@@@@@@AL@@D@@A@@@@@@@@@@@@CL@@D@@AH@@@@@@@@@@@GL@@@@@AL@@@@@@@@@@@GL@BAH@AN@@@@@@@@@@@OL@BB@@AO@@@@@@@@@@@OL@BD@@AOH@@@@@@@@@AOL@BH@@AOL@@@@@@@@@AOL@C@@@AOL@@@@@@@@@COL@BH@@AON@@@@@@@@@COL@BD@@AON@@@@@@@@@GOL@BB@@AOO@@@@@@@@@GOL@BAH@AOOH@@@@@@@@OOL@@@@@AOOH@@@@@@@@OOL@AOL@AOOH@@@@@@@AOOL@A@@@AOOL@@@@@@@AOOL@A@@@AOOL@@@@@@@AOOL@A@@@AOOL@@@@@@@COOL@AOH@AOON@@@@@@@COOL@A@@@AOON@@@@@@@GOOL@A@@@AOON@@@@@@@GOOL@A@@@AOON@@@@@@@GOOO@AOL@OOOO@@@@@@@GOOLN@@@GIOOO@@@@@@@@@@@CN@CLAOOO@@@@@@@@@@@@CON@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ ) (RPAQQ *SCORE* 17490) (RPAQQ *SKYLINE* #*(180 50)@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@OO@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@OO@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@OO@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@OO@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@OO@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@AOL@GOO@@@@@@@@@@@@@@@@COOOH@@@@@@@@@@@@@@@@@@@@AOL@GOO@@AON@@@@@@@@@@@COOOH@@@@@@@@@@@@@@@@@@@@AOL@GOO@@AON@@@@@@@@@@@COOOH@@@@@@@@@@@@@@@@@@@@AOL@GOO@@AON@@@@@@@@@@@COOOH@@@@@@@@@@@@@@@@@@@@AOL@GOO@@AON@@@@@@@@@@@COOOH@@@@@@@@@@@@@@@@@@COOOL@GOO@@AON@@@@@@@@@@@COOOH@@@@@@GOOOOO@@@@@@COOOL@GOOOOOON@@@@@@@@@@@COOOH@@@@@@GOOOOO@@@@@@COOOLAOOOOOOON@@@@@@@@@@@COOOH@@@@@@GOOOOO@@@@@@COOOLAOOOOOOON@@@@@@@@@@@COOOH@@@@@@GOOOOO@@@@@@COOOLAOOOOOOONCO@@@@OOOOOOOOOH@@@@@@GOOOOO@@@@@@OOOOLAOOOOOOONCO@@@@OOOOOOOOOH@@@@GOOOOOOO@@@@@@OOOOLAOOOOOOONCO@@@@OOOOOOOOOH@@@@GOOOOOOO@@@@@@OOOOLAOOOOOOONCO@@@@OOOOOOOOOH@@@@GOOOOOOO@@@@@@OOOOLAOOOOOOONCO@@@@OOOOOOOOOHOOO@GOOOOOOO@@@@@@OOOOOOOOOOOOONCO@@@@OOOOOOOOOHOOO@GOOOOOOO@@@@@@OOOOOOOOOOOOONCO@@@@OOOOOOOOOHOOO@GOOOOOOO@@@@@@OOOOOOOOOOOOONCO@@@@OOOOOOOOOHOOO@GOOOOOOO@@@@@@OOOOOOOOOOOOONCO@@@@OOOOOOOOOHOOO@GOOOOOOO@@@@@@OOOOOOOOOOOOONCO@@@@OOOOOOOOOHOOO@GOOOOOOO@@@OOOOOOOOOOOOOOOOOOO@@@@OOOOOOOOOHOOO@GOOOOOOO@@@OOOOOOOOOOOOOOOOOOO@GOOOOOOOOOOOHOOO@GOOOOOOO@@@OOOOOOOOOOOOOOOOOOO@GOOOOOOOOOOOHOOO@GOOOOOOO@@@OOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOHOOO@GOOOOOOO@@@OOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOHOOOOOOOOOOOO@@@OOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOHOOOOOOOOOOOO@@@OOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOHOOOOOOOOOOOO@@@OOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOHOOOOOOOOOOOO@@@OOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOHOOOOOOOOOOOO@@@OOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOHOOOOOOOOOOOO@@@OOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOHOOOOOOOOOOOO@@@OOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOHOOOOOOOOOOOO@@@OOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOHOOOOOOOOOOOO@@@OOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOO@@@OOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOO@@@OOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOO@@@OOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOO@@@OOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOO@@@OOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOO@@@OOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOO@@@OOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOO@@@OOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOO@@@OOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOO@@@OOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOO@@@ ) (RECORD CITY (X Y STATUS REGION) X _ 0 Y _ 0 STATUS _ (QUOTE OK) (ACCESSFNS ((DRAW (COND ((EQ (FETCH ( CITY STATUS) OF DATUM) (QUOTE OK)) (BITBLT *SKYLINE* 0 0 *GAME-WINDOW* (FETCH (CITY X) OF DATUM) ( FETCH (CITY Y) OF DATUM))) (T (BITBLT *BLASTED-SKYLINE* 0 0 *GAME-WINDOW* (FETCH (CITY X) OF DATUM) ( FETCH (CITY Y) OF DATUM))))) (ERASE (COND ((EQ (FETCH (CITY STATUS) OF DATUM) (QUOTE OK)) (BITBLT *SKYLINE* 0 0 *GAME-WINDOW* (FETCH (CITY X) OF DATUM) (FETCH (CITY Y) OF DATUM) NIL NIL NIL (QUOTE ERASE))) (T (BITBLT *BLASTED-SKYLINE* 0 0 *GAME-WINDOW* (FETCH (CITY X) OF DATUM) (FETCH (CITY Y) OF DATUM) NIL NIL NIL (QUOTE ERASE))))) (BLAST (BLAST-CITY DATUM))))) (RECORD SHOCK (X Y RADIUS REGION) X _ 100 Y _ 100 RADIUS _ 10 REGION _ NIL (ACCESSFNS ((DRAW (PROG NIL (BLOCK *BLOCK-TIME*) (FILLCIRCLE (FETCH (SHOCK X) OF DATUM) (FETCH (SHOCK Y) OF DATUM) (FETCH (SHOCK RADIUS) OF DATUM) BLACKSHADE *GAME-WINDOW*))) (ERASE (PROG NIL (BLOCK *BLOCK-TIME*) (FILLCIRCLE (FETCH (SHOCK X) OF DATUM) (FETCH (SHOCK Y) OF DATUM) (FETCH (SHOCK RADIUS) OF DATUM) WHITESHADE *GAME-WINDOW*))) (GROW (GROW-SHOCK DATUM))))) (RECORD TRACE (X0 Y0 XN YN TARGET DX DY) X0 _ 0 Y0 _ 0 XN _ 0 YN _ 0 TARGET _ (PICK-TARGETS) ( ACCESSFNS ((INIT (INIT-TRACE DATUM)) (DRAW (PROG NIL (BLOCK *BLOCK-TIME*) (DRAWLINE (FETCH (TRACE X0) OF DATUM) (FETCH (TRACE Y0) OF DATUM) (FETCH (TRACE XN) OF DATUM) (FETCH (TRACE YN) OF DATUM) 2 (QUOTE REPLACE) *GAME-WINDOW*))) (ERASE (PROG NIL (BLOCK *BLOCK-TIME*) (DRAWLINE (fetch (TRACE X0) of DATUM) (fetch (TRACE Y0) of DATUM) (fetch (TRACE XN) of DATUM) (fetch (TRACE YN) of DATUM) 2 (QUOTE ERASE) *GAME-WINDOW*))) (BUMP (BUMP-TRACE DATUM)) (MOVE (MOVE-TRACE DATUM)) (COLLIDE (COLLIDE-TRACE DATUM)))) ) (PUTPROPS MISSILE COPYRIGHT ("Xerox Corporation" 1987)) NIL