TX;ΠΠ<#OPTIONS A cosmic glob AZ A Ax A RICH B. ENNS A$OPTIONS2 A 1  A A A A 5 A A A A 01 A, A AJ A Y Ah A A A Y A A A A HH A A  A ===STHOLDQ>: PAUDC1X &TSTORE6v$>STHOLD2&TSTORE7 &AUDF1$> STHOLD32 (>d* HSTHOLD3H $TSTORE7f2(>Ȣ HSTHOLD2Q> PAUDF1 PAUDC1 $TSTORE68:VOPTMOVE%>tQ> P@SCLO7,QSCLO;;MOVE TOO>(;;NEXT OPTION  PSCLO( QSCLOFO>d PSCLOQ>\ P@SCLO7%> STHOLD:OPTMOVE2%>6Q>T P@SCLO7r; QSCLOS>( PSCLO QSCLOS>& PSCLODQ>\b P@SCLO7%> STHOLD:DEFAULTQ>;;PNUMPLAY;;1 PLAYERPMINEGATE;;MINES ENABLED4Q>RPNUMLIFE;;5 LIVESpQ>;;EASIEST PLAY PDIFFICQ>;;DECIMAL OF%PDECDIF;;ABOVE FOR SCREEN DISPLAYPRAPFIRE;;RAPID FIRE ON PDIFSTEER1;;HARD CONTROL$ PDIFSTEER2B ;` QRAMTOP;;LOCATE CHAR.~ S>;;SET BELOW PSCLO;;PMBASE PCHARHOLD Q> PSCLO Q>CHARDAT'2 PDLLOP Q>CHARDATn PDLLO %> CHARPLOTQ@DLLO7 P@SCLO7 , QDLLO" O>@ PDLLO^ QDLLO| O> PDLLO , QSCLO O> PSCLO0 QSCLON O>l PSCLO ; S> RCHARHOLD HCHARPLOT BEGIN; Q>> RSTRIG0\ FBEGINz RSTRIG1 FBEGIN INIT Q> P;;TURN OFF$>;;PM AND ALL.VOFFPAUDF19;;SOUNDL2j(>  HVOFF DLI2;;ΠQCHARHOLD;;TURN ONP;;CHARACTERSQ>P<Q> ZPxQ>P$>%>TITLELOOPQOPTIONS9P@SCREENLO7;;GET TITLE,2J3;;SCREEN DATAh(><;;TO SCREENHTITLELOOP,;;UP SCREENQSCREENLO;;MEMORY FORO>x;;OPTION TABLE PSCLO PDLLO:QSCREENLOXO>v PSCLO PDLLO%>OPTPLOTQOPTIONS28P@SCLO7;;GET OPTIONS 3;;DATA TO SCREEN*)>H HOPTPLOTfQ> PSKCTLQ> PAUDCTL STHOLD STHOLDOPTSTARTQDLLO8 PSCLOV QDLLOt PSCLO, QSCLOO> PSCLO  QSCLO(O>F PSCLOd%>Q>\ P@SCLO7%> STHOLDOPT1QSTICK0;;ƠR>;;6 HSOPT2T #NUMPLAYr QNUMPLAYR> HOPT2Q> PNUMPLAY OPT2,& QNUMPLAYDO>b P@SCLO7$>POPTIONS29 STHOLDSOPT2QSTRIG0R> HSKOPT14 !OPTDONERSKOPT1QSTICK0pR> HSKOPTT1%>Q> P@SCLO7,$ QDLLOBO>` PSCLO~ QDLLOO> PSCLOQ>\ P@SCLO7%>2 STHOLDP !OPT15nSKOPTT1R>  HOPT1 OPTMOVEOPT3QSTICK0;;ƠR>;; HOPTB1" #NUMLIFE@ QNUMLIFE^R> | HOPT4Q> PNUMLIFE !OPT4 OPTB1R>  HSOPT40 "NUMLIFEN QNUMLIFElR> HOPT4Q> PNUMLIFEOPT4QNUMLIFER>;;ENDLESS HLIMITS;;LIFE OPTION>Q> \ P@SCLO7z !ENDLESSLIMITSQNUMLIFE,O> P@SCLO7ENDLESS$>7.POPTIONS29L STHOLDjSOPT4QSTRIG0R> HSKOPT2 !OPTDONESKOPT2QSTICK0R> HSKOPTT2< OPTMOVE2Z !OPT1xSKOPTT2R>  HOPT3 OPTMOVEOPT5QSTICK0;;R>;; HOPTB2, #DIFFICJ PDECDIF- QDIFFIC R>: HOPT6X Q>v PDIFFIC Q> PDECDIF !OPT6 OPTB2R> ! HSOPT6*! "DIFFICH!! PDECDIF!-! QDIFFIC"R>8" HOPT6V"Q>t" PDIFFIC"Q>0" PDECDIF" OPT6%>" QDECDIF #V?(#V?F#V?d#V?#,#O># P@SCLO7#$>_#POPTIONS29$%>6$ QDECDIFT$M>r$,$O>$ P@SCLO7$$>`$POPTIONS29% STHOLD&%SOPT6QSTRIG0D%R>b% HSKOPT3% !OPTDONE%SKOPT3QSTICK0%R>% HSKOPTT3% OPTMOVE2& !OPT34&SKOPTT3R> R& FSKOPTTT3p& !OPT5&SKOPTTT3 OPTMOVE&OPT7QSTICK0;;Ӡ&R>& HOPT9' #MINEGATE$' QMINEGATEB'R>`' HOPT8~'Q>' PMINEGATE' OPT8$>' QMINEGATE'R>( HOPTIT2(Q>9P( P@SCLO7n(POPTIONS29( !OPT99( OPTITQ>.( P@SCLO7(POPTIONS29)OPT99 STHOLD")OPT9QSTRIG0@)R>^) HSKOPT6|) !OPTDONE)SKOPT6QSTICK0)R>) HSKOPTT6) OPTMOVE2* !OPT50*SKOPTT6R> N* HOPT7l* OPTMOVE*OPT11QSTICK0;;ԠŨ*R>* HOPT14* #RAPFIRE+ QRAPFIRE +R>>+ HOPT12\+Q>z+ PRAPFIRE+ OPT12$>+ QRAPFIRE+R>+ HOPT13,Q>.., P@SCLO7L,POPTIONS29j, !SSOPT14, OPT13Q>9, P@SCLO7,POPTIONS29,SSOPT14 STHOLD-OPT14QSTRIG0-R><- HSKOPT7Z- !OPTDONEx-SKOPT7QSTICK0-R>- HSKOPTT7- OPTMOVE2- !OPT7.SKOPTT7R> ,. HOPT11J. OPTMOVEh. OPT15,. QSCLO.O>. PTSTORE4. QSCLO.O>/ PTSTORE5:/$>X/OPTT15QSTICK0;;v/R> /FNEXTOPT15/R>/ HOPT18/, 0QDIFSTEER18*0O>H0PDIFSTEER18f0R>0 HOPT160Q>0PDIFSTEER180 OPT16R>0 HOPT171Q>%81 P@SCLO7V1POPTIONS29t1 !SSOPT181 OPT17Q>(1 P@SCLO71POPTIONS291SSOPT18 STHOLD 2OPT18QSTRIG0(2R>F2 FOPTDONEd2 QSTICK02R>2 HSKOPTT92%>2Q>G2P@TSTORE473363Q>T3P@TSTORE47r3 OPTMOVE23 !OPT113SKOPTT9R> 3 HOPTT153%>4Q>G&4P@TSTORE47D43b4Q>4P@TSTORE47434 P@SCLO74 !OPTSTART4NEXTOPT15Q>5P@TSTORE47452R53p5)>5 HOPTRET155%>5$>5OPTRET15Q>G6P@TSTORE47$6 STHOLDB6 !OPTT15`6OPTDONE DLI7~6QCHARHOLD;;TURN ON6P;;CHARACTERS6 SCOREDUMPP7 PMINITn7 QDIFFIC7 PDIFFCTRL7T?7T?7T?8T?"8 PTSTORE4@8 VBINIT^8 QNUMLIFE|8 PLIVES08 PLIVES18$>8 FEEDTRANS8$>8 FEEDTRANS8,8Q>;;INIT COLORS8 OTSTORE49P09,N9Q>l9 OTSTORE49P9,9Q>h9 OTSTORE4:P :,>:Q> \: OTSTORE4z:P:,:Q>b;;INTERRUPT: OTSTORE4:PCOL0ALT;;COLORS;,.;Q>jL; OTSTORE4j; PCOL1ALT;,;Q>; OTSTORE4; PCOL3ALT<,<Q><< OTSTORE4Z<Px<,<Q>ڴ< OTSTORE4<P< QMINEGATE=R>,= HRESTARTJ= MINEINIT;;ACTUAL GAMEh=RESTART GLOBINIT;;BEGIN=QDIFFCTRL;;SET GLOB=>;;MOVEMENT=QDIFFDAT19= PRATE1=QDIFFDAT29> PRATE2:>GLOBMOVE; X>GLOBPATHQFLYFASTv>R>>FGLOBCHECK;;CHECK TIME>Q;;TO SEE IF>R>;;FLY AHOULD>HGLOBCHECK;;GO FASTER ?Q>*? PFLYFASTH?GLOBCHECKQCONSOLf?R>?HNOSTART;;SHOULD GAME?Q>;;RESTART ?? PGLOBGATE? CLEARPM? !BEGIN@NOSTART$>;;CHECK IF BOTH8@OVERCHECKQLIVES09;;SHIPSV@R>;;ARE GONEt@ HNOEND@2@ (NUMPLAY@HOVERCHECK;;IF SO THEN@!ENDGAME;;END GAME A NOENDQ(AR>!;;CHECK IF SPACEFAHNOPAUSE;;BAR PRESSEDdAQ>A PGLOBGATEA PAUDC1A PAUDC2A PAUDC3A PAUDC4B$6B%TBPAUSEQ;;ŠrBR>!B FPAUSEBQ>B PGLOBGATEB'C&&CNOPAUSE$>DCGHMOVE1%GLOBGYRObC,C QHPM2C OGHDAT8C PHPM2C GHMOVE2,C QHPM3D OGHDAT84D PHPM3RD GLOBDELAYpD QHPM2DR>2D FHTWISTDR>D HGHSKIPEHTWISTQRANDOM$EM>BET?`ET?~ET?E PTSTORE4E QGLOBGYROE,E OTSTORE4F?2FQHGCHANGE8PF PGLOBGYROnFQ>FPBOUMUSIC;;SOUNDF !GLOBMOVEF GHSKIP2FGHTIME%GLOBGYROGA"G RGHLOOP8@G HGHMOVE1^G$>|GGVMOVE1%GLOBGYROG,G QPM2MOVEG OGVDAT8G PPM2MOVEH GVMOVE2,0H QPM3MOVENH OGVDAT8lH PPM3MOVEH GLOBDELAYH QPM2MOVEHR>H FVTWISTIR>\ I HGVSKIP>IVTWISTQRANDOM\IM>zIT?IT?IT?I PTSTORE4I QGLOBGYROJ,.J OTSTORE4LJ?jJQVGCHANGE8J PGLOBGYROJQ>J PBOUMUSICJ !GLOBMOVEK GVSKIP2KGVTIME%GLOBGYROK GLOBDEL12L%>,L GLOBDEL23JLQGLOBGATE;;ˠƠhLR>;;Ϡ†LHRATE2;;ΤL!GLOBDESTROYLRATE2)>;;SPEED CTRL 2L HGLOBDEL2LRATE1(>;;SPEED CTRL 1M HGLOBDEL1:M $TSTORE5XM:vMENDGAME;ŠҔMQSOUNDACT1;;WAIT UNTILM R>;;LASTMHENDGAME;;EXPLOSIONMQ>;;TURN OFF VB N PGLOBGATE*N$>HNVOIOFFQ>fN PAUDF19N2N(> N HVOIOFFN ZEROSTART;;CLEAR MINESN CLEARPM;;CLEAR PMGR.OQ>`8O PHPOSP2VOQ>tO PHPOSP3OQ>4O PPM2MOVEOQ>O PPM3MOVE PQ>(PP FPP dP$>P%>PLARGEGLOBQGLOB19PP@PM2MOVE7;;PLOTPQGLOB29;;LARGEPP@PM3MOVE7;;GLOBQ36QQGLOB19TQP@PM2MOVE7rQQGLOB29QP@PM3MOVE7Q2Q3Q)>$RHLARGEGLOB&R,DRQSCREENLO;;LOCATIONbRO>P;;OF 'THE END'RPSCLO;;ON SCREENRQSCREENLORO>R PSCLOR$>SENDROWS%>4SPLOTENDQENDDAT9RS P@SCLO7pS2S3S)>SHPLOTEND;;PLOTS,;;ŠħT QSCLO$TO>(BT PSCLO`T QSCLO~TO>T PSCLOT(>xT HENDROWSTQ>UPSKCTL;;FINAL END2UQ>;;SOUNDPU PAUDCTLnUQ>U PAUDC1UQ>U PAUDC3UQ>V PAUDF1"VQ>@V PAUDF3^VENDHOLDQ>|V RSTRIG0V FENDSTOPV RSTRIG1V HENDHOLDVENDSTOPPAUDC1W PAUDC30W PAUDF1NW PAUDF3lW CLEARPMW!BEGIN;;ԠנŨWENDDAT;ԠŠĠWK =======================WK =======================XK ======================= XK =======================>XK =======================\X'GLOBDESTROY;̠ zX CLEARPM;;PM CLEARXQ>XPSKCTL;;INIT POKEYXQ>X PAUDCTLYQ>.YPAUDC1;;SET VOLUMESLYQ> ;;FOR EXPLOSIONjYPAUDC2;;NOISEYQ>Y PAUDC3YQ>Y PAUDC4ZQ> ;;INITIAL NOTEZ PNOTE1 ;;EXPLOSIONZPMSTATUS1;;AT CURRENTZ O>;;GLOBZPMSTATUS0;;LOCATIONZO>[ PMIS1GYRO,[O>J[ PMIS0GYROh[$>[Q>[PBEELINE[SPECTAC&TSTORE4[ QMSTATUS0[PPM2MOVE;;LEFT UP\ QMSTATUS1:\PPM2AUX;;LEFT DOWNX\ QMIS0GYROv\PPM3MOVE;;RIGHT UP\ QMIS1GYRO\PPM3AUX;;RIGHT DOWN\$>\%> ] SPREADIT,*]QNOTE1;;DO SOUNDH]PAUDF1;;PITCH ISf]O>;;8 NOTES APART]PAUDF2;;FROM V1 TO V4]O>] PAUDF3]O>] PAUDF4^#NOTE1;;LOWER NOTE8^ "PM2MOVEV^ #PM2AUXt^ "PM3MOVE^ #PM3AUX^Q>^ PLOTLINE^"PM2MOVE;;DO EXPLOSION _#PM2AUX;;EFFECT BY(_"PM3MOVE;;PLOTTING EVERYF_#PM3AUX;;SECOND LINEd_BEELINEQ>;; OR _ PLOTLINE_ &TSTORE5_$>_SPDELAY10;;DELAY_%>` SPDELAY216`)>T` HSPDELAY2r`(>` HSPDELAY1` $TSTORE5`2`(>a HSPREADIT&aQ>DaPBEELINEba $TSTORE4a2a(>a HSPECTACa$>aEXPLOOFFQ>;;TURN OFFbPAUDF19;;EXPLOSION4b2Rb(> pb HEXPLOOFFbPMSTATUS0;;CLEAR MISSILEbPMSTATUS1;;STATUSbHOLDQ>;;CONTINUE IFbRSTRIG0;;EITHERcFGAMECONT;;BUTTON IS$cRSTRIG1;;PRESSEDBc FGAMECONT`c QCONSOL~cR>;;SHOULD GAMEcHHOLD;;RESTARTcQ>c PGLOBGATEc CLEARPMd !BEGIN2dGAMECONT CLEARPM;;CLEAR PMPdQDIFFCTRL;;ndR>;; IFdFDIFFSKIP;;NOT AT MAX.d #DIFFCTRLdDIFFSKIP$>dCOLORADD1,;;CHANGEeQ9;;PLAYER &"eO>;;PLAYFIELD@eP9;;COLORS^e2|e(>eHCOLORADD1e$>eCOLORADD2,eQDLICOLOR19;;CHANGE GLOBfO>;;INTERRUPT0fPDLICOLOR19;;COLORSNf2lf(> fHCOLORADD2f$>fCOLORADD3,fQCOL0ALT9;;CHANGEgO>;;PLAYFIELD gPCOL0ALT9;;INTERRUPT>g 2;;COLORS\g(>zgHCOLORADD3g!RESTART;;ŠٶgPLOTLINEP@PM2MOVE7g P@PM2AUX7gP@PM3MOVE7h P@PM3AUX7.h #HPM2Lh "HPM3jh QHPM2h PHPOSP2h QHPM3h PHPOSP3h:iFEEDTRANS;ŠiAZiHFEEDTRANS1xi QNUMPLAYiR>i HENDFEEDiFEEDTRANS1%LIFEPOS9i,i QLIVES09iO>jR>,jDFEEDTRANS2JjQ> hjFEEDTRANS2,j OSCORCOL9jP@SCREENLO7j QSCLO09j PSFEEDLOj QSCMED09k PSFEEDMED:k QSCHI09Xk PSFEEDHIvk%SCOREOFF9k$>kSCPRINTQSFEEDLO9;;SCREENkV?;;POSITIONkV? lV?*lV?Hl,flO>ЄlP@SCREENLO7l3l QSFEEDLO9lM>l,mO>8mP@SCREENLO7Vm3tm0m(>m HSCPRINTm ENDFEED:mSCOREDUMP%> nDUMPLOOPQSCDAT8(nP@SCREENLO7Fn3dn)>n HDUMPLOOPn:nSCOREOFF = n!SCDAT A 0>  AnLIFEPOS = oSCORCOL =@6o!GHDAT =======To!GVDAT =======ro"GHLOOP =======o"GVLOOP =======obp GRAFICp QDLISTp PDLLOp QDLISTp PDLLOp%>qDLI2LOOP1QDLI2DAT84q P@DLLO7Rq3pq)>qHDLI2LOOP1q%>q QSCREENLOq P@DLLO7r3$rQSCREENLOBr P@DLLO7`r%>~r QDLLOr P@DLLO7r3r QDLLOr P@DLLO7s:2shDLI2DAT p=p=p=G=====================A=d=d====Ps!DLI7;1 LINE GR.1 & REST GR.7ns;s QRAMTOPsS>sPSCREENLOsS>t PDLIST"t PDLLO@tQ>^t PSCREENLO|tPDLIST;;TRANSFER DLISTtPDLLO;;VECTORS TOt%>;;STARTtQ>p;;DISPLAYtP@DLLO7;;WITHu3;;240uP@DLLO7;;BLANKNu3;;SCAN LINESlu P@DLLO7u%>;;ONE LINE GR.1uQ>;;128+64+6 ANTICu P@DLLO7u 3;;THESEvQSCREENLO;;NEXT TWO BYTES vP@DLLO7;;ARE THE>v3;;START OF\vQSCREENLO;;SCREEN MEMORYzv P@DLLO7v%>;;START GR.7vQ>;;128+64+13 ANTICv P@DLLO7vQSCREENLO;;COPYwPSCLO;;SCREEN.wQSCREENLO;;MEMORY TO ADDLw PSCLOjwQSCLO;;ADDw,;;40wO>(;;FOR STARTwPSCLO;;OF SCREENwQSCLO;;MEMORYxO>;;FOR GR.7x PSCLO;;STARTZxQSCLO;;OF SCREENxxP@DLLO7;;MEMORYx 3;;FORxQSCLO;;GR.7 LINESx P@DLLO7x %> ;;91yDLLOOPQ>;;LINES,yP@DLLO7;;OFJy3;;GRAPHICS 7hy)>a;;128+13 ANTICy HDLLOOPyQ> y P@DLLO7y3y P@DLLO7z3:z P@DLLO7Xz3vzQ>A;;JUMP & WAITz P@DLLO7z 3;;LASTzQDLLO;;LINESzP@DLLO7;;ARE { 3;;DLIST*{QDLLO;;ADDRESSH{ P@DLLO7f{FRAME;Ġ҄{,{ QSCREENLO{O>({ PSCLO{QSCREENLO|O>8| PSCLOV|$>t|BORSTART&TSTORE4|$>|BORSTEP%>|BORLOOPQBORDAT9| P@SCLO7 }3(})>(F} HBORLOOPd},} QSCLO}O>(} PSCLO} QSCLO}O>~ PSCLO6~2T~(>r~ HBORSTEP~ $TSTORE4~2~(>~ HBORSTARTZEROSTART,;;CLEAR&QSCREENLO;;PLAYFIELDDO>b PSCLOQSCREENLOO> PSCLO$>ZEROROW%>ZEROLOOPQ>4 P@SCLO7R3p)>$ HZEROLOOP,ʀ QSCLOO>( PSCLO$ QSCLOBO>` PSCLO~2(>T HZEROROW؁,;;STARTINGQSCREENLO;;LOCATIONSO> ;;IN SCREEN2PPM0BLOCK;;MEMORY OFPQSCREENLO;;SHIP STARTnO> ;;GRAPHICSPPM0BLOCK,Ȃ QSCREENLOO>+ PPM1BLOCK"QSCREENLO@O> ^PPM1BLOCK| :;;DONEBORDAT ==i=ZGLOBINIT; փQRANDOM;;GLOB RANDOMM>;;STARTPGLOBGYRO;;DIRECTION0Q>NPHPM2;;HORIZ POSITIONl PHPOSP2Q>;;SHADOWS PHPM3Ƅ PHPOSP3Q>;;VERTICALPPM2MOVE;;POSITION Q>;;OF GLOB> PPM3MOVE\Q>;;DOUBLE WIDTHzP ;;FOR PM2 & PM3P ж$>ԅPARTLOOPQGLOB19PFRAG19;;TRANSFER2;;PERMANENT.(>,;;GLOB DATALHPARTLOOP;;TO FRAGMENTj%>;;GLOB DATAGLOBPLOTQGLOB18P@PM2MOVE7;;PLOT GLOBĆ QGLOB28P@PM3MOVE73)>< HGLOBPLOTZQ>x PSKCTLQ>PAUDCTL;;PREPARE FOR҇Q>;;APPEARPAUDC1;;SOUNDQ>, PAUDC3JQ>2h PNOTE1Q>6 PNOTE3ˆGLOBSLIDE#HPM2"HPM3;;MOVE GLOBQHPM2;;TOGETHER PHPOSP2: QHPM3X PHPOSP3vR> FFLYINIT$>Љ SLDEL12%> SLDEL23*)>H HSLDEL2f(> HSLDEL1 #NOTE1 #NOTE3ފ QNOTE1 PAUDF1 QNOTE38 PAUDF3V!GLOBSLIDEtFLYINITQ>PAUDC1;;TURN OFFPAUDC3;;APPEAR SOUND΋ PAUDF1 PAUDF3 X;٠( QRANDOMFM>dPFLYGYRO;;INIT FLY DIR.Q>PFLYDURATE;;DIR. TIMERPFLYTIME;;& SPEED܌PAPPDELAY0;;INIT SHIPPAPPDELAY1;;APPEAR DELAYS PACTTIME06 PACTTIME1TPFLIPTIME0rPFLIPTIME1PP;;FLY STARTS̍P;;OUT SLOW PFLYFASTQ>& PHMS2DQ>~;;HORIZ STARTbPHMS3;;POSITIONQ>PMIS2MOVE;;VERT STARTQ>;;POSITIONڎ PGLOBGATEQ>;;INIT POKEY PSKCTL4Q>R PAUDCTLp:MINEINIT;ԠӬ$>ʏ MINELOOP, QSCREENLOOMINEINC9;;INITIAL$PSCLO;;MINEB2;;COORDINATES`QSCREENLO~ OMINEINC9 PSCLO2ؐ &TSTORE4$>MINELINE%>2MINEPLOTQMINEDAT9PP@SCLO7;;PLOT ONEn2;;LINE OF MINE3)>ȑ HMINEPLOT,QSCLO;;NEXT LINE"O>(@ PSCLO^ QSCLO|O> PSCLO(>8֒ HMINELINEQ> PSKCTL0Q>N PAUDCTLlQ> PAUDF1Q>Ɠ PAUDF3$>MSOUND1&TSTORE6 ,>Q>\ OTSTORE6z PAUDC1V? PAUDC3ԔQ>PQ>.PL SOHOLDQjR> HSOHOLD2ĕ(> HMSOUND1Q> PAUDC1< PAUDC3Z PAUDF1x PAUDF3PQ>ҖP SHOLDQR>, HSHOLDJ $TSTORE4h(> FMINEFIN !MINELOOP— MINEFIN:MINEINC K==Y=X; *** graphics routine ***&X; load graphics # into : GRAFICX5;;store on stackv$>`;;IOCB6 for screenQ> ;;CLOSE commandPB9;;in command byteИ V;;do the CLOSE$>`;;the screen again Q>;;open command*PB9;;in command byteHQ>NAME;;name is "S:"fPD9;;low byteQ>NAME;;high bytePE97;;get GRAPHICS nޙPK9;;graphics modeM>;;get high four bitsN>;;flip high bit8L> ;;read or writeVPJ9;;n+16,n+32 etc.t V;;set up GRAPHICS n:;;all done-INIT;̠ΠƠŠΚ$>ZEROINITQ> P9(2F(>d HZEROINIT:NAME AS:A=PMINIT;͠Рܛ ;;;PM GR.QRAMTOP;;24 PAGESS>;;BELOW RAMTOP6PPMBASE;;STORE IN PMBASETPPMSETUP;;AND ITS SHADOWrQ>.;;DOUBLE LINE RES PSDMCTLQ>8;;PRIOR 8+16+32̜ PGPRIORQ>;;SINGLE WIDTHP;;FOR P0 & P1&P ;;& MISSILESDP bQ>;;DOUBL WIDTHP ;;FOR P2 & P3P м,;;VERTICALڝQPMSETUP;;MISSILEO>;;STARTINGPMIS0MOVE;;POSITION4PMIS1MOVE;;HIGH BYTERPMIS2MOVEpO>;;PM0 - PM1PPM0MOVE;;VERT HIGHPPM1MOVE;;BYTE STARTʞO>;;PM2 - PM3PPM2MOVE;;VERT HIGHPPM3MOVE;;BYTE START$PPM2AUX;;PM2 - PM3BPPM3AUX;;AUX. HIGH`Q>;;ENABLE PM/GR~ PGRACTLCLEARPM%>;;CLEAR PMQ>;;MEMORY؟ PSCLO QPMSETUP PSCLO2PMCLEARQ>P P@SCLO7n, QSCLOO>Ƞ PSCLO QSCLOO>" PSCLO@;^ QSCLO| SPMSETUPR> HPMCLEAR֡Q>;;Ҡ PHITCLR:0VBINIT;ˠNQ>DLIS'lPQ>DLIS;;DLI STARTPƢQ>P$> %>> DLIPOKE1C\,z OTSTORE4PDLICOLOR193ԣ32(>. HDLIPOKE1L$>j%> DLIPOKE2C,Ĥ OTSTORE4PDLICOLOR2911<2Z(>x HDLIPOKE2Q> PNCOLORSҥ%>VBLANK';;VB START$>VBLANKQ>, SETVBVJ:hSHIP;ҠРX;[ N ] TO [ NW ] CLOCKWISE3 =====>=>=k=A=======¦3 ===>==|==========3 ===p=<==<=p========3 ====|==>=========3 ===|=|=8=8=========:3 ===8=>==|=========X3 ===<==<==========v3 ===|==>=8=========GLOB1;à X;LEFT SIDEЧE =====?===========?=====GLOB2;RIGHT SIDE E =====================*FRAG1; HX;LEFT SIDEfE =====================FRAG2;RIGHT SIDEE =====================MINEDAT;Šި' ==?=========3 ?=W=====_==|=?=}=}====_=3 ==_==?=}=}====_==|=?=W==8? ==========?=========VCHARDAT;Ҡt ======= 8=8=8=8=8==8= f=f=f=====Ω l==l=l=l==l= 8======8=  ===8=p===( |=l=h=====F 8=8=8=====d =8=0=0=0=8== 8== = = ==8= l=8==|==8=l= =======ܪ ====8=8=x= ======= =====8=8=6 ===8=p==@=T =======r ======= ======= ===~====̫ ======= ======= =======& =======D =======b ======= =8=8==8=8== =8=8==8=8=x= ==8==8===ڬ ======= =p=8=~=8=p== ===>=8==8=4 =======R =======p ======= ======= =======ʭ ======= ======= =======$ =======B =8=8=8=8=8==` =======~ ======= ======= =======خ ======= ======= =======2 =======P =======n ======= =8=8=8=8=8=8= =======ȯ =====|=8= ======= ==|=|=|===" =======@ ===8=p===^ |=p=p=p=p=p=|=| @==p=8==== >======>= =8=|=====ְ =======3 =============== GLOBEND0