@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 D8u %s%RaLF%} Basic to Binary by: Matthew Arrington%` BHI VT}ȹ%`%'''''^- -)fRL]'}͠ӠîԠ3'U}` BHI Vȹ3'L''W`L'SD'E JKB V TU'`` BHI VV}ȹ'`#'',)!'i˭"'i̭' +DL?(  ( L?( ( ( ( q˙ȭq˙饌W}ʢح"(#(L(@L ' {"(#E)˩̩)˙)˙)X}) ((L) *))`H)˝̝h`(NUR'pppB@BhBBBBB0BXBBBY}НBB BHBpBBBBB8B`BBB؟A7)}`````  ` | ` ` |Z}|``| |`| 1: Display/Set Options |`| [} |`| 2: Convert Basic file |`| |`| 3: File Directory |`| |`| 4: Exi\}t to DOS |`| |`` 6L4+_1+` B]}HI Vȹ1+L+о;Lt+_q+` BHI Vȹq+թL"+L+ +` BH^}I Vȹ+թL"+0BHI V~ L"+LV,ɜ L"+Ly,ɛL,tA )a8 L"+~ B_}HI VL"+ ,~ BHI VL"+ ,~ BHI VL"+ BHI V~`L,`}~,` BHI Vȹ,` BHI V`uAdA:L8-:eA~dAa}`8  `tAMD1:D0:*.*0LAK:DAEJKB V70)1@XYS/aRb})` BHI Vȹ)ՠt*` BHI Vȹt*թ!/EZ c} ˭ B B\L6BLBZLBELBCLBQLBRR``d}Z CQLBEZW`R0BHI V)a8 2 1CLA1 OELA3 vLL~A4LA'Sl } , TULTCe}INPUT FILE - FC` BHI VȹFC +` - B VdDAEJKB V0''f}BHI V '' B VdDAEJKB VLDOUTPUT FILE - D` BHI Vg}ȹ D +` - B V dDAEJKB V0'6) G-!'i˭"'i̥ˍ3)m'5)̍4)m'6)5)85h})6)6) BD'EH I VB_D-EHI VHI   B_D-EH I V Ьi} B V B V`} ,RLzE Basic to Binary Control Pad`[E` BHI Vȹ[ELE j} `E` BHI VȹELF : Item to change`E` BHIk} VȹEL]F : Changes Item`DF` BHI VȹDFLF Ԡ : Exits````F`l} BHI VȹFLF -``BREAK -``TITLE -``MEMLO -F` BHI VȹFթm} GЭЍ ԩЭ L^L`X˥Y̭i(˥i)n}8˥̠LGPiL>G˅̽' iLG iLGe˪FLHGLHLTUL:HTrapo} & Re-Run Program$H` BHI Vȹ$H`TULHReset Normally sH` BHp}I VȹsH`TULHCold Start H` BHI VȹH` TULIDisabledIq}` BHI VȹI` TUL\IEnabled SI` BHI VȹSI` TULIOffr}I` BHI VȹI` TULIOn I` BHI VȹItATUL JENTER TITLEs}:``J` BHI VȹJL|J[ ]PJ` BHt}I VȹPJթ +TULJJ` BHI VȹJխtAL;L ' 8 u}~'LKtA`TUL7K 1K` BHI Vȹ1KթTU!'ԭ"' ٩ԅ ؠȹ).v}` BHI Vȱ`TULKNEW MEMLO VALUE IS:K` BHI VȹKw}թ +~ ٥ԍ!'Ս"''LGHhHHIHI;LII;L&KK;L''' GL>G} ,yALL```Which dx}rive? -L` BHI VȹLբ0BHI VyA B VxDAEJKB V` By} VLMEDME JKB VBHI V0 BHI VҢ B VLM``Type any key.`pz}M` BHI VȹpMբ0BHI V`~A BHI VҢ B VLM``Type any key.`p@I X;BASIC TO BINARY -10/16 ;X;BY: MATTHEW ARRINGTON ;X; ;(X; OSS. MAC-65 SOURCE ;2X; |}<EIFX;PX;Z X; MACROSdX;n @PT xX;X; PUT TO DEVICEX; " PUT IOCB#,BYTE "X;'?   $>  }}Q> PB9;; COMMAND PUT=11Q>PH9PI9C V%",X;6X;@X;J @GT TX;^ X; GET FROM ~}DEVICE (INTERNAL)hX; " GET IOCB# "rX;|   $> Q>PB9;; COMMAND GET=7Q>PH9PI9  }VX;X; PUT BYTEX;X; PUT    @PT &0 @PT :DNX;XX; Ԡ EX. "GET 0"bX;l }GET v   @GT  @GT X; X; ԠX; PRINT X; !@OVER@TEXT = @OVER%> } @LOOP'  Q@TEXT8R> `  H@CIO*Q>4@CIO@PT >%H3R Q@TEXT8\ H@LOOPfpX;zX; PRINT BUFFER } PRINTB %> @LO'X;   Q@ 7X;Q 8X;R> `H@COQ>@CO@PT %$ }3.  8 Q@ 7BLQ 8V`H@LOjtX;~X; INPUT RECORD/ SAVE EOLX; EX. "INPUT IOCB#"X; INPUT X }; $> Q> ;; INBUF LOPD9Q> ;; INBUF LOPE9Q>;; GET RECORDPB9Q>(;; BUF LENPH }9 Q>PI9 V(%H92Q><P 8FPX;Z OPEN dX;n$> ;; IOCB #x   !@EXC @OPEN  }@EXCQ>@OPEN;;(S:,D:)PD9Q>@OPENPE9 Q> PD9 Q> PE9Q> PJ9;; OP }EN (8,12,4)Q> PK9;; AUX1"Q>;; COMMAND OPEN,PB96 V@JX;T RWSECT ^X;h X; DUNIT,DCOM,DBUFF,SIZE, }SECTrX;|Q>1P;; DDEVIC  Q Q> P;; DUNITQ> PQ> P Q> P } Q> PQ>&P0 Q> :PD Q> NP X Q> bP l Q> vP  YX };X; MACRO CLOSE IOCBX; CLOSE X; $> Q> ;; COMMAND CLOSEPB9 V;; CIOX; XIO X; }$> ;; IOCB Q> ;; COMMAND*PB94Q> >PJ9;; AUX1HQ> RPK9;; AUX2\ Q> fPD9p Q> zPE }9 V;; CIOVX;X; POS X;.EX POS COL,ROWX;Q> PTQ> PUX; X; BGET  X;$ !X }; EX. BGET 1,BUFFER,10000,LEN. X;8 $> B Q>L PB9;; COMMANDV Q> ` PD9j Q> t PE9~ Q>  P }H9 Q>  PI9 V;;CIO X; QH9 P  QI9 P   X; X; EX. BPUT 1,BUFFER,LEN X; BPUT  } $>  Q> ( PB9;; COMMAND2 Q> < PD9F Q> P PE9Z Q d PH9n Q x PI9 V;;CIO X; }  X; X; X; WORK BYTES X;  X; MAXLINE  INLINE  FLASH  TEMP1  CHR1  CHR2  OP }TION " SCRN , LEN =6 TEMY @ X;J LBUFF~T HATABS^ X;h X; ZERO PAGEr X;| TEMP2ˆ TEMP3̐ } PSTART PEND MEMBOT AMOUNT X; ' X; X; LOAD SCREEN X; INITQ>;; BLACK P;; SCREEN }PR Q>a;; RED P;; BORDER Q>;; NO CURSOR& P0 BPRINT =A} Basic to Binary by: Matthew ArringtonA }: :;; CONTINUE LOADD X;N X  INIT;; FOR BIN LOADb X;l 'v X; X; !X; EXECUTE & RUN BASIC PROGRAM X; #X; THI }S ROUTINE GETS SAVED ALONG X; WITH BASIC PROGRAM. X; X; "BASRUN AA;; BIN LOAD HEADER  FILELEN;; LOAD START  }RN3;; LOAD END X; X; !FILELEN ;; BASIC FILE LEN X; 6TLINE A A;; TITLE STORED HERE X;  }RESET ;; OPTION FLAGS* BREAK 4 TITLE2 => MEMLO LA12H X;R GOQ;; CART PRESENT?\ HRN2;; YES CONTINUEf  }X;p Q>;; CURSOR OFFz P Q>;; ZERO MARGIN PR :PRINT =A}͠ӠîԠA X2!X2; }; LOOP FOREVER X; RN2QTITLE2;; DISPLAY TITLE? FRN3;; NO X; OPEN = ==ASA;; GR. 1 POS  = PRINTB } =TLINE RN3:;; COUNTINE LOAD X;X; MORE BIN POINTERSX; =;; INIT ADD.$ GO.X;8 X1=LA12BX;L }X;VX; INIT MEMLO`X;j X1%>tQMEMLO;; SET REAL MEMLO~PX;,O> PTEMP2X; QMEMLOPX; }O> PTEMP3X;X; INIT RESET VECTORSX; QRESET;; TRAP RESET?FTRAP;; BR. IF YESX;(R>;; COLD START?2 }HMOVEPOINT;;NO, RESET NORMAL<Q>;; DIE ON RESETFPD;; COLSTP!MOVEPOINTZX;dTRAPQ ;; TRAP RESETnR>;; DOS PR }ESENT?xEDODOS;;BR. IF SO"Q>INITAL;; SET RESET VECTORP Q>INITALP !MOVEPOINTX; DODOSQ ;; SA }VE DOS INIT VECPRESET1Q PRESET1X;#Q>RESET1;; SET NEW RESET VECP Q>RESET1P X;"# }X; ADD VALUE OF MEMLO TO BASIC'S,X; PROGRAM POINTERS.6X;@MOVEPOINTQJ,T O@TEMP27^P8h3rX;|Q O@TEM }P27P83)>HMOVEPOINTX;Q;; COPY STARP TO:P;; RUNSTAKP;; MEMTOP (LOW)X;Q;; (HIGH)P }PX;X;X; SET UP TO RUN&X;0Q>:P;; BASIC DOES THISDP;; ON COLD STARTN$>XBb-lX;vQ"; }; SAVE VBI VEC PVBIXQ# PVBIX !INITALX;X; IMMEDIATE VBI TO DISSABLE X; BREAK.X; BRKQ>@P }PVBIX L==X;X; "RESET1  ==;; JSR INIT DOSINITAL$> QBREAK;; DISSABLE BREAK?*HLA2;; BR. } IF NOT4X;>Q>BRK;; SET IMM. VBIHP";; VECTORR Q>BRK\P#fX;p"X; PATCH THE "E:" INPUT COMMANDz#X; WILL }FORCE A "RUN" WHEN BASIC!X; GOES TO THE "READY" PROMPT.X;LA2QHATABS9;; GET A BYTER> E;; LOOK FOR EFLA1;; FOU }ND YAX;2;; NEXT HANDLER2;; ADDRESS2HLA2;; KNOW ITS THEREX;LA12&LA3;; SAVE OFFSETX;QHATABS9; }; SAVE OLD PTEMP2$!Q>VTBLE;; REPLACE WITH NEW.PHATABS9;;$031A8X;B2;; NOW HI BYTESLX;VQHATABS9;; SAVE OLD` } PTEMP2j"Q>VTBLE;; REPLACE WITH NEWt PHATABS9~X;%>;; COPY VTABLE$>LA7Q@TEMP27 PVTBLE83 }0HLA7%>$>LA8Q@TEMP27 PVTBLE830 HLA8X;Q>;; COUNTER( PLA102X;<Q>;; BOOT SUCCESSF }ULF P ;; BOOTPP;; WARMSTZX;dQ;; CART RUN ADD.n PCARTxQ PCART CART L==;; JMP TO BASICX };EINPUT%LA10;; GET OFFSET)>;; END?FLA11;; YESX; QLA128 "LA10%>:X; LA11A5$LA3 Q }TEMP2"PHATABS9;;$031A,26 QTEMP2@PHATABS9;;$031AJ7T>^ Q>;; C/Rh%>;; SUCCESSr :;; DONE| LA3  LA }10 X;VTBLE =;; CLOSE =;; OPEN EINPUT;; GET =;; PUT =;; STATUS =;; SPECIAL }==;; JMP INITX;LA12 ANURAX; AA;;RUN POINTERS X1;;FOR BAS RUNX;BASICSTART =& 0 E }NDRUN :X;DX; DISPLAY LISTNX;XDLIST p=p=p=B=@=b B=h==B===B==l B===B===B=0=v } B=X==B===B== B===B===B= = B=H==B=p==B== B===B===B== B= }8==B=`==B== B===B===A DLISTMENU A}`````A A  `A A | } `A A `A A ||`A# A`A# A| } |`A# A| 1: Display/Set Options |`A # A| |`A$ A| 2: Convert Basic file |`A ) }MENU2 A| |`A*# A| 3: File Directory |`A4# A| |`A># A| 4: Exit to } DOS |`AH# A| |`AR$ A`A\X;fX;pX;zX; EVERYDAY TYPE SU }BROUTINESX;X;X; INPUT A LINEX;GETLINEQ>;; LINE INDEX &PINLINE;; LINE LEN=0X;GLOOPQ> ;; 1/6 SEC }P;; SYS TIMERTIMLOOPQ;; STAT KEYBOARDR>;; KEY IN?FCHECKTIME;; BR. IF NO"PRINT =A_A;; PRINT CURSO }R!GCHR;; GET KEYX; CHECKTIMEQ;; SYS TIMER=0?$HTIMLOOP;; NO, LOOP.QFLASH;; FLASH ON OR OFF?8FOFF;; TURN }IT OFFBPRINT =A_A;; CURSOR ONLQ>;; FLASH OFF=0VPFLASH;; FOR NEXT TIME`!GLOOP;; LOOPjX;t%OFFPRINT =A } A;; CUROSRO OFF~Q>;; FLASH ON=1PFLASH;; FOR NEXT TIME!GLOOP;; LOOPX;GCHRGET ;; GET A CHARX;R> } ~;; BACKSPACE?HDL;; BR. IF NOTX;$INLINE;; SOMTHING TO BS?HOK1;; BR. IF YES!GLOOP;; NOTHING THERE!OK1! }BACKSPACE;; DO BACKSPACEX; DLR> ;; DELETE LINE?HENDL;; BR. IF NOT$INLINE;; SOMTHING TO DEL?(HOK2;; BR. IF Y }ES2!GLOOP;; ELSE IGNORE & LOOP<OK2!DLINE;; DO DELETE LINEFX;PENDLR>;; END OF LINE?ZHNOCTRL;; NOd!EOL;; DO } ENDLINEn!NOCTRL$STRIP;; FILTER CHARS?xHOK3;; BR. IF NOX;X;M>;; STRIP INVERSER>a;; LOWWER CASE??DOK3 };; BRANCH IF NOT;S> ;; MAKE IT UPPEROK3$INLINE;; RESTORE X(MAXLINE;; LINE TOO LONG?HOK5;; BR. AND SAVE }!GLOOP;; IGNORE KEY & LOOPX;OK5P~9;; SAVE BYTE2;; FOR NEXT SAVE&INLINE;; SAVE XPUT ;; PRINT CHAR"! }GLOOP;; GET NEXT BYTE,X;6X;@BACKSPACE STJX;TDOBSQ> ~;; BS CHAR^PUT ;; PRINT ITh"INLINE;; DEC LINE LENr }!GLOOP;; NEXT KEY|X;X; DLINE STX;DODLQ> ~;; BS CHARPUT ;; PRINT IT"INLINE;; DEC LINE LENHDOD }L;; LOOP TILL GONE!GLOOP;; START AGAINX;X;EOLQ> ;; DELETE PROMPT PUT $INLINE;; GET LINE LENQ> }P~9;; MARK EOL :;; RETURN&X;0X;:%STPRINT =A~A;; ERASE CURSORD:NX;XX;bPUTBYTE$>;; IOCB #0lPUTD }PUT ;; PUT Av :;; RETURNX;X; ;X; VALIDATE A FILENAME ;X; ;SETNAM }E%>;; SET DEFUALTL8QDEF8;; TO DRIVE ONE PFNAME83)>HL8X;QLBUFF;; "D:FNAME"?R> :HL5;; BR }. IF NOT %>;; SET OFFSET!MOVENAME;; COPY NAME OVER X;*L5%>;; "DX:FNAME"??4 QLBUFF>R> :HHMOVENAME;;NO }, ASSUME "D1:"RQLBUFF;; GET D# BYTE\PFNAME;; SAVE ITf%>;; OFFSETpX;z!MOVENAME$>;; COPY FILE NAMEL6Q }LBUFF8;; FROM LBUFF. PFNAME9FL732HL6X;L7:X;$X; CALCULATE THE DISTANCE BETWEENX; TO ADRESS'S. }..X;SUBTRACTQPEND; SPSTARTPLEN$X;. QPEND8SPSTARTB PLENLX;V#LEN`HL15j #LENt }L15:~X;BUF ;; 5K BUFFERX;FNAME  STRIP DEF AD1:A;; DEFUALT DRIVEDIR AD0:*.*A;; DIRECTORY }X;RUNOPEN ===AK:AQ>DLIST;; POINT TOP0;; MY DIS. LISTQ>DLISTP1X; Q>@;; LET THE } "E:"PX;; IN ON THE CHANGE.Q>(PY2Q>;; CURSOR OFF<PFQ>;; RIGHT MARGINPPSZX;dX;nMAINMENUQ> };; SCREEN OFFxP/P;; CHANGE COLORQ>aPQ>;; LEFT MARGINPR!PRINTB =MENU;; PRINT MENUPRIN }TB =MENU2Q>!;; SCREEN ONP/X;X; TWIRLING THINGX;Q>E PCHR1Q>Z PCHR2" TITLE%> ,Q>6$> }@P9JP8T %CHR1^ QCHR2h 'CHR2r PCHR1|$>%> TLOOPQ9 PTEMP1 QCHR1P9Q8 PTEM }P2 QCHR2P8Q>P TTIMEQR> HTTIME Q> TWIST& P90 Q>: TWISTD P8N X;X Qb }R>l HGOPTv X; 2 1 )> HTLOOP !TITLE TWISTR> FOVER QTEMP1 !SWAP OVERQTEMP2 X; SWAPR> }Z HF1! !SWITCH ! F1R>E!HF2 ! !SWITCH*! F2R>C4!HF3>! !SWITCHH! F3R>QR!HF4\! !SWITCHf! F4R>Rp! FZEROz! }Q>R!:! ZEROQ>!:!SWITCHQCHR1!R>Z! HOTHER!Q>C! PCHR1!Q>Q! PCHR2! !EXIT!X;! OTHERQ>E" PCHR }1"Q>Z" PCHR2$" EXITQ>W.":8"X;B"X; GET OPTION FROM KEYBOARDL"X;V"GOPTQ>;; ZERO MARGIN`"PRj"GET ;; GET KE }Yt"M>;; STRIP INVERSE~"R>a;; LOWWER CASE?"DA6;; BR. IF NOT";;; ELSE...."S> ;; MAKE IT UPPER"X;"A6R> 2;; OPT }ION 2?" HA1;; NO" CONVERT;; GO CONVERT"!MAINMENU;;"X;"A1R> 1;; OPTION 1?" HA2;; NO" PAD;; CONTROL PAD# !M }AINMENU #X;#A2R> 3;; HOW ABOUT 3?# HA4;; NO(# FILES;; DIRECTORY2#!RUN;; REINIT SCREEN<#X;F#A4R> 4;; OPTION 4?P# }FA5;; YES...Z#!MAINMENU;; BAD INPUTd#X;n#A5Q>';; RESET RIGHTx#PS;; MARGIN#!@ :;; GO TO DOS#X;#X; CONVERT A FI }LE TO BINARY#X;#CONVERTQ>}# PUTBYTE;; CLEAR SCREEN#Q>#PMAXLINE;; INPUT LINE LEN.#X;#POS  =#"L11P }RINT =AINPUT FILE - A# GETLINE;; GET INPUT NAME#QINLINE;; NAME ENTERED?$HL10;; BR. IF YES$:;; NO, RETURN$X;"$ } L10 SETNAME;; VALIDATE NAME,$ CLOSE 6$OPEN ===FNAME@$GL11;; ERROR TRY AGAINJ$X;T$X; PASS 1, COUNT BYTES^ }$X;h$"X; MUST KNOW EXACT LEN OF BASICr$ X; FILE.|$X;$Q>;; ZERO BASIC$PFILELEN;; FILE LENGTH$PFILELEN$X;$L }13GET ;; GET A BYTE$)>;; CHECK FOR EOF$FPASS2;; BR. EOF REACHED$X;$#FILELEN;; COUNT BYTES.$HL13$#FILELE }N$HL13$X;%"X; PASS2 SAVE ROUTINE THAT RUNS% X; THE BASIC. THEN COPY BASIC%#X; PROGRAM OVER TO THE NEW FILE.&%X;0% }'PASS2CLOSE ;; REOPEN INPUT FILE:%OPEN ===FNAMED%X;N%"L3PRINT =AOUTPUT FILE - AX% GETLINE;; GET FILEN }AMEb%QINLINE;; NAME ENTERED?l%HL12;; BR. IF SOv%:;; RETURN - ABORT%X;% L12 SETNAME;; VALIDATE NAME% CLOSE % }OPEN ===FNAME%GL3%X;%%X; CALCULATE LENGTH OF THE ROUTINE%X; THAT'LL EXECUTE THE BASIC%#X; PROGRAM. SAVE RESU }LT IN "LEN"%X;%Q>BASRUN% PPSTART%Q>BASRUN&PPSTART &X;&Q>ENDRUN & PPEND*&Q>ENDRUN4& PPEN }D>& SUBTRACT;; GET LENGTHH&X;R&X; MAKE BIN LOAD POINTERS\&X;f&%X; ADD THE LEN. OF THE BAS PROGRAMp&#X; TO THE ADDRESS } WHERE IT FIRSTz&X; LOADS IN MEMORY.&X;&QMEMLO;; START ADDRESS&,&O>;; BAS. BUFFER OFFSET& PTEMP2& QMEMLO& }O>& PTEMP3&X;&X; LOW BYTES&X;&QTEMP2;; SAVE START POINT&PBASICSTART',;; ADD IN FILE LENGTH' OFILELEN'P }ENDRUN;;SAVE END POINT$'X;.'X; HIGH BYTES8'X;B'QTEMP3;; SAVE STARTL'PBASICSTARTV'OFILELEN;; ADD IN LEN`'P }ENDRUN;; SAVE ENDj'X;t'QENDRUN;; SUBTRACT 1~';;; FROM END POINT'S>;; (FUDGE)'PENDRUN' QENDRUN'S>' P }ENDRUN'X;'X; SAVE THE EXECUTE ROUTINE'!X; ALONG WITH ALL BIN POINTERS'X;'BPUT =BASRUN=LEN'X;'X; COPY BASIC } FILE OVER(X; (L4BGET =BUF==LEN('TEMY;; SAVE ERROR FLAG(BPUT =BUF=LEN((X;2(%TEMY;; GET ERROR FLAG< }()>;; EOF REACHED?F(HL4;; BR. IF NOTP(X;Z(CLOSE ;; CLEAN UPd( CLOSE n(:;; ALL DONEx(X;(X; CONTROL PAD?!( }X;(PADQ>};; CLEAR SCREEN( PUTBYTE(Q>;; ZERO MARGIN(PR(X;(/PRINT =A Basic to Binary Control Pad`A(/P }RINT =A `A(+PRINT =A : Item to change`A()PRINT =A : Changes Item`A }(%PRINT =A Ԡ : Exits````A(3PRINT =A -``BREAK -``TITLE -``MEMLO -A)X;)X;)Q>;; ZERO VARIABLES") }PTEMP1,) POPTION6)>@)X;J)Q>T) PSCRN^)#PRINTITEM PITEM;; PRINT OPTIONh)$TEMP1;; GET Xr) 2;; ADD 1|)&TEMP1;; SAVE } IT)(>;; ALL DONE?)HPRINTITEM;; NO.)X;)STATCONQ>;; CLEAR CONSOL)Pи)Q;; STATUS CONSOL)R>;; PRESSED? })ESTATCON;; BR. IF NOT) ?;; SAVE A) Q>;;)P;; CLICK)P ;; WAIT)X;*CN1Q>;; CLEAR CON*P*Q;; STAT }US CON&*R>;; HANDS OFF?0*HCN1;; NO, PEOPLE ARE SLOW:*X;D*Q> ;; 1/6 SEC DELAYN*PX* CN2Qb*HCN2;; LOOP TIL ZER }Ol*X;v*C;; RESTORE A*X;*R>;; SELECT PRESSED?*FCON1;; YES*X;*R>;; OPTION PRESSED?*HEXITPAD;; NO, EXIT*X; }*!OPT* EXITPAD:*X;*CON1QX;; GET SCREEN ADDR* PTEMP2*QY+ PTEMP3 +X;+QSCRN;; CALC. SCREEN +>;; POSITON*+ } Z1QTEMP24+,>+O>(H+ PTEMP2R+ QTEMP3\+O>f+ PTEMP3p+0z+HZ1+X;+%>+Z2Q@TEMP27;; GET BYTE+FZ7;; END OF }BLOCK+M>;; INVERSE OFF+P@TEMP27;; PUT IT BACK+3;; NEXT BYTE+ HZ2;; NO+X;+Z7QOPTION;; LAST OPTION?+R>+ }HZ3;; NO+X;,Q>;; YES LOOP TO FIRST, POPTION,Q>;; RESET POSITION$, PSCRN., QTEMP28,;B,S>L, PTEMP2V, QTEMP }3`,S>j, PTEMP3t,%>~,!Z4,X;,Z3#OPTION;; NEXT OPTION, #SCRN, #SCRN,%>P,X;,Z4Q@TEMP27;; GET BYTE,F }Z6;; END OF BLOCK,,,O>;; INVERSE ON,P@TEMP27;; PUT IT BACK,3;; NEXT BYTE-HZ4;; LOOP -Z6!STATCON;; DONE-X; }-X; PRINT SELECTED ITEM.(-X;2-PITEMQ>;; ZERO VARIABLES<- PTEMP2F- PTEMP3P-X;Z-QRESET9;; GET Y VALUEd-?n-X;x-X; } (X*6)+(Y*2)=JMP ADDR-X; X=OPTION Y=ITEM-X;-X; MULTIPLY X*6-X;-DOX0-(>-FDOY- QTEMP2-,-O>- PTEMP2 }-!DOX-X;.X; MULTIPLY Y*2.X;.DOY1".)>,. FADDEM6. QTEMP3@.,J.O>T. PTEMP3^.!DOYh.X;r.ADDEMQTEMP3|., }. OTEMP2.>.X;. QTABLE19.PGOPRNT.QTABLE19.PGOPRNT.X;.GOPRNT L==;; JMP XX.X;.X; PRINT'S }TO MAKE TABLE1.X;.O0I0POS =/&PRINT =ATrap & Re-Run ProgramA/:/O0I1POS =&/&PRINT =AReset Norm }ally A0/::/O0I2POS =D/&PRINT =ACold Start AN/:X/X;b/X;l/O1I0POS  =v/PRINT =ADis }abledA/:/O1I1POS  =/PRINT =AEnabled A/:/X;/O2I0POS  =/PRINT =AOffA/:/O2I1POS  = }/PRINT =AOn A/#STRIP;; STRIP CHR OFF/POS =/PRINT =AENTER TITLE:``A0<PRINT =A[ } ]A 0Q>0PMAXLINE;; 19 CHR LIMIT 0 GETLINE;; GET TITLE*0POS =40!PRINT =AA;; ERASE }PROMPT>0QINLINE;; TITLE ENTERED?H0HTI5;; BR IF SOR0"STRIP;; NO TITLE\0 !NULLf0X;p0TI5%>;; TITLE LEN-1z0Q> ;; SP }ACE CHR0X;0!TI4PTLINE8;; ERASE OLD TITLE010)>0HTI40X;0X; CENTER TITLE0X;0$> ;; MAX TITLE LEN/20QINL }INE;; TITLE LEN0X;0TI10;; DIVIDE TITLE0;;; LEN BY 21S>1ETI11X;$1(> ;; X>10 ?.1 DTI9;; NO81X;B1 $>;; YES }L1X;V1TI9%>;; MOVE TITLE`1TI3QLBUFF8;; GET BYTEj1FTI2;; BR IF ENDt1PTLINE9;; SAVE BYTE~13;; NEXT BYTE121!TI }3;; LOOP1TI2"STRIP;; STRIP CHR ON1 :;; DONE1X;1O3I0POS =1PRINT =A A1POS =1PNUM =MEM }LO1:1X;1O3I1POS =2$PRINT =ANEW MEMLO VALUE IS:A 2Q>;; 5 CHRS MAX2 PMAXLINE2X;(2 GETLINE;; GET NUM }BER22QINLINE;; CHECK LEN<2FNULL;; NOTHING THEREF2'ASCIINUM LBUFF=MEMLO;; ASCII->FPP2X;Z2NULL$OPTION;; NULL ITEMd2 }Q>;; LOOP TO VALIDn2PRESET9;; ITEMx2 !PITEM2X;2TABLE1 O0I0=O0I1=O0I22 O1I0=O1I1=NULL2 O2I0=O2I1=NULL }2 O3I0=O3I1=NULL2X;2X;2X;2OPT$OPTION;; GET OFFSET2#RESET9;; NEXT ITEM2 QRESET92R>;; INC TO FAR?2HZ5 };; BR. IF NOT3Q>;; LOOP TO FIRST3PRESET9;; ITEM.3Z5 PITEM;; PRINT NEW ITEM"3!STATCON;; CHECK CONSOL,3X;63 X; FI }LES@3X;J3 FILESQ>}T3 PUTBYTE^3X;h3Q>;; ZERO DRIVE BYTEr3 PDIR|3X;3$PRINT =A```Which drive? -A3GET  };; GET A KEY3PDIR;; STORE AT D#3 CLOSE 3OPEN ===DIR3IDD1;; BR. IF SUCCESSFUL3:;; ERROR, RETURN3 }X;3 DD1CLOSE ;; CLOSE EDITOR3OPEN = ==AEA;; GR. 03Q>;; CHANGE COLOR3P3DD3GET ;; GET A BYTE4 }GDD2;; BR. ON ERROR4PUT ;; PRINT BYTE4IDD3;; LOOP&4X;04DD2CLOSE :4!PRINT =A``Type any key.`AD4GET  };; GET KEYN4:X4X;b4;; BIN LOAD RUNl4 RUNDD3;; LOOP&4X;04DD2CLOSE :4!PRINT =A``Type any key.`AD4GET  2; CHECK.ACT; Steven Yates; 12/02/85; CHECKSUM DATA;[9E 43 B1 2D 74 DD 67 7C ; 13 30 E5 8F 7A CA C9 77 ; AD AE} 96 44 B0 F8 99 39 ; EB ]BYTE StartChar,CurChar,Count,X, Flag=[0],Character,Sum,ISum, Product,Key,Case=[0],Colum}n=1152, Sensitive=[1],Lines,SumLine, WrongLine,Segment=[0],String=[1], SubString=[2],Space=[32]CARD StartLine},Line=1160, FirstLine=1156BYTE ARRAY Sums(256)CARD ARRAY SumLines(32)BYTE POINTER LengthCARD POINTER CurLine,NextLin}e, WrongSumDEFINE is="=", not="<>", Done="Flag=1"PROC End_Of_Line() DO CurLine=NextLine^ CurChar=}7 Length=CurLine+6 NextLine=CurLine+4 IF CurLine=0 THEN EXIT FI UNTIL Length^>0 ODRETURNPROC }Quotes() IF Segment is String THEN Segment=0 ELSE Segment=String FIRETURNPROC Ignore() X==-1 Count==-}1 Character=0RETURNPROC Check_Line() Character=Peek(CurLine+CurChar) IF Segment is SubString THEN Segment=0 }ELSEIF Character='" THEN Quotes() ELSEIF Segment is String THEN ELSEIF Character='' THEN Segment is SubString E}LSEIF Character is Space THEN Ignore() ELSEIF Character='; THEN Ignore() CurChar=Length^+6 ELSEIF Case not Se}nsitive AND Character>96 AND Character<123 THEN Character==-32 FI Product=(X*Character) RSH Case }Sum==+Product CurChar==+1 X==+1 IF X=4 THEN X=1 FIRETURNPROC Find_Sums() DO DO Character=Peek(Cu}rLine+CurChar) IF Character not '; THEN End_Of_Line() ELSEIF Length^>1 THEN EXIT ELSE  } End_Of_Line() FI IF CurLine=0 THEN Done EXIT FI OD CurChar=8 Character=Peek(!}CurLine+CurChar) IF Character is '[ THEN EXIT FI IF Done THEN PrintE("Listing does not") PrintE"}("contain checksums.") PutE() PrintE("Cannot CHECK!") EXIT FI End_Of_Line() ODRETURNPROC Get_#}Sums() BYTE I BYTE ARRAY Hex(1) Find_Sums() SumLine=0 DO IF Done THEN EXIT FI SumLines(SumLine)=C$}urLine CurChar=9 FOR ISum=0 TO 7 DO FOR I=0 TO 1 DO Hex(I)=Peek(CurLine+CurChar+I) IF Hex(I)>='%}A THEN Hex(I)==-('A-'9-1) FI Hex(I)==-'0 OD Sum=(Hex(0) LSH 4)+Hex(1) Sums(SumLin&}e*8+ISum)=Sum IF Peek(CurLine+CurChar+3) is '] THEN Done EXIT FI CurChar==+3 OD'} End_Of_Line() IF Done THEN Flag=0 EXIT FI SumLine==+1 ODRETURNPROC Mistyped() Line=Start(}Line Column=StartChar PrintE("Return to editor and check") Print("the ") PrintB(Lines) PrintE(" lines following the)} line") Print("the cursor is on for a ") PrintE("typo.")RETURNPROC Bad_Sum() BYTE I IF Case is Sensitive THEN *} Print("If article does not ") PrintE("specify") Print("case sensitive, use ") PrintE("option") Print("comma+}nd to set this to ") PrintE("no.") PutE() PutE() FI WrongLine=ISum/8 Sum=ISum&7 WrongSum=SumLines(WrongLi,}ne)+9+Sum*3 WrongSum^==%$8080 FOR I=0 TO SumLine DO PrintE(SumLines(I)+6) OD WrongSum^==!$8080 PutE() Print("-}Is highlighted sum correct?") Key=GetD(1) Key==%32 PutE() PutE() IF Key='y THEN Mistyped() ELSE Print("Re.}turn to editor and ") PrintE("correct") PrintE("mistyped sum.") Line=SumLines(WrongLine) Column=(Sum+1)*3 F/}IRETURNPROC No_Problems() PrintE("Program CHECKs out fine.") PrintE("Save program and use") PrintE("according to d0}irections") PrintE("in the article.") DoneRETURNPROC Check_Sum() IF Sum<>Sums(ISum) THEN Bad_Sum() Done 1}FI ISum==+1RETURNPROC Initialize() IF Peek(1226)=255 THEN Case is Sensitive FI X=1 CurLine=FirstLine Len2}gth=CurLine+6 NextLine=CurLine+4 IF Length^=0 THEN End_Of_Line() FI CurChar=7 Close(1) Open(1,"K:",4,0)RETU3}RNPROC D_Check() Initialize() Get_Sums() ISum=0 DO IF Done THEN EXIT FI Sum=0 Lines=0 FO4}R Count=0 TO 127 DO IF Count=0 THEN StartLine=CurLine StartChar=CurChar-6 FI Check_Line() 5} IF CurChar=Length^+7 THEN End_Of_Line() IF CurLine=0 THEN Check_Sum() IF Done THEN 6} EXIT FI No_Problems() EXIT FI Lines==+1 FI OD IF Done 7}THEN EXIT FI Check_Sum() OD Close(1)RETURNXIT FI Lines==+1 FI OD IF Done @10 ;20 ; *** DUNGEONLORDS ***30 ; (Revision B)40 ;50 ; By Brian Douglas Bradley60 ; August 1, 198670 ;80 9}; VARIABLES:90 ; ---------0100 ;0110 LOA =1280120 HIA =1290130 LO =1300140 HI =:}1310150 LOC =1320160 HIC =1330170 V1 =1340180 V2 =1350190 V3 =1360200 V4 =1370;}210 V5 =1380220 V6 =1390230 V7 =1400240 V8 =1410250 V9 =1420260 XCL =1430270 Y<}RW =1440280 CLX =1450290 RWY =1460300 XPOS =1470310 YPOS =1480320 MNX =1490330 MNY =} =1500340 MNXA =1510350 MNYA =1520360 STK =1530370 STK1 =1540380 TRGR =1550390 MVE =>}1560400 GX1 =1570410 GY1 =1580420 GX2 =1590430 GY2 =1600440 BLTX =1610450 BLTY =1620?}460 BLTXY =1630470 TXY =1640480 JUMP =1650490 CNTR =1660500 XCNT =1670510 TIMES =1680520 S@}PEED =1690530 PLAY =1700540 SNGX =1710550 SPOT =1720560 SPOT2 =1730570 OVER =1740580 KEY A} =1750590 SHOMN =1760600 LVL =1770610 LIVES =1780620 NOW =1790630 DLO =1820640 DHI =B}1830650 BDX =1840660 BDY =2160670 BDXY =15360680 BDG =15680690 ALV =16000700 DLIST =12C}2120710 SCRS =144780720 SYSVBV =584630730 SEVBV =584600740 ;0750 ; INITIALIZE PROGRAM0760 ;0770 *= 87750D}780 .BYTE 112,112,112,112,112,710790 .BYTE 102,34,70,122,34,1120800 .BYTE 112,71,162,34,70,1420810 .BYTE 34,112,112,11E}2,70,1820820 .BYTE 34,70,0,57,65,71,340830 .BYTE " dungeonlords "0840 .BYTE " by brian bradley "0850 .BYTE " F}press start to play"0860 .BYTE " "0870 .BYTE " "0880 LDA # 00890 LDX # 00900 RG}PT0910 LDY # 00920 RPTA0930 STA $3900,Y0940 INY0950 CPY # 00960 BNE RPTA0970 INC RPTA+20980 INX0990 CPX # 16H}1000 BNE RPT1010 LDA # 561020 STA 542791030 LDA # 1261040 STA 5591050 LDA # 31060 STA 532771070 STA 53775108I}0 LDA # 01090 STA 7121100 LDY # 01110 STR1120 STA 128,Y1130 INY1140 CPY # 1281150 BNE STR1160 LDA # 81170 SJ}TA 7061180 LDA # 1191190 STA 532481200 STA 532491210 STA 532501220 JSR INT1230 LDA # 2121240 STA 7041250 STA K}7101260 STRT1270 LDA # 2241280 STA 7561290 LDA # 01300 STA 7081310 STA 7111320 LDA # 711330 STA 5601340 LDA L}# 701350 STA 7051360 STA 7091370 LDA # 341380 STA 5611390 SRT1400 LDA 532791410 CMP # 61420 BNE SRT1430 LDA M}# 2501440 STA 7111450 LDA # 481460 STA 7561470 LDA # 1801480 STA 5601490 LDA # 471500 STA 5611510 LDA # 1152N}0 STA LVL1530 JSR LP1540 JMP STRT1550 ;1560 ; Display remaining lives1570 ; and clear away all monsters1580 ;1590 IO}TA1600 JSR ITF1610 JMP ITE1620 ITF1630 LDX # 11640 LDA # 551650 ITB1660 SEC1670 CPX LIVES1680 BCC ITC1690 LP}DA # 01700 ITC1710 STA SCRS-10,X1720 INX1730 CPX # 81740 BNE ITB1750 RTS1760 ITE1770 LDX # 01780 LDA # 01790Q} STA OVER1800 IT1810 STA BDG,X1820 LDA ALV,X1830 CMP # 01840 BEQ ITD1850 LDA BDX,X1860 STA XCL1870 LDA BDY,XR}1880 STA YRW1890 JSR CLR1900 STA ALV,X1910 ITD1920 INX1930 CPX # 321940 BNE IT1950 JSR PCLR1960 LDA # 81970 S} STA MNX1980 LDA # 481990 STA MNY2000 RTS2010 ;2020 ; Create random maze2030 ;2040 W2050 JSR ITA2060 LDA LVL20T}70 SEC2080 SBC # 12090 LSR A2100 LSR A2110 STA SPEED2120 INC SPEED2130 ASL A2140 ASL A2150 ASL A2160 ASL AU}2170 STA V12180 LDA # 62190 SEC2200 SBC V12210 STA 7092220 JSR PCLR2230 LDA # 02240 STA KEY2250 STA V62260V} STA V32270 LDA 537702280 AND # 72290 STA V72300 LDA 537702310 AND # 72320 CLC2330 ADC # 82340 STA V82350 WW}22360 LDX # 02370 W12380 STX XCL2390 LDA V32400 STA YRW2410 JSR X962420 LDA # 02430 STA (LOA),Y2440 INX2450X} CPX # 642460 BNE W12470 INC V32480 LDA # 212490 CMP V32500 BNE W22510 LDX # 02520 W32530 LDA # 02540 STA YY}RW2550 STX XCL2560 JSR PTW2570 LDA # 202580 STA YRW2590 JSR PTW2600 INX2610 INX2620 CPX # 622630 BNE W3264Z}0 LDX # 22650 W42660 LDA # 02670 STA XCL2680 STX YRW2690 JSR PTW2700 LDA # 602710 STA XCL2720 JSR PTW2730 I[}NX2740 INX2750 CPX # 202760 BNE W42770 LDA # 562780 STA XCL2790 LDX # 22800 W492810 STX YRW2820 JSR PTW2830\} INX2840 INX2850 CPX # 182860 BNE W492870 JSR GR2880 LDA # 02890 STA XCL2900 LDA # 42910 STA YRW2920 JSR G]}R22930 LDA # 22940 STA XCL2950 STA YRW2960 JSR PTW2970 LDA # 42980 STA XCL2990 JSR PTW3000 LDA # 03010 STA ^}V53020 LDA # 43030 STA V43040 W433050 LDX # 43060 W453070 STX XCL3080 LDA V43090 STA YRW3100 LDA # 03110 ST_}A V53120 JSR X963130 LDA (LOA),Y3140 CMP # 03150 BEQ W463160 JMP W153170 W463180 JSR PTW3190 LDA 537703200 A`}ND # 33210 CMP # 33220 BNE W53230 DEC YRW3240 DEC YRW3250 JMP WUP3260 W53270 CMP # 23280 BNE W63290 INC YRWa}3300 INC YRW3310 JMP WUP3320 W63330 CMP # 13340 BNE W73350 DEC XCL3360 DEC XCL3370 JMP WLR3380 W73390 INC XCb}L3400 INC XCL3410 WLR3420 LDA XCL3430 STA CLX3440 LDA YRW3450 STA RWY3460 SEC3470 SBC # 43480 STA YRW3490 c}JSR X963500 LDA (LOA),Y3510 CMP # 03520 BEQ W83530 INC V53540 W83550 LDY # 1913560 LDA (LOA),Y3570 CMP # 0358d}0 BEQ W93590 INC V53600 W93610 LDY # 1943620 LDA (LOA),Y3630 CMP # 03640 BEQ W103650 INC V53660 W103670 LDA e}V53680 SEC3690 CMP # 23700 BCC W113710 JMP W153720 W113730 LDA CLX3740 STA XCL3750 LDA RWY3760 STA YRW3770 f} JSR X963780 LDA (LOA),Y3790 CMP # 03800 BEQ WGO3810 JMP W153820 WGO3830 LDA V63840 INC V63850 CMP V73860 BNg}E W303870 LDA # 1753880 JMP W363890 W303900 CMP V83910 BNE W393920 LDA # 1753930 JMP W363940 W393950 LDA 5377q}B%DOS SYSB*)DUP SYSB(SBAS2BIN OBJB{BAS2BINWM65B%CHECK ACTB8DUNGEN1 ASMBd-DUNGEN2 ASMB/DUNGEON OBJEDITORIILSTGDW BASGDW1 LSTGDW2 LSTGDW3 LSTGDW4 LSTGDW5 LST. GRAPHICSACT7KOALA ACT>MAKEDATABASAMLEDITORBAS03960 AND # 633970 SEC3980 CMP LVL3990 BCC W404000 JMP W324010 W404020 LDA # 1674030 W364040 JSR W914050 JMr}P W154060 W914070 STA V54080 JSR X964090 LDA V54100 STA (LOA),Y4110 LDY # 14120 INC V54130 LDA V54140 STA (Ls}OA),Y4150 LDY # 964160 INC V54170 LDA V54180 STA (LOA),Y4190 LDY # 974200 INC V54210 LDA V54220 STA (LOA),Y4t}230 RTS4240 W324250 JSR PTW4260 JMP W154270 WUP4280 LDA XCL4290 STA CLX4300 DEC XCL4310 DEC XCL4320 LDA YRWu}4330 STA RWY4340 DEC YRW4350 DEC YRW4360 JSR X964370 LDA (LOA),Y4380 CMP # 04390 BEQ W124400 INC V54410 W124v}420 LDY # 1914430 LDA (LOA),Y4440 CMP # 04450 BEQ W134460 INC V54470 W134480 LDY # 1284490 INC HIA4500 LDA (Lw}OA),Y4510 CMP # 04520 BEQ W144530 INC V54540 W144550 LDA V54560 SEC4570 CMP # 24580 BCC W414590 JMP W154600x} W414610 JMP W114620 W154630 INX4640 INX4650 INX4660 INX4670 CPX # 564680 BEQ W164690 JMP W454700 W164710 y} LDA V44720 CLC4730 ADC # 44740 STA V44750 CMP # 204760 BEQ W204770 JMP W434780 W204790 LDA # 584800 STA XCLz}4810 LDA # 64820 STA YRW4830 LDA # 1794840 JSR W914850 LDA # 84860 STA YRW4870 LDA # 1794880 JSR W914890 LD{}A # 564900 STA XCL4910 LDA # 04920 STA YRW4930 JSR GR24940 LDA # 584950 STA XCL4960 LDA # 24970 STA YRW4980 |} LDA LVL4990 AND # 35000 CMP # 05010 BNE W175020 LDA # 2325030 JMP W185040 W175050 LDA # 2445060 W185070 JSR }}W915080 LDA LVL5090 AND # 75100 CMP # 05110 BNE W195120 LDA # 105130 STA YRW5140 LDA # 1795150 JSR W915160 ~}LDA # 545170 STA XCL5180 LDA # 25190 STA YRW5200 LDA # 1755210 JSR W915220 W195230 RTS5240 PTW5250 JSR X9652}60 JSR LTW5270 LDY # 05280 STA (LOA),Y5290 JSR RTW5300 LDY # 15310 STA (LOA),Y5320 JSR RTW5330 LDY # 965340 }STA (LOA),Y5350 JSR LTW5360 LDY # 975370 STA (LOA),Y5380 RTS5390 LTW5400 LDA 537705410 AND # 35420 CLC5430 A}DC # 15440 RTS5450 RTW5460 LDA 537705470 AND # 35480 CLC5490 ADC # 55500 RTS5510 X965520 LDA # 05530 STA V1}5540 STA V25550 STA HIA5560 LDA YRW5570 STA LOA5580 LDY # 05590 L15600 LDA HIA5610 ASL A5620 STA HIA5630 L}DA LOA5640 ASL A5650 BCC L25660 INC HIA5670 CLC5680 L25690 STA LOA5700 INY5710 CPY # 55720 BNE L35730 LDA }LOA5740 STA V15750 LDA HIA5760 STA V25770 L35780 CPY # 65790 BNE L15800 LDA HIA5810 CLC5820 ADC V25830 STA} HIA5840 LDA LOA5850 CLC5860 ADC V15870 BCC L45880 INC HIA5890 CLC5900 L45910 STA LOA5920 LDA HIA5930 CLC}5940 ADC # 645950 STA HIA5960 LDA LOA5970 CLC5980 ADC XCL5990 BCC L56000 INC HIA6010 L56020 CLC6030 ADC # 2}06040 BCC L66050 INC HIA6060 L66070 STA LOA6080 LDY # 06090 RTS6100 ;6110 ; Who can see man?6120 ;6130 ST6140} JSR ST976150 LDA # 1296160 STA V56170 DEC XCL6180 ST26190 JSR ST996200 DEC XCL6210 CMP # 06220 BEQ ST26230 } LDA XCL6240 STA V66250 JSR ST976260 LDA # 16270 STA V56280 INC XCL6290 ST36300 JSR ST996310 INC XCL6320 CMP} # 06330 BEQ ST36340 LDA XCL6350 STA V76360 JSR ST976370 LDA # 2246380 STA V56390 DEC YRW6400 ST46410 JSR ST}996420 DEC YRW6430 CMP # 06440 BEQ ST46450 LDA YRW6460 STA V86470 JSR ST976480 LDA # 966490 STA V56500 INC }YRW6510 ST56520 JSR ST996530 INC YRW6540 CMP # 06550 BEQ ST56560 LDA YRW6570 STA V96580 RTS6590 ST996600 LD}A V56610 AND # 1276620 STA V16630 LDA V56640 AND # 1286650 CMP # 06660 BEQ Z16670 LDA LOA6680 SEC6690 SBC V}16700 BCS Z26710 DEC HIA6720 Z26730 STA LOA6740 JMP Z46750 Z16760 LDA LOA6770 CLC6780 ADC V16790 BCC Z3680}0 INC HIA6810 Z36820 STA LOA6830 Z46840 LDY # 06850 LDA (LOA),Y6860 INX6870 CMP # 06880 BEQ ST986890 CMP # 5}56900 BEQ ST986910 ST966920 LDA # 16930 RTS6940 ST986950 LDA # 06960 RTS6970 ST976980 LDX # 06990 LDA XPOS7}000 STA XCL7010 LDA YPOS7020 STA YRW7030 JSR X967040 RTS7050 ;7060 ; Set up Transporters7070 ;7080 GR7090 LDA }537707100 AND # 37110 CLC7120 ADC # 37130 ASL A7140 ASL A7150 STA XCL7160 CLC7170 ADC # 27180 STA GX17190 } LDA 537707200 AND # 37210 ASL A7220 ASL A7230 STA YRW7240 CLC7250 ADC # 27260 STA GY17270 JSR GR27280 LDA }537707290 AND # 37300 CLC7310 ADC # 97320 ASL A7330 ASL A7340 STA XCL7350 CLC7360 ADC # 27370 STA GX27380 } LDA 537707390 AND # 37400 ASL A7410 ASL A7420 STA YRW7430 CLC7440 ADC # 27450 STA GY27460 JSR GR27470 RTS}7480 GR27490 LDA # 177500 JSR W917510 INC YRW7520 INC YRW7530 LDA # 97540 JSR W917550 DEC YRW7560 DEC YRW757}0 INC XCL7580 INC XCL7590 LDA # 217600 JSR W917610 INC XCL7620 INC XCL7630 LDA # 257640 JSR W917650 INC YRW}7660 INC YRW7670 LDA # 137680 JSR W917690 INC YRW7700 INC YRW7710 JSR PTW7720 LDA XCL7730 SEC7740 SBC # 477}50 STA XCL7760 JSR PTW7770 RTS7780 ;7790 ; VERTICAL BLANK7800 ; (Used for smooth-scroll)7810 ;7820 INT7830 LDY # }VBK&2557840 LDX # VBK/2567850 LDA # 67860 JSR SEVBV7870 INT27880 LDX # 07890 LDA # 1577900 AGN27910 STA SCRS,X}7920 INX7930 CPX # 77940 BNE AGN27950 LDA # 51 7960 STA HIC7970 RTS7980 VBK7990 LDA # 648000 STA DHI8010 }LDA MNX8020 LSR A8030 LSR A8040 AND # 2548050 STA DLO8060 LDY # 48070 AGN8080 LDA DLO8090 STA DLIST,Y8100 IN}Y8110 LDA DHI8120 STA DLIST,Y8130 LDA DLO8140 CLC8150 ADC # 968160 BCC NXT8170 INC DHI8180 NXT8190 STA DLO8}200 INY8210 INY8220 CPY # 708230 BNE AGN8240 LDA MNX8250 AND # 78260 EOR # 78270 STA 542768280 JMP SYSVBV82}90 FND8300 JSR FND1A8310 FND1A8320 STA V38330 AND # 128340 CMP # 08350 BNE FND18360 JMP FND38370 FND18380 CMP} # 88390 BNE FND28400 INC XCL8410 FND28420 CMP # 48430 BNE FND58440 DEC XCL8450 JMP FND58460 FND38470 LDA V3}8480 AND # 38490 CMP # 28500 BNE FND48510 INC YRW8520 FND48530 CMP # 18540 BNE FND58550 DEC YRW8560 FND58570 } LDA V38580 RTS8590 REVERS8600 STA V38610 AND # 128620 CMP # 08630 BEQ RVS18640 EOR # 128650 RVS18660 STA V1}8670 LDA V38680 AND # 38690 CMP # 08700 BEQ RVS28710 EOR # 38720 RVS28730 CLC8740 ADC V18750 RTS8760 PLY877}0 LDA # 88780 STA SNGX8790 RTS8800 ;8810 ; Found Treasure!8820 ;8830 FDT8840 JSR PLY8850 LDX # 1688860 STX PLA}Y8870 LDX # 1928880 STX LOC8890 LDX # 48900 JSR SCR8910 LDA # 1718920 JSR W918930 LDA # 1718940 RTS8950 ;89}60 ; Found Key!8970 ;8980 FDK8990 LDA KEY9000 CMP # 19010 BNE FDL9020 RTS9030 FDL9040 JSR PLY9050 LDX # 16890}60 STX PLAY9070 LDX # 2089080 STX LOC9090 LDA # 19100 STA KEY9110 JSR CLR9120 LDA # 09130 RTS9140 ;9150 ; Fo}und Keyhole!9160 ;9170 FDH9180 LDA KEY9190 CMP # 09200 BEQ FDI9210 JSR PLY9220 LDX # 1689230 STX PLAY9240 LDX} # 2009250 STX LOC9260 LDA # 09270 STA KEY9280 JSR CLR9290 LDA # 09300 RTS9310 FDI9320 LDA # 1719330 RTS934}0 ;9350 ; Release Prisoner9360 ;9370 FDP9380 JSR PLY9390 LDX # 1689400 STX PLAY9410 LDX # 2249420 STX LOC9430 }JSR CLR9440 LDX # 39450 JSR SCR9460 LDA # 09470 STA XCL9480 LDA # 29490 STA YRW9500 JSR GR29510 LDA # 29520 } STA XCL9530 LDA # 49540 STA YRW9550 LDA # 2449560 JSR W919570 LDA # 09580 RTS9590 ;9600 ; Clear Location9610 };9620 CLR9630 JSR X969640 LDA # 09650 STA (LOA),Y9660 LDY # 19670 STA (LOA),Y9680 LDY # 969690 STA (LOA),Y970}0 LDY # 979710 STA (LOA),Y9720 RTS9730 ;9740 ; Handle Score9750 ;9760 SCR9770 LDA # 19780 STA V19790 SCR19800 } LDA V19810 CMP # 19820 BNE SCR39830 CPX # 29840 BNE SCR49850 INC LIVES9860 STX V19870 JSR ITF9880 JSR PLY98}90 LDA # 2249900 STA LOC9910 LDA # 1689920 STA PLAY9930 LDX V19940 SCR49950 LDA # 09960 STA V19970 LDA SCRS,X}9980 CLC9990 ADC # 1010000 CMP # 167010010 BNE SCR2010020 LDA # 157010030 INC V1010040 SCR2010050 STA SCRS,X0}10060 SCR3010070 DEX010080 CPX # 255010090 BNE SCR1010100 RTS010110 ;010120 ; Move Man Around010130 ;010140 MN01}0150 LDA # 146010160 STA V1010170 LDA NOW010180 SEC010190 CMP # 128010200 BCC ZX010210 LDA # 68010220 STA V10}10230 ZX010240 LDA 20010250 AND # 7010260 CLC010270 ADC V1010280 ZZ010290 STA 708010300 LDA 54016010310 AND # }12010320 EOR # 12010330 CMP # 0010340 BEQ MN1010350 STA STK010360 JMP MN2010370 MN1010380 LDA 54016010390 AND }# 3010400 EOR # 3010410 STA STK010420 MN2010430 LDA MNX010440 LSR A010450 LSR A010460 AND # 254010470 STA XPOS}010480 LDA MNX010490 AND # 7010500 CMP # 0010510 BEQ MN3010520 JMP MN14010530 MN3010540 LDA MNY010550 LSR A01}0560 LSR A010570 LSR A010580 AND # 254010590 STA YPOS010600 LDA MNY010610 AND # 15010620 CMP # 0010630 BEQ MN4}010640 JMP MN14010650 MN4010660 LDA TRGR010670 CMP # 0010680 BEQ MN7010690 LDA STK010700 CMP # 0010710 BEQ MN7}010720 LDA XPOS010730 STA XCL010740 LDA YPOS010750 STA YRW010760 LDA STK010770 JSR FND010780 JSR X96010790 LD}A (LOA),Y010800 CMP # 167010810 BNE MN5010820 JSR FDT010830 MN5010840 CMP # 175010850 BNE MN6010860 JSR FDK0108}70 MN6010880 CMP # 0010890 BEQ MNA010900 SEC010910 CMP # 52010920 BCC MN7010930 CMP # 171010940 BEQ MN7010950 }MNA010960 LDA STK010970 STA MVE010980 MN7010990 LDA XPOS011000 STA XCL011010 LDA YPOS011020 STA YRW011030 LDA }MVE011040 JSR FND011050 JSR X96011060 LDA (LOA),Y011070 CMP # 167011080 BNE MN8011090 JSR FDT011100 MN8011110 }CMP # 175011120 BNE MN9011130 JSR FDK011140 MN9011150 CMP # 179011160 BNE MN10011170 JSR FDH011180 MN10011190 C}MP # 244011200 BNE MN11011210 INC OVER011220 MN11011230 CMP # 232011240 BNE MN11A011250 JSR FDP011260 MN11A01127}0 CMP # 0011280 BEQ MN13011290 SEC011300 CMP # 52011310 BCC MN12011320 CMP # 171011330 BEQ MN12011340 JMP MN13}011350 MN12011360 LDA # 0011370 STA MVE011380 MN13011390 LDA MNX011400 STA XCL011410 LDA MNY011420 STA YRW0114}30 LDA MVE011440 JSR FND1A011450 LDA XCL011460 STA MNX011470 LDA YRW011480 STA MNY011490 JMP SW011500 MN140115}10 LDA TRGR011520 CMP # 0011530 BEQ MN13011540 LDA STK011550 CMP # 0011560 BNE MN15011570 JMP MN13011580 MN150}11590 LDA MVE011600 JSR REVERS011610 CMP STK011620 BNE MN16011630 LDA STK011640 STA MVE011650 MN16011660 JMP MN}13011670 ;011680 ; Display Man on screen011690 ;011700 SW011710 LDA MVE011720 CMP # 0011730 BEQ SW4011740 LDA SHO}MN011750 AND # 128011760 CMP # 0011770 BEQ SW2011780 LDA SHOMN011790 CLC011800 ADC # 18011810 CMP # 218011820 } BNE SW1011830 LDA # 72011840 SW1011850 STA SHOMN011860 JMP SW4011870 SW2011880 LDA SHOMN011890 SEC011900 SBC #} 18011910 CMP # 238011920 BNE SW3011930 LDA # 128011940 SW3011950 STA SHOMN011960 SW4011970 LDA # 32011980 STA }LOA011990 LDA # 60012000 STA HIA012010 LDA MVE012020 CMP # 8012030 BNE SW5012040 LDA # 96012050 STA LO012060 }LDA # 55 012070 STA HI012080 SW5012090 CMP # 4012100 BNE SW6012110 LDA # 0012120 STA LO012130 LDA # 52012140 } STA HI012150 SW6012160 CMP # 2012170 BNE SW7012180 SW6A012190 LDA # 32012200 STA LO012210 LDA # 53 012220 ST}A HI012230 SW7012240 CMP # 1012250 BNE SW8012260 LDA # 64012270 STA LO012280 LDA # 54 012290 STA HI012300 SW8}012310 CMP # 0012320 BNE SW9012330 JMP SW6A012340 SW9012350 LDA SHOMN012360 AND # 127012370 CLC012380 ADC LO0}12390 BCC SW10012400 INC HI012410 SW10012420 STA LO012430 LDA LOA012440 CLC012450 ADC MNY012460 BCC SW11012470} INC HIA012480 SW11012490 STA LOA012500 LDX # 0012510 SW12012520 LDY # 0012530 SW13012540 LDA (LO),Y012550 STA }(LOA),Y012560 INY012570 CPY # 18012580 BNE SW13012590 LDA LO012600 CLC012610 ADC # 90012620 BCC SW14012630 IN}C HI012640 SW14012650 STA LO012660 INC HIA012670 INX012680 CPX # 3012690 BNE SW12012700 RTS012710 PCLR012720 }LDA # 32012730 STA LOA012740 LDA # 60012750 STA HIA012760 LDX # 0012770 STX 53278012780 PC1012790 LDY # 0012800} LDA # 0012810 PC2012820 STA (LOA),Y012830 INY012840 CPY # 170012850 BNE PC2012860 INC HIA012870 INX012880 CP}X # 3012890 BNE PC1012900 RTS012910 ;012920 ; Move Monsters Around012930 ;012940 H012950 LDA # 0012960 STA V4012}970 LDA BDX,X012980 SEC012990 CMP MNXA013000 BCC H1013010 SEC013020 SBC MNXA013030 STA V1013040 LDA # 4013050} STA TXY013060 JMP H2013070 H1013080 LDA MNXA013090 SEC013100 SBC BDX,X013110 STA V1013120 LDA # 8013130 STA }TXY013140 H2013150 LDA BDY,X013160 SEC013170 CMP MNYA013180 BCC H3013190 SEC013200 SBC MNYA013210 STA V201322}0 LDA TXY013230 CLC013240 ADC # 1013250 STA TXY013260 JMP H4013270 H3013280 LDA MNYA013290 SEC013300 SBC BDY,}X013310 STA V2013320 LDA TXY013330 CLC013340 ADC # 2013350 STA TXY013360 H4013370 LDA V2013380 SEC013390 CMP} V1013400 BCS H8013410 H5013420 LDA # 12013430 STA V5013440 JSR CK013450 CMP # 1013460 BNE H6013470 JMP H1101}3480 H6013490 LDA # 3013500 STA V5013510 JSR CK013520 CMP # 1013530 BNE H7013540 JMP H11013550 H7013560 LDA TX}Y013570 JSR REVERS013580 STA TXY013590 H8013600 LDA # 3013610 STA V5013620 JSR CK013630 CMP # 1013640 BNE H90}13650 JMP H11013660 H9013670 LDA # 12013680 STA V5013690 JSR CK013700 CMP # 1013710 BNE H10013720 JMP H1101373}0 H10013740 LDA TXY013750 JSR REVERS013760 STA TXY013770 JMP H5013780 H11013790 LDA BDX,X013800 STA XCL013810 }LDA BDY,X013820 STA YRW013830 LDA BDXY,X013840 JSR FND1A013850 LDA XCL013860 STA BDX,X013870 LDA YRW013880 STA }BDY,X013890 RTS013900 RANDOM013910 LDA # 0013920 STA V4013930 LDA 53770013940 AND # 3013950 CMP # 0013960 BNE }RM1013970 LDY # 5013980 RM1013990 CMP # 1014000 BNE RM2014010 LDY # 9014020 RM2014030 CMP # 2014040 BNE RM3014}050 LDY # 6014060 RM3014070 CMP # 3014080 BNE RM4014090 LDY # 10014100 RM4014110 STY TXY014120 LDA 53770014130 } AND # 1014140 CMP # 0014150 BEQ RM5014160 JMP H5014170 RM5014180 JMP H8014190 CK014200 LDA # 0014210 STA JUMP}014220 INC V4014230 LDA # 4014240 SEC014250 CMP V4014260 BCC CK1014270 LDA BDXY,X014280 JSR REVERS014290 STA V}3014300 LDA TXY014310 AND V5014320 CMP V3014330 BEQ CK2014340 CK1014350 LDA BDX,X014360 STA XCL014370 LDA BDY,}X014380 STA YRW014390 LDA TXY014400 AND V5014410 JSR FND014420 JSR X96014430 LDA (LOA),Y014440 CMP # 0014450 }BEQ C3014460 SEC014470 CMP # 166014480 BCC CA014490 SEC014500 CMP # 193014510 BCC CK2014520 CA014530 SEC01454}0 CMP # 55014550 BCC CK2014560 SEC014570 CMP # 231014580 BCS CK2014590 C3014600 LDA # 1014610 STA JUMP014620 }LDA TXY014630 AND V5014640 STA BDXY,X014650 CK2014660 LDA JUMP014670 RTS014680 BT014690 LDA # 0014700 STA CNTR}014710 LDX XCNT014720 B1014730 LDA ALV,X014740 CMP # 0014750 BNE BT1014760 LDA 53770014770 SEC014780 CMP LVL01}4790 BCC B1A014800 JMP B12014810 B1A014820 LDA NOW014830 SEC014840 CMP # 128014850 BCS B1T014860 JMP B12014870} B1T014880 LDA 53770014890 AND # 1014900 CMP # 1014910 BEQ BT0014920 LDA GX1014930 STA BDX,X014940 LDA GY10149}50 STA BDY,X014960 BTA014970 LDA LVL014980 AND 53770014990 AND # 3015000 CLC015010 ADC # 1015020 STA ALV,X0150}30 JMP BT1015040 BT0015050 LDA GX2015060 STA BDX,X015070 LDA GY2015080 STA BDY,X015090 JMP BTA015100 BT1015110 } LDA BDY,X015120 STA YRW015130 LDA BDX,X015140 STA XCL015150 JSR CLR015160 LDA BDX,X015170 AND # 1015180 CMP # }0015190 BEQ BT2015200 JMP B14015210 BT2015220 LDA BDY,X015230 AND # 1015240 CMP # 0015250 BEQ BT3015260 JMP B1}4015270 ;015280 ; If Monster can see Man,015290 ; have all Monsters find015300 ; their way to where Man015310 ; was seen} last.015320 ;015330 BT3015340 LDA BDX,X015350 CMP XPOS015360 BNE BT5015370 LDA BDY,X015380 SEC015390 CMP V801}5400 BCC BT5015410 SEC015420 CMP V9015430 BCS BT5015440 LDA YPOS015450 SEC015460 CMP BDY,X015470 BCC BT601548}0 LDA BDXY,X015490 CMP # 1015500 BEQ BT5015510 JMP B7015520 BT6015530 LDA BDXY,X015540 CMP # 2015550 BEQ BT501}5560 B7015570 LDA # 1015580 STA SPOT015590 STA SPOT2015600 LDY # 0015610 LDA # 1015620 BT4015630 STA BDG,Y01564}0 INY015650 CPY # 32015660 BNE BT4015670 JMP B9015680 BT5015690 LDA BDY,X015700 CMP YPOS015710 BNE B9015720 L}DA BDX,X015730 SEC015740 CMP V6015750 BCC B9015760 SEC015770 CMP V7015780 BCS B9015790 LDA XPOS015800 SEC015}810 CMP BDX,X015820 BCC B8015830 LDA BDXY,X015840 CMP # 4015850 BEQ B9015860 JMP B7015870 B8015880 LDA BDXY,X0}15890 CMP # 8015900 BEQ B9015910 JMP B7015920 B9015930 LDA BDX,X015940 CMP MNXA015950 BNE B10015960 LDA BDY,X0}15970 CMP MNYA015980 BNE B10015990 LDA # 0016000 STA BDG,X016010 B10016020 LDA SPOT016030 CMP # 0016040 BEQ B10}A016050 LDA SPOT2016060 STA SPOT016070 LDA XPOS016080 STA MNXA016090 LDA YPOS016100 STA MNYA016110 B10A016120 }LDA BDG,X016130 CMP # 1016140 BNE B11016150 JSR H016160 JMP B12016170 B11016180 JSR RANDOM016190 B12016200 LDA }# 0016210 STA V2016220 B12A016230 LDA ALV,X016240 CMP # 0016250 BEQ B15016260 CMP # 1016270 BNE B16016280 LDA }# 56016290 JMP B20016300 B16016310 CMP # 2016320 BNE B17016330 LDA # 200016340 JMP B20016350 B17016360 LDA # 21}6016370 B20016380 STA V1016390 LDA BDXY,X016400 AND # 8016410 CMP # 8016420 BNE B21016430 LDA V1016440 CLC016}450 ADC # 4016460 STA V1016470 B21016480 LDA BDX,X016490 STA XCL016500 LDA BDY,X016510 STA YRW016520 LDA V1016}530 CLC016540 ADC V2016550 JSR W91016560 B15016570 INX016580 CPX # 32016590 BNE BAZ016600 LDX # 0016610 STX S}POT2016620 BAZ016630 INC CNTR016640 LDA # 8016650 CMP CNTR016660 BEQ B13016670 JMP B1016680 B13016690 STX XCNT}016700 RTS016710 B14016720 JSR H11016730 LDA # 8016740 STA V2016750 JMP B12A016760 ;016770 ; SHOOT016780 ;01679}0 SHT016800 LDA 54016016810 LSR A016820 LSR A016830 LSR A016840 LSR A016850 STA V1016860 AND # 12016870 EOR #} 12016880 CMP # 0016890 BEQ SHTB016900 STA STK1016910 JMP S1016920 SHTB016930 LDA V1016940 AND # 3016950 EOR #} 3016960 CMP # 0016970 BEQ SHTA016980 STA STK1016990 JMP S1017000 SHTA017010 LDA STK017020 STA STK1017030 LDA }53264017040 STA TRGR017050 CMP # 0017060 BEQ S1017070 LDA BLTXY017080 CMP # 0017090 BNE S3017100 RTS017110 S1 }017120 LDA BLTXY017130 CMP # 0017140 BEQ S2017150 JMP S3017160 S2017170 LDA STK1017180 CMP # 0017190 BNE S2A01 }7200 RTS017210 S2A017220 LDA XPOS017230 STA BLTX017240 LDA YPOS017250 STA BLTY017260 LDA STK1017270 STA BLTXY0 }17280 JSR PLY017290 LDA # 192017300 STA LOC017310 LDA # 136017320 STA PLAY017330 S3017340 LDA BLTX017350 STA XC }L017360 LDA BLTY017370 STA YRW017380 JSR X96017390 LDA # 0017400 STA (LOA),Y017410 LDA BLTXY017420 JSR FND1A01 }7430 JSR X96017440 LDA (LOA),Y017450 CMP # 0017460 BEQ S4017470 LDA # 0017480 STA BLTXY017490 JMP S45017500 S4}017510 LDA # 55017520 STA (LOA),Y017530 LDA XCL017540 STA BLTX017550 LDA YRW017560 STA BLTY017570 S45017580 LDY} # 0017590 LDA XCL017600 STA CLX017610 LDA YRW017620 STA RWY017630 S5017640 LDA CLX017650 STA XCL017660 LDA RW}Y017670 STA YRW017680 LDA BDX,Y017690 STA V1017700 LDA XCL017710 CMP V1017720 BEQ S5A017730 SEC017740 SBC # 1}017750 CMP V1017760 BNE S6017770 S5A017780 LDA BDY,Y017790 STA V1017800 LDA YRW017810 CMP V1017820 BEQ S5B017}830 SEC017840 SBC # 1017850 CMP V1017860 BNE S6017870 S5B017880 LDA ALV,Y017890 CMP # 0017900 BEQ S6017910 LD}A # 0017920 STA ALV,Y017930 JSR PLY017940 LDA # 136017950 STA PLAY017960 LDA # 216017970 STA LOC017980 LDX # 6}017990 JSR SCR018000 LDA BDX,Y018010 STA XCL018020 LDA BDY,Y018030 STA YRW018040 STY V5018050 JSR CLR018060 LD}Y V5018070 S6018080 INY018090 CPY # 32018100 BNE S5018110 RTS018120 ;018130 ; Check speed to determine018140 ; wh}en to move the Monsters018150 ;018160 Q018170 LDA TIMES018180 CLC018190 ADC SPEED018200 STA TIMES018210 SEC01822}0 CMP # 11018230 BCS Q1018240 RTS018250 Q1018260 SEC018270 SBC # 12018280 STA TIMES018290 JSR ST018300 JSR BT}018310 RTS018320 LP018330 JSR INT2018340 JSR W018350 LDA # 157018360 STA SCRS+10018370 STA SCRS+11018380 LDA #} 3018390 STA LIVES018400 LDX # 11018410 JSR SCR018420 JSR ITA018430 LDA # 0018440 STA 53278018450 ;018460 ; MAI}N CONTROL LOOP OF PROGRAM018470 ;018480 LP2018490 LDA 53253018500 AND # 6018510 CMP # 0018520 BEQ LP5018530 DEC L}IVES018540 LDA # 138018550 STA 53761018560 STA 20018570 LPT018580 LDA 20018590 STA 53760018600 CMP # 255018610 } BNE LPT018620 LDA # 0018630 STA 53761018640 CMP LIVES018650 BNE LP6018660 LDX # 0018670 LPQ018680 LDA SCRS,X01}8690 SEC018700 SBC # 13018710 STA 14599,X018720 INX018730 CPX # 7018740 BNE LPQ018750 JSR PCLR018760 LDA # 224}018770 STA 756018780 LDA # 71018790 STA 560018800 LDA # 34018810 STA 561018820 LDA # 0018830 STA 708018840 ST}A 19018850 STA 709018860 LPR018870 LDA 19018880 CMP # 3018890 BNE LPR018900 RTS018910 LP6018920 JSR ITA018930  }LP5018940 JSR MN018950 INC NOW018960 LDA # 0018970 STA 77018980 STA 53278018990 LDA 20019000 SEC019010 CMP # !}8019020 BCC Q9019030 LDA # 0019040 STA 20019050 LDY SNGX019060 CPY # 0019070 BEQ Q9019080 DEY019090 STY SNGX"}019100 LDA (LOC),Y019110 STA 53760019120 LDX PLAY019130 DEX019140 STX PLAY019150 STX 53761019160 Q9019170 JSR S#}HT019180 JSR Q019190 JSR Q019200 LDX # 32019210 LP4019220 LDY # 32019230 LP3019240 DEY019250 CPY SPEED019260 $}BNE LP3019270 DEX019280 CPX SPEED019290 BNE LP4019300 LDA OVER019310 CMP # 0019320 BEQ LP1019330 INC LVL019340%} LDX # 11019350 JSR SCR019360 LDA # 0019370 STA 559019380 JSR W019390 LDA LVL019400 AND # 3019410 CMP # 10194&}20 BNE LPJ019430 LDA # 170019440 STA 53761019450 LDA # 232019460 STA LOC019470 LDY # 0019480 STY SNGX019490 LPH'}019500 LDA # 0019510 STA 20019520 LDA (LOC),Y019530 STA 53760019540 LPI019550 LDA 20019560 CMP # 10019570 BNE (}LPI019580 INY019590 CPY # 21019600 BNE LPH019610 LPJ019620 LDA # 126019630 STA 559019640 LDX # 3019650 JSR SCR)}019660 LP1019670 JMP LP2019680 ;019690 ; The Display List019700 ; starts at: $2FB4.019710 ;019720 ; A redefined Chara*}cter019730 ; Set starts at: $3000.019740 ;019750 ; Miscellaneous data fills019760 ; locations $33C0 through019770 ; $388+}1.019780 ;019790 ; PMBASE is located at $3800.019800 ;019810 ; The Action Screen is019820 ; located at $4000.019830 ;0,}19840 .END019790 ; PMBASE is located at $3800.019800 ;019810 ; The Action Screen is019820 ; located at $4000.019830 ;0 019840 *=$2FB4019850 .BYTE 112,112,112,84,252,59019860 .BYTE 84,92,60,84,188,60019870 .BYTE 84,28,61,84,124,61019880 .} .BYTE 84,220,61,84,60,62019890 .BYTE 84,156,62,84,252,62019900 .BYTE 84,92,63,84,188,63019910 .BYTE 84,28,64,84,124,64/}019920 .BYTE 84,220,64,84,60,65019930 .BYTE 84,156,65,84,252,65019940 .BYTE 84,92,66,84,188,66019950 .BYTE 84,28,67,80}4,124,67019960 .BYTE 84,220,67,68,126,56019970 .BYTE 4,65,180,47,0,0019980 .BYTE 0,0,0,0,0,0019990 .BYTE 59,170,138,11}38,162,170020000 .BYTE 43,0,63,251,170,170020010 .BYTE 168,170,47,0,42,170020020 .BYTE 138,130,170,170,42,0020030 .BY2}TE 47,171,170,234,234,251020040 .BYTE 63,0,240,252,188,172020050 .BYTE 188,252,240,0,240,252020060 .BYTE 188,140,60,2523},240,0020070 .BYTE 160,168,168,168,168,188020080 .BYTE 240,0,240,188,172,168020090 .BYTE 168,168,160,0,47,170020100 .4}BYTE 170,170,170,170,47,0020110 .BYTE 21,21,21,0,21,21020120 .BYTE 21,0,240,188,172,168020130 .BYTE 168,168,160,0,21,215}020140 .BYTE 21,0,21,21,21,0020150 .BYTE 84,84,84,0,84,84020160 .BYTE 84,0,240,252,188,172020170 .BYTE 188,252,240,0,6}84,84020180 .BYTE 84,0,84,84,84,0020190 .BYTE 63,250,170,170,170,171020200 .BYTE 47,0,59,170,170,170020210 .BYTE 170,7}250,63,0,240,252020220 .BYTE 188,172,188,252,240,0020230 .BYTE 240,188,172,172,168,168020240 .BYTE 160,0,42,170,170,1928}020250 .BYTE 197,197,5,0,42,170020260 .BYTE 162,138,170,171,47,0020270 .BYTE 240,188,172,188,252,252020280 .BYTE 240,9}0,176,172,168,0020290 .BYTE 69,69,69,0,47,170020300 .BYTE 170,0,69,69,69,0020310 .BYTE 42,170,170,234,250,254020320 .:}BYTE 63,0,160,168,168,172020330 .BYTE 188,252,240,0,240,188020340 .BYTE 172,8,80,80,80,0020350 .BYTE 42,170,170,234,250;},254020360 .BYTE 63,0,63,51,51,51020370 .BYTE 51,51,63,0,12,12020380 .BYTE 12,12,12,12,12,0020390 .BYTE 63,51,3,63,48<},51020400 .BYTE 63,0,63,51,3,15020410 .BYTE 3,51,63,0,51,51020420 .BYTE 51,63,3,3,3,0020430 .BYTE 63,51,48,63,3,5102=}0440 .BYTE 63,0,63,51,48,63020450 .BYTE 51,51,63,0,63,51020460 .BYTE 3,15,12,12,12,0020470 .BYTE 63,51,51,63,51,51020>}480 .BYTE 63,0,63,51,51,63020490 .BYTE 3,51,63,0,63,255020500 .BYTE 253,213,221,221,221,213020510 .BYTE 240,252,252,92?},220,252020520 .BYTE 252,92,253,253,221,213020530 .BYTE 253,255,63,0,220,220020540 .BYTE 220,92,252,252,240,0020550 .@}BYTE 63,255,252,192,192,192020560 .BYTE 192,192,240,252,252,12020570 .BYTE 204,252,252,12,252,252020580 .BYTE 204,192,2A}52,255,63,0020590 .BYTE 12,12,12,12,252,252020600 .BYTE 240,0,0,0,3,15020610 .BYTE 12,15,3,0,0,0020620 .BYTE 240,60,1B}2,60,240,192020630 .BYTE 3,0,0,3,0,0020640 .BYTE 0,0,192,192,192,192020650 .BYTE 0,0,0,0,0,42020660 .BYTE 255,240,195C},138,195,240020670 .BYTE 0,160,252,60,12,136020680 .BYTE 12,60,252,240,252,252020690 .BYTE 240,42,0,0,252,252020700 .D}BYTE 252,252,252,160,0,0020710 .BYTE 0,0,16,68,84,68020720 .BYTE 16,0,3,11,63,255020730 .BYTE 136,0,63,0,240,172020740E} .BYTE 47,255,63,255,255,252020750 .BYTE 15,63,252,240,240,252020760 .BYTE 63,15,240,0,60,195020770 .BYTE 3,15,252,240F},15,58020780 .BYTE 248,255,252,255,255,63020790 .BYTE 192,224,252,255,34,0020800 .BYTE 252,0,15,0,60,195020810 .BYTE G}192,240,63,15,240,252020820 .BYTE 63,15,15,63,252,240020830 .BYTE 3,11,63,255,255,3020840 .BYTE 0,3,240,172,47,2550208H}50 .BYTE 255,255,255,252,15,63020860 .BYTE 252,240,240,252,63,15020870 .BYTE 240,0,12,3,3,15020880 .BYTE 252,240,15,58I},248,255020890 .BYTE 255,255,255,63,192,224020900 .BYTE 252,255,255,192,0,192020910 .BYTE 15,0,48,192,192,240020920 .J}BYTE 63,15,240,252,63,15020930 .BYTE 15,63,252,240,3,15020940 .BYTE 43,170,128,10,0,3020950 .BYTE 240,172,47,175,40,172K}020960 .BYTE 60,240,15,62,254,255020970 .BYTE 63,2,8,160,192,243020980 .BYTE 191,175,252,32,8,40020990 .BYTE 15,58,24L}8,250,40,58021000 .BYTE 60,15,192,240,232,170021010 .BYTE 2,160,0,192,3,207021020 .BYTE 254,250,63,8,32,40021030 .BYTM}E 240,188,191,255,252,128021040 .BYTE 32,10,3,15,43,170021050 .BYTE 138,0,0,3,240,172021060 .BYTE 47,175,168,60,60,240N}021070 .BYTE 15,62,254,255,63,0021080 .BYTE 0,10,192,243,191,175021090 .BYTE 252,128,128,128,15,58021100 .BYTE 248,250O},42,60,60,15021110 .BYTE 192,240,232,170,162,0021120 .BYTE 0,192,3,207,254,250021130 .BYTE 63,2,2,2,240,188021140 .BYP}TE 191,255,252,0,0,160021150 .BYTE 192,192,243,255,48,2021160 .BYTE 10,10,3,3,207,255021170 .BYTE 252,60,143,243,10,63Q}021180 .BYTE 62,2,3,3,15,60021190 .BYTE 240,252,254,191,252,255021200 .BYTE 15,3,192,192,243,255021210 .BYTE 63,60,242R},207,3,3021220 .BYTE 207,255,12,128,160,160021230 .BYTE 15,63,191,254,63,255021240 .BYTE 240,192,160,252,188,128021250S} .BYTE 192,192,240,60,192,192021260 .BYTE 243,255,48,32,32,10021270 .BYTE 3,3,207,255,252,60021280 .BYTE 143,243,10,59T},59,2021290 .BYTE 3,0,0,3,240,252021300 .BYTE 238,175,188,240,240,240021310 .BYTE 192,192,243,255,63,60021320 .BYTE 2U}42,207,3,3,207,255021330 .BYTE 12,8,8,160,15,63021340 .BYTE 187,250,62,15,15,15021350 .BYTE 160,236,236,128,192,002136V}0 .BYTE 0,192,170,133,149,140021370 .BYTE 191,171,143,129,170,86021380 .BYTE 86,234,234,250,82,86021390 .BYTE 133,170,W}137,137,137,137021400 .BYTE 137,170,86,170,102,102021410 .BYTE 98,98,98,170,51,51021420 .BYTE 51,51,51,51,63,0021430 X}.BYTE 63,48,48,60,48,48021440 .BYTE 63,0,60,51,51,60021450 .BYTE 51,51,60,0,12,12021460 .BYTE 51,51,63,51,51,0021470 Y}.BYTE 51,63,63,63,63,51021480 .BYTE 51,0,48,48,48,48021490 .BYTE 48,48,63,0,60,51021500 .BYTE 51,51,51,51,60,0021510 Z}.BYTE 63,51,51,60,51,51021520 .BYTE 51,0,0,5,4,4021530 .BYTE 5,0,1,1,0,64021540 .BYTE 64,64,64,0,16,16021550 .BYTE 1,[}1,0,0,0,0021560 .BYTE 0,0,16,80,0,84021570 .BYTE 16,16,16,0,29,35021580 .BYTE 45,53,64,64,60,53021590 .BYTE 72,72,81,\}91,96,81021600 .BYTE 91,91,72,108,108,96021610 .BYTE 91,96,108,108,108,96021620 .BYTE 91,91,91,91,96,108021630 .BYTE ]}60,60,47,60,81,60021640 .BYTE 81,81,108,108,108,81021650 .BYTE 81,72,72,53,64,81021660 .BYTE 81,64,81,96,60,60021670 ^}.BYTE 72,91,81,81,0,0021680 .BYTE 0,0,0,56,124,252021690 .BYTE 0,0,0,24,60,126021700 .BYTE 63,51,0,60,124,108021710 ._}BYTE 0,0,0,56,124,252021720 .BYTE 0,0,0,24,60,62021730 .BYTE 38,38,0,28,28,28021740 .BYTE 0,0,0,56,124,252021750 .BYT`}E 0,0,0,24,60,60021760 .BYTE 28,28,0,28,24,24021770 .BYTE 0,0,0,56,124,252021780 .BYTE 0,0,0,24,60,62021790 .BYTE 30,a}30,0,28,28,28021800 .BYTE 0,0,0,56,124,252021810 .BYTE 0,0,0,24,60,126021820 .BYTE 127,63,0,60,124,100021830 .BYTE 0,b}0,0,0,0,0021840 .BYTE 80,240,56,96,0,0021850 .BYTE 192,204,12,0,0,0021860 .BYTE 0,0,0,0,0,0021870 .BYTE 80,240,56,96,c}0,0021880 .BYTE 88,88,0,0,0,0021890 .BYTE 0,0,0,0,0,0021900 .BYTE 80,240,56,96,0,0021910 .BYTE 96,96,0,0,0,0021920 d}.BYTE 0,0,0,0,0,0021930 .BYTE 80,240,56,96,0,0021940 .BYTE 96,96,0,0,0,0021950 .BYTE 0,0,0,0,0,0021960 .BYTE 80,240,5e}6,96,0,0021970 .BYTE 128,192,0,0,0,0021980 .BYTE 0,0,0,0,0,0021990 .BYTE 12,14,198,6,0,0022000 .BYTE 0,0,48,0,2,2022f}010 .BYTE 226,0,0,0,0,0022020 .BYTE 12,14,198,6,0,0022030 .BYTE 0,0,60,0,2,2022040 .BYTE 58,0,0,0,0,0022050 .BYTE 12g},14,198,6,0,0022060 .BYTE 0,0,60,0,0,0022070 .BYTE 56,0,0,0,0,0022080 .BYTE 12,14,198,6,0,0022090 .BYTE 0,0,60,0,2,2h}022100 .BYTE 58,0,0,0,0,0022110 .BYTE 12,14,198,6,0,0022120 .BYTE 0,0,60,0,2,2022130 .BYTE 226,0,0,0,0,0022140 .BYTEi} 12,14,198,6,0,0022150 .BYTE 0,0,48,0,2,2022160 .BYTE 226,0,0,56,124,124022170 .BYTE 0,0,0,68,124,252022180 .BYTE 204j},76,0,124,100,96022190 .BYTE 0,0,0,56,124,124022200 .BYTE 0,0,0,68,252,152022210 .BYTE 24,0,124,108,100,0022220 .BYTEk} 0,0,0,56,124,124022230 .BYTE 0,0,0,68,254,254022240 .BYTE 146,16,0,124,108,108022250 .BYTE 0,0,0,56,124,124022260 .Bl}YTE 0,0,0,68,124,126022270 .BYTE 50,48,0,124,108,76022280 .BYTE 0,0,0,56,124,124022290 .BYTE 0,0,0,68,124,126022300 .m}BYTE 102,100,0,124,76,12022310 .BYTE 0,0,0,0,0,0022320 .BYTE 84,124,68,56,0,0022330 .BYTE 50,50,0,0,0,0022340 .BYTE 0n},0,0,0,0,0022350 .BYTE 84,124,68,56,0,102022360 .BYTE 102,0,0,0,0,0022370 .BYTE 0,0,0,0,0,0022380 .BYTE 84,124,68,56,o}0,0022390 .BYTE 108,108,0,0,0,0022400 .BYTE 0,0,0,0,0,0022410 .BYTE 84,124,68,56,0,0022420 .BYTE 204,204,0,0,0,00224p}30 .BYTE 0,0,0,0,0,0022440 .BYTE 84,124,68,56,0,0022450 .BYTE 152,152,0,0,0,0022460 .BYTE 0,0,0,0,0,0022470 .BYTE 0,q}0,56,0,0,0022480 .BYTE 0,0,124,0,8,12022490 .BYTE 96,0,0,0,0,0022500 .BYTE 0,0,0,0,0,0022510 .BYTE 0,124,0,0,8,10802r}2520 .BYTE 0,0,0,0,0,0022530 .BYTE 0,0,0,0,0,0022540 .BYTE 0,0,124,0,0,0022550 .BYTE 108,0,0,0,0,0022560 .BYTE 0,0,0s},0,0,0022570 .BYTE 0,0,124,0,0,32022580 .BYTE 108,0,0,0,0,0022590 .BYTE 0,0,0,0,0,0022600 .BYTE 0,0,124,0,32,9602261t}0 .BYTE 12,0,0,0,0,0022620 .BYTE 0,0,0,0,0,0022630 .BYTE 0,0,0,0,0,0022640 .BYTE 0,0,0,56,124,124022650 .BYTE 0,0,0,u}68,124,252022660 .BYTE 252,124,0,124,96,96022670 .BYTE 0,0,0,56,124,124022680 .BYTE 0,0,0,68,124,252022690 .BYTE 252,v}124,0,124,108,96022700 .BYTE 0,0,0,56,124,124022710 .BYTE 0,0,0,68,124,254022720 .BYTE 254,124,0,124,108,108022730 .Bw}YTE 0,0,0,56,124,124022740 .BYTE 0,0,0,68,124,126022750 .BYTE 126,124,0,124,108,12022760 .BYTE 0,0,0,56,124,124022770 x} .BYTE 0,0,0,68,124,126022780 .BYTE 126,124,0,124,12,12022790 .BYTE 0,0,0,0,0,0022800 .BYTE 0,0,0,0,0,0022810 .BYTE 2y},2,0,0,0,0022820 .BYTE 0,0,0,0,0,0022830 .BYTE 0,0,0,0,0,0022840 .BYTE 0,0,0,0,0,0022850 .BYTE 0,0,0,0,0,0022860 .Bz}YTE 0,0,0,0,0,0022870 .BYTE 0,0,0,0,0,0022880 .BYTE 0,0,0,0,0,0022890 .BYTE 0,0,0,0,0,0022900 .BYTE 0,0,0,0,0,002291{}0 .BYTE 0,0,0,0,0,0022920 .BYTE 0,0,0,0,0,0022930 .BYTE 128,128,0,0,0,0022940 .BYTE 0,0,0,0,0,0022950 .BYTE 124,124,|}124,56,0,0022960 .BYTE 0,0,124,0,12,12022970 .BYTE 96,0,0,0,0,0022980 .BYTE 124,124,124,56,0,0022990 .BYTE 0,0,124,0,}}0,12023000 .BYTE 108,0,0,0,0,0023010 .BYTE 124,124,124,56,0,0023020 .BYTE 0,0,124,0,0,0023030 .BYTE 108,0,0,0,0,0023~}040 .BYTE 124,124,124,56,0,0023050 .BYTE 0,0,124,0,0,96023060 .BYTE 108,0,0,0,0,0023070 .BYTE 124,124,124,56,0,002308}0 .BYTE 0,0,124,0,96,96023090 .BYTE 12,0,0,0,0,0023100 .BYTE 0,0,0,0,0,0023110 .BYTE 0,0,0,0,0,0023120 .BYTE 0,0,0,2}8,62,63023130 .BYTE 0,0,0,24,60,126023140 .BYTE 254,252,0,60,62,38023150 .BYTE 0,0,0,28,62,63023160 .BYTE 0,0,0,24,60},124023170 .BYTE 120,120,0,56,56,56023180 .BYTE 0,0,0,28,62,63023190 .BYTE 0,0,0,24,60,60023200 .BYTE 56,56,0,56,24,2}4023210 .BYTE 0,0,0,28,62,63023220 .BYTE 0,0,0,24,60,124023230 .BYTE 100,100,0,56,56,56023240 .BYTE 0,0,0,28,62,6302}3250 .BYTE 0,0,0,24,60,126023260 .BYTE 252,204,0,60,62,54023270 .BYTE 0,0,0,0,0,0023280 .BYTE 10,15,28,6,0,0023290 .}BYTE 1,3,0,0,0,0023300 .BYTE 0,0,0,0,0,0023310 .BYTE 10,15,28,6,0,0023320 .BYTE 6,6,0,0,0,0023330 .BYTE 0,0,0,0,0,00}23340 .BYTE 10,15,28,6,0,0023350 .BYTE 6,6,0,0,0,0023360 .BYTE 0,0,0,0,0,0023370 .BYTE 10,15,28,6,0,0023380 .BYTE 26},26,0,0,0,0023390 .BYTE 0,0,0,0,0,0023400 .BYTE 10,15,28,6,0,0023410 .BYTE 3,51,48,0,0,0023420 .BYTE 0,0,0,0,0,00234}30 .BYTE 48,112,99,96,0,0023440 .BYTE 0,0,60,0,64,64023450 .BYTE 71,0,0,0,0,0023460 .BYTE 48,112,99,96,0,0023470 .BY}TE 0,0,60,0,64,64023480 .BYTE 92,0,0,0,0,0023490 .BYTE 48,112,99,96,0,0023500 .BYTE 0,0,60,0,0,0023510 .BYTE 28,0,0,0},0,0023520 .BYTE 48,112,99,96,0,0023530 .BYTE 0,0,60,0,64,64023540 .BYTE 92,0,0,0,0,0023550 .BYTE 48,112,99,96,0,002}3560 .BYTE 0,0,12,0,64,64023570 .BYTE 71,0,0,0,0,0023580 .BYTE 0,0,0,0,0,0023590 .BYTE 0,0,0,0,0,0023600 .BYTE 0,0,0},0,0,0023610 .BYTE 0,0,0,0,0,0023620 .BYTE 0,0,0,0,0,0023630 .BYTE 0,0,0,0,0,0023640 .BYTE 0,0,0,0,0,0023650 .BYTE }0,0,0,0,0,0023660 .BYTE 0,0,0,0,0,0023670 .BYTE 0,0,242,236,240,163023680 .BYTE 237,157,240,241,157,243023690 .BYTE 2}42,162,128,128,238,161023700 .BYTE 128,238,243,158,239,240023710 .BYTE 128,238,243,239,242,241023720 .BYTE 237,161,0,0,}0,0023730 .BYTE 0,0,0,0,0,0023740 .BYTE 0,0,0,0,0,0023750 .BYTE 0,0,0,0,0,0023760 .BYTE 0,0,0,0,0,0023770 .BYTE 0,0},0,0,0,0023780 .BYTE 0,0,0,224,0,0023790 .BYTE 0,0,0,0,0,0023800 .BYTE 0,0,0,0,0,0023810 .BYTE 0,0,0,0,0,0023820 .E}ND0,0,0023780 .BYTE 0,0,0,224,0,0023790 .BYTE 0,0,0,0,0,0023800 .BYTE 0,0,0,0,0,0023810 .BYTE 0,0,0,0,0,0023820 .EG"9pppppGf"Fz"ppG"F"pppF"F9AG" dungeonlords by brian bradley press start to play } 9"8ԩ~/ЍҩwЍЍ 'ԍG0F"1}00/1 .L# f#Lz#78䲐8` @؅ (@ *0` `#8JJ } 8再 * ) )i )&@戩ň % %> %< %8} % '' l' % % )&L% % )ƐƐLF%LF%ƏƏL$揥8} )&抠抠±报8L% )&L%ŌL%ōL% )?8űL@% %L% )&报}`报a报` %L%ƏƏƐƐ )&抠抠恱报8L%L$8Lf$iLd$: %} %8 l':)L% %) %6 %` )& & & &` &a` )i` )i`} ुeei@ei恅` 'Ə &Ə ' }& 'Ɛ &Ɛ '` &`))8冰ƁL'e恅7``} )&` )i i ) i l' )i i ) i l'` %搩 %ƐƐ揩 %揩 %搩 % %}8 %`Ţ' \83`@JJ)/ȥ/i`淅F䥕)IL_ ') L(ƏL(()}Ɛ`) I )Ie`` E( ( %`` E(І (` E(Ȇ (`}` E( ( ( l' %` )&`a`-沆 f# E(8iɧ憝8}`8ɀD)e) I LM))IJJ))L*JJJ))L*71 ' )&ɧ} J(ɯ b( 84ɫ ' )&ɧ J(ɯ b(ɳ ~( (84ɫL) 'L0*}⥙L) +(řL)%)iHL[*8 <`74 5}@6L*)e情e恅iZ情` <Р`8ŗ 8嗅L+}88Ř8嘅iL:+8؅i8ņ# +L+ +L+ +( +L+ +L+ +(L}A+؅ '` )  )LA+Ld+扩8ʼn +(%ň7؅% ' )&}8ɦ8878 %`@A 8űL8-8ɀL8- )إ- )i@Lx,L],؅ }()L-)L-œ98ō28Ŏ-8ؐ L,  L-Ŕ'8ŋ 8Ō8ո  L,}L,ŗ Ř   *L8- +@68LW-LW-؅)i؅e % }榩ŦL0,` +L<-JJJJ) I L-)IL-Ѕ(`L-` E(} )& ' )&L*.7ņ8ņ?ņ8ņ-@&@ E(؅} ( ( Т`e8 `8 & *,` ' #88 ( `#Э)QƲ҅Ų3}88 9 *G0"1` `# )泩MХ8Ҧʆ - . . ĩB} (/ #)!ҩ腄ҥ ~/ (L.pppT;T\T>T>T\?T?T@T|@T@T? }(:(:<? ( +/<<>? :*<<誢?0 < ?><}?< ??<0 < ;;?< ?>VVRV}Vffbbb333333??00<00?<33<33< 33?333????33000000?<33333<?33<333@@@@PT#-5@@<5HHQ[`Q[[Hll`[}`lll`[[[[`l<&&8|<<8|<>8|<~}?<|dP8` P8`XXP8```P8```P8` 0 }<: <8 <: < 08||D|L|d`8||D|ld8||D}|ll8||D|~20|lL8||D|~fd|L T|D822T|D8ffT|D8llT|D8T|D}88| `|l|l| l| ` 8||}D|||``8||D|||l`8||D|||ll8||D|~~||l 8||D|~~|| }|||8| `|||8| l|||8|l|||8|`l}|||8|`` >?<~<>&>?<|xx888>?<<888>?<|dd888>?<~<>6}     300pc`<@@G0pc`<@@\}0pc`<0pc`<@@\0pc` @@G}"P32600 IF FL THEN 3261632602 DIM L$(115),SV$(115),C2$(2),B$(115),M$(119),S$(98),E$(69),A$(1):FL=1:STMTAB=PEEK(136)+PEEK(137)*"}25632604 GRAPHICS 0:POKE 710,0:P=0:ABR=0:? "ALLOW ABBREVIATIONS";:INPUT A$:IF A$="Y" OR A$="y" THEN ABR=132606 B$(1)=" ":B$"}(115)=" ":B$(2)=B$32608 M$(1)="hhhhhͩ Dڬ˅ Dڭ "32610 M$(59)=" ٥ԍՍ"}mmаԭ`"32612 S$="hhhhhإXͥYήi(͐@`ɀi "}8@rױ Ȅ`"32614 E$="hhhإͥΠȱe͐ͅΰ7`"32616 OPEN #17,"}4,0,"E:":L$=" ":GOSUB 32662:START=032618 POKE 766,1:POKE 83,39:POSITION 1,3:IF LEN(L$)<39 THEN ? L$:GOTO 3262432620 IF LEN("}L$)<77 THEN ? L$(1,38):? L$(39,LEN(L$)):GOTO 3262432622 ? L$(1,38):? L$(39,76):? L$(77,LEN(L$))32624 POKE 752,0:POKE 766,0:"}POKE 559,34:POKE 82,1:POKE 83,38:POSITION 0,10:? " ";:INPUT #17;L$:POKE 766,132626 IF (L$="P" OR L$="p") AND START=0 THEN P="}1:L$=""32628 IF L$="E" OR L$="e" THEN E=1:POSITION 1,10:? SV$:GOTO 3262432630 IF L$="Q" OR L$="q" THEN 3269032632 IF L$="""} AND P=1 THEN 3268632634 IF L$="" THEN 3262432636 IF L$="B" OR L$="b" THEN GRAPHICS 0:? "TYPE 'GOTO 32600' TO CONTINUE":END"} 32638 IF L$(1,1)="E" OR L$(1,1)="e" THEN E=1:TRAP 32624:EL=VAL(L$(2)):POSITION 1,9:LIST EL:GOTO 3262432640 SV$=L$:TRAP 326"}24:X=VAL(L$)32642 START=1:IF P AND NOT E THEN 3265232644 GOSUB 32674:IF NOT ABR OR P THEN 3265232646 POKE 766,0:? CHR$(1"}25):POSITION 0,3:L=VAL(L$):LIST L:? :? :? "CONT":L$=B$32648 POSITION 0,0:POKE 842,13:STOP 32650 POKE 842,12:A=USR(ADR(S$),A"}DR(L$),4):L$=L$(1,A)32652 CHKSUM=USR(ADR(M$),ADR(L$),LEN(L$)):CHKSUM=CHKSUM+PEEK(1542)*6553632654 CHK=CHKSUM-(INT(CHKSUM/67"}6)*676):HI=INT(CHK/26):LO=CHK-(HI*26):C2$(1)=CHR$(HI+65):C2$(2)=CHR$(LO+65)32656 IF NOT P OR E THEN E=0:GOSUB 32662:IF NOT"} P THEN 3266032658 POKE 83,39:POKE 752,1:FOR X=3 TO 5:POSITION 1,X:? B$(1,38):POSITION 1,X+7:? B$(1,38):NEXT X:POKE 83,3832"}660 POKE 766,1:POKE 83,38:POSITION 6,7:? C2$:POKE 752,0:GOTO 3261832662 GOSUB 32702:POKE 766,0:POKE 752,1:? "}":POKE 82,1:DL"}=PEEK(560)+256*PEEK(561)+432664 POKE DL-1,70:POKE DL+2,6:POKE DL+3,112:POKE DL+4,112:POKE DL+5,112:POKE DL+13,112:POKE DL+14"},11232666 POKE DL+22,112:POKE DL+23,112:POKE DL+24,65:POKE DL+25,PEEK(560):POKE DL+26,PEEK(561):POKE 83,3932668 POSITION 20"},0:? "頠":POSITION 0,7:? "Ǡנ"32670 POSITION 0,1:? ""}Šנ":POSITION 1,7:? ":";32672 POKE 559,34:RETURN 32674 GRAPHICS 0:POKE 559,0:POKE 766,1:POKE 82,0:PO"}KE 83,39:POSITION 0,3:? L$:? :? :? :? "CONT":POSITION 0,032676 POKE 842,13:STOP 32678 POKE 842,12:TRAP 32682:A=USR(ADR(E$),"}VAL(L$)):IF A=4 THEN POP :GOTO 3268232680 RETURN 32682 GOSUB 32662:SOUND 0,75,10,8:FOR X=1 TO 20:NEXT X:SOUND 0,0,0,0:POSIT"}ION 1,3:? "SYNTAX ERROR!":POKE 766,132684 POKE 83,38:POSITION 1,10:? SV$:GOTO 3262432686 LINE=PEEK(STMTAB)+PEEK(STMTAB+1)*2"}56:IF LINE>32599 THEN 3269032688 OFS=PEEK(STMTAB+2):STMTAB=STMTAB+OFS:POSITION 1,9:LIST LINE:GOTO 3262432690 POKE 766,0:POS"}ITION 1,10:? "READY TO QUIT";:INPUT A$:IF A$<>"Y" THEN POSITION 1,10:? B$(1,38):GOTO 3262432692 GRAPHICS 0:? :? :? :FOR X=32"}600 TO 32636 STEP 2:? X:NEXT X:? "CONT":POSITION 0,0:POKE 842,13:STOP 32694 POKE 842,12:GRAPHICS 0:? :? :? :FOR X=32638 TO 3"}2674 STEP 2:? X:NEXT X:? :? "CONT":POSITION 0,032696 POKE 842,13:STOP 32698 POKE 842,12:GRAPHICS 0:? :? :? :FOR X=32676 TO "}32702 STEP 2:? X:NEXT X:? :? "POKE 842,12":POSITION 0,032700 POKE 842,13:STOP 32702 POKE 16,112:POKE 53774,112:RETURN TO yfgWG\MLANGMOVMEMCCMESEINVDATLMEMSCOARSCHANGSCROLVBLOFFDLISLINMEMBYTDAXXSCRSCR Z&}))AVB6B 9Bv@Z@@ @ Bhv A @Bg&}(AhBt2@@d@@@@A$ACZ A0 6&}-?:C:,"@)"6@!6-6>AA)&F:A,2 6-%&}<G!@6-&@+6-%@=A@G A`F= 6-%@+6-&@=A&}@P!A!A@d F:A,An A AY &&;@,&};Av,;@, ;@ , B 6. ;@A, B 6. --@")A6%&}- & --72,169,212,141,10,212,141,26,208,104,64N <6-F:A@,&@.A&@<6-$AVX +-&}@+ B%@$b 956-?:C:,255):POKE DLIST+4,L-256*(L>255)5040 FOR X=6 TO 20*}:POKE DLIST+X,22:NEXT X:FOR X=24 TO 50:POKE DLIST+X,14:NEXT X5050 MEM7=PEEK(88)+PEEK(89)*256+6005060 POKE DLIST+21,78:POKE *}DLIST+23,INT(MEM7/256):POKE DLIST+22,MEM7-INT(MEM7/256)*2565070 POKE DLIST+31,78:POKE DLIST+33,INT((MEM7+320)/256):POKE DLIS*}T+32,MEM7+320-PEEK(DLIST+33)*2565080 POKE DLIST+41,78:POKE DLIST+43,INT((MEM7+640)/256):POKE DLIST+42,MEM7+640-PEEK(DLIST+43*})*2565090 POKE DLIST+51,22:POKE DLIST+52,225100 POKE DLIST+53,225110 POKE DLIST+54,6:POKE DLIST+55,70:POKE DLIST+56,PEEK(8+}8):POKE DLIST+57,PEEK(89)5120 POKE DLIST+58,65:POKE DLIST+59,PEEK(560):POKE DLIST+60,PEEK(561)ST+55,70:POKE DLIST+56,PEEK(8(`5180 MEM1=PEEK(DLIST+4)+PEEK(DLIST+5)*256:SCRL=PEEK(DLIST+56):SCRH=PEEK(DLIST+57)5190 POKE 87,1:POKE 88,SCRL:POKE 89,SCRH:PO/}SITION 0,0:? #6;" SCORE: 0"ST+5)*256:SCRL=PEEK(DLIST+56):SCRH=PEEK(DLIST+57)5190 POKE 87,1:POKE 88,SCRL:POKE 89,SCRH:PO, 3100 FOR BYTE=0 TO 10:READ DAT:POKE 1536+BYTE,DAT:NEXT BYTE3110 DATA 72,169,212,141,10,212,141,26,208,104,645100 POKE DLIST3}+53,150:POKE 512,0:POKE 513,6:POKE 54286,192,DAT:NEXT BYTE3110 DATA 72,169,212,141,10,212,141,26,208,104,645100 POKE DLIST0-5210 POKE 87,7:POKE 89,INT(MEM7/256):POKE 88,MEM7-PEEK(89)*256:COLOR 32,169,212,141,10,212,141,26,208,104,645100 POKE DLIST4G5210 POKE 87,7:POKE 89,INT(MEM7/256):POKE 88,MEM7-PEEK(89)*256:COLOR 35230 RESTORE 52605240 FOR X=1 TO 10:READ N,XS,Y,XE:FO;}R T=N-1 TO 0 STEP -1:FOR Z=0 TO 3:PLOT Z*40+9+XS,Y+T:DRAWTO Z*40+9+XE,Y+T5250 NEXT Z:NEXT T:NEXT X5260 DATA 4,16,20,20,4,1,;}20,5,2,15,18,20,2,1,18,6,2,14,16,20,2,1,16,7,10,1,6,20,2,2,4,19,2,3,2,18,2,4,0,17T Z:NEXT T:NEXT X5260 DATA 4,16,20,20,4,1,8R; ACTION! GRAPHICS TOOLKIT; by Monty McCarty;; Copyright 1988; by ANALOG Computing;; CHECKSUM DATA;[33 BD 83 64 E? }9 A4 E3 92 ; F5 59 85 A6 54 7D C5 8B ; B1 B8 16 2B F1 09 EC 8C ; F7 8F CE 4E FB D6 6A 57 ]CARD SavMsc=88,OldCol=91, ? } Xmin=[0],Xmax=[319],ETCARD ARRAY Line(192),TW(20)BYTE Color1=709,Color2=710,CPL, Color4=712,CharSet=57344, OldRo? }w=90,Ymin=[1],Ymax=[192]BYTE ARRAY D8(320),BF(7680),CS(1024), M1(0)=[128 64 32 16 8 4 2 1], M2(0)=[$7F $BF $DF $EF? } $F7 $FB $FD $FE]INT FUNC Abs(INT N) IF N<0 THEN RETURN(-N) FIRETURN(N)PROC Screen(CARD X,BYTE Y, ?} CARD CX,BYTE CY) Xmin=X Xmax=CX Ymin=Y Ymax=CYRETURNPROC Unclip() Xmin=0 Xmax=319 Ymin=1 Ymax=192RETURNPROC Plo?}t(CARD X,BYTE Y) BYTE POINTER LOC OldCol=X OldRow=Y IF XXmax OR YYmax THEN RETURN FI LO?}C=Line(Y)+D8(X) IF COLOR#0 THEN LOC^==%M1(X&7) ELSE LOC^==&M2(X&7) FIRETURNPROC Vline(BYTE Y,CY,CARD X) DO P?}lot(X,Y) Y==+1 UNTIL Y>CY ODRETURNPROC Hline(CARD X,CX,BYTE Y) DO Plot(X,Y) X==+1 UNTIL X>CX ODRETURNPROC Drawto(CARD?} CX BYTE CY) BYTE Y,XF,YF,J,AY CARD X,I,AX INT A,B,T,DX,DY AX=OldCol AY=OldRow Plot(AX,AY) IF CX>AX THEN DX=CX-?}AX XF=0 ELSE DX=AX-CX XF=1 FI IF CY>AY THEN DY=CY-AY YF=0 ELSE DY=AY-CY YF=1 FI IF DX<2 AND DY<2 THEN RETURN?} FI X=AX Y=AY IF DX>DY THEN A=DY+DY T=A-DX B=T-DX FOR I=2 TO DX DO IF XF=0 THEN X==+1 ELSE X==-1?} FI IF T<0 THEN T==+A ELSE T==+B IF YF=0 THEN Y==+1 ELSE Y==-1 FI FI Plo?}t(X,Y) OD ELSE A=DX+DX T=A-DY B=T-DY FOR J=2 TO DY DO IF YF=0 THEN Y==+1 ELSE Y==-1 FI IF ?}T<0 THEN T==+A ELSE T==+B IF XF=0 THEN X==+1 ELSE X==-1 FI FI Plot(X,Y) OD FI Plo?}t(CX,CY)RETURNPROC Circle(CARD X,BYTE Y,CARD R) INT CIR,CIRY,CIRXY,CX,CY CIR=0 CX=R CY=0 DO CIRY=CIR+CY+CY+1 ?} CIRXY=CIRY-CX-CX+1 Plot(X+CX,Y+CY) Plot(X-CX,Y+CY) Plot(X+CX,Y-CY) Plot(X-CX,Y-CY) Plot(X+CY,Y+CX) Plot(X-CY,Y+C?}X) Plot(X+CY,Y-CX) Plot(X-CY,Y-CX) CIR=CIRY CY==+1 IF Abs(CIRXY)+0CX ODRETURNPROC Box(CARD X,BYTE Y, CARD CX,BYTE CY) Hline(X,CX,Y) Vline(Y,CY,CX) Hline(X,CX,CY) V?}line(Y,CY,X)RETURNPROC Frame() Box(Xmin,Ymin,Xmax,Ymax)RETURNPROC Move(BYTE POINTER T,F, CARD L,BYTE M) C?}ARD C IF M<1 OR M>4 THEN M=1 FI C=0 DO IF M=1 THEN T^=F^ ELSEIF M=2 THEN T^==%F^ ELSEIF M?}=3 THEN T^==&F^ ELSEIF M=4 THEN T^==!F^ FI F==+1 T==+1 C==+1 UNTIL C=L ODRETURNPROC Cut(BYTE X,Y,CX?},CY) CARD S,E,CT CT=CS S=SavMsc+(Y-1)*40+X CPL=CX-X E=SavMsc+CY*40+X ET=E-S DO Moveblock(CT,S,CPL) CT==+CPL S? }==+40 UNTIL S=E OR S>=SavMsc+7680 ODRETURNPROC Paste(BYTE X,Y,M) CARD S,E,CT CT=CS S=SavMsc+(Y-1)*40+X E=S+ET ?!} DO Move(S,CT,CPL,M) CT==+CPL S==+40 UNTIL S=E OR S>=SavMsc+7680 ODRETURNPROC Print8(BYTE ARRAY ST, ?"}BYTE X,Y,SZ,M) CARD S,E,CT BYTE A,B,C,D,LEN CT=SavMsc+Y*40+X B=1 S=CT LEN=ST(0) DO C=ST(B) IF C>127 THEN C==?#}-126 FI IF C>31 AND C<96 THEN C==-32 ELSEIF C<32 THEN C==+64 FI E=@CharSet+C*8 A=0 DO D=0 ?$} DO Move(S+40*D,E+A,1,M) D==+1 UNTIL D=SZ OD S==+40*SZ A==+1 UNTIL A=8 OR S>=7680+SavMsc OD S=CT+B B==+1?%} UNTIL B=LEN+1 ODRETURNPROC Block(BYTE X,Y,CX,CY,F) CARD S,E BYTE L S=SavMsc+(Y-1)*40+X L=CX-X E=SavMsc+CY*40+X?&} DO Setblock(S,L,F) S==+40 UNTIL S=E OR S>=SavMsc+7680 ODRETURNPROC OpenW(BYTE X,Y,LN,LINES,SZ,N) BYTE W,H,C?'} Moveblock(BF,SavMsc,7680) W=X+LN+2 H=LINES*(SZ LSH 3)+1 Block(X,Y,W,Y+H,0) Screen(X LSH 3,Y,W LSH 3,Y+H) IF N=1 THE?(}N Frame() FI Unclip() FOR C=0 TO LINES-1 DO Print8(TW(C),X+1,Y+(SZ*8)*C,SZ,1) ODRETURNPROC CloseW(CARD D) ?)}CARD A FOR A=0 TO D DO OD Moveblock(SavMsc,BF,7680)RETURNPROC Gwindow(CARD X,BYTE Y, CARD CX,BYTE CY,N) ?*} CARD XA,XB BYTE YA,YB Screen(X,Y,CX,CY) XA=(CX-X)RSH 1+X XB=XA DO IF XA>=X THEN Vline(Y,CY,XA) XA==-1 F?+}I IF XB<=CX THEN Vline(Y,CY,XB) XB==+1 FI UNTIL XA=183 TC9}HEN B==+255 FI X(A)=B OD CLOSE(1) OPEN(1,"D:YARRAY.DAT",4) FOR A=1 TO 228 DO B=GETD(1) Y(A)=B OD CLOSE(1)RC:}ETURNPROC DRAW() IF FL=1 THEN IF OX-X1>11 OR OY-Y1>11 THEN RETURN ELSE DRAWTO(X1,Y1) OX=X1 OY=Y1 RETURN FIC;} ELSE FL=1 PLOT(X1,Y1) OX=X1 OY=Y1 FIRETURNPROC CHECKBUTTONS() DO DO X1=X(XDIR) Y1=Y(YDIR) IF XDIR<=4 AND YC<}DIR<=4 THEN FL=1 EXIT FI IF LEFTB=0 THEN DRAW() ELSE FL=0 FI OD ODRETURNPROC MAIN() BYTE COL1C=}=709,COL2=710,COL3=712 GRAPHICS(24) COL1=0 COL2=10 COL3=10 COLOR=1 FILLXY() CHECKBUTTONS()RETURNC MAIN() BYTE COL1@i  +,BXDIYDI@@5w?w)A)A+6-A 'A(+6-A'A(--@@G?} D:XARRAY.DAT>-@A("6-P:$,/*@3 >@--@@ D:YARRAY.DAG@}T#>-@A("6-P:$,/*@3 >@D:LISTING3.BAS@@ D:YARRAY.DADV78V l BFNABFF1LINRETRBACKSCHKSUEDILBYTDMOD@KB}  GG9@,;@,KC};@,;@,;@,;@, ;@,?6-A6-AU'6-A&36-?6-IKD} AP-@@8(tart or ontinue? B AI(>:,(?-@@#(FILENAME'9AR@KE}?( 25B:, @$-@ @+( 5 @@<?7@<@,0D:&6.D:567@,.? @FKF} 6.P>:,4SA Z4 A0*@@4 Ad@-@@$)@( 66KG}-%@@ An5@+@@ 5 Apxr A`*@@4 A@KH}F-@@`(FILE ALREADY EXISTS!!rARH-@@%( ERASE IT? / AAAR@KI}H(>:,,>:,4N)>:,4n"@, @0>:,0Y*>:,0yA0+@+@@KJ}? AP-@@3( נΠ: ?6-6-@#-@@W-@$+ @,%@KK}$+!@ ,%@iAR|(BYTE #:  A$*"6-8,$ A 6-A:,KL} 6. -@"%@ ( 0 68,-6-%$"!A06-&B) 6-%!A)6-&BKM}O-@%@)AR9( CHECKSUM: E6-@O A*"Ap 6-A:,!-KN}@"%@!( "A"/ A@6-@%6-/ A,O-@@'*@KO}8,+ 96-%@E6-O Ap66-@- A-"@:Q,*"@*(A J++**+ @HKP})!@W,A K"*46.O%%"*"*!@APT&&++"*(,)",*"A ^$ "KQ}AR@!( $$hAr2!@(6.7@<&@,2 A| 6.# (>:,6-&@KR}# A '6-%@!6-' AP!67,.>:,(>:,! A  +^ A@-@KS}@1( NO SUCH FILE!E-@AI T@^ @0tA@H72A@@KT}K-@@PO q2t$U +@#@A1B7tACAYKU}UA@U-6-F:A`,%AV$F:Aa,%@A&@@pU%@@_-@KV}@9@-%@1 M-@@@@[%_ W%@A@e.%@BF:A`,KW}E%@CF:Aa,W@?-@*(analog ml editor<AY@4?$>#@@KX}K:0)@;@>$D:MLEDITOR.BAS(analog ml editor<AY@4?$>#@@H?