@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 X;LIST #D:AUTOBAS.SRCX;X;for creating AUTORUN.SYS(X;2X;MAC65 source code with<#X;conversions to Atari AssemT}blerA X;EditorFX;P X;Equates:ZHATABSd TEMPnX;x@;;or anywhereX;X;Modify the Handler tableMAINU}$>$;;search from ENDX; of tableELOOPQHATABS9R> E;;for 'E:' handler FCHANGE000 IEV}LOOPCHANGE;the table address2&EDEX;;save HATABS locQHATABS9;;and E: vector PTEMP"Q>4NEWTAB;;or NEWTAB&$W}FF, PHATABS962@ QHATABS9J PTEMPTQ>5NEWTAB;;or NEWTAB/256^ PHATABS9h"X;now transfer ROM table to RAMr%>|X} 'YSAVXLOOPQ@TEMP7 PNEWTAB83)>;;16 BYTESDXLOOP;;branch if <16"X;now setup new getbyte routineQ>4NEY}WGET;or (NEWGET-1)&$FF PGETBYTEQ>5NEWGET;or (NEWGET-1)/256PGETBYTE:X;Handler table space Z}NEWTABOPEN ;;see Atari OSCLOSE ;;Manual,GETBYTE ;;DeRe Atari, or& PUTBYTE ;;Mappng the Atari0 STATUS[} :SPECIAL DJUMP ==N =;;16th byteS;& insuranceX YSAV b EDEX lX;uX;Our new GETBYTE routine\}v NEWGET %YSAVQCMDLIN8;;get 1 charR>;;if C/R then done FDONE#YSAV;;indx next char%>;;tell O.S. OK]}:DONE5;;save C/RA;;save X register5$EDEX;;find 'E:' entryQTEMP;;in HATABSPHATABS9;;replace our ;^}routine 2;;with the real ;vector QTEMP  PHATABS9*7;;restore X reg4>>7;;restore C/R to AH%>;;set status_} OKR:\X;fCMDLIN;passed to BASICp$ A? A="=ALoading... MYPROGA="z" A:RUN A="=AD:myprog.basA=" ;; C/R!!`}X;X;set to execute when loaded MAIN"=ALoading... MYPROGA="z" A:RUN A="=AD:myprog.basA=" ;; C/R!!2/0.INPUTVOCABINTOKEINLEPTTERMLIMATEMP@Av b} @ @ &) Program name: VOCAB.BASUtility program to build%%vocabulary list fil c}e for parser(!!demo program in "Boot Camp"2<by Karl E. WiegersFPFirst build VOCAB$ stringZd&& d};@ ,;A ,;@A,n*6-@* Building vocabulary...x " 6-B:,67<,.>:,67%@ e}<%,.%%67%@%<%@%,.>:, 4! A6-%%@ A Then print data to f}file Saving in file....,,@@ D:VOCAB.DAT6-P:B:,'@A,%@-@&@ g}&&6.7@@$&@9<@@$, @ !!6.7@@$&@9:,x @,,@@ D:VOCAB.DAT-@p}@67$@@%@,. @ >:A%,$$ Enter a word (QUIT to exit):q}4QUIT&AB:,6-?:C:, Q@VOCAB7 HANALYZE PRESULT:X;$X;-------------------------------~}"X;see if length matches that ofX;next word in vocabulary$X;------------------------------- X; ANALYZE RLENGTH;;}lengths match?*HNEXTWORD;;no, go on4%LENGTH;;yes,check chars>X;H$X;-------------------------------R!X;compare chara}cters in target\$X;word with those in current wordfX;in vocabularyp$X;-------------------------------zX; CYCLEQ@}VOCAB7;;get next char1;;and compare toR@WORD7;;target wordHNEXTWORD;;no match,go onC;;matches, checkHCYCLE;};next char%LENGTH;;found! point to3;;token value, getQ@VOCAB7;;it, and storePRESULT;;in RESULT byte:;;all d}one, so exitX;$X;------------------------------- X;skip to next word by addingX;length of current word to$X;point}er to vocabulary list.$X;-------------------------------8X;B NEXTWORDL,V%>` QVOCABj O@VOCAB7t PVOCAB~ DNOI}NC1 #VOCAB NOINC1, QVOCABO> PVOCAB DNOINC2 #VOCAB NOINC2X;#X;------------------------}------#X;continue search with next wordX;in the vocabulary #X;------------------------------X;,( DBEGIN--------u32600 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 yQcxMLANGMOVMEMCCMESE ;@, ;@A}, B 6.N <6-F:A@,&@.A&@<6-$AVX  +AV !!6-?:C:,<BsD<}<A#, Y6-%A%-@9 B%%@$Y6-?:C:,15 THEN SCROLL=SCROLL-16:COARSE=COARSE+2:POKE 1790,2:GO,}TO 13601350 IF SCROLL<0 THEN SCROLL=SCROLL+16:COARSE=COARSE-2:POKE 1790,21360 POKE 1788,SCROLL:POKE 1787,11380 IF PEEK(179,}0)<>0 THEN 13801390 GOTO 10003010 POKE 559,03040 DIM VBLOFF$(20):GOSUB 29000:VBLOFF$=MLANG$3160 FOR SEC=0 TO 1:GOSUB 3100,}0+10*SEC3170 X=USR(ADR(MOVMEM$),ADR(MLANG$),CA-256+90*SEC,LEN(MLANG$)-1):NEXT SEC4000 GRAPHICS 17:POKE 559,0:POKE 756,CB+2,}5010 DLIST=PEEK(560)+PEEK(561)*2565020 POKE DLIST+3,865030 FOR LINE=2 TO 12:POKE DLIST+4+LINE,22:NEXT LINE5200 POKE 559,34,}5270 SCROLL=0:CHANGE=1:SB=0:COARSE=05290 POKE 54276,05360 POKE 1789,0:POKE 1790,0:POKE 1791,1285460 GOSUB 31500:X=USR(ADR,}(MLANG$),CA-256)5490 GOTO 100029000 MLANG$="h_ \b \`":RETURN 31000 MLANG$="hԭԭO0̭1͠,}A=4)p@0P*ȭ0mȱi̐8ȱ":RETURN 31010 MLANG$="̐нL_":RETURN 31500 MLANG$=",}hhh \`":RETURN 0mȱi̐8ȱ":RETURN 31010 MLANG$="̐нL_":RETURN 31500 MLANG$=",1000 X=USR(ADR(MOVMEM$),ADR(INV$)+SB,MEM1,283)1080 SB=288*(SB=0)3030 DIM MLANG$(90),INV$(576),DAT$(16)5370 INV$="":INV$(50}76)="":INV$(2)=INV$5390 FOR LP=0 TO 4 STEP 2:READ DAT$:INV$(LP*48+3,LP*48+18)=DAT$:INV$(LP*48+339,LP*48+354)=DAT$5400 READ0} DAT$:INV$(LP*48+51,LP*48+66)=DAT$:INV$(LP*48+291,LP*48+306)=DAT$:NEXT LP8+18)=DAT$:INV$(LP*48+339,LP*48+354)=DAT$5400 READ0J5030 L=PEEK(DLIST+4)+44:POKE DLIST+5,PEEK(DLIST+5)+(L>255):POKE DLIST+4,L-256*(L>255)5040 FOR LINE=2 TO 12:POKE DLIST+4+LINE4},22:NEXT LINE5180 MEM1=PEEK(DLIST+4)+PEEK(DLIST+5)*2565):POKE DLIST+4,L-256*(L>255)5040 FOR LINE=2 TO 12:POKE DLIST+4+LINE4878V l BFNABFF1LINRETRBACKSCHKSUEDILBYTDMOD@8}  GG9@,;@,8};@,;@,;@,;@, ;@,?6-A6-AU'6-A&36-?6-I8} AP-@@8(tart or ontinue? B AI(>:,(?-@@#(FILENAME'9AR@8}?( 25B:, @$-@ @+( 5 @@<?7@<@,0D:&6.D:567@,.? @F8} 6.P>:,4SA Z4 A0*@@4 Ad@-@@$)@( 668}-%@@ An5@+@@ 5 Apxr A`*@@4 A@8}F-@@`(FILE ALREADY EXISTS!!rARH-@@%( ERASE IT? / AAAR@8}H(>:,,>:,4N)>:,4n"@, @0>:,0Y*>:,0yA0+@+@@8}? AP-@@3( נΠ: ?6-6-@#-@@W-@$+ @,%@8}$+!@ ,%@iAR|(BYTE #:  A$*"6-8,$ A 6-A:,8} 6. -@"%@ ( 0 68,-6-%$"!A06-&B) 6-%!A)6-&B8}O-@%@)AR9( CHECKSUM: E6-@O A*"Ap 6-A:,!-8}@"%@!( "A"/ A@6-@%6-/ A,O-@@'*@8}8,+ 96-%@E6-O Ap66-@- A-"@:Q,*"@*(A J++**+ @H8})!@W,A K"*46.O%%"*"*!@APT&&++"*(,)",*"A ^$ "8}AR@!( $$hAr2!@(6.7@<&@,2 A| 6.# (>:,6-&@8}# A '6-%@!6-' AP!67,.>:,(>:,! A  +^ A@-@8}@1( NO SUCH FILE!E-@AI T@^ @0tA@H72A@@8}K-@@PO q2t$U +@#@A1B7tACAY8}UA@U-6-F:A`,%AV$F:Aa,%@A&@@pU%@@_-@8}@9@-%@1 M-@@@@[%_ W%@A@e.%@BF:A`,8}E%@CF:Aa,W@?-@*(analog ml editor<AY@4?$>#@@8}K:0)@;@>$D:MLEDITOR.BAS(analog ml editor<AY@4?$>#@@8?Nhhhhhؠ`ˈ ȱˍ`q˅ːiːAY@4?$>#@@<U12 PRDFPPCH1CH2CH3BUFLHCICIOBUFF@}  HHPOKEY PLAYER BY CRAIG@} CHAMBERLAIN. MODIFIED BY LEE BRILLIANT M.D. Ad<F:Ad,AU*AdAU<A6n F@}:A6,"@Ax(6-?:%AV, A( Ay A Au1Av@CAw@}UAx@gAyy@eE #A#!-AAH%"+/ ENON-RELOCATBLE@} CODExAR@ AG(#}----MULTI CHANNEL MUSIC PLAYER----l@@D:*.V?Cx6-@}1@17@<@,0 Ap9(7@<@,27@<@,439(*#7@<@@},42#(+$)(>:A',6-%@) A0.9@ A@2AR9(}8G"@}/(NO MUSIC FILES ON THIS DISKC-@AG BG AP ( }YOUR REQUEST$+4=A@$G @}A LR 6.D:67@,.567B:,%@,.*.V?CR@@V@@)7@<@,@}41@67A<AT,.`37@<@,42367A<AT,.j37@<@,43367A<AT@},.t1@+@@16-~A-@$)@1)@A6-%AV$=6@}-?:<<,!A'(A3@= A$6-?:%@<<, 6-%$ .-AA#@}' .(}, A@("(, A F:A,A6AP AP@P>6-?:<%@}A<%Ag<%As<%A<%A%,PA6@$lIF:A,"Ap4(I DON'T KNOW THAT SONG.@}?@I A+(}ERROR F:A,+6-?:%AV,  hh;A,;@t,;@t,;@t,;@}@4,;@@,;@,;I:,&A, 6-C:,6-C:,6-C:,CAv<Av,.>:AU,&$kk@}12,24,36,48,244,232,220,208,1,2,3,4,5,6,7,0,255,254,253,252,251,250,249,108,2,6,108,4,6,108,6,6,160,0 &&177,203,230,203,20@}8,2,230,204,96 D:POPS1.BAS4,5,6,7,0,255,254,253,252,251,250,249,108,2,6,108,4,6,108,6,6,160,0 &&177,203,230,203,20@"(k~LINZ##@@K:d- (}6-A )-@A D}H-"ng  A(}-6-%@?-@@c( PP$(+O:,,)=>:@4,g"x (>:, D} Au #A (>:A%,,-@@G( 2200 CH1$=>:@4,[-@@t_"g(>:,k u AD}k(>:A%,"-@@=( 2210 CH2$=>:@4,Q-@@uU"](>:,a k Ak(>:A%D},"-@@=( 2220 CH3$=>:@4,Q-@@uU"](>:,a k Ak(>:A%,"-@@D}=( 2230 CIO$=>:@4,Q-@@9U"](>:,a k A5(}PRESS TO:5(LIST 'D:TEMP',2000,23D}00$)@$AUA!D:TEMPA A#!9( ((CONT$-@6AB@D}9&AB@$XX-1,104,104,141,3,6,104,141,2,6,104,141,5,6,104,141,4,6,104,141,7,6,104,141,6,6,104TT141,D}14,6,104,141,10,6,104,141,15,6,104,141,11,6,169,0,141,0,6,141,1,6,141,54,6]]169,144,162,5,27,157,54,6,74,202,208,249,169,D}12,141,60,6,169,40,141,69,6,173,36,2,141,8ff6,173,37,2,141,9,6,169,7,162,6,160,-91,93,76,92,228,104,104,104,170,104,27,15D}7,21,6,27,157,27,27gg6,104,27,157,18,6,27,157,24,6,169,0,27,157,39,6,27,157,42,6,27,157,51,6,168,169,1,27,157,33,6,169&D}gg36,224,2,208,3,169,48,200,27,157,36,6,152,27,157,27,30,6,169,166,27,157,45,6,169,7,27,157,48,6,960[[104,169,7,174,9,6,1D}72,8,6,32,92,228,169,0,162,7,27,157,0,210,234,202,16,249,96,-181,0:990,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0DD}990,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0NAA0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,162,0,32,96,6,232XbbD}224,3,208,248,108,8,6,189,18,6,-271,133,203,189,21,6,133,204,222,33,6,240,27,27,189,42,6,208bSS18,189,33,6,221,48,6,176,1D}0,189,65,6,41,15,240,3,222,65,6,96,32,99,6,32,102,6lcc133,207,41,248,201,128,208,18,165,207,41,7,168,185,70,6,24,27,125,36D},6,27,157,36,6,24,144,227vff165,207,41,7,240,218,168,136,185,54,6,27,157,33,6,188,27,30,6,185,10,6,133,205,185,-362,14,6,1D}33``206,165,207,74,74,74,41,15,208,10,27,157,65,6,169,1,27,157,42,6,208,78,168,136,185,78,6,24ff27,125,36,6,27,157,36D},6,168,189,45,6,27,157,65,6,177,205,24,27,125,39,6,27,157,61,6,224,2,208,13^^152,24,105,97,168,177,205,141,64,6,24,144,26E},189,45,6,41,240,201,160,208,17,189,36,6,201hh50,144,10,189,45,6,41,15,9,-452,192,27,157,65,6,165,207,41,128,27,157,42,6,E}165,203,27,157,18,6,165\\204,27,157,21,6,96,160,0,165,207,41,120,208,21,189,51,6,240,5,222,51,6,240,10,189,24,6bb133,E}203,189,27,27,6,133,204,96,201,8,208,13,32,102,6,27,157,45,6,32,102,6,27,157,48,6,96,201kk16,208,17,32,102,6,27,157,51,6,E}165,203,27,157,24,6,165,204,27,157,27,27,6,96,201,24,208,-544,7,32,102__6,27,157,39,6,96,201,32,208,22,160,6,177,203,153,E}54,6,136,16,248,169,7,24,101,203,133,203VV144,2,230,204,96,201,40,208,7,32,102,6,141,1,6,96,201,48,208,7,32,102,6,141,69,E}6]]96,201,56,208,7,32,102,6,27,157,27,30,6,96,201,64,208,7,32,102,6,27,157,36,6,96,140,0,6ll96,209,223,237,251,9,27,3E}0,44,65,-634,79,100,121,149,165,189,217,245,17,59,87,129,27,157,199,241,41,75aa121,177,233,33,117,173,1,57,141,225,81,165E},21,133,245,101,241,97,9,149,61,229,141,81,21,245dd213,209,205,1,27,253,49,101,209,61,165,42,234,170,162,154,2,250,98,202E},162,122,75,84,212,84,68^^52,4,244,196,148,68,244,150,168,168,168,136,104,8,232,136,40,136,232,72,0,-724,0,0,0,1,1 991E },1,1,1,1,1,1,1,1,1,2,2,2,2,2,2,2,3,3,3,3,3,4,4,4,5HH5,5,5,6,6,7,7,7,8,8,9,10,10,11,11,12,13,14,14,15,16,17,19,19,21,22 E }]]23,25,26,27,28,27,29,27,31,33,35,38,39,42,44,47,50,53,56,59,63,67,71,76,79,84,89,95,100*mm106,112,119,27,126,134,142,15E }2,-814,27,159,169,179,190,201,213,1,3,6,9,12,15,18,22,23,25,26,27,28,27,294\\27,31,33,35,37,40,42,45,47,50,53,57,60,64,68,E }72,76,81,85,91,96,102,108,114,121,128,136>mm144,153,162,173,182,193,204,217,230,243,27,255,110,116,122,131,137,146,27,0,16E }7,173,185,197,206,221,233H&&245,87,91,97,102,108,115,121,130YY234,234,234,234,234,234,173,0,6,240,73,216,169,3,141,50,E}2,141,15,210,173,61,6,141,0UU210,173,65,6,141,1,210,173,62,6,141,2,210,173,66,6,141,3,210,173,63,6,141,4,210QQ173,67,E}6,141,7,210,173,64,6,141,6,210,173,68,6,141,5,210,173,69,6,141,8,210bb234,234,234,234,234,234,234,234,234,234,234,234,234E},234,173,0,6,240,65,216,169,67,141,15,210ZZ162,6,160,3,185,61,6,27,157,0,210,202,202,136,16,245,173,65,6,141,1,210,173,66E},6,141QQ3,210,173,67,6,41,15,141,0,211,169,0,141,5,210,141,7,210,173,69,6,141,8,210^^234,234,234,234,234,234,173,0,6,E}240,73,216,169,99,141,15,210,162,6,160,3,185,61,6,27,157UU0,210,202,202,136,16,245,173,65,6,141,1,210,173,66,6,41,15,133,E}0,173,67,6,10,10PP10,10,5,0,141,0,211,169,0,141,3,210,141,5,210,141,7,210,173,69,6,141,8,210``104,162,16,169,7,27,157E},66,3,104,27,157,69,3,104,27,157,68,3,104,27,157,73,3,104,27,157,72**3,32,86,228,132,212,169,0,133,213,96 D:POPS2.E}BAS3,104,27,157,69,3,104,27,157,68,3,104,27,157,73,3,104,27,157,72**3,32,86,228,132,212,169,0,133,213,96 D:POPS2.D% A9-@")B@5B7a9 cI}dmm15,160,15,160,15,160,31,160,47,160,63,160,79,160,95,160,111,160,127,160,142,160,157,160,172,160,187,160nmm202,160,2I}17,160,232,160,247,160,246,160,245,160,244,160,243,160,242,160,241,160,240,161,224,162,208,163xkk192,164,176,165,160,166,1I}44,167,128,168,112,169,96,170,80,171,64,172,48,173,32,174,16,175,0,175,0,175kk0,175,0,175,16,175,32,174,48,173,64,172,80,I}171,96,170,112,169,128,168,144,167,160,166,176,165,192,164mm208,163,224,162,240,161,241,160,242,160,243,160,244,160,245,1I}60,246,160,247,160,232,160,217,160,202,160mm187,160,172,160,157,160,142,160,127,160,111,160,95,160,79,160,63,160,47,160,3I}1,160,15,160,15,160,15,160,D6-F:B@,&B@&@8B@AUDB@6i%2A@I}G2@A@i2@A@@B7u@$ D:POPS3.BASHv  +PITCCD A G%6-P:H:,$A,%@G6-P:H:,$M}@,%@[AA A@3-@@P7 IB@[B7a%-@@PM } % @d$B7`!B7aAt$$x$B7f!B@A@$$$B7b!B@@$M!}$,[6-F:B@,&B@&@8B@AUDB@[JOYSTICKS FOR OUTPUT6*B7u@'B7hM"}*$ D:POPS4.BAS&@8B@AUDB@[JOYSTICKS FOR OUTPUT6*B7u@'B7hL~``N1N1N1N1N1N1N1N1N1N2N100N676NNNNNNNNNN1NNSDACNCLEICUUENRSIVIQ$}INUUDDSTURNCNINRVLNCCNNVBSIPONDIGUNKCGPWPWCDDTHUCLFRSTMTSTHLCTFLAN13@Q%}@@@@@@@@ @ A Ag` @ @@@@Q&}@@@@ @@&@Y@%%@A  Q'}NN!@"#$%&'(@A)<*+,-./Q(}0@1haaA234567@89:@;<=}>?@Q)}@ A ##B C@DMME+FGhhHIJ KLMNOQ*}PQRST UVBrWiXq YZ*[\]^Q+}_`AA* BY CLAYTON WALNUM * * REVISED 7/22/88 *6-@6-@'6-@36-Q,}@?6-@K6-@W6-@c6-@o6-@{6-@ 6-A6-Ag`6-@6-@Q-}'6-@36-@?6-@K6-@W6-@c6-@o6-@ {6-@6-@&6-@YQ.}6-@ AR6-?:C:,}6b$3$6.Jo!uif!Qfbdflffqfst!pggjdf06-@'3$"6.Jo!b!kbjm!dfmm$,F6. Jo!b!ibmm6-@'+6-@1Q?}76-@3C6-@2F$6*6.Jo!uif!hvbse!sppn'6-@0*$@1"6.Jo!uif!spzbm!ejojoh!sppn.6-@01$JV6Q@}. Jo!b!ibmm6-@0+6-@476-@5C6-@DS68@%,-6V$T+6.Jo!uif!uispof!sppn(6-@3+$^QA}+6.Jo!uif!tvqqmz!sppn(6-@3+$|V6. Jo!b!ibmm6-@9+6-@@76-@'C6-@AS68@%,-6QB}V$&6. Zpvs!rvbsufst#6-@8&$jf6.\B!tfswbou!foufst!uif!sppn!xjui!b!!!!!!ubolbse!pg!xjof/!!(Dpvsuftz!pg!uif!!!QC}!ljoh-!nz!Mpse/(j  6- $8)6.Jo!Ojlojl!uif!Kftups(t!rvbsufst56-@88$F6. Jo!b!ibmm6-@8+6-QD}@B76-@DC6-@CF$-6.Jo!Epmops(t!rvbsufst*6-@A-$26.Jo!Tibmb(t!rvbsufst)6-@A/6-QE}2$V6. Jo!b!ibmm6-@A+6-@E76-@3C6-@FS68@%,-6V$9*6. Jo!Epnojt!uif!Bewjtps(t!rQF}vbsufst66-@D9$/ 6.Jo!uif!ljoh(t!rvbsufst,6-@D/$:6. Jo!b!ibmm6-@R+6-@P76-@'QG}:$:6. Jo!b!ibmm6-@I+6-@S76-@T:$-6.Jo!uif!difnjtu(t!mbc*6-@I-$0!6.Jo!uif!rvfQH}fo(t!rvbsufst-6-@P0$'6.Jo!uif!mjcsbsz$6-@P'$M6.Jo!uif!dbubdpnct&6-@426-@e>6-@fQI}J6-@eM$M6.Jo!uif!dbubdpnct&6-@f26-@e>6-@eJ6-@qM$56.Jo!b!ebsl!ufnqmf&6QJ}-@r26-@f5$*6.Jo!b!tupsbhf!sppn'6-@q*$3*6. Jo!uif!pggjdf!pg!bojnbm!sfhjtusz06-3$+6.QK}Bu!uif!tipfnblfs(t(6-@#+$)6.Bu!uif!qbxo!tipq&6-@!)$!6.Bu!uif!tubcmft6-!$*6.Jo!b!tQL}nbmm!dibqfm'6-@#*$ /6.Jo!b!ebsl!uvoofm&6-@$,6-/$*6. Jo!b!nfbepx6-'6-@*$ *6. QM}Jo!b!nfbepx!6-@y'6-*$*6. Jo!b!ufou6-$J #Aa -"&6-&B:,=67$&+&,<$&,.F6QN}8,-J & #Aa-""68,-&  Ab 6- 1 -O:8,,"+(7$&%<$,16-QO}  "(Nothing$86-?:C:,<<,-)%%%%%"5(None8$ !(North  !(QP}South  !(East  !(West  !(Up  !(Down$ 6- QQ}6 -8,"6)(7$&%<$,/6-3 6$  "(Nothing$- B:,!"6-?:C:,"@E*8,"6:6.Tpnfuijoh!ubtuft!gvooz!ifsf=>    @u)8,6)  EE6.Q};If!ublft!zpvs!txpse!boe!mbzt!b!hpme!!!qjfdf!po!uif!dpvoufs/0 +68@6,-6-6-'68,-+ X   @(Q}A2   "*" Ag .*6. Zpv!epo(u!ibwf!fopvhi!fwjefodf=.    ^"@E*8@E,"656.PQ}vu!uif!xjoepx///D68@E,-T68@W,-6Z6-^    N"@C*"*J6..Tif!sfuvsot!zpvs!ljttft!xjui!hsfbQ}ufs!!qbttjpo/N  T"@C*"J6.0Tif(t!b!mjuumf!tvsqsjtfe-!cvu!sfuvsot!zpvs!ljtt/P6-T   4 ''@1)+Q}@Q*,A5@H ;%!)"76.!Uifz!tbx!zpv!boe!tupqqfe!ubmljoh/; W  6-%!6-\ O 6-"O6.Q}9(Op!pof!xjmm!cf!hvbsejoh!uif!qsjodftt(!rvbsufst!upojhiu/(p 5 "56.%(Uif!sfhjtusbs!sfbmmz!mpwft!ijt!bmf/( H "H6.Q}8(J!ifbs!Ojlojl!sftqpoet!xfmm!up!uif!!!!qspnjtf!pg!hpme/(     ##8,6)7<,0FOREA6 9/6.%Zpv!qvu!Q}b!cmbdl!epu!po!zpvs!gpsfifbe/56-9 $ t)@CA7@NJ6.@Qsbzfs!boe!hppe!effet!bsf!uif!!!!!!!!!tjodQ}fsftu!gpsn!pg!xpstijq/N 4 "*"06.OJNSBM(T!HSBDF!..!31!MFBHVFT4 8,6)A8 M "I6.9LJOH!.Q}......!tj{f!23!!!!!!!!!!!!!!!!!!Rvffo!......!tj{f!9M W "J6.:Epmops!.....!tj{f!21!!!!!!!!!!!!!!!!!!Ojlojl!.....!tj{Q}f!21S68,-W ["*"@GW6.=Ju!tbzt;!Bmm!bojnbmt!nvtu!cf!!!!!!!!!!sfhjtufsfe!jnnfejbufmz=[ Y"@#*Q}8@#,"6U6.1Xbudi!gps!TMBWF!JJJ;!UIF!HPET!!!!!!!!!UIFNTFMWFT/Y ##@3)8,6)"A9 (_V6.LCpxxpx//Q}///////////Ljoh(t!eph!!!!!!!!!Upqqfs/////////////Epmops(t!ipstf!!!!!_68,-<M667B:,%,.$Dbuojq/////////////Rvffo(t!qbsQ}blffu: >(E6.I M PM"@"*8,"6*@6. Hfgofu!!!!!!!Cpccfm!!!!!!!EpmopsI68,-M R)8,6)(Q}A9(Thh6.^J!uijol!uif!ljoh!ibt!mfbsofe!uibu!!!!!tibmb!jt!opu!usvmz!ijt!ebvhiufs/!J!!!!gfbs!gps!ifs!mjgf-U*&67B:,Q}%,.!bt!xfmm!bt!nz!pxo/* X""@9)8,6)(A91Ybb6.XB!cmbdl!epu!po!uif!gpsfifbe!jt!gsf.!!!rvfoumz!vtfe!Q}cz!uif!gpmmpxfst!pg!!!!!!Hpmhpmpui!upZ,(67B:,%,.!jefoujgz!fbdi!puifs/, [R"*8,"6N6.6Uif!rvffo!ibt!cfusbzQ}fe!nf/!!J!xjmm!!!!ibwf!nz!sfwfohf=R d )@(A@ YO6.EUif!xbufs(t!tp!dpme!zpv!kvnq!sjhiu!!!!pvu=!Q}!Zpv!boe!Tibmb!bsf!tpblfe=U6-Y )@A)(A@`]G6.=Uif!xbufs!ifmqfe!zpv!hfu!uispvhi=!)B!!mjuumf!tjohQ}fe-!uipvhi/*M6-S6-] AT(+"*"@A,)+"*"@A*(,F6.Zpv(wf!cffo!cbscfdvfe=J T Ar@C!Q}"@$*"@5*8,"6-6.Plbz=96-@x?6-C 3"@4*"@S*(/6. Ju(t!mpdlfe/3 1"@4Q}*"@S*'6-@e-6-1  hC+"@#)"@!,*+"@P)")"@0)"@1,* d6.Ju(t!dmptfe!gps!Q}uif!ojhiu/h  H#"*+"@2)"@R,* D6.Ju(t!dmptfe!gps!uif!ojhiu/H /"@#*"@P%6-@w+Q}6-/ 5"@#*+")"@0,+6-@t16-5 ;%"@!*+"@0)"@1,16-@u76-; )Q}"*"@26-@v%6-) )"*"@R6-@s%6-) ["@9*"@TB6."Zpv!tmffq!b!mpohQ}!ujnf-!uifo!xblf/F P AeW6.[ )"*"@Y6-@%6-)  @\"@E*8,"6N6.0XibuQ}(t!uibu!bxgvm!ubtuf@!!Zpv(wf!cffo!qpjtpofe=R \ Ar@T |3"*8,6*"/6.Hfu!mptu-!tusbohfs=3 M"Q}*8,"6*"=6.!Zpv!ibwf!uif!qsjodftt=!!Dpnf!jo=C6-I6-M hW+"@u*"@H,)+"@s*"@8,)+"@(Q}*"@',)+"@t*",d6.(Zft@(h !!@w)@DAD 2 8,.6.(Zpv!nvtu!hp!opx-!cspuifs/Q}(2 - ")6.If!ufmmt!zpv!up!hfu!mptu=- <)6.(Xibu(t!uif!qbttxpse-!cspuifs@(- 1(86.<F4DARKNQ}ESS36.(Ifsf(t!uif!lfz-!cspuifs/(96-B68,-F K=6.3If!hsbct!b!txpse!boe!svot!!!!!!!!!!!!!zpv!uispvhi=A K AQ}r@D@C)ADXaT6.F(Tpnfuijoh!tffnt!up!cf!cpuifsjoh!!!!!!Epmops/!!If(t!cffo!bwpjejoh!nf/(]68,-Q}a lIE6.;Tif!tbzt-!(J!bn!qmfbtfe!zpv!ibwf!dpnf!up!wjtju!nf!upojhiu/(I P"@E*"*!L6..(Uif!ljoh!upme!nf!Q}up!lffq!bo!fzf!po!!!!zpv///(P Z"@A*"*8,"6V6.4(J!ifbse!b!opjtf!boe!dbnf!up!efgfoe!!!uif!qsjodftt/(Z Q}L)+"@B*"*!,)+"@@*",H6.If(t!hpu!opuijoh!up!tbz/L  Z "@4*"*8@S,"@6.Uifsf(Q}t!b!epps!cfijoe!ju=P68@S,-6V6-Z ..@B)@!)8@F,AF F  ,6.Uifsf(t!tpnfuijoh!Q}cfijoe!ju=<68@F,-6B6-F E;6.1Epmops!zfmmt-!(Hvbset=!!Bssftu!!!!!!!!uijt!nbo=(E Af  >X=+"@@Q}*"*8,"6,)+"@F*",)+"@B*",T6.If!tbzt!opuijoh/X I)%@W)8,6)8@V,6) JOB6.Q}8Tpnf!qsjout!nbudi!b!tfu!jo!uif!lju/!!!!Uifz(sf!Epmops(t/K68,-O \ =+")",*"@$96.Uif!usfft!bsf!upQ}p!cvsofe/=  o48@5,"*"@$*"@I*8@4,"6U6.Zpv!vodpwfsfe!b!usbq!epps=e68@5,-6k6Q}-o  8,6)0PAGE 7 !%6.Plbz-!qbhf!jt!uvsofe/-6-%3 7 8 "6-467B:,%,.!Q}Zpv!dmptfe!uif!!cppl/8 L t@s)AP RH6.>Uif!nbo!btlt!uif!ipstf(t!obnf!boe!!!!!uifo!nbslt!ju!jo!bQ}!cppl/N6-R  # 8,(Nothing happens.# A-Au2'2%50@=0A Q}# 22#ABB(A voice says, >:@4,Ask and receive>:@4,.(( ONE WORD:Q}(24HORSE((Granted!(68,-.6-2 <&"(You have no need for that!& PF+ -A*( Q}ɺ0-F(NIMRAL'S GRACEd: --6?E(A226 : n" -"(BY aYn WnUQ}x 2 AW@ AR AS@g+A@H=6-F:A`,%AV$F:Aa,%K&@q[-Q}@$c%g ? %%@!'%@#3@?AR% -(NIMRAL'S GRACE"-%$Q}X -%(The alarms are ringing!1-@$X("You've rescued Princess Shala fromg -2($the Slavers of Golgoloth,Q} but you're>-@"g($not safe yet! A host of savage war-H -/(!riors is crossing the lake in hot;-@"HQ}(pursuit!f -0("As you drag Shala toward the cover<-@"f(%of the forest, a cloaked figure steps, AW Q} AR@b -.( from the trees. A survivor from:-@"b(#Shala's ambushed caravan? You rushTf -0("foQ}rward with joy, not noticing the<-@"f(%odor of oil drifting on the air. Thehd -2($dark figure strikes a matQ}ch and tos->-@"d(!ses it into the oil-soaked brush.|a -1(#As a curtain of flame leaps up, you=-@"a(Q}see the insignia of the city of AW  ARj -3(%Nimral's Grace on the figure's cloak.?-@"j(&AQ} traitor from Shala's home city? Youi -3(%realize that the caravan's ambush was?-@"i(%planned, that someonQ}e wants Shala outJ -( of the way.%-@$J( The slavers, worshippers of foulf -1(#Golgoloth, are clamoQ}ring into their=-@"f($boats. An inferno blocks your path. AW  ARX -'(Great Nimral protectQ} you!3-@$X( How will you escape? Who is thec -2($cloaked assassin? Who wants to keep>-@"c( ShalQ}a from her wedding? Can you0d -3(%solve the mystery before the assassin?-@"d( strikes a fatal blow? You muQ}st!DU-@#5(!ŠŧӠ٠ԠΠ? AW K@U AW`X8 -( press any key)Q}K:0)58$l-A $ -( one moment WW;$,;$,;A`,;,;,;,;,;Q},;,;,;@w,;@7,<<;$,9,;@x,;@B,9,;,;@5,;,9, -68Q},- WW6.Mhhhhhhhϩ`iiͥiѩ`//6.%hhhhh͠= Q}8`!XX6.NhhhhhX˥Y̢i(˥i'ˈi(˥i̩`--6.#hhhhhQ}ˠ ԩ` 6.Plbz-!ju(t!pqfo/Hee67<@,.PEXAMLOOKTAKEGET DROPGIVEOPENUNLOTASTPAWNACCUPOURKISSLQ}ISTPAINREADGO ENTEDRINTALK\3367@<A,.MOVEFINGCLIMDIG TURNREGIpqq67<@,.\AMULBOX FOOTSTATSHALSIGNWHQ}ITGUARSHOEBLUESWORKEY PAINDIARPAPETHROKINGNIKNDOLNDOMNWARDNOTELETTww67@<A,.\TREESTAIBROWPEACLAKEDIRTSHOPPAWNQ}STABSILVSHOVTRAPGOLDSADDREGIGRAYALE FIRESLAVPLAQPRIEWINEALTAOO67A<A6,.4PROCATTEGARDCHAPGOSSOFFISTEEBED CHAIKIQ}T TANKSOLDTENT.67,. 67$,. $67,.. A GG1,1,2,2,3,3,4,5,6,7,8,9,10,11,12,13,14,14,15,16,17,18,19,20Q},21,22ddAMULET,7,JEWEL BOX,42,FOOTPRINTS,0,STATUE OF NIMRAL,-12,PRINCESS SHALA,5,SIGN,-8,WHITE HORSE,0QQGUARD,-15,SHOQ}EMAKER,-74,BLUE BOOK,74,SWORD,-1,KEY,0,BLACK PAINT,35,DIARY,53NNPAPER,46,THRONE,-34,KING,-46,NIKNIK THE JESTOR,-40,DOLNORQ},-42,DOMNIS,-45$ggWARDROBE,-42,NOTEBOOK,72,LETTER,78,TREES,0,STAIRS,0,BROWN HORSE,-76,ROYAL PEACEKEEPER,-28,LAKE,-58PPDQ}IRT,-9,SHOEMAKER'S SHOP,-23,PAWN SHOP,-21,ROYAL STABLES,-17,SILVER BOOK,0L]]SHOVEL,76,TRAP DOOR,0,GOLD PIECE,0,SADDLE,0,REQ}GISTRAR,-73,GRAY BOOK,54,BOTTLE OF ALE,32`__FIRE,0,SLAVERS,-5,PLAQUE,0,PRIEST,-77,TANKARD OF WINE,39,ALTAR IN WALL,0,PROCLQ}AMATION,-16teeSHOP ATTENDANT,-75,GARDEN,0,SMALL CHAPEL,-23,GOSSIPING GUARDS,-31,SMALL OFFICE,-17,STEEL DOOR,0~XXBED,-39Q},CHAIN MAIL,31,FINGERPRINT KIT,52,EMPTY TANKARD,0, DEAD SOLDIER,-80,TENT,-8W+AY%A@I6-F:A`Q},%AV$F:Aa,%W%A0+ #Ac -"'Ad%+ NN72,138,72,169,192,162,10,141,10,212,141Q},24,208,142,23,208,104,170,104,64iAA(!A3BBA?A KA]AAQ}iAR0 -( κ -0(ՠź4 -( ŠӺ"-4( ٺ9AYQ}@4 -A @9A 6-6- (Q 6-6-6-6-!6-'6--6-36-96-Q}?6-E6-K6-Q6--3 6-6-6-6-!6-'6--6-36-< 6-6-6-6.P Adg 6-6Q} A (AO67AC<AW,.SLEEPING DOLNORg6.Ojhiu!ibt!gbmmfo/iU  .67A<A,.Q} SLEEPING KINGU67Ab<Av,.SLEEPING DOMNISxe !A !AH67AC<AW,.DOLNOR Q} e6.Ebzmjhiu!ibt!sfuvsofe/}U !.67A<A,. KING U67Ab<Av,.DOMNIS   (Q}6.$jj6.`Uif!hvbset!cvstu!jo=!!Zpv!!ibwf!!!!!!!dpnqspnjtfe!uif!qsjodftt!cz!cfjoh!!!!!dbvhiu!jo!ifs!sppn=K Q}&6.Zpv(sf!uispxo!joup!kbjm=* .(56.A6-@)G6-K oo6.eTveefomz-!zpv!tff!tpnfpof!uispvhi!uif!cbst/!!If!Q}uispxt!tpnfuijoh!bu!zpv-!boeju!ijut!zpv!jo!uif!ofdl=o Ago6.[Bt!uif!ebsu(t!qpjtpo!xpslt!jut!xbz!!!!joup!zpvs!tztuQ}fn-!zpv!sfdphoj{f!!!!!!!zpvs!buubdlfs/O Ag;6.'(Zpv=(-!zpv!tdsfbn/!(Ju!dbo(u!cf!zpv=(E AgO Ar@,  Q} $@"@) Jpf6.\Tveefomz-!hvbset!bqqfbs!boe!hsbq!zpv-!zfmmjoh!tpnfuijoh!bcpvu!opu!sfhjtufs.!joh!zpvs!ipstf=Q}p AfU"@) Vjj6.`Tveefomz!hvbset!bqqfbs!boe!hsbc!zpv=!!Tpnfpof!upme!uifn!bcpvu!zpvs!wjtju!!!!up!Tibmb(t!Q}cfesppn=W AfXK=6.3Zpv(sf!upp!mbuf=!Uif!tmbwfst!ibwf!!!!!sfbdife!zpv=A K Ar@h$(YOU CAN'T DO THAT!$Q} A|1+AA +AR1-}OO(GBased on the evidence you've discov- ered the assassin has Q}been appre-~QQ(Ihended. Unfortunately he had a lot of accomplices and they're even nowMM(Ecombing the city for you.Q} You have to leave the city (and a brokenNN(Fhearted Shala) and search out the only being who can put an end toQ}RR(Jthe activities of the followers of Golgoloth, the diety Nimral himself.OO(GIt will be a dangerous mission, but Q}you must succeed if Shala and theMM(Erest of the world are ever to live in peace. The city gates closePP(Hbehind Q}you, and your next adventure is only a few steps down the road.L-@ ( Watch for)-@"L(ŠɺQ}Ӡ Ag Ap@3(LOAD FROM APE OR ISK#34DAi 0T( Ah H(,Q}(!CUE TAPE THEN PRESS RETURN TWICE.0>C:H Ai " D:SLAVE2.DAT"6.Q}&' -68,- 0/-$@+67<%&,./ DQ} -68,- X+  A !A+ Ap bA Al(6-6-(($Q} A`( !((NO GAME DATA SAVED!!;(SAVE TO APE OR ISK!)4D16.,; Aq 0TAp`Q}P(,(!CUE TAPE THEN PRESS RETURN TWICE.086.,FC:P Aq@ D:SLAVE2.DAT**(Q}""(""( -(8,  )-Q}$6.7<%&,% )   - 8, 4 ((6. AH=+ -!( էŠġ'-Q}=(DO YOU WANT TO\" -"(PLAY AGAIN? (/)p "@:Y,% D:SLAVE2.BAS էŠġ'-Pi ORG 1536 ;------------------------------ ;ATARI STREAMERS ML SUBROUTINE ;WRITTEN FOR THE MACRO ASSEMBLER ;-------------U}--------------------- ;THIS ROUTINE WILL TAKE A CHARACTER ;STRING AND COPY IT TO PLAYER ;MISSILE MEMORY. ;---------------U}------------------- ;ZERO PAGE EQUATESPLAYER: = 203STRING: = 205CHRGET: = 207MOVEP: = 203MP: = 205 PLA ;GET UNUSED U}BYTE PLA ;GET MSB OF PLAYER ADDRESS STA PLAYER+1 PLA ;GET LSB OF PLAYER ADDRESS STA PLAYER PLA ;GET MSB OF STRING STA SU}TRING+1 PLA ;GET LSB OF STRING STA STRING PLA ;GET MSB OF CHARACTER SET STA CHSET+1 PLA ;GET LSB OF CHARACTER SET STA CU}HSET PLA ;GET UNUSED MSB OF LENGTH PLA ;GET LSB OF LENGTH STA LENGTH ;INIT. VALUES LDA #0 STA COUNT LDA #32 STA MAXU} ;TEST FOR SINGLE OR DOUBLE LINE ;RESOLUTION. LDA 559 CMP #62 BEQ GETSTR LDA #16 STA MAX ;-------------------------U}--------- ;GET ATASCII CHARACTER FROM STRING ;AND CONVERT IT TO FIND ITS CORRECT ;ORDER IN MEMORY. ;---------------------U}------------GETSTR: LDY COUNT LDA (STRING),Y ;IF CHARACTER IS IN INVERSE, ;UNSHIFT IT. AND #127C1: CMP #31 BCS C2 U};GRAPHICS CHARACTER 0-31 ;ADD 64 TO ITS VALUE. ORA #64 BNE C3C2: CMP #95 BCS C3 ;UPPERCASE CHARACTER 32-95 ;SUBTRACTU} 32 FROM ITS VALUE SEC SBC #32 ;LOWERCASE CHARACTER 96-127 ;DO NOTHING. THEY ARE ALREADY ;IN THE CORRECT ORDER. ;STOU}RE NEW CHARACTER VALUE IN TEMP.C3: STA TEMP LDA #0 STA TEMP+1 ;------------------------------- ;MUTIPLI CHARACTER BY 8U} ;------------------------------- LDX #3 CLCC4: ASL TEMP ROL TEMP+1 DEX BNE C4 ;------------------------------ ;ADD CU}HARACTER SET ADDRESS, AND ;PUT THE VALUE IN ZERO PAGE. ;------------------------------ CLC LDA TEMP ADC CHSET STA CHRGEU}T LDA TEMP+1 ADC CHSET+1 STA CHRGET+1 ;--------------------------------- ;COPY CHARACTER, FROM ITS ORIGINAL ;ADDRESS, TU}O PLAYER MEMORY. ;--------------------------------- LDX #0 LDY #8CP1: LDA (CHRGET,X) STA (PLAYER,X) INC CHRGET INC PLAV}YER DEY BNE CP1 INC COUNT LDA COUNT CMP MAX; BEQ RETURN CMP LENGTH BEQ RETURN BNE GETSTR;NOT DONE.CONTINUE LOOP.RETV}URN: RTS;DONE.GO BACK TO BASIC. ;--------------------------------- ;THIS ROUTINE WILL MOVE THE PLAYER ;UP OR DOWN WITH RAPV}. ;--------------------------------- PLA ;GET UNUSED BYTE. PLA ;MSB OF PLAYER. STA MOVEP+1 STA MP+1 PLA ;LSB OF PLAYER.V} STA MOVEP STA MP PLA ;UNUSED MSB OF DIRECTION. ;SINGLE LINE RESOLUTION SETUP. LDX #255 LDY #255 ;TEST FOR DOUBLE OV}R SINGLE LINE ;RESOLUTION. LDA 559 CMP #62 BEQ S1 ;DOUBLE LINE RESELUTION SETUP. LDX #127 LDY #126 ;PULL LSB OF DV}IRECTION OFF STACK,AND ;FIND OUT THE DIRECTION TO MOVE.S1: PLA CMP #1 BEQ MDOWN ;--------------------------------- ;MOV}VE PLAYER UP ONE BYTE AND RAP. ;--------------------------------- LDY #0 LDA (MP),Y STA TEMP INC MOVEPUP: LDA (MOVEP),YV} STA (MP),Y INY DEX BNE UP ;DONE.GO RAP LAST BYTE AROUND. BEQ S3 ;---------------------------------- ;MOVE PLAYER DV}OWN ONE BYTE AND RAP. ;----------------------------------MDOWN: TXA TAY LDA (MP),Y STA TEMP DEYS2: LDA (MOVEP),Y STA V }TEMP+1 TXA TAY LDA TEMP+1 STA (MP),Y DEY DEY DEX BNE S2 ;----------------------------- ;RAP LAST BYTE AROUND AND V }EXIT ;ROUTINE. ;----------------------------- TXA TAYS3: LDA TEMP STA (MP),Y RTS ;BYTE FIELD EQUATESTEMP: DB 0,0LV }ENGTH: DB 0COUNT: DB 0CHSET: DB 0,0MAX: DB 0TXA TAYS3: LDA TEMP STA (MP),Y RTS ;BYTE FIELD EQUATESTEMP: DB 0,0LT1LM ABCDCLPMBASAPPMPMPMLENGTFONP0P1P2P3MIMISSLPMMISSILZ }PARB BR B B BsDAQAw   Z}0 @ B$B@!ATARI STREAMERSBY BRAD TIMMINS!!Substitute the lines in REMZ} statements for single-lineresolution Players.((COPYRIGHT 1988 BY ANALOG COMPUTING2GG;@,;@,;Z}@,;@,;@,;@,399DIM P0$(32),P1$(32),P2$(32),P3$(32),MI$(32),CL$(32)<D(>:A%,*0@Z}@D0@@F AP+6-F:A,&@+A=PEEK(106)-16ZBBy6-AV$Z}dI6-%A6-%A(-6-%A(;6-%A(I6-%A(eLLMISSILE=PMBASE+768:PM0=MISSILE+256:PM1=PM0+25Z}6:PM2=PM1+256:PM3=PM2+256n#6-BsD#ROM character setx#AY@F#POKE 559,629B2w@'ARZ}@9A#@Position PlayersKB2H@`'B2I@a9B2PAKB2QAZ}Position MissilesKB2UA"'B2TA$9B2SA&KB2RA(]AA('AZ}A49AA(KAA4]AA(Define a string of spaces the length of the playeZ}rs,!!to clear out Player-missile memory.6. ,,CL$=" "Z}-@//6-?:A6<%+$A(,