@L}5 _$% l0$)$$Hȱ$ UhL" `e$$%`$%`  R@P!( L(1   Y I`  d  Ld M * @  $ % CC$$)%1 Udߥ$9%: !0 S$% DD˙`  }J)Lr d M * @  $ % CC$$)%1 Udߥ$9%: !0 S$%} DD˙`  }J)Lr J  ((  p L ()   J}L= ( L 0q A    IB JC;? D W } LL  ` W )LA!  ߰")-݆ p" } $G@LL 08`Q")<2Q0 -G$Ș݆ UL# ; p8(()(0ʥ)NQ` }$GȘ݆LU )L ݆ L GȘ ݆LL )W>Z   HH)H }p h  hyhy D L> L JJ    ! LA*` BF }7'8  M HN H` 8 Z  \LdJJ!"! GFE@F (!L }EE !E^ ^ E E7EȩEdE/EȩE  D } .L }  ;F d  ;?F7F? ( .   Z D LL d } . D  L    p  E` , d)  D L) 0BM݊L݉} ML  N݆ L NLML [ TEqEHȱEqEh 0Gȹ G} HLL GɛL  LFREE SECTORS G) *Gȩ GȽG GȌ*jj >G} C8jJ3j2CD( C202C ԠBX` N 1? l LlD:RAMDISK}.COMLu L1 L ;LHL  T`  `1  ɐ     `TU  } L ? .  t`GBJ ~DEHI B V0dV!}QDEHI VF9 ,0 ,0 s0hhL  L` H hDHEh"}DEL8HI4 0 HI,0 0  9 .G VLO#},0 L4*IJ`llD1:AUTORUN.SYSNEED MEM.SAV TO LOAD THIS FILE.D1:MEM.SAV J y08 B|DEHI$} V0 0`B;DEL`?<0LV`@ʆ v s? F0Ξ05: [ BDEHI%} VY8 B V  @  /DE `E:D1:DUP.SYSERROR-SAVING USER MEMORY ON DISKTYPE Y TO &}STILL RUN DOS B;DE J  (` 9 V⪍ ઍ  -'}LLu ÝDEHILV 9 .l 9 .l  `` s$B BH(}I|DE V BLV nB,DE JLV B V BLVDEIʩ BꭝLu  } 3E:}DISK OPERATING SYSTEM II VERSION COPYRIGHT 1984 ATARI CORP.A. DISK DIRECTORY I. FORMAT DISKB. RUN CARTRIDG*}E J. DUPLICATE DISKC. COPY FILE K. BINARY SAVED. DELETE FILE(S) L. BINARY LOADE. RENAME FILE M. RUN AT ADDRES+}SF. LOCK FILE N. CREATE MEM.SAVG. UNLOCK FILE O. DUPLICATE FILEH. WRITE DOS FILES P. FORMAT SINGLEL !N',}#"&))9(&*)/h)''-&؆莟R'S  vL/ˢ L }Insert DOS 2.0s, type Y Λx -}DEfHI 1莏#q! @ y0ɛ8A0,' ȅ 1 1ild! 1L!NO SUCH ITEMSELECT.} ITEM OR FOR MENU! 0 .z:*{}.|{ 1 0 0JB 18L%|DL/}%DIRECTORY--SEARCH SPEC,LIST FILE?[# 0 0 &|D3" 1L!NOT A DISK FILEN !B 1L!E# 1 !BD0}ED:}:1BJ|DE 1DEBHI 1 h0ߢ 0.1}  0?詛 1 y0YЛ 1 ;#L" ;#L! BL1TYPE "Y" TO DELETE...DELETE FILE SPEC2}COPY--FROM, TO?OPTION NOT ALLOWED736 FREE SECTORS COPYING---D1:DIRECK.COMl# 0|D .L/%#3}##JB|DE 1BHID#E 1#0: B 1L!#͑### B 1#c$0SY4}S1}:## # # .#Ƚ# # 𩛙## 1,#PD#ELJ- <.BJD#E 5}1 1HH 0hh|DL%1}:̳# L% #D#EL% 1 0 . .0O% 1L!WILD CARDS NOT A6}LLOWED IN DESTINATION 0 <.|K}N 2 FORMAT. t* 5) 1L!`) 0NΞ 0 L1) 1 L!BAD LOAD FILELOAD FROM WHAT FILE?) 0 ?}0#B 1L!WHAT FILE TO LOCK?) 0 0$B 1L!WHAT FILE TO UNLOCK?DUP DISK-SOURCE,DEST DRIVES?TYPE "Y" IF OK TO US@}E PROGRAM AREACAUTION: A "Y" INVALIDATES MEM.SAV.FE! +L1   `*  70 2 2A} 0.* 1 y0 0)INSERT BOTH DISKS, TYPE RETURN^, 1 y038逍 N, 1L! ,B}C, t*  Lx+, 0 ^, 1 y0 , ,0,0 ,L+ ,I0 ,Vǭ0C}Ξ, 0 }, 1 y0C,ШC, 0K'!" H H 'h h Lx+!EF 5L1L!D,I,HhD}` NOT ENOUGH ROOMINSERT SOURCE DISK,TYPE RETURNINSERT DESTINATION DISK,TYPE RETURNE}`  `8 rL1`-* 1P* 1 y0Y`hhL!NAME OF FILE TO MOVE?- 0 0|DL% <.F},^ 1 70 0 .@L# .BJ 1  DEHIB V L1 ,} 1 70,L.  G}JB|,#P#DE 1 HI BDEHHII 1 B 1 ,^ 1 70,0La- B V,#PH},^ 1 70 0L#L!-* 1P* 1 y0Yj383}mm ݭI}}`8}``|* ? ɛ,`|:-)| / 1L!`DESTINATION CANT BE DOJ}S.SYS0 0H{ 24Δ 28/L!/) 2 Π 2 0 ξK}hAΞB,0 J 1 BDEHI,HÝDE 1HIHIDELSAVE-GIVE L}FILE,START,END(,INIT,RUN)O S0 1`BDEPHI V` S0H 1 L!M}0 0 1L~0`PLEASE TYPE 1 LETTER,0`hhL! 70 1L0L<1 ,;ɛ7,"ɛ:ݦ1ݥN}A"D|ݤD|ȩ:|ȩ|ɛ,,(/+.ީ1 1,ɛ`轤{NAMEO} TOO LONG B VL!` L1I H1EΝDL1|mDiE` V0`8d/8 i:222 1 LP}!ERROR- 138ɛ+,' 20*.. өr2 1``2TOO MANY DIGITSINVALID HEXAQ}DECIMAL PARAMETER800 0 8 00`,0'D800 H,ɛh`2L1NEED D1 THRU D8uR} ECIMAL PARAMETER800 0 8 00`,0'D800 H,ɛh`2L1NEED D1 THRU D8uUUW7 ɇ 'UUWUUWUUWjWfbWjWn&WjWfnWjWbWjWUUWT}UUW7'UUWUUWUUWjWfWjWn&WjWfWjWbWjWUUWU}UUW7'UUWUUWUUWjWfWjWf&WjWfWjWbWjWUUWV}UUW7'UUWUUWUUWjWfWjWn&WjWfWjWbWjWUUWW}X}dY}dg| WA -SOURCE FOR La Machine -By Steve Alpert - MODIFIED 12/16/85 FOR ANALOG MAGAZINEAX; F=EK=EI( OPEN 2!X;CHA [}NNEL#,MODE,FILESPEC LABEL<X;FIRST P1=P1*16F  PQ> ZT?dT?nT?xT?>;;CHANNEL # GOES IN XREGX;!X;NOW P \}UT THE MODE NUMBER INTOX;THE AUX BYTEX;Q> PJ9;;ICAX1Q>PK9X;%X;NOW GET THE LOW AND HIGH ADDRESS ]}X;OF THE FILESPECX; Q>4 PD9;;ICBAL Q>5 "PE9;;ICBAH,X;6$X;INSTALL THE COMMAND AND EXECUTE@X;J Q> ^};;OPENTPB9;;ICCOM^ V;;$CIOVhX;rX;| AWRONG # PARMSAX;X;X; CLOSE  X;CHANNEL#X; _} Q> T?T?T?T?>&Q> ;;CLOSE CMD0PB9: VDX;NX AWRONG #OF PARMSAblvX;X;X `};X************************** MCADD     Q ,O>  DSKIPIT # SKIPITP Q a}  ,O4   DNOMATH* # 4NOMATHP >HR% A*** WRONG # PARMS. - MCADD ***A\fpz X************** b}************** ZERO   Q>P , A*** NEED ONE PARAMETER FOR - ZERO ***AX;!X************ c}***************** MCINC    AINK - too many parms.A  ,$O>.8Q B,LO>V HSKIPIT` d} # j SKIPITtP ~X;X************************* MCDEC   ;S>' A*** NO PARM e}S ALLOWED - MCDEC ***AX; X************************* PAINT   ($>2%><@LOOPQ 9F P@ 7P f}2Z3d) n H@LOOPxMCADD =("  H@LOOP' A*** MUST BE 4 PARMS, ALPERT! ***AX*********** g}****************I=JX** VIDEO EQUATES **X;SDLSTL0STICK0xSTRIG0COLOR0COLOR1 h}COLOR2"COLOR3,COLOR46SCHBAS@CHBASE JCOLPF0TCOLPF1^COLPF2hCOLPF3r i}COLBK| TRIG0І WSYNC Ԑ NMIENԚATTRACTMDMACTLԮSDMCTL/VDSLSTX*PM GRAPHICS EQU j}ATESX;HPOSP0HPOSP1SIZEP0SIZEP1 COLPM0COLPM1PCOLR0PCOLOR1& k}PRIOR0GPRIOR:PMBASEDHITCLRNGRACTLXFRMINDbSETVBK\lXITVBKbv STRIG l}SCRAM TEMP SCREEN PLAYERPACKPNTHARDWAREм TEXT POKMSK IRQEN RND m}X;GINIT$> ?0QDLIST29P9 2*(> 4H?0>$>HQ>;;CLEAR PMRWIPEPMP"9;;DATA BEFORE\2;; n}STARTINGfHWIPEPM;;AGAINpQ>p;;KILL THEzPPOKMSK;;BREAKPIRQEN;;KEYQ>> PSDMCTLQ>B PSCRAM PTEMPQ> o}b PSCRAM PTEMPQ> PSDLSTLQ>`PSDLSTL QC1 P QC2$ P. QBAK8 PB QC3L PV p}X;` SETDLIj CREDITt $>5FLASH~ %>4FLASH Q> SETVBK X; ";I LIKE TO NAME STORAGE ARRAYS ;AFTER MEMBERS q}OF MY FAMILY. Q>4NANCY PARRTAB Q>5NANCY PARRTABHI Q>4ANGELA PARRTAB Q>5ANGELA PARRTABHI Q>4N r}ORTON PARRTAB Q>5NORTON( PARRTABHI2 Q>4ALPERT< PARRTABF Q>5ALPERTP PARRTABHIZ Q>4BAGGINSd PAR s}RTABn Q>5BAGGINSx PARRTABHI Q>4RAFF PARRTAB Q>5RAFF PARRTABHI Q>4BAK PARRTAB Q>5BAK t}PARRTABHI X; Q>4N1 PNUMTABLE Q>5N1 PNUMTABLE_HI Q>4N2 PNUMTABLE Q>5N2" PNUMTABLE_HI u}, Q>4N36 PNUMTABLE@ Q>5N3J PNUMTABLE_HIT Q>4N4^ PNUMTABLEh Q>Mr PNUMTABLE_HI| X; !BIGBO v}X X; fSTARTCOL ============================= WIDTH H w}EIGHT ACROSS DOWN COLUMN  PALETTE U=== LFTLIN  RGTLIN  !BOXLOCLO =V====_= x} !BOXLOCHI b=g=l=q=b=g=q BOXNUM X; X;& BIGBOX0 Q>: PSCRAMD Q>aN PSCRAMX Q>b PTEMPl Q y}>uv PTEMP $> %> LINELOOP Q> P@SCRAM7 P@TEMP7 3 )> HLINELOOP 0 FSIDES MCADD SCRA z}M=( MCADD TEMP=( %> !LINELOOP SIDES Q>* PSCRAM4 Q>a> PSCRAMH Q>R PTEMP\ Q>bf PTEMPp {} X*SCRAM IS THE LEFT SIDEz X*TEMP IS THE RIGHT SIDE X; Q>| PHEIGHT %> SIDELOOP QLFTLIN P@SCRAM7 QRG |}TLIN P@TEMP7 "HEIGHT FOTHERBOXES MCADD SCRAM=( MCADD TEMP=( !SIDELOOPX;OTHERBOXES$Q>. PB }}OXNUM8 BOXLOOPBQ>L PWIDTHVQ> ` PHEIGHTj $BOXNUMtQBOXLOCLO9~ PSCRAMQBOXLOCHI9 PSCRAM)PAINT ~}SCRAM=BOXDATA=WIDTH=HEIGHT #BOXNUM QBOXNUMR> HBOXLOOPQ> PBOXNUMX; CREDIT2 NUMBERS BAL }L  PMSET$> &PALDEX( NXTCOLR2$ ROTATOR;;ONLY IN ANALOG VERSION< !JSTICKFX;PZ INTERPRETd $BRICKNUMn }QBRICKMAP9x PTEMPQBRICKMAP_HI9 PTEMP%>?0 Q@TEMP7 MMASK8 PSTORAGE83)>H?0 #BRICK }NUM $BITENUMLSTORAGELSTORAGE LSTORAGEPDATABYTE9"%>, #BITENUM62@(>xJHINTERPRETT 'BRICK }NUM^ 'BITENUMh $FRAMECNTr QFRMADR9| PSCRAMQFRMADR_HI9 PSCRAMQ> PWIDTHQ> PHEIGHT*PAINT }SCRAM=DATABYTE=WIDTH=HEIGHT:X;%X*THIS ROUTINE MOVES THE DATA FROM X*THE ARRAY (USED BY#X*) T }O A ONE OF THE SIX!X*STORAGE ARRAYS,,, X*,,,.X; SNAPSHOT& $FRAMECNT0 QARRTAB9 }: PPACKPNTDQARRTABHI9NPPACKPNTX%>b MLOOPlQDATABYTE8vP@PACKPNT73)>x HMLOOP:X;X;%X* }THIS SECTION ALLOWS THE CHANGINGX*OF THE PALETTE BY JOYSTICKX; JOYPALQ>;;CHANGE COLOR.PWDWCOLOR;;OF TEXT } WINDOW TO INDICATE MODEQ> PX; ?0 NUMBERS*Q4R>> F?0.5HX; LDA #$FFRX; STA 754\Q>f PW }DWCOLORp:zX;?0.5QSTRIGH?1X;HERE, TRIG PRESSED NXTCOLR?2QSTRIG;;WAIT FOR RELEASEF?2X;HERE, WE }START TESTING FOR$X;JOYSTICK MOVEMENT,WHICH CHANGESX;THE COLOR IN USE.X;?1QSTICK0R>;;NEUTRAL?F?0;;YES S }TART AGAIN'X;HERE STICK IS MOVED,CHECK VALIDITYR>;;UP,INCREASE HUEH?3$ $PALDEX.QBAK9;;GET CURRENT COLOR8,B }O>L D?2.5VM>;;WRAPAROUND`?2.5 COLSETj!?0tX;~X;X;HERE IT WAS NOT В?3R> ;;DOWNH?4 $PALDEX } QBAK9, O>;;-16 E?3.5L>;;WRAPAROUND?3.5 COLSET!?0#X;HERE, IT IS NEITHER UP OR DOWN?4R>;;RIGH }T H?5 $PALDEX QBAK9(52M><R>F H?4.5P7ZM>d COLSETn!?0x ?4.5O> PSTORAGE7M> LS }TORAGE COLSET!?0X;$X;HERE,IF NOT LEFT THEN NOT VALID?5R> ;;LEFT H?5.6 $PALDEX QBAK95M>R }> H?5.5"7,M>6L>@ COLSETJ ?5.6!?0TX;^X;h ?5.5,r O>;;-2| PSTORAGE7M> LSTORAGE CO }LSET!?0X;X;X;X; COLSET PBAK9 DOPALETTE?0QSTICK0R>;;WAIT FORH?0&:0#X*THIS ROUTI }NE, DISPLAYS:X*THE COLOR REGISTERS VALUESD"X*ON THE SCREEN IN HEXADECIMAL.NX;XX;bX;lv NUMBERS%> }$> ?0QBAK95M>,W?W?W?W?? QHEXCHAR8, O>;;-32  PLDIGIT7 M>*?4 QHEXCHAR8> },H O>;;-32R PRDIGIT\QNUMTABLE9f PPACKPNTpQNUMTABLE_HI9zPPACKPNT%> QLDIGITP@PACKPNT7 QRDIGI }T3P@PACKPNT70I?0X;:X;&X**********************************$X* EXTRACTS AND EXPANDS THEX*DA }TA WHICH WAS CRUNCHED BY#X*, AND MOVES IT TO THE X*SCREEN.$X;. RECALL8 $FRAMECNTB QARRTAB9L PPACKPNTV }QARRTABHI9`PPACKPNTjQ>Bt PSCREEN~ PTEMPQ>bPSCREEN PTEMPQ> PACROSSQ> PDOWNX };ROLL$>%>Q@PACKPNT75 M>V?V?(V?2V?<V?FV?P PSTORAGE9Z2d7n5xM>0V?V?V? }V? PSTORAGE9275M> V?V? PSTORAGE927M> PSTORAGE9"MCINC PACKPNT,X;6$>@%> }JZLOOPQSTORAGE9T?^QBRICKVAL8h PSTORAGE9r2|(> HZLOOPX; XPANDQ> PHEIGHT$>%>YPANDQ }STORAGE9 P@SCREEN7MCADD SCREEN=( "HEIGHT HYPANDQ> PHEIGHTMCINC TEMP PSCREEN QTEMP&P }SCREEN02:(>D HYPANDNX;X "ACROSSb FDROWl !ROLLvDROWMCADD TEMP= PSCREEN QTEMPPSCREEN }Q> PACROSS "DOWN FRETURN !ROLL RETURN:$X********************************X;X;X*THIS IS THE TEX }T DATA AREAX;  HEADER/ ALA MACHINE VERSION 2.0A  ======*! ======== }=4! =========>! =========H! =========R A By Steve Alper }t 1985A\! =========f! =========p! =========z! ==== }=====! =========! =========! =========! == }=======! =========! =========! =========! }=========! =========! =========! ======== }=! =========! =========! =========! ====== }===! =========$! =========.! =========8! ==== }=====BX;LV OPTIONS`(N1 A $2C8:  AjFS1 A6 Frames At2N2 A $2C4: | }Š| A~(N3 A $2C5: | D: | A A٠A*N4 A $2C6: || A }FS2 A$06 VBC A/ A  A A Snapshot A ONOFF$ AON }AX;X;!X*THIS LITTLE SECTION PROVIDESX*THE OPENING CREDITS AND#X*AFTER A COUPLE OF SECONDS, THE%X*ROUTINE GOES }TO A 6 LINE DISPLAY X; CREDIT Q>4HEADER(PLMS2 Q>5HEADER< PLMSFX;PQ>;;SET UPZ P;;DELAYd:nX;x }CREDIT2 TLOOPQR>;;IS THE DELAYHTLOOP;;3 SEC. YET?Q>4OPTIONS;;YESPLMS;; PUT OPTIONSQ>5OPTIONS; };ON SCREEN PLMS:X;X;&X*THIS ROUTINE PUTS AND REMOVES THEX*BALL NEXT TO THE FRAME.X;BALL$FRAMECNT } QBLOCTN9" PSCREEN,QBLOCTN_HI96PSCREEN@Q>J PWIDTHTQ>^ PHEIGHTh+PAINT SCREEN=BALLDATA=WIDTH=HE }IGHTr:|X; NOBALL $FRAMECNT QBLOCTN9 PSCREENQBLOCTN_HI9PSCREENQ> PWIDTHQ> PHEIGHT }-PAINT SCREEN=NOBALLDATA=WIDTH=HEIGHT:X; X; PMSET Q>;;INIT POSITION& PROW0 PCOL: Q>8;;INIT HORZD }PHORZN Q>X PPMBASEb Q>l PPCOLR0v X; Q>8;;INITIAL POSITION PHPOSP0 $> Q>;;PLAYER SHAPE PMSP"9 }2 (> HPMS X; Q>;;ENABLE PGRACTL;;PLAYERS PGPRIOR :!X; !X;! X*THIS IS THE JOYSTICK-DRIVEN !"X*PLAYER } ROUTINE USED IN MOVING*!X*THE BRICK AROUND FOR DOING4!#X*ARTWORK.THE ROUTINES HERE ALSO>!X*RESPOND TO THE KEYPRESSES.H!#X* }EVERYTHING IS CALLED FROM HERER!X;\!X;f!p!NXTFRM NOBALLz! $FRAMECNT!2! (FRAMESYS!H?0!$>!?0&FRAMECNT! } RECALL!X; JSR INTERPRET! BALL!X;!!X;! JSTICK! TRIGGER"QKEY" FNOSV"X;HERE, SOME KEY IS PRESSED$" R> }(;;R."H?08" RECALLB" INTERPRETL" !CONTINUEV"?0R>6;;-;;T"H?2" $SNAPFLAG" HZERO" #SNAPFLAG" CHGWORD" !CONTINUE" ZERO$>" &SNAPFLAG" CH }GWORD# !CONTINUE #?2#R>';;INV KEY#H?3(# NXTCOLR;;SWITCH COLORS2# !CONTINUE<#?3R>!;;SPACEBARF# FNXTFRMP#R> };;B KEYZ#H?4d# WHEELHOUSEn# !CONTINUEx#?4R>?;;A KEY#H?5# ANIMATOR# !CONTINUE#?5R>:;;D KEY# H?5.5# DO }DATA# !CONTINUE#?5.5R> ;;U KEY#H?6# DODATA# !CONTINUE#?6R>;;C KEY#H?7$$>d;;VIOLET$ &WDWCOLOR$ C }OPIER"$$>,$ &WDWCOLOR6$ !CONTINUE@$?7R>>;;S KEYJ$H?8T$ Q>B;;RED^$ PWDWCOLORh$ GETSPECr$Q>|$ PWDWCOLOR$ R }ITEFILE$ !CONTINUE$?8R>=;;G KEY$H?9$ Q>;;BLUE$ PWDWCOLOR$ GETSPEC$Q>$ PWDWCOLOR$ READFILE$ !CONTI }NUE$?9R> ;;P KEY$H?10% JOYPAL% !CONTINUE%?10&%R>;;4 KEY0%H?11:%Q>D% SYSTEMN% !CONTINUEX%?11R>;; }5 KEYb%H?12l%Q>v% SYSTEM% !CONTINUE%?12R>;;6 KEY%H?13%Q>% SYSTEM% !CONTINUE%?13R>;;* KEY%H? }14% DIRECTORY% !CONTINUE%?14% CONTINUE% QSTRIG& HNOPE &X;HERE, BUTTON IS PRESSED&X; &QROW*&,4&U?>&U?H& }>R&QBRICKMAP_HI9\&PSCREENf&QBRICKMAP9p& PSCREENz&,&OCOL&D?15&#SCREEN&?15PSCREEN&$>&%>&? }16QCOLINUSE& P@SCREEN7&MCADD SCREEN=(&0&H?16& INTERPRET&QSNAPFLAG;;0=OFF'FNOPE;;1=ON' SNAPSHOT;;SAV }E WORK'NOPE$' $STICK0.'(>;;AT REST?8'F?17;;YES,RNRB'X;HERE, STICK IS MOVINGL'(>V'F?17`'(> j'F?17t'(>~' }F?17'(> 'F?17'X;HERE, IT IS A PROPER MOVE' (>;;UP?' HNOTUP'!UP'NOTUP(> ;;DOWN?' HNOTDWN'!DWN' NOT }DWN'X;HERE, IT IS LEFT OR RIGHT'(> ;;LEFT?( FLEFT (X;HERE IT IS TO THE RIGHT(QHORZ;;GET HORZ.(,((O>2(><( (R }BORDRF(F?17P(#COLZ(&HPOSP0;;MOVE HORZ POS.d(&HORZ;;SAVE NEW POS.n( LETGOx(?17!TRIGGER(X;(LEFT( QHORZ(, }(O>( RLBORDR(G?17(>("COL( &HPOSP0( &HORZ( LETGO(?18!TRIGGER)X;)UP)X*FIRST WE TEST THE BORDER") }$ROW,)F?186)$X*IF IT IS ZERO WE ARE ALREADY AT@) X*THE TOP.J) QPPOSLO9T) PPLAYER^) QPPOSHIh)PPLAYERr)"X*FIRST WE }WILL WIPE OLD PLAYER|)%>)Q>)WIPEITP@PLAYER7)3))>) HWIPEIT)"X*NOW WE ESTABLISH NEW POSITION)X*AND DRAW T }HE PLAYER THERE.)0) QPPOSLO9) PPLAYER) QPPOSHI)PPLAYER)&ROW;;SAVE NEW ROW#*X;*%>*Q>;;BRICK SHAPE&* } DRAWIT0* P@PLAYER7:*3D*)>N* HDRAWITX* LETGOb*?19!TRIGGERl*X;v*DWN*$ROW*(>*F?19* QPPOSLO9* PPLAY }ER* QPPOSHI*PPLAYER*%>*Q>*WIPE2P@PLAYER7*3*)>* HWIPE2+2 + QPPOSLO9+ PPLAYER + QPPOSHI*+PP }LAYER4+&ROW>+X;H+%>R+Q>\+ DRAW2f+ P@PLAYER7p+3z+)>+ HDRAW2+ LETGO+?20!TRIGGER+X;+X;++FX;LE }TGO WAITS FOR THE JOYSTICK TO BE CENTERED AFTER IT HAS MOVED,+EX;BUT WILL ONLY WAIT 8 JIFFIES. THIS ALLOWS CONTINUOUS MO }VEMENT.+X;+ X; .LOCAL+X;+ LETGOQ>+P,?2QSTICK0,R>,F?0$, ?1Q.,R>8,F?0B,H?2L, HLETGOV,?0:`, }X;j,X*DRAWS THE COLOR BARt,~,X;, NXTCOLR, NOBALL2,Q>, PDOWN, $PALDEX,2,(>,H?0,$>,?0&PALDEX }, BALL2,Q>- PSCREEN -Q>u-PSCREEN-X;(- DOBAR%>2-QBRICKVAL9<-BARP@SCREEN7F-3P-)>Z- FNXTLd-!BA }Rn-NXTLMCADD SCREEN=(x- "DOWN- HDOBAR- SLOWDOWN-QBRICKVAL9- PCOLINUSE-:-X;- SLOWDOWN-Q>-P- W }AITQ-R> - HWAIT-:.X;.6X*THIS PART TOGGLES THE WORDS ί ON THE SCREEN..". CHGWORD,.Q>6.P@. Q>4ONOF }FJ. PSCREENT. Q>5ONOFF^.PSCREENh.%>r. QSNAPFLAG|. FPUTOFF. WRITE1.QON8. P@SCREEN7.1. HWRITE1. ?0Q }.H?0.:.X;. PUTOFF. QOFF8. P@SCREEN7.1/ HPUTOFF/ ?1Q/H?1&/:0/X;:/X;D/#X* SIMPLY CHANGES THE }# OFN/$X*FRAMES IN THE SYSTEM AND CYCLESX/!X*THE FRAMECNT BACK TO ZERO TOb/X*AVOID PROBLEMS.l/X;v/ SYSTEM/5/ NOBALL/ }$>/ &FRAMECNT/ BALL/7/ PFRAMESYS/>/ QHEXCHAR9/,/ O>;;-32/%PFS1;;PUT THE CHARACTER ON SCREEN/:0X; 0 }0X; 0$X*THIS ROUTINE IS RESPONSIBLE FOR*0X*THE FLASHING EDIT CURSOR.40#X*IT ALSO SCANS THE KEYBOARD FOR>0$X*A } KEYPRESS EACH VBC.H0"X*DEF. VERTICAL BLANK INTERVAL.R0X;\0 FLASHf0 KEYSCANp0Q>z0P0"VBC0$VBC0HOUT0$> }0&VBC0QRND0 PPCOLR00OUT!XITVBK0X;0X;0 VBC 0 XREG 0X;1 KEYSCAN1Q1R>$1H?0.1Q>81PKEYB }1:L1?0V1R>6;;< KEY`1FOKj1R>(;;R KEYt1FOK~1R>;;B KEY1FOK1 R>-;;T1FOK1R>';;INVERSE KEY1FOK1R>!;; }SPACEBAR1FOK1R>?;;A KEY1FOK1R>:;;D KEY1FOK1R> ;;U KEY2FOK 2R>>;;S KEY2FOK2R>;;C KEY(2FOK22R> }=;;G KEY<2FOKF2R> ;;P KEYP2FOKZ2R>;;4 KEYd2FOKn2R>;;5 KEYx2FOK2R>;;6 KEY2FOK2R>;;* KEY2FOK2)Q }>;;RETURNS A ZERO IF NO VALID PRESS2 OKPKEY2:2X;2X;2&X*THIS PART OF THE CODE SETS UP THE2!X*POINTERS AND STUFF F }OR ɧ2#X*THE DLI IS TO NEEDED TO OBTAIN2#X*AN INDEPENDANT TEXT DISPLAY ON3X*THE BOTTOM OF THE SCREEN.3X;3 SETDLI"3 } Q>4DLI,3 PVDSLST63 Q>5DLI@3PVDSLSTJ3Q>T3 PNMIEN^3:h3X;r3#X*THIS IS THE ACTUAL DLI ROUTINE|3X;3DLI353A }353 QTXTCOLOR3 $WDWCOLOR3 PWSYNC3 PTEXT3 &HARDWARE373>37394X;4X;4&4X;04"X* THIS SECTION PROVIDES A } DISK:4 X* DIRECTORY ON SCREEN FOR D1D4X;N4 DIRECTORYX4 WIPE_DIRb4 QHORZl45;;SAVE HORZ POS.v4Q>4 PHPOSP04 CLOSE } 4OPEN ==ASTERISK4C4 GNOTOPEN4 Q>4DLIST24P04 Q>5DLIST24P14 Q>;;BLUE4P;;GR2 BACKGROUND4P };;GR2 BORDER4Q> ;;BRIGHT WHITE5P;;GR2 TEXT 5Q>5PSCRAM;;SCREEN RAM IS AT 5Q>;;$8100 (FOR DIRECTORY)*5 PSCR }AM45Q>5 PICBLL9H5Q>R5 PICBLH9\5 Q>4DBUFFf5 PICBAL9p5 Q>5DBUFFz5 PICBAH95Q>5 PICCOM95 ?0 CIOV5C5G }EOF5 CHVERT5KX;CONVERT INTERNAL CODES INTO SCREEN BYTES AND MOVE DATA TO SCREEN AREA.5!?05X;5 EOFQ>5P5 ?1 }Q5R>6F?16 NOTOPEN6 CLOSE $6Q>.6P086Q>`B6P1L67V6 PHORZ`6 PHPOSP0j6 DOPALETTEt6:~6X;66 }CHVERT6%>6 Q>4DBUFF6 PPACKPNT6 Q>5DBUFF6PPACKPNT6?0Q@PACKPNT76,6 O>;;-326 P@SCRAM7637)> 7H }?07MCADD SCRAM=7:(7X;27<7 WIPE_DIRF7%>P7 'SCRAMZ7Q>d7 PSCRAMn7 ?1Q>x7?0P@SCRAM7737H?07 # }SCRAM7 QSCRAM7R>7H?17:7X;7X;7!X*THIS ROUTINE WIPES CLEAN THE7&X*EDIT WINDOW. IT IS STILL RETAINED77X* }IN STORAGE ARRAYS, THOUGH, IF THE IS OFF.7"X*THE ROUTINE WIPES IT OFF WITH8%X*THE CURRENT COLOR, SO IT IS ALSO8X }*A CHEAP FILL ROUTINE.8X;"8$X*THE SECOND PART OF THIS SECTION,8#X*OF CODE CONTAIN THE ANIMATORS.68X;@8X;J8 SPEED T8X; }^8 MRCLEANh8Q>xr8 PDOWN2|8Q>8 PACROSS28Q>B8 PSCRAM8Q>b8 PSCRAM8X;8REFILL%>8 QCOLINUSE8FILLP }@SCRAM7838)>8 HFILL8MCADD SCRAM=(9 "DOWN29 HREFILL9 INTERPRET&9:09X;:9X*THE BIG ANIMATOR.D9X;N9X9 }WHEELHOUSEb9Q>;;CURSOR ISl9;IRRITATINGv9;WHEN ANIMATING9PHPOSP0;;SO, MOVE OFFSCREEN9P9 NOBALL9 KCHKQ }9F?29!?39X;9 ?2QSTRIG9H?49!?39?4$FRAMECNT929 (FRAMESYS:H?1 :$>:?1&FRAMECNT : RECALL*: ! }KCHK4: ?3QHORZ>: PHPOSP0H:Q>R: PFRAMECNT\: BALLf: RECALLp:?5QSTRIG;;WAIT FORz:F?5;;RELEASE:::X;: DOWN2 }:ACROSS2:X;:X*THE ACTUAL SIZE ANIMATOR:X;:: ANIMATOR: NOBALL:Q>:P: PHPOSP0; ?3Q>; PHEI }GHT;Q>%$; PSCREEN.;Q>r8;PSCREENB;X;L; $FRAMECNTV; QFRMADR9`; PSCRAMj;QFRMADR_HI9t; PSCRAM~;X;; ?2%> };?1Q@SCRAM7; P@SCREEN7;3;)>;H?1;X;;MCADD SCREEN=(;MCADD SCRAM=(; "HEIGHT;H?2;X;<X; < }REGULATOR<X;< $FRAMECNT(<22< (FRAMESYS<<H?4F<$>P<?4&FRAMECNTZ<X;d< QSTRIGn< FGDAYx< QSTICK0<R>;;RIGHT< }H?10< QUICKER<X;?12 LDA STICK0<X; CMP #7<X; BEQ ?12<!?3<?10R> ;;LEFT<H?0< SLOWER<X;?13 LDA STIC }K0<X; CMP #11<X; BEQ ?13=!?3= ?0Q=R>!;;SPACEBAR"=X;,= FGDAY6= R>7;;>@=H?7J= QUICKERT=!?3^=X;h= }?7R>6;;= PFRAMECNT= BALL= RECALL=?99QSTRIG=F?99= QHORZ= PHP }OSP0=:=X;=X;>X*SPEED REGULATOR>X;>&> REGULATOR0>Q>:>PD> ?1QN> RSPEEDX>H?1b>:l>X;v>> QUICKER> } QSPEED>,> O>;;-1>H?5;;0 IS MAX SPD>?8Q>;;MINIMUM SPD> ?5PSPEED>Q>>P> DISPLAYSPEED>:> SLOWER }> QSPEED?, ? O>;;+1?R> ?H?5*?Q>4?!?5>?X;H?R?DISPLAYSPEED\?EX*THIS ROUTINE CONVERTS THE CURRENT SPEED # }INTO EQUIVALENT SCREENf?+X*BYTES IN ORDER TO DISPLAY IT ON SCREENp? QSPEEDz?M>;;ELIM. HI NIBBLE?>? QHEXCHAR9?,? O> };;-32?PFS2;;PUT ON SCREEN? QSPEED?M>;;ELIM. LO NIBBLE?,?W?;;MOVE HI NIBBLE?W?;;TO LO NIBBLE FOR?W?;;USE } AS INDEX?W?;;INTO SCRN CHAR.?>@ QHEXCHAR9@,@ O>;;-32$@PFS2;;PUT ON SCREEN.@?0QSTICK08@R>B@H?0L@:V@ }X;`@&X*THIS PART OF THE CODE FIGURES OUTj@#X*WHAT THE DATA IS FOR REQUESTEDt@&X*FRAME, INCLUDING WITH 3 SHIFTS OF~@"X*2 PIXEL }S/SHIFT, AND PRINTS IT@X*TO THE EPSON PRINTER.@X;@X;@ ICCOMB@ ICBALD@ ICBAHE@ ICBLLH@ ICBLHI@ } ICAX1J@ ICAX2K@ CIOVV@X;A5OPERRQ>S;;PRINTER WON'T OPEN, SO WE'LL OPEN "S:" APPSPEC;;CHANGES SPEC TO S: }AQ>A PHPOSP0(A !RETRY2AX;P;;SET OUTPUT SPEC TO "P:"PA &PSPECZA$>;;DEFAULT ISdA&DFLAG;;NO SHIFTS }nAR> ;;U KEY WAS PRESSED?xA FRETRYA#DFLAG;;NO, D KEY WAS.A RETRYQ>APAQ>A PSHIFTNUMAQ>`A PNMIENA  }CLOSE A9OPEN ==PSPEC;;OPEN CHANNEL 1 TO DEVICE IN PSPECAGOPERR;;WON'T OPEN?A WIPEXBA RECALLA INTERPRET }B SNAPSHOTBQ>4DATABYTEB PPACKPNT"BQ>5DATABYTE,BPPACKPNT6BDATALOOP$>@B%>JB 'WIDETB 'YREG^B+CHARLOOP%Y }REG;;THE STUFF STARTING HEREhB&Q@PACKPNT7;;CONVERTS TH DATA INTOrB5;;ATARI SCREEN BYTES|BM>;;BY BREAKING THE DATABV?; };INTO 2 HALVES ANDBV?;;USING THE RESULT ASBV?;;AN INDEX INTO A TABLEB&V?;;WHICH CONTAIN THE SCREEN BYTES.B?B#QHEXCHA }R8;;HEXCHAR IS THE TABLEB9PLDIGIT9;;LeftDIGIT and RightDIGIT ARE STORAGE ARRAYSB7BM>B?B QHEXCHAR8B PRDIGIT9B2 }C #YREGC #WIDEC QWIDE&CR>0C HCHARLOOP:CX;DCX;NOW THE EXTRA (SHIFT) BYTENCX;XCQ>bC PWIDElC &XREGvCACV?C }V?;;DIVIDE BY 4C>C0C QSHFBITE9C5CM>CV?CV?CV?CV?C?C QHEXCHAR8D PLXDIG9 D7DM> D?*D QHEXCHAR84D } PRXDIG9>D $XREGHD(>xRD HCHARLOOP\DX;fD"X;HERE, PRINTOUT AND THEN AFTERpDX;THAT WE START SHIFTING.zDX;DQ>;;THE DA }TA IS 4 X 30D PDOWNDQ>D PWIDED$>;;CHANNEL 1DQ>4PHRASE1D PICBAL9DQ>5PHRASE1D PICBAH9DQ> D PICBLL9D }Q>D PICBLH9E %FRAMECNTE QHEXCHAR8E PFRNUM$E %SHIFTNUM.E QHEXCHAR88E PSHNUMBEQ> ;;PUT CHARLE PICCOM9VE CIOV }`EQ>4PHRASE2jE PICBAL9tEQ>5PHRASE2~E PICBAH9EQ> E PICCOM9E CIOVEQ>E PICBLL9E Q>4PBUFFE PICBAL9E Q>5 }PBUFFE PICBAH9E%>E NXTCHRE QLDIGIT8F PPBUFF F QRDIGIT8F PPBUFFF3(FQ> ;;SPACE2F PPBUFF ;;PUTCHARZF PICCOM9dF CIOVnF7xF?F "WIDEF HNXTCHRFQ>F PWIDEFQ;;CHECK FOR KEYPRESS }FR>FF?99;;KEEP GOINGF!?98;;EXITF?99CF5FV?FV?;;DIVIDE BY 4F?G1G QLXDIG8G PPBUFF"G QRXDIG8,G PPBUF }F6G Q>;;EOL@G PPBUFFJGQ> ;;PUTCHARTG PICCOM9^G CIOVhG7rG?|G "DOWNG HNXTCHRGX;GX;HERE, DONE PRINTING ON }CEGQPSPEC;;IS OUTPUT GOINGGR>S;;TO SCREEN?G H?97;;NO.G/ HOLD;;YES, SO WE STOP UNTIL KEY IS PRESSEDG?97QDFLAG;;< }>0=DO SHIFTSGF?98;;0=NO SHIFTSG #SHIFTNUMG QSHIFTNUMGR>G HSHIFTERH ?98Q>H PNMIENH CLOSE &H QPSPEC0H }R>S;;IF WE WENT TO SCREEN:H/H?96;;WE MUST RESTORE DISPLAY LIST AND PMG.DH7;;POP THE STACKNH7;;AND RESTARTXH!INIT;;IS EA }SIESTbH?96:;;NORMAL EXIT.lHvHSHIFTERQ>H PDOWNHQ>H PSHFCNTH%>H 'YREGH$>H ?0$YREGH,HWDATABYTE }9H2HWDATABYTE9H2HWDATABYTE9I2 IWDATABYTE9IC I>*I WSHFBITE94I "SHFCNT>IH?0HIQ>RI PSHFCNT\I3fI)>pI }F?1zICIT?IT?I PYREGI!?0I?1!DATALOOPI WIPEXBII$>IAI?0PSHFBITE9I PRXDIG9I PLXDIG9I2J(> }JH?0J:$JX;.J8JX;BJ HOLDQ>LJPVJ ?0Q`JR>jJF?0tJQ>~JPJ:JX;JPSPEC AP:AJ PHRASE1 == }=AFRAME# AJFRNUM =JPHRASE2 ASHIFT# AJSHNUM =A A=JX;J DFLAGJ YREGJ PBUFFJSHFBITE }K LXDIG K RXDIGKX;KX;(KX;2K#X*THIS IS THE COPIER SECTION. ITKPK ?2QKR>;;1 KEYK FCOPYKR>!;;SPACEKF?4KR }>KF?2K!?1K?4QFRAMECNTKRFROMFRAMEKF?5L NOBALLL?5#FRAMECNTL QFRAMECNT"L RFRAMESYS,LH?36LQ>@L P }FRAMECNTJL?3PTOFRAMETL BALL^LQ>hLPrL!?2|LX;L?1QFROMFRAMEL PFRAMECNTL RTOFRAMELF?6L NOBALLL?6 }QTOFRAMEL PFRAMECNTL BALLL RECALLLQ>LPL:LX;MCOPYMX*FIRST, RESTORE THE FRAME#M"X*WHICH IS THE } FRAME.&MQFROMFRAME0M>;;RESTORED.:MX;DMX*NOW SAVE THE "" FRAME#NM QFRAMECNTXMPTOFRAME;;SAVED.bM &FRAMECNTlM' }RECALL;;CALL UP THE "" DISPLAYvMX;M X*NOW RESTORE THE "" FRAME#M QTOFRAMEM>M &FRAMECNTM INTERPRETM&X* } MAKES THE CHANGE FOR USMX;M SNAPSHOTM)X*AND RECORDS IT IN THE ARRAYMX;M!?1M:MX;NX; NX;N X*GE }TSPEC IS THE ROUTINE THAT NX*GETS THE FILESPEC FROM THE*N"X*USER. ALSO THE WRITE ROUTINES4N$X*AND THE READ ROUTINES ARE HERE !}.>NX;HNX;RNX;\NfNX;pN GETSPECzN%>NQ>N?0PN38;;WIPE OUT THEN1;;FILESPECNH?0;;ON SCREENNX;NNQ> "}N PN3NOPEN ==KEYSPECN%>N 'YREGN$> ;;CHANNEL 2NQ>;;MAX RECORDO PICBLL9OQ>O PICBLH9$O Q>4C #}HBUFF.O PICBAL98O Q>5CHBUFFBO PICBAH9LO?0Q>;;GET CHARVO PICCOM9`O CIOVjOX;tOX;~O QCHBUFFOR>;;RETURNOF?1O $}R>~;;DEL/BACKSPOF?2OR>0OG?0;;NOT ACCEPTABLEOR>[OI?0;;NOT ACCEPTABLEO$X;HERE IT MAY BE ACCEPTABLE INPUTOR> %}:OGIOK;;OK, MUST BE 0-9OR>AP$G?0;;NOT ACCEPTABLE, MUST BE :-@ PX;HERE, INPUT OK, SO DISPLAYP X;AND PUT INTO FILENA &}ME ARRAYP IOK%YREG(PPFILENAME82P; FPPN38;;PUT CHAR ON SCREENPP #YREGZP QYREGdPR> nPH?6xPQ> P PYREG '}P ?6Q>P %YREGP PN38P!?0P ?2%YREGPX; LDA #0PX; STA N3+15,YP)>PF?0PQ>P PN38P "YREGQ (} %YREGQQ>Q PN38"Q!?0,Q ?1%YREG6QPFILENAME8@QQ>JQ PN38TQ:^QX;hQrQX;|Q RITEFILEQQFILENAMEQ )}R>QF?1QQ>`Q PNMIENQ CLOSE QOPEN ==FILENAMEQG?3;;WON'T OPEN?Q%>Q 'YREGQ?0QARRTAB8Q PICB *}AL9QQARRTABHI8R PICBAH9R!Q>y;;READ 120 BYTES AT A TIMER PICBLL9&RQ>0R PICBLH9:RQ> ;;PUT RECORDDR PICCOM9NR +}CIOVXR #YREGbR %YREGlR)>;;6 FRAMES PLUS PALETTEvRH?0R?3CLOSE R ?1Q>R PNMIENR:RX;RRX;R READFILE ,}RQFILENAMERR>RF?1RQ>`R PNMIENS CLOSE  SOPEN ==FILENAMESG?2 S%>*S 'YREG4S?0QARRTAB8>S -} PICBAL9HSQARRTABHI8RS PICBAH9\SQ>yfS PICBLL9pSQ>zS PICBLH9SQ>;;GET RECORDS PICCOM9S CIOVS #YREGS %YR .}EGS)>;;6 FRAMES & PALETTESH?0S DOPALETTES NUMBERSS ROTATORS?2CLOSE S ?1Q>S PNMIENT:TX;T$T /} ROTATOR.T!X*THE ROTATOR FILLS THE FRAMES8TX*WITH THE NEWLY GOTTEN DATABTX;LT NOBALLVT$>;;START WITH FRAME0`T &FRAME 0}CNTjT?0 RECALLtT BALL~T INTERPRETT GDLY;;DELAYT NOBALLT #FRAMECNTT $FRAMECNTT(>TH?0T NOBALLT$> 1}T &FRAMECNTT RECALLT BALLT:UX; UGDLYU%>U?11(UH?12U:U ?0QC19UP9U2U(>VH?0V QFRAMESYSV$R>;;JUST CHECKING. IF THERE ARE"V 5}GSIX;;LESS THAN 4 FRAMES,VR>;;OR MORE THAN 6, THEN6VISIX;;WE CORRECT IT.@V!?1JV SIXQ>TV?1 SYSTEM^V:hVX;rV|V 6}"X*THIS ROUTINE, ̲ MOVES THEV"X*CONTROL-T CHARACTER AROUND TOV!X*SHOW WHICH COLOR REGISTER ISVX*BE AFFECTED OR USEDV 7}X;VX;V BALL2V?0 BALLMATHV%>VQ>T;;CONTROL-T IS THE BALLV P@SCREEN7V:VX;VX* ERASES THE BALLW NO 8}BALL2W $PALDEXW BALLMATH&WQ>;;BLANK ERASES BALL0W%>:W P@SCREEN7DWRTSNWX;XWX;bWlW BALLMATHvWQNUMTABLE_HI9 9}WPSCREENWQNUMTABLE9W,W/O>;;PROVIDE SPACE BETWEEN #'S AND THE BALLWD?0W#SCREENW?0PSCREENW:WX;W :}X;W&X*HERE ARE NEARLY ALL THE VARIABLESWX*AND TABLES IN THE PROGRAM.WX;X BOXDATA X =====X ==== ;}= X =====*X =====4X =====>X =====HX =====RX === <}==\X =====fX =====pX =====zX =====X =====X === =}==X =====X =====X =====X =====X =====X === >}==X =====X =====X =====X =====X =====Y == ?}===Y =====Y =====$Y =====.Y =====8Y =====BY == @}===LYX;VY BRICKMAP`Y B=F=J=N;;ROW0jY ===;;ROW1tY ===;;ROW2~Y "=&=*=.;;ROW3Y === A};;ROW4Y b=f=j=n;;ROW5Y == =;;ROW6Y ===;;ROW7Y B=F=J=N;;ROW8Y ===;;ROW9Y === B};;ROW10Y "=&=*=.;;ROW11Y ===;;ROW12Y b=f=j=n;;ROW13Y == =;;ROW14Y ===;;ROW15Z B C}=F=J=N;;ROW16 Z ===;;ROW17Z ===;;ROW18Z "=&=*=.;;ROW19(Z ===;;ROW202Z b=f=j=n;;ROW2 D}1[ B=F=J=N[ R=V=Z=^[ b=f=j=n[ r=v=z=~\ ===\ ==\X;&\ PPOSHI 0\X;:\DA L}TABYTExD\STORAGEN\ KEY X\COLINUSE b\FRMADR /====8=l\FRMADR_HI b=g=l=r=b=gv\BLOCTN = = M}\===\BLOCTN_HI c=i=n=s=c=i\NUMTABLE\NUMTABLE_HI\SHIFTNUM\ ROW \ COL \ RBORDR x\ N}LBORDR 8\ HORZ 8\FRAMECNT \BRICKNUM \MASK =0= =\TXTCOLOR  ]WDWCOLOR  ]FROMFRAME]TOFR O}AME ]SNAPFLAG *]BITENUM 4]BRICKVAL =U==>] PALDEX H]OFF AOFFAR] ON AON A\]!ARRTAB;;6 FRAMES + P}PALETTEf]#ARRTABHI;;6 FRAMES + PALETTEp] SHFCNT z] BALLDATA] <] ] ] ] ] <]NOBALLDATA] = Q}====]ASTERISK AD:*.*A] WIDE] LDIGITx] RDIGITx]FILENAME AD:ABCDEFGHA^^ CHBUFF^ DBUFF R}$^KEYSPEC AK:A.^;HEXCHAR 0=1=2=3=4=5=6=7=8=9=A=B=C=D=E=F8^DEC1B^X;L^ NANCYCV^ANGELANANCYx S}`^NORTONANGELAxj^ALPERTNORTONxt^BAGGINSALPERTx~^RAFFBAGGINSx^X;^BAKRAFFx^C1BAK^ C2 T}C1^ C3C2^FRAMESYSC3^X;^X;^X;^`^DISPLAY_LIST^ p=p=p=N==a_? ======= U}============ _? ===================_? ======= V}============_? ===================(_ ======= W}=2_ N==p<_? ===================F_? ============= X}======P_* ============Z_ Bd_LMS ======n_ A==`x_X;_X;_ DLIST Y}2_ p=p=p_ B_ =_! =========_! =========_ =_ A==_X;_X; }C`ꪪꪪꪪꪪꪪꪪ磌磌: uuWW[}ꪪꪪꪪꪪꪪꪪ磌磌: uuWW\}ꪪꪪꪪꪪꪪꪪ磌磌: uuWWꪪ]}ꪪꪪꪪꪪ磌磌磌: uuWWꪪꪪ^}ꪪꪪꪪ磌磌: uuWWꪪꪪꪪꪪ_}ꪪꪪ磌磌: uuWW(B `}SYSERROR - NOT VERSION 2 FOa}RMAT. t* 5) 1L!`) 0NΞ 0 L1) 1 L!BAD LOAD FILELOAD FROM WHAT FILE?) 0 0#b}B 1L!WHAT FILE TO LOCK?)` "pҩ>/Bb0`1EEEE Q MQ$ \c}@\CG\xA\CH\B\CI\hC\DJ\D\DK\XE\EL\ЍF\EM\\L\э\L \\L!\!\M"\L Hd}UV_bglqbgqaui(i(LHab|e}GGGGi(i(L]HHG GHGHYGi(GHHпH M =Jf} M !N9\ P 0YLiN*\uZZ9+\[*\4\ [ [ [[4\xȌ*\4\)\\ \GG[Gig}(G`)\@\G\[x`0\ =J0\` Px9\Ei) /JLI 9\Ei q}-B%DOS SYSB*)DUP SYSBSCOMP BZLAMACHINM65B>ZLAMACHINOBJBMOONLORDBASB "MOONLORDFNTB+MOONLORDML B ,SOFTOUC1BASB7SOFTOUC2BASB ?SOFTOUC3BASB HSOFTOUC4BASBUSOFTOUC5BASB%gSPELLER OBJBSPMAINT OBJ /JLI'9\EH) h) /JLIi[h) [ /JLI 9\EH) h)  /JLIi[h) [ /JLIE fYx`EH)jjjjr}q]ia\h)q]i\\\a\\ȑ`)\@\G\BbGGH)JJJJJJ[hH)0JJJJ[hH) JJ[s}h)[i[5\[G[i(GGiGLJiGt}GLJ`,!-!#().%6%23)/."y3teve!lpertu}v}#QRRRRRRRRRRRREw}&rames#T||#|$4(%"/7,|#!|倡|x}6"#ZRRRRRRRRRRRRC3napshot/.N`K``ɴ`L``)\\y}\GGO\Gi(G`)\\\GGU\Gi(G`$\%\8(\ԩz}8Т"Ѝ` M)\E)\ ~J M\( ~J HLZO6 R3\ `ILZO-3\ 3\ PLZO3\ PLZO' PL{}ZO! RLZO? ,SLZO: ?TLZO  ?TLZOd0\ V0\LZO>B0\ gW0\ #XLZO=0\ gW0\ XLZO  zILZO|} QLZO QLZO QLZO QLZO=$\**ZuZm%\\i( H3\ `Ix:6 2}}. *LO L4P (\i&\ %\Ў(\ oPLiN(\i'\0%\Ў(\ oPLiN$\e[[ʽe[[$\~} oPLiN$\e[[e[[$\ oPLiNx ` YG9\9\ Yu}5\LPi(G P5\\` `tM3\=\`:\`H M)\ MhEq]iL}` DQBQBQ BQ ҍLbx\`6B(>:-6'2!.?*:& ">=  \`}Q`HH/\0\ ԍЎhh@ R(\HЩ B V JK[D\EB V0P0`1 }HI]D]EB V0 vRL:R B V0`1h(\ fY`]]ii`}𩁅Ʌ`x)S*SBb\i()S H`Ѝ MLSLS)\E)\ ~JLR(\}Щ)\ M ~J` MЩG%r)\\ \i(i(G S)\E)\2x} SL7S  SL7S!7 SL7S6 SL7S)\ M ~J(\`ͰR`RiR T`RiLSR)q]}i;MR)jjjjq]i:Mx`SbVLPTPbV~V ~V#\`ԩ B V JKbDVEB} V0 >V ~J H `I[`\VVH)JJJJq]a\h)q]\V`\`\թ`\CQJJʽVH)JJJJq]Vh)q]VCQxЦ}G`\dDVE HI)\q]oV#\q]yV B VqDVE B VHDVEa\V\Vȩ VH B Vh`}\ݩ`\LUHJJVVVVV B VhGШbVS PV~V #\#\!ԩ B VbVShhLG`GN\}VV~[~[~[~[~VN\N\ VL VLTVVV``S:FRAME# 0SHIFT# 0 00}000000000000000000000000000000000000000000000000000000000000)\1\2\T!L&W)}\1\ M)\)\E)\2\ MLV1\)\2\ M2\)\ M ~J`1\)\2\)\ ~J2\)\ H `IL&W`MM }JKoD]EB VV HI\D]EB V\]ɛT~600[:0A0ݬVQ]8 MVV  VV}MLWVMVVMLWVQ]M`T]ɛu`ԩ B V JKQD]EB V0-V@\DG\Ey}HI B VVVة B V`T]ɛ~`ԩ B V JKQD]EB V06V@\DG\}EyHIB VVV fY =J 0Y B V` M)\ ~J M H `Y M)\)\ M)\ ~J M``E}EE0LY Q` YT`9\ Y\\i`}}BFJN"&*.bfjn BFJN"&*.bfjn BFJN"&*.bfjn BFJN"&*.}bfjnbbbbbbbbccccddddddddeeeeffffffffgggggggghhhhiiiiiiiijjjjkkkkkkkkllllllllmmmmnnnnnnnnooooppppppppqqqqqqqqrrrrssssssssttt}t"&*.26:>BFJNRVZ^bfjnrvz~ꪪꪪꪪꪪꪪꪪ磌磌}: uuWWU/8bglrbg \cinsci!LLLMx880  U/&&/.xhXCCCDDEE<<D:*}.*FFFFFFFF555FFFFF0F3F2C0F0C0F1C8F0C0F2C0F0F2FAEBFFBFF555F555F555F6A5F6E5F6A5F625F6A5F6E5F6A5F6E5F6A5F555FAABFAABFAABFFFFF}FFFFFF55577FF773074007400740974007400763077AA77FF75557555755575AA756275AA75E675AA756E75AA752675AA75557FAAFFAAFFAAFFFFFD:THEBO}WL157 FREE SECTORSK:0123456789ABCDEF}}}}}pppNa}NpBLA`pppBA}GNpBLA`pppBA??NNNNNNNNNNN1N1N1N1N1N1N1N1N1N1N2N2N2N8N8N8N55N75N75CLSTSSSSESAOAADIBRD}SEOPDADXSTS1SECPMIOCICCOICBAICBAICBLICBLAAANNUNCHBASDGMAHPOSPHPOSPM1ROCSPMP0HPOSPSMAM}AOSSESSDNRCXOYOPPHFGGAMEOVED1DDP3HPOSPSSTDAYM3DSN5BDBD1BD2M2PCOLRPCOLRPCOLRPCOLRRTOPMMI}AOSPP3NNNTSTS2POKE5428@@@@@@@@ @ @ @} @ @@@@@@@@ @!@"@@@AYA}RAVA yA((A 9!@"#@$@%@A&c'@(@)Y*@}A+u,@-@.@/0@1@A23@45Bx6AH7AP8AR9AS:AV};AW?@@ABCBX@DBEA0FB2IGB2PH88I@J}@4K@LBhdMNB2HOA4P@Q@R@S@T@UV@W@X@Y}ZAA[@\]^0 _ `a@bB2Qc@rd@sefA$g@h88i'} j@kl%&m&%&nL opqrstA#uAHv@wx@}yz {| (@}~  +AY6-6-@'6-@36-@}?6-@K6-@W6-@c6-@o6-@{6-@ 6-@6-@6-@6-@}6-@6-@6-@6-@6-@6-@'6-@ 36-@!?6-@"K6-@W6}-@c6-@o6-AY{6-AR6-AV6- A#P(7-A2%6-P:H:,$@6,367<,.>:,7} 2B-A%AG%%AU;%%A(AU? B$<-@%FV6-+P:H:,$,%,$+6-+P:H:,$,,$}%A6-++%,'&,$%'V7<,0/@pP67<,.>:@4, $ZV-?A # 1-AP}5 F-6?RA V d$n1 #A)@-@D"-A6%1 x(-@@"!67,.>:,}% ($(+AA %($+ -68,-8,&"8, +68,-   $d6-P:',6-&$}&6-P:8,',36-8,&$a6-P:M:+&,#@%+&,#@,%?P,d$ 6-R:,T:,"$ "6-%!6}- "6-& 6-=-@P 36-?:<<:@4,$}4 --0( 4  -8,! AP   $, -(ALIEN %-,( }ATTACKING.-AU62*2%. 0 22'6-P:H:,$,%-!0$16-P:H:,$,%#6}-P:H:,$,%168,-8,%"= -2A% A@/29 A@= ,--+8,!*8,!,)+8,!*8, ,}A!p6$@T:,"A J$TF 22AP+-AP/ 92C2F$^= 2}--+A529 = h, 22)AAT,$r$ 2 A@!2$}$|*2@u A@'2*$, -$%$%,(@DE-6?$2A(} 6-$%$%E(@ . 68,-8,&.8,"A!p$8, *8, $67%<%,./$ }- $,2@P- )2,$26-P:',6-&$&-$%$%/(2$76-AH6}-%6-%'6-%/6-%76-%K 6-P:'AV,*6-&$AV;6-P:'AV,K6-&$AV }!6-?:C:hhhLV,<,!$ *******MAIN SCREEN********K+ BBAU+A7}@=K'AVW'6-F:A`,%AV$F:Aa,%-5%C%A0W%@#A0 }&cAA'A9BBAE@FQ@]A(c6-0, --((}7+&,$&<+&,$,, :J6-P:',6-&$"6-$%,6-$%2-8(*J6-@:7%<%,,D[@w6-!6-@}+ Ap[+&@,'AA`APA!N*********SCAN*********XI A -!-},( 0 6-I(ΠŠb. -(SHORT-"(LONG.6-@lE6-@6-@% ApE}+&@,'A@A@v******SHORT RANGE****** 8,! A@ A`U+ BBAU1}+'AV,%U6-F:A`,%AV$F:Aa,%G&@p-!%% 3%A4G%@#A0c}%@%@e.%@&F:A`,E%@'F:Aa,QAcBBA_ %}/A@R;A MA@D_AAT @w4 ---,(}@ 0 4 4 -6-@:7+%,$&,,*6-P:',46-&$(-$%$%( ( A`##7%<%},0>:@4,A -)6-P:H:,$@6, 68,-)68,-;6-P:',6-&$(1$%$%;@: ,}AP-$%$%(B  7%<%,0#AO6-P:H:,$@6,"6-P:',,6-&$<1$%$%}O@: ,A -$%$%(c* 6-@F4O 6-6-@ ApO+&@,'A0}A`APAP>'8,!)8,! A@' A H A R *******SHORT CRUISE*******\* A }8,! A@* A f, 6-6-!Ar,F:,&p7 A@76-&$$+",%$+",%$$+",&$+"},z' )!@5 AP' AA-+"*P:',!P:',,)+"*P:', P:',,7 APA A6 } 6-P:',*6-&$06-66-"A # 6-%6-%#1$%$%@:c,A 1-$%$%}( (-$%$%1(C-@0!2@P+ A@52? A@C C -68,- +}6-%A&8,:68,-AC68,-.-$%$%(c$ A`. A :@: ,-$%$%&(>:,}0 AP: Ap$%"A  A 0;-$%$%( *68,-8,&$;8, A!p 6- }A` A ********PHASERS********* 8,! A@ A $> --"( & ,-8}(POWER=0>6-.  A 8T:,"A0B 6-R:,*AL+6-%$+",&$+", +6-@}V!@6-`!-@"( ! Aj"68,-8,&"8, A!pt% AP%8, *8, A }~8, )8, AI - A`*6-P:''%?P,868,-8,&I8,!A7 6-8},#6-P:',-6-&$7 A  A  6-8,!6-A A`"6-P:''%?P,068,-8,&A}8,!A + 6-8,6-P:',!6-&$+ AE A-/( BRIDGE 5-E( CRUISE }= -( PHASER -3( PHOTON = A ********PHOTONS********1 A 8,!)8, ' A}@1 A 9Af!/68,-8,&9 A7 -(VECTORS-&(  ,-7(  } ' -(  6- 6-'6-6 # 6.6-R:,#T:,"A")"A) "67<,.6-}#6-6)6-(# "67<,.6-#6-62" "67<,.6-"6-<" "67<,.6-"6-F" "}67<,.6-"6-P# "67<,.6-6#6-Z# "67<,.6-6#6-d$ "67<,.6-6}$6-6n@ --%"(7$&<$,& 0 Ap66-@ Ax>6-P:',6-&$(6-$%@#86-$%@}>6-=6-?:<< -(i-6*2@0:}2@@> T& 22-&(7<,^!  B6-! A`h*******STATUS**********ra }A +)BBAU=AV'AVa6-F:A`,%AV$F:Aa,%|S &@p)}1%?%A0S%@#A09AA'A9A@A --@0}$!(8,08, @7( A A8, A(  @wB --$&(8, &-}1(BRIDGE7-B(REPAIR!BBA!@FU6-@6-!6-@+ Ap5 A U+&@},'A AP*********REPAIR********< A -$(DAYS=0*-6( <6-T:,"}A 6-R:,*A`96-%$+",&$+",# A@- A@3 96- !6- - ( }A`"68,-8,&"8, A!p+ -68,-8,&"8, +68,-&  AP0"68,-8,&"8, }A!p:*********CRUISE********D* A 8,! A@* AN= 6- A@=6-&$$+",%$+",%}$$+",&$+",X' )!AD AP' ApbA-+"*P:',!P:',,)+"*P:', P:',,7 APA Apl4 }-(>:,6-$68,-8,&468,-8,&$v8, )8, A!p A@ A`*******CRUISE SUB*****}**.Af6-!6-(6-6.6-& --%"(7$&<$,& ? 6.6-R:,T:,"!6-+ A}5 A ? A 0##+***,)"A`) "67<,.6-"6-)6-6( "67<,.6}-"6-(6-( "67<,.6-"6-(6-) "67<,.6-#6-6)6-@ --%"(7$&}<$,& 0 Ap66-@ A` A " 6-R:,T:," A"$ "6-%!6-  "6-}& 6-1 A@ -@#'(01 A @ -@#( A @***********JUMP**********4} 8,! A@ A>=68,-8,&%68,-8,&@0=8, )8, A!pH26-P:H:,$AC,%-&(}>:,26-@HRG -26-&)A- 72=6-G A@\P:H:,$,%"A!pf A }p*******GAME OVER*******zAA6-+@P&8,,$@P&%8,$$+8,",%A$+8,", E+} 'AV'AR9A@TEAQ'6-F:A`,%AV$F:Aa,%/-7%; C%}Q%@!j@@4B6. INCOMING MESSAGE FROM TITAN BASEH6-N6-X A#0f-@uj }8, A"`Y6.DO NOT ATTEMPT TO!6-'6-1 A#0I6.RETURN. THE MOONSO6-Y A#0S6.HAVE BEE}N TAKEN BY"6-, A#0C6.THE ALIENS. YOURI6-S A#076.MISSION HAS FAILED.#6-- A#07 A"W}6.CONGRATULATIONS! 6-&6-0 A#0G6.YOUR MISSION HASM6-W A#0O6.BEEN COMPLETED.6-) A#0?}6.YOU WILL RETURNE6-O A#0&6. HOME A HERO.6-& A#0L-@(*(MISSION EVALUATION: 6-@0}L(PLAY AGAIN [Y\N]/ - /0Y*0y*0N*0nA# 4Y)4yA$@ +  1-B:, }A -%*(7<,. 1$$ ******INITIALIZE*******. qq;@8,;@8,;,;AD,;,;A2,;@@},;@V,;A@,;@V,;,;,8 >>9,9,9,9@,;,;,;,;,;@@,B BB6.8 }SCAN CRUISE STATUS JUMP L ee67<@,.P| ||} || |V kk67@<A`,.P|MOON%&LORD|| ||MOON%&LORD|| '( || || } '( |` kk67Aa<A@,.P| || || |j BB6.}8 ||   || 00  || BEARING||UNITSt [/6.%[6.%| | | | | | | }| | | | | | | | | | | |~ 76. '6.     76.   (67,./67AD,./(67,. u6 }-@6-@!*68,-A968,-@PH68,-AQ68,-Z68,-c68,-l68,-u68,-  -6 }8,-  9 6-6-B2H!6-B2I-6-B2P96-B2Q E A0-((ANALOG Computing.-;(Presents }E @ +(6-F:A,&@7+A !+ @!6-% c 6-%6-%%6-+%,$AV= }6-+%@!,$AVK6-%@%Y6-$AVc A # #6-?:C:,<@6, M A0-((A Clay }ton Walnum.-C(Production of...M @ 8 D:MOONLORD.ML"6-.6-A8 Ap 9D:MOONL}ORD.FNT#6-/6-A$9 Ap ; -"67,.>:, '-+"767,.>:,;  uB2VB2W'}B2X3B2EAAWA@RiA@SuA 'BByB2w'A#} 9+A!'AV'-9( moon%&lord(  -('( @@2 ++ %@+}< 3 -3(%F , --P:',"'"(, A&PP (Z A  -7(%}A @`d V6-+P:H:,$,%,$+6-+P:H:,$,,$%A6-++%,'&,$%'V7<,0/}A&`n 67<,.#x V6-+P:H:,$,%,$+6-+P:H:,$,,$%A6-++%,'&,$%'V7<,0/A& F67<,.#}- -%B(7$@@&@9<$@@,F  @-@#((SELECT YOUR COMMAND.4@@  -}(  4 --P:',"'*(7<,4 A'@ ( (  -"( (} 9 --%5(7$@@&@9<$@@,9  K-@7(BRIDGE'-@73(CRUISE?-@7K(}PHASER @-@7(PHOTON'-@0@(SELECT YOUR COMMAND - (STATUS " -"(} 2 -2($РӺ  2 -2($ ź  2 -2(}$ŠӺ  2 -2($ Ӻ  2 -2($ҠӺ }" 2 -2($ ٺ , 2 -2($ҠӺ 6 2 -2(}$ Ӻ @ 2 -2($Ӻ J A -"((-}A(Ӻ T " -"(^ 9 --%5(7$@@&@9<$@@,9 h + }-(BRIDGE -+(REPAIRr > -"(SELECT YOUR COMMAND46-@:7%<%,,> A | ***** DLI ROUTINE ***}** ZZ72,138,72,152,72,174,44,6,189,40,6,232,188,40,6,141,10,212,141,23,208,140,24,208,232 CC224,4,208,2,162,0,142,44,6,}104,168,104,170,104,64,10,4,0,88,0 *******CL$ DATA********** gg104,104,104,133,205,165,88,133,203,165,89,133,204,162, }0,169,0,168,145,203,200,208,251,232,228,205 88240,11,24,165,204,105,1,133,204,240,234,208,232,96 ******P0$ DATA******!} 255,129,129,129,129,255 ******P3$ DATA****** 0,0,24,24,0,0D:MOONLRD2.BAS96 ******P0$ DATA******aUU||>`<|xYYYYYYY[[[xp88p(8(|~0~#}~fnvv~xx~~f 8p~~ v~<|l~~`~v~|`~fv~~~f|ll|l~ff~~f`pv~|ffvv~~`~pp~~`~ppp~f`nv~ff~000888 n~ll|~ff``ppp~wwkcc~fffff%}~nnff~~fv~``~fff~|ll~vv~`~f~~ffffv~ffv~<cckwwvv<ff>|f```>`<|~ffff>fff<ck>6f< x~ 0~<~~<*}~x|nf8x8ff|``>ff>|f```>`<|~ffff>fff<ck>6f< x~ 0~<~~<hhhhihhhhhhhhheхϦiͥiѐϰԊˤԑեН`x~ 0~<~~<d&'ABVTAATAOFFHLXYDISPITCVO"-} ##Touch-Tablet Controlled Sound3/84 J. Morrison(6-@2**".} main loop **<!!turn off sound if stylus upFDQ:,"A(:2D @PK:R:"/},"@" A:stylus button pressedP6-A(&Q:,U%%6-P:Q:@,'A)$@,Z2"0} @P_d** change distortion **n)6-%@!@)6-x( DISTORTION = ##wait "1}until button is released R:,"@A@$'AY@b'AAU&6-F:A,&@"2}&BByB2w@%%6-F:A4,%AV$F:A5,%%6-F:A@,%AV$F:AA, 6-$AV"3}%A$&$6-P:'AV,$6-&AV$*%@%@T  ** main loop ** )6-Q:,)"4}6-A(&Q:@, +"A(!B2H+ A0 !A6-A  @I6-@I "5}!A6-A  @36-@3 67@,. "67<%@,."B2H& A0D:SOF"6}TOUC1.BAS6-A  @36-@3 67@,. "67<%@,."B2H& A0D:SOF sABVTAATAOFFHLXY &8} ##** Cursor Control with Tablet** (absolute cursor)** 3/84 J. Morrisond** setup P/M cursor **n%&9};A,;@,%+x+-@@"'67,.>:,+ ,,0,0,128,192,224,240,224,176,24,8,0,0,0)6&:}7A,. &AR@)('AY@b'AAU&6-F:A,&@&BByB2w&;}@%%6-F:A4,%AV$F:A5,%%6-F:A@,%AV$F:AA, 6-$AV%A$&$6-P:'AV&<},$6-&AV$*%@%@T  ** main loop ** )6-Q:,)6-A(&Q:@, +&=}"A(!B2H+ A0 !A6-A  @I6-@I !A6-A  &>}@36-@3 67@,. "67<%@,."B2H& A0D:SOFTOUC2.BAS6-A  $k&'ABVTAATAOFFHLXYXTOLYTOL*@}  ##** Cursor Control with Tablet** (relative cursor)** 3/84 J*A}. Morrison(d** setup P/M cursor **n%;A,;@,%+x+-@@"'67,.>:,+ *B},,0,0,128,192,224,240,224,176,24,8,0,0,0)67A,. &AR@)('AY@b'AAU*C}&6-F:A,&@&BByB2w@%%6-F:A4,%AV$F:A5,%%6-F:A@,%AV$F:A*D}A, 6-$AV%A$&$6-P:'AV,$6-&AV$*%@%@ 67@,.T *E} ** main loop ** )6-Q:,)6-A(&Q:@, "A(A0 6-%N:&,6-%N:&,  6-6*F}- !A6-A  @I6-@I !A6-A  @36-@3 "67<%@*G},."B2H& A0D:SOFTOUC3.BAS !A6-A  @36-@3 "67<%@(8 '=ABITEMVTAATAOFFHLXY .I} ** Menu Demonstration** 3/84 J. Morrison(d** setup P/M cursor **n0&;A,;@.J},;@ ,0+x+-@@"'67,.>:,+ --0,12,62,115,126,252,248,124,127,62,12,0)67A.K},. &AR@)('AY@b'AAU&6-F:A,&@&BByB2w@.L}%%6-F:A4,%AV$F:A5,%%6-F:A@,%AV$F:AA, 6-$AV%A$&$6-P:'AV,$.M}6-&AV$*%@%@4** setup menu **>& ( RESTAURANT ATARI#(&(H(( R.N}oast BeefJ ( ( Fried ChickenL"("( Tuna Fish SaladN(( CheeseburgerR@-@@ .O}@(&>>POINT TO SELECTION AND PUSH BUTTON<<T  ** main loop ** )6-Q:,)6-A(&Q:@, +"A(.P}!B2H+ A0 H>S:,")S:@,")R:,"@H A@ !A6-A.Q}  @I6-@I !A6-A  @36-@3 67@,. "67<%@,..R}"B2H& A0v ""** button pushed - find item/!@d* @v%6.ROAST/ AE1!@.S}* @'6.CHICKEN1 AE3!@* A )6. TUNA FISH3 AE0!A* A%&6.BURGE.T}R0 AE$out of range8-@@5(ONE  COMIN' UP! 8$D:SOFTOUC4.BAS&6.BURGE,o !p FAHDRCOUNDIRECDDISCO 2V} **** Read and Plot Packed Picture Data ** 3/84 J. Morrison&&;@ ,;@,;@22W},** get file to display **: +(6(!Enter Device:Filename for picture: )%(Plot image on hardcopy (Y2X}/N))#** process file header **(- @@-@-%-B:,@%!)@% /2Y} Asetup graphics2C6-A#-@@1@:7<,,?6-%@C 7##** read and unpack picture2Z} **<:@:7@,,"@% A/ @p:verticalA Aelse horizontalF&7@<@,4Y& A2[}PZd ** get next packed byte **i+!AP+no read necessaryn)6-)@))2\}@xD")@46-%AV$&@A)@D$3!A'6-&A()6-@3 A`2]})@6-&@$##** setup Antic mode E displayB6-F:A,*6-+&@,$AV2^}B6-+&@1,$AV!-%@"! 112,112,112,78,0%@&@1+-%@%2_}A'@+ A%A@x+%AA%A&@A%A@e+%A2`}A%A&@)A`)Aa&@$X** vertical decoding **b-2a}@96-%l/-%Av@% A+/ v7#-%@@%Av@@- A37  2b}$** horizontal decoding **'-%Avy A#' $ ""** Hardcopy plot to MX-70 2c}***.@.@@P:4-@96-%>.-@@ **@. 2d}C^^(@ >:@',A>:@,>:@',K>:A,>:,H -Av@6@@2e}M4P:'A2,$A2"0-@A4 R&6-F:%,"AU&6-ATT"@6-@W#*2f}@ (@# \@f$D:SOFTOUC5.BAS"AU&6-ATT"@6-@W#*0GDOCUMENT.TMP  6h}}WORDS IN DICTIONARY: INSERT DICTIONARY DISK PLEASE WORDS READ: 0 ANOTHER FILE? Y/N c 6i} THEN PRESS RETURN UPDATING DICTIONARY D1:DOCUMENT.TMP Enter File Name  NO MATCH: 6j}Add to Dictionary? File not on diskBAK@cO}A愥+BD+EH6k}I JK V)ҩUVT BD+EHI VTUV ) BD+E HI V6l} BÝD*EHIJK V0LKA BDEHI VM+6Hɀ v(L*A v(hLA6m}L  BD+EHI VM+ BDE6HI VL UTV BޝDEHI V` 6n}UVT B0D+EHI VL UVT BD+EHI VɖL BLD+E@H6o}I VɁ ) v(̐Lː BDEHI V8 *э U6p}VT BDEHI VBΝD*EHI V*:!ȹ*:L**T*1Ȣȹ**ɛ 6q} B˝D*EHI V+LV  BDEHI VLB˝D*EHIJK V TV )6r}UVT BD*EHI V ) )UV T BYDE HI V0BTDEHIJK6s} V} _)L  Cɛ ( L ( A[ a{L |# I*L0:L  +)L%L 6t}) T* BDEHI V0 BDEHI V䥇L-#*ɛ.HhWW,*Υ8΢6u}Ƚ***.**H*hȢ** !BD*EHI Vb B˝D*EH6v}I V0D* ,*ȽWɛ** B˝D*EHI VUVT ) o# U BlDEH6w}I VBDEHI V䭠YM o# )}W $UV T )eL L6x}N#\ o# B8DE!HI V UV%DEHI VBDEHI V o# B6DE6y}HI V ) BDEHI V0BÝD*EHIJK V BDE6HI V8嗅嘅6z}i扢0 BLD+EHI VLN# !BTDEHI VLZ!0 BDEHI Vl UVT`6{} # I L#dI H _)hȥ (ޭ  $ (`a8 8A 8Ɖɀ6|} $L# v(`8Ɖ` dΩ ) w$H ɀI  ( (hh   `6}}eeiFff $ɀ v(L$ v(ɀIقCȥL$L%`8Ɖ6~}ɀ $L$ v(L+%ɀ v(L% v(ņ LC%ŃL$ϥL'ЦʤέȽ! {ɛ 6} }h۩UVT BDE$HI V UVT BDE HI V )d6}d )8Ψ  ) )  UVT )dBdDEHI V@dɛ2eɛd6}ȭd ) # w$ L&d UVT BʝDEHI VBDEHI V䭠Y '6}T )T )T )TUV )`a8 8A ٘Fٗ;ٚL'ٙL'ɀIق6}LX'ɀ v(L}' v(˅̅e΅i17L'0- UVT BD*EHI VL(6}8Ƅ8ƆńL(ŃӹHa8 8A eΙi6hIHHi6}i *hh`i`H +)L% dh`L(dH +)hL%h`Hh'-A6} [a{Hh``H BDEHI Vh`}$0 BDE}HI V䥁6}`}, B!DE}HI VHL)h`!` BDE%HI V`da8 `6}0 BDEHI V`i` *ɀIL*33 UV T BDEHI V` )ͥE 6}*ɀILh*eeUV T BeDEHI V`ԭ ؠ` ԛD:WORDSD1:~OOD6}1:OuPCANNOT ADD WORD MEMORY FULLFILE LOCKED ABORTING DISK FULL ABORTING AAAVOAMOMUNITEOOUI6}COOSIE-RAOOE:Magic SpellPress ԛ Loading DictionaryCopyright 1984 by A. Giambra@OOUI4w@Hϩ}Щѩ˩A̠ˑ̥&BƝD&EHI JK V)ҩ B*:}D%E.HI VT B9D&EHI VUV T BD&EHI V BD%EHI:}JK V0LXA BDEHI V UTV BbDEHI Vɖl UV T BȝD&:}EHI V BҝD#E6HI VLBLD+E@HI V BDEHI V B*D:}%EHI VB`DEHI V`1234L=L" L= !L=8$ԭ$ ؠɀ4&I4&:} B D&EHI V䩧D&EHI VBDEHI VL= BD%EHI VB$D:}EHI V BD%EHI VBBDEHI V BϝD%EHI VD%EHI V:}D&EHI V䩧D&EHI VBDEHI V$ɛ`%BɛaLBA%L:}[a #Э#Lf%8A #й#ѭ0!HhLI"0HhLI" L %ɛ $LLm $8Lm ȩ:}$ڠ& %ɛBLI"ȩBL %LI"Um&% BDEHI V %ɛ(H BD:}EHI Vhѩ  BDEHI Vɀ #Lm #%8A # Lf#%%[LfLI"Ϣ:}ɀ %IH#%AIL h% % %h %% %詛 %` BWD&EHI VB$DE:}HI V$%8A #й# %ɛ$8ȩ$詛 %JLx!ɀ #Lx! #$L!$ BD&E:}HI VLI"΄m˥i̠ˑiː̥$ L"$ #L!$8@ 48####̆ :}BvD&EHI V BD&EHI VB`DEHI VL=0 BD$EHI V`:}LI#0BD%EHIJK V BҝD#E6HI V8$#Э$#iАѢ0 BLD+EНH:}I V0 BDEHI Vl }$0 BD$E}HI V䥱`$`}, BD$E}H:}I VHL#h`$``iА`IIIID:WORDSIK}:}Magic Spell Dictionary Maintenance 1. List Dictionary 2. Delete Word 3. Free Memory 4. End :} LOW LIMIT  HIGH LIMIT  PRESS ANY KEY TO START AND STOP LISTING PRESS X TO CANCEL LISTING :} FREE MEMORY: Copyright 1984 by A. Giambra ENTER WORD TO DELETE  WORD DELETED WORD NOT IN DICTIO:}NARY PRESS RETURN WHEN READYE: Loading Dictionary Press ԛ# :}b} No Dictionary - Abortinga@ Dictionary Press ԛ# 83