@L|}6CD l0C)HCC WhL/h `CmCDiD`  R@W1  Y0@R !L` D  C D     )16CS S)  C)D1 p p 0 C9DI pCDL~CiCDiD` D  C D     )16CS S)  C)D1 p p }0 C9DI pCDL~CiCDiD` DD˙` d J)L !}D L(( LL()  L| L( S LH 0p n  } CY?  q  L L  ` )} `A! d߰")-݆ "  $G@LLL&0") $G% }H0 3S8`G ȱG ȱG   Gȭ Gȭ GG}GHiH8(()) G$H% `(0 })8` d)L ݆ & LGȘ ݆LL d  ! LL d)N>Q  HH) }  hyhyB q L> Lm JJ  Ln*` dB%' }8  H H` 1 { LL   !L     Hh SY?  q  1L }  !? S   q 1 L   Ll  Lg E`L   !L)  q 1L}) `L0AM݊L݉ ML  N݆LLLNLMLHG!@}1F GȱGLLEEȩÑEȑEEȑE Ed E7EȩE  q} L !,0,0SGɛ L 1 !L EHEh W G gLLSROTCES EERF } G) *Gȩ GȽG GȌd q q G`  8   0G  `D}CEDC0X:Ȣ Y ȱC* ? 0.. , 0%n ?A[ 0 : L`L  `, 0`Y}`piH n0)բY? 08`0 }  0$L GGȽG L `8L`L}8`  05G)݁,G)ȱGȱGHh0})Hh` B! 8`8iiiLE`}E8FEh( l0`ɃLL L8^~jj8jHi hEEEiEȱEiE` dTE} H8EEȱEEȩEh J E8   . m  i`LI!)E1FR}1LJ舩9GIH`LJJ`HGHh l`} S gL   8 rii `дCDCG W  }C  Lq` X٨`DOS SYS IIIIIIIIIIIIIIIC`0 ߩ0}}} HE |||DDOS DOSDOS SYS }}} 88h}CDOS SYS} 0`BDELV !B }`LVUQ   ]   TU J ]L!T  #      TU  } L ? .  t`GBJ V~DEHI B V0dV!}QDEHI VF9 ,0 ,0 s0hhL  L` H hDHEh"}DEL8HI   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;DELV䌚 !B y`@ʆ 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 V (` 9 V⪍ ઍ  -'}LLu DEHILV 9 .l 9 .l  `` s$B VBH(}I|DE V BLV nB,DE J V* \*` B V BLVDEHI BLVL)}1u H232435; 1 ;  hh@2 e1i1LHҍ 00) 08 109hh@ Ҡ2e*}1i1232435ޥ<<8} 3E:}DISK OPERATING SYSTEM II VERSION 2.0SCOPYRIGHT 1980 ATARIA. DISK DIRECTORY I. FORMAT DISKB. RUN CARTRIDGE J. D,}UPLICATE DISKC. COPY FILE K. BINARY SAVED. DELETE FILE(S) L. BINARY LOADE. RENAME FILE M. RUN AT ADDRESSF. LOCK F-}ILE N. CREATE MEM.SAVG. UNLOCK FILE O. DUPLICATE FILEH. WRITE DOS FILES9!&x#!7&p))'&X*./)L''-؆莟.}R'S  vW DEHHI 1A#! @ ~0ɛ8A0.) ȅ 1 1i/}il ! 1L NO SUCH ITEMSELECT ITEM OR FOR MENU! 0 .{z:*{}.|~ 1 0 00}JB 18L^%|DLl%DIRECTORY--SEARCH SPEC,LIST FILE? # 0 0 n&|D! 1L NOT A DISK FILE1}N !B 1L " 1 !BDED:}:1BJ|DE 1DEBH2}I 1 h0ߢ 0.  0?詛 1 ~0YЛ 1 "L<" "L 3} BL1TYPE "Y" TO DELETE...DELETE FILE SPECCOPY--FROM, TO?OPTION NOT ALLOWED* MENU 018 COPYING---D1:MENU4}# 0|D .L$A#B#C#JB|DE 1BHIDD#E 1D#0: B5} 1L B#C#C#B# B 1N#$0SYS1}:e#D# d# D# .d#ȽD# d# 𩛙d#X# 1,A#6}PdD#ELO- A.BJdD#E 1 1HH 0hh|DL^%1}:e# Lt% e#dD#EL%7} 1 0 . .0% 1L WILD CARDS NOT ALLOWED IN DESTINATION 0 A.|K@C}//3Hu ξL/L DRIVE TO WRITE DOS FILES TO?WRITING NEW DOS FILESTYPE "Y" TO WRITE DOS TO DRIVE 2.?}D2:DOS.SYSERROR - NOT VERSION 2 FORMAT. , &* բ( 1L `[) 0NΞ 0 L1M) 1@} L BAD LOAD FILELOAD FROM WHAT FILE?) 0 0#B 1L WHAT FILE TO LOCK?) 0 0$B 1L WHAT FILE TO UNLOCK?DUA}P DISK-SOURCE,DEST DRIVES?TYPE "Y" IF OK TO USE PROGRAM AREACAUTION: A "Y" INVALIDATES MEM.SAV. h  ,B}  `)  <0 2 2 0  ,   ,,ޢ* 1L ,K* 1 ~0 0C}FINSERT BOTH DISKS, TYPE RETURNERROR - DRIVES INCOMPATIBLE., 1 ~038  , 1L D}, &*  Lz+, 0 , 1 ~0 + Y,0!,0 ,L+ ,mm  v,"ǭE}0Ξ, 05,Lt+L +,Hh` NOT ENOUGH ROOMINSERT SOURCE DISK,TYPE RETURNF}INSERT DESTINATION DISK,TYPE RETURN`    `L,8,0( rG}L1(`ߢ) 1* 1 ~0Y`hhL S SL1) 8`NAME OF FILE TO MOVE?- 0 0|DLtH}% A., 1 <0 0 .@L# .BJ 1  DEHIB V L1 ,5 1 <0,L. I} JB|,A#Pd#DE 1 HI BDEHHII 1 B 1 , 1 <0,0Lf- B VJ},A#P, 1 <0 0L#L ߢ) 1* 1 ~0Yj383}mm ݭK}}`8}``|* ? ɛ,`|:(|/ 1L `DESTINATION CANT L}BE DOS.SYS0 0H{ $22Δ $28/L /) $2 Π $2 0 ξM}hAΞB,0 J 1 BޝDEHI,HDE 1HIHIDELSAVE-N}GIVE FILE,START,END(,INIT,RUN)O X0 1`BDEPHI V` X0H 1 L O}0 0 1L0`PLEASE TYPE 1 LETTER,0`hhL <0 1L0LA1 ,;ɛ7,"ɛ:ݦ1ݥP}A"D|ݤD|ȩ:|ȩ|ɛ,,(/+.ީ1 1,ɛ`轤{Q}NAME TOO LONG B VL ` L1I H1EӝDL1|mDiE` V0`8d/8 i:"2!22 1R} L ERROR- 128ɛ+,' 20*.. өw2 1``2TOO MANY DIGITSINVALIDS} HEXADECIMAL PARAMETER800 0 8 00`,0'D800H,ɛh`2L1NEED D1 THRU D4uT} HEXADECIMAL PARAMETER800 0 8 00`,0'D800H,ɛh`2L1NEED D1 THRU D4u./APDVVTMAINNFNMMSANNOV} W}BEAM ME UPBY STEVEN GINZBURG##(C)1989 ANTIC PUBLISHING INC.;A(,;@,X}6-@ A"67<%@ ,."$ R +@AY@F1ACB2VRTY}ITLE SCREEN ;( ( ((;(&9AR@'A @9AAZ}-@""(@ BEAM ME UP B2VB2HA ##67@<[}A,.$<~<$$(6-A A 2;((by Steve Ginzburg(;( PRESS START<:@@d'\}B7t@d:DISBLE BREAK KEYF1 F:B2y,"@@p1WAIT FOR STARTP$d6-F:A,&@6i A]}Pn Ax(6-(INITIALIZE PM GRAPHICSA#@A@B2w@^}BBy @%67@,.%67A(,.67@,.'@'@  A_}DRAW SCREENAY@F,*B2xB2H*MOVE ROUTINE.)@w)STOP ATTRACT MODE1`} AH:,$AU6967<%@,.$<~<$$9PUT CHARACTER ON SCREEN@ @FAJ1 Aa}6-&@D16-$@&@#LF6-+$A`%,'@26-+&P:,,$@=6-P:,%F6-F:,NAAb}PY>6-?:C:.̥ FF8%̩ͅ8 FFh`,,YML ROUTINE - BIT DECODERR6-F:A, BTc}[+F:B2y,"@)F:@,"@5 A ? A[IF TIME OUT OR OPTION HIT^!!"@*"Aphd}1"@ @'6-&@1 ArB2x|*-@ *6-F:B2R,%"*+@e})",/ @=6-%@W6-%@%+!@,y2@2@@f}6- A'6-@'6-!!!@* @AvT:,"" @g}06-%@< @J6-&@v2@A&$@@@FT:,"@$6-h}F2@I6-R:,&"@AEIREAD JOYSTICK AND ADJUST X AND Y @b;i}6-%@$+ @,&@$+!@* @,@(b2A@@++@*@*@j}AE|S6-%@$+P:'@,$@"&@,&@$+P:'@,"'@,X(|2Au&@k}@%%2 Ai+@%@76-F:A`,%AV$F:Aa,IAYl}[B2HiLOAD SCREEN-A@+F:%,"@)F:%,"@%@d@%F:%,&@m}) )6-F:@,%AV$F:@,AY6-%@! A!"@A6. Dn}:LEVEL .PIC67@<@,.=:, @@! B&6-?:C:,,06-A6-Ao}5@:AY@FD$XSTART STRING USEAGE A$b%%6-F:A4,%AV$F:A5,l996-+$AVp}%A,&F:A@,&F:AA,$AVv%@P:'AV,&&%@&P:'AV,$AV067@,.q}%67A(,.0CLEAR A$67@,.$A%2@16-@ADEATH ROUTINEr}-@@5&6-H:,&A$AU''2$AU@@A%A&A's} A00B2H!B2V-6-@0$8B2H&@)B2V@56-@8$8Bt}2H&@)B2V@56-@8$ %%2 A,;AB,,MLu} ROUTINE TO LOAD SCREEN #A-A6AV  "   GG162,16,169,1,157,72,3,169,0,157,73,3,32,v}86,228,48,1,96,104,104,96*@@6.6hBDEHI  <4OO67@U,.< w}   ĩ>OO67A,.:AU,\QQ67A),.>`Rɥy}Pee`/eefGG67A,.4(eeЕeepz}$5&-@%@ $+(,%@5BEAM ROUTINE%%2@;6-?:C:h ҍ`,,;GET {}RANDOM NUMBER AND PUT IN 70467<,.>:F:A,,2@@ 7%2|}7A@""-%@@6@67<,. A@<6-A6-A}}'6-@9@<$ + WIN GAME ROUTINE*AY*AF:A,AR@~}))(!   (((     ))(!   } 9AY@F!6-A967A,.$<~<$$<-@@"<(" YOUESCAPED+}B2HA !6-@+ A -@@"($!-@!6-A)-@.}2@@8 (B--A )6-&@ - L6- A D:BEAM.BAS}EiͩkΩ͙kCop j`j {j`Hi͝Νh` }L"UNEM:D"NURͩkΩ͙kCop j`j {j`Hi͝Νh`  12h w XLAPNB0 D +t}26-?:C:hhhԩ`,<A6,DAdAUuAA'A 9AAK@@t}]@@7c(}uAR@++(#++(#| Antic Monthly Disk, Oct. t}1989 |++(#( | Side 'A' |++(# @ t}-@A $ GG;@@,;@ ,;@@,;A,;@,;@@, "D1:MENU" &&t}@@D:*.* 6,6." 6 @0i6-%@(6.7@<@t},A67@ <@ ,..i67@<@,.7@<@,3 6.|67B:,%@,.367B:,%@,.G67t}@<@,.(--@B:,:7<,4 G67<,..] 6.=:, @D67@<@,.7@<@t},]67@<@,.0$@(''7@<@,4FREE@- @ 2() <t}@F''7@<@,4FREE@K @ P(7@<@,)|U @0W'!-@6+'t}@,%@' |Z++(#| |[ ( |  |\++(#t}d**(" Select HELP.BAS for information.xAR[@@9'-@@#C( t} FILE NUMBERM A0Q[ BP:,A00"@&6.7@<@,0 AELB6.7+&t}@,$@%@<+&@,$@%@,L B37@<@,4 36.7@<@,!7@t}<@,4DOS!.0 6.-@B:,07<,4 AH67B:,%@,.7<,   6.! 6.D1:!t}67B:,%@,.?AR@'-@@"?  LOADING ? A@@91@@t}5%? B[-@@"-  CANNOT RUN 7 @LF:A,"@![% D:HELP.BAS Bt} A0D1:MENU D +t8 THE DISCOVERY INCIDENT By David Woolley You awake suddenly, and find yourself with slight amnesia. The only thin(}g you can remember is that you are captain of the starship Discovery, which should be on a direct course from the star (}system Nu Draconis to Earth. But what has happened while you were unconcious? Why has the crew mysteriously disappear(}ed? And does the strange, alien cannister in the launch bay have anything to do with it?XXX Your job is to find out wh(}at went wrong aboard the Discovery, and, if possible, correct the situation. You use one- and two-word commands, with(} the basic sentence structure of a verb and a noun. In this adventure, you use the standard commands of GO (followed b(}y a direction), GET (followed by an object), and INVENTORY (which displays a list of your current objects) and others(}.XXX You'll find The Discovery Incident on disk as ADVENT.BAS. You can run this game directly from the disk, but it(} you want to SAVE your games you MUST copy this program to another disk containing the DOS.SYS file. When you firs(}t RUN the game the menu will appear, with options 0-4: 0- PLAY GAME 1- LOAD GAME 2- SAVE GAME 3- SWAP SETS 4- LEA(}VEXXX Option 0 starts the game where you left it. To return to the menu during the game, simply type MENU. Option(} 1 loads a saved game, and option 2 saves the game in progress. If you are using a cassette data recorder, add these )}DxSTARHL BASIC PROFILER, PART 1BY STAN LACKEY!!XE VER}SION BY ERIC WOODRUFF( (c) 1989, ANTIC PUBLISHING2<IIIf reserving memory, remove REM on line 80 and add REM to li}ne 100.FmmDon't drop number of pages reserved below 16! It's the minimum reservation so as not to cause problems.PFFSTA}RT=PEEK(106)*256-105:POKE 106,PEEK(106)-16:POKE 740,PEEK(106)ZIIOtherwise, use the following line. Place the address after} "START="d6-A6n1 +(1( Loading Profiler....x!-%A"! bb173,254,4,240},95,152,72,173,1,211,72,160,0,177,138,133,208,200,177,138,48,67,10,24,6,208,105\\0,201,64,176,4,160,0,240,18,201,128,176,}4,160,1,208,10,201,192,176,4,160,2,208,2,160,3aa41,63,9,64,133,209,152,10,10,24,105,193,141,1,211,160,0,177,208,24,105,1,}145,208,144,14,200NN177,208,105,0,145,208,208,5,169,0,141,254,4,104,141,1,211,104,168,104,64Set up timer interrupt.}&6-P:'AV,&6-&+$AV,#A(#VTIMR1 VECTOR LOW"A)"VTIMR1 VECTOR HI&B7a}&VOLUME TO ZERO$B7`AU$FREQ OF TMR1&B7iAU&TURN ON TIMERS"@A"SET TMI}NT1G(Done...((Next:(D( LOAD the program to be Profiled.G(;(8(ENTER >:@4,D:PROFILE2.LST>:@4},;(((RUND:PROFILE1.BAS? BASIC PROFILER, PART 1BY STAN LACKEY!!XE VER=1 REM BASIC PROFILER, PART II XE REVISION BY ERIC WOODRUFF (c) 1989, ANTIC PUBLISHING2 X=USR(ADR("hͮ}ӥ iӠ@̘ˑߎ`")):REM CLEAR EXTRA RAM3 POKE 1278,1:REM START PROFILING.31765 POKE 1278,0:REM STOP P}ROFILING31766 ? "Done...":? :? "Next:":? :? "RUN ";CHR$(34);"D:PROFILE3.BAS";CHR$(34)ROFILING.31765 POKE 1278,0:REM STOP PW23M c ANLYNNUTMITSETCCULPC } BASIC PROFILER, PART 3BY STAN LACKEY""XE REVISION BY ERIC WOODRUFF( (c}) 1989, ANTIC PUBLISHING2<CAx+1AAFCAAFFAAY#@}3-B$BU7"=A Pii104,104,133,223,133,221,104,133,222,133,220,104,104,133,207,173,1,211,133,208,169,}0,133,218,133,219Zaa133,214,133,215,165,218,133,203,165,219,10,24,6,203,105,0,201,64,176,4,160,0,240,18,201,128dXX176,4},160,1,208,10,201,192,176,4,160,2,208,2,160,3,41,63,9,64,133,204,152,10,10,24nee105,193,141,1,211,160,1,177,203,208,6,136,}177,203,240,93,200,177,203,133,227,197,215,144,84,208xff7,136,177,203,197,214,144,75,160,0,177,203,133,226,165,219,133,225},165,218,133,224,165,208,141,1ff211,165,220,133,205,165,221,133,206,160,0,177,205,197,224,208,7,200,177,205,197,225,240,3}3,169,4ff24,101,205,133,205,144,2,230,206,160,0,169,255,209,205,208,222,200,209,205,208,217,162,3,181,224__149,212,20}2,16,249,165,208,141,1,211,230,218,208,4,230,219,48,3,76,30,154,160,3,185,212,0ZZ145,222,136,16,248,165,222,24,105,4,133,}222,144,2,230,223,198,207,240,3,76,20,154,96((ANALYSIS STRING: 4 BYTES PER ENTRYLO, HI BYTE OF COUNTER,LO, HI} BYTE OF COUNT.;A#,;@,B67@,.>:AU,367A#,.>:AU,B67@,.J A0}AY@4D( } Profiler Bottleneck AnalysisG(J(@(( How many bottlenecks do you want<(to see (1-255)@}!! @)!AUA@!((Are you sure (Y/N)!0Y*0NA`0YA0"R(O(DDu}ring analysis, the screen will be blank to speed up calculation.R(,N&6-P:+'AU,$A,%@2 @`86-}D6-N A 6/6-&P:'@`,$@`/6-P:'@`,@''(Estimated time (M:SS): :J+(+( **} PRESS START TO ANALYZE **T F:B2y,@A@^+AY+6-?:B$10 ;BASIC PROFILER COUNT ANALYZER20 ; XE VERSION BY ERIC WOODRUFF30 ; (c) 1989, ANTIC PUBLISHING40 ;50 ; DEFINITIONS:60 };The buffer is a string address passed to the routine (BTNK).70 ; 4 bytes per entry:80 ; Lo, Hi of line number (counter).9 }0 ; Lo, Hi of count.0100 ;0110 MEMPTR = $CB ;Memory pointer.0120 SRCH = $CD ;Search pointer.0130 AMOUNT = $CF };Number to bottlenecks to get.0140 PBSAV = $D0 ;PORTB save location.0150 LAST = $D4 ;Last highest bottleneck.0160 } COUNT = $DA ;Line # counter.0170 ADSAV = $DC ;Search address save location.0180 BTNK = $DE ;Bottleneck string } address pointer.0190 MAYB = $E0 ;Holder for a possibility.0200 PORTB = $D301 ;For bank selection.0210 ;0220 * }= $9A000230 ;0240 ; This sorts through all the0250 ; counters in extended RAM and0260 ; send the specified number of02 }70 ; entries to the buffer for a0280 ; report to the user.0290 ;0300 PLA 0310 PLA ;Get the passed0320 } STA BTNK+1 ;string address.0330 STA ADSAV+1 ;For search.0340 PLA 0350 STA BTNK0360 STA ADSAV0370 }PLA ;Get number of0380 PLA ;bottlenecks to0390 STA AMOUNT ;find.0400 LDA PORTB ;Save PORTB. }0410 STA PBSAV0420 ANALYZE0430 LDA #0 ;Start from 00440 STA COUNT ;and go through0450 STA COUNT+1 } ;32767.0460 STA LAST+2 ;Clear last0470 STA LAST+3 ;bottleneck.0480 CHECK0490 LDA COUNT ;Move counter050 }0 STA MEMPTR ;to pointer.0510 LDA COUNT+10520 ASL A ;Multiply by0530 CLC ;two to get0540 } ASL MEMPTR ;address in0550 ADC #0 ;extended RAM.0560 CMP #$400570 BCS SB1 ;Select bank 0?0580 } LDY #00590 BEQ SELC0600 SB1 CMP #$80 ;Select bank 1?0610 BCS SB20620 LDY #10630 BNE SELC0640 SB2 C }MP #$C0 ;Select bank 2?0650 BCS SB30660 LDY #20670 BNE SELC0680 SB3 LDY #3 ;Select bank 3.0690 SELC }AND #$3F0700 ORA #$40 ;Find counter0710 STA MEMPTR+1 ;in RAM.0720 TYA 0730 ASL A ;Bank * 4 + 193 }.0740 ASL A0750 CLC 0760 ADC #1930770 STA PORTB0780 LDY #10790 LDA (MEMPTR),Y ;Check count.080 }0 BNE NOTZ0810 DEY ;Equal zero?0820 LDA (MEMPTR),Y0830 BEQ NEXT ;If so, ignore.0840 INY 0 }850 NOTZ0860 LDA (MEMPTR),Y ;Is this0870 STA MAYB+3 ;counter greater0880 CMP LAST+3 ;than the last?0890 } BCC NEXT0900 BNE SEEK ;Yes.0910 DEY 0920 LDA (MEMPTR),Y ;Check lo0930 CMP LAST+2 ;byte.0940 BCC } NEXT ;No.0950 SEEK LDY #0 ;Load lo byte0960 LDA (MEMPTR),Y ;if not done.0970 STA MAYB+20980 LDA COUNT }+10990 STA MAYB+1 ;Store counter.1000 LDA COUNT1010 STA MAYB ;Save it.1020 LDA PBSAV ;Switch back t }o1030 STA PORTB ;normal memory.1040 LDA ADSAV ;Restore search1050 STA SRCH ;address.1060 LDA ADSAV }+11070 STA SRCH+1 ;See if counter1080 LOOK LDY #0 ;is already in1090 LDA (SRCH),Y ;the string.1100 CMP M }AYB ;Lo bytes =?1110 BNE FAIL1120 INY 1130 LDA (SRCH),Y1140 CMP MAYB+1 ;Hi bytes =?1150 BEQ NEXT }1160 FAIL1170 LDA #4 ;Check next1180 CLC ;entry.1190 ADC SRCH1200 STA SRCH1210 BCC *+4 }1220 INC SRCH+11230 LDY #0 ;End of string?1240 LDA #$FF1250 CMP (SRCH),Y1260 BNE LOOK1270 }INY 1280 CMP (SRCH),Y1290 BNE LOOK1300 LDX #3 ;Move MAYB to1310 MML LDA MAYB,X ;LAST.1320 STA LAST },X1330 DEX 1340 BPL MML1350 NEXT LDA PBSAV ;Switch back to1360 STA PORTB ;normal memory.1370 INC COUN }T ;Increment to1380 BNE NXT ;the next1390 INC COUNT+1 ;counter.1400 BMI *+5 ;Count=32768?1410 NXT J }MP CHECK1420 LDY #3 ;Store the1430 STR LDA LAST,Y ;counter and1440 STA (BTNK),Y ;number to the1450 DEY } ;string.1460 BPL STR1470 LDA BTNK ;Add four to1480 CLC ;bottleneck1490 ADC #4 ;st }ring address.1500 STA BTNK1510 BCC *+41520 INC BTNK+11530 DEC AMOUNT1540 BEQ *+5 ;Done?1550 } JMP ANALYZE ;Find next one.1560 RTS ;All done, exit.30 ; (c) 1989, ANTIC PUBLISHING40 ;50 ; DEFINITIONS:60 C10 ;BASIC PROFILER SOURCE CODE20 ; BY STAN LACKEY30 ;40 ; 130XE VERSION BY ERIC WOODRUFF50 ; (c) 1989, ANTIC PUBLISHING, $}INC.60 ;70 ;80 ; DEFINITIONS:90 STMCUR = $8A ;Pointer into user program.0100 MEMPTR = $D0 ;Memory pointer.0110 $}PROFEN = $04FE ;Profiler On/Off flag.0120 PORTB = $D3010130 ;0140 *= $0600 ;Relocatable.0150 ;0160 ; SAMPLE is $}the timer interrupt0170 ; routine. It takes the current0180 ; line number, multiplies it by0190 ; 2, and swaps in the corr$}ect0200 ; bank of extended RAM to bump0210 ; up the 16-bit line counter.0220 ; With the extra 64K, each line0230 ; (0-327$}67) has its own counter.0240 ;0250 SAMPLE0260 LDA PROFEN ;Is profiler0270 BEQ OUT ;active?0280 ;If not, exi$}t.0290 ;0300 SPL10310 TYA ;Must save Y.0320 PHA 0330 LDA PORTB ;Save PORTB.0340 PHA 0350 $} LDY #0 ;Get the0360 LDA (STMCUR),Y ;line number.0370 STA MEMPTR0380 INY 0390 LDA (STMCUR),Y ;High b$}yte.0400 BMI ERR ;Line # > 32767.0410 ;Line ok, so increment counter.0420 ;0430 ASL A ;Multiply by0440$} CLC ;two to get0450 ASL MEMPTR ;address in0460 ADC #0 ;extended RAM.0470 CMP #$40 ;Selec$}t bank 0?0480 BCS SB10490 LDY #00500 BEQ SELC0510 SB1 CMP #$80 ;Select bank 1?0520 BCS SB20530 L$}DY #10540 BNE SELC0550 SB2 CMP #$C0 ;Select bank 2?0560 BCS SB30570 LDY #20580 BNE SELC0590 SB3 LDY %}#3 ;Select bank 3.0600 SELC AND #$3F0610 ORA #$40 ;Find counter0620 STA MEMPTR+1 ;in RAM.0630 TYA 06%}40 ASL A ;Bank * 4 + 193.0650 ASL A0660 CLC 0670 ADC #1930680 STA PORTB ;Switch to it.0690 %} LDY #0 ;Increment the0700 LDA (MEMPTR),Y ;line's0710 CLC ;counter.0720 ADC #10730 STA (ME%}MPTR),Y0740 BCC EXIT0750 INY ;Carry, so0760 LDA (MEMPTR),Y ;increment0770 ADC #0 ;high half.%}0780 STA (MEMPTR),Y0790 BNE EXIT ;Overflow test.0800 ERR0810 LDA #0 ;Stop: Overflow0820 STA PROF%}EN ;or line>32767.0830 EXIT0840 PLA 0850 STA PORTB ;Restore PORTB.0860 PLA 0870 TAY ;Restore %}Y reg.0880 OUT PLA 0890 RTI ;End of SAMPLE. ; 130XE VERSION BY ERIC WOODRUFF50 ; (c) 1989, ANTIC PUBLISHING, $: lines: 9155 OPEN #A2,A8,O,"C:" 9185 OPEN #A2,A4,O,"C:" This will SAVE and LOAD from tape instead of disk.XXX)} Option 3, swap sets, toggles between the special character set I designed, and the standard Atari character set. ) } Option 4 returns you to BASIC, clearing all variables.XXX Playing the Game Select option 0. The screen turns blac) }k, and at the top of the screen is a short description of your present location, including any nearby objects that you ) }could carry. Note: the items listed beside OBJECTS are not the only objects in that location, just the ones that you*o}@@ N KJ P H F OI I eJ \M M tH \H \HM ȑiΗ \HΘڢ 6N 6N}1 }󅂩R #J #JS #J #J N N"S L 7Bε Ix1}@AI;SGS qA ;SGS qA9SES qA 9SES q1}AL@ C` C`9S;S BL'B5S7S B)S M9S5S;S7S)S5S7S1} B'SI'SAB}'SR}#SESASGSCS%S M ZB`Ɂ )-SLA5S7S BB}#S C`)SɁ1}T)S/SSSS #JSI}YS #J O`-SLJ` H6 \H \1}H` kH6 HBC H`C \`MS C`MS N9S;S O B1},Ɂ)? IOS OR5S9S7S;SASESCSGS`?-(1}ԩ \H WN΢CDLELE #DΪLE` BOSR1}OS E`R0 m)8R0 m)8 B1}/Ɂ)? IDEOS OIR`85S87SWS }H6 H1}T< H H HΫLE2S /S2S eO1} OLb䮪 0 2EFLFɁLF)?  LFI/S=S5S9S?1}S7S;S-S)S BB}#S MIISASESKSCSGSTSSRIiii}1}YS Ȯ}MSFG` H68 6 \H H \H \H \H \H/ 1 \H H1} \H )=S \H6 )1S %H 4i1S %HLOG1}͑ LbGΐGH1SRI +HLOG1 H6 \HR \HΗ`1}R)1SJ MH`1SJ \H`8`mi```T```mi`mi`1}mi```xHIx扩P1}xaQ惠I`pԩ>/Щs Jv(惩s(1 }P ЩЍЩ4ЩЍЭ`/0|1R|IJ|7R|XTYWT J>/1!}`` tH \H \H0`(ʍF`uJ`H ԭЩ̍ЩJ1"} h@HuJ ԩx ԭЭh@ҍ L tHP \HJKUS \H'R \HΗ멌P1#} OQS m IΒΓ֭ I tH \H+SI M+S1$} L"SLK"S Lhh F=S5S9S?S7S;SISASESKSCSGS-S)KLS/S2SMSNS tH \H1%}'Ld@JR0P O  tH< \HWS \H WN2 LΙΠ LΒ1&}L:Lҍҍ"S+S ,S tH \H`Γ` LMtH< \HWS \H 1'}\H` LI LI S #Jȩ6m"S  O LΒ`> Nj Nj51(} N>5 N> N%S MΒ`ASCS N`RMN Sm41)}m NоЯ` tH \H}YS}MS`SS녂R #Ji` N1*}̗ \H N̗̗`mi`` B V`BNO JKݝDNE V`S:1+}UT`HI B V`UT`B V` șҽ*8 ҽ`o҈`҈`21,}ҩ` "7i ș҈`8 ș҈` ) `ҍOP`1-}`) ҍ`iȱ  `lll`llll`l1.}lQ`Q`llll`lyy/( Jp\\\f\PQ(\\&\1/}A\\\\0\1|R>/ҩҩ0P O B 10}ҍ`<<<< p<~Z<$$<~<$ <~X<$X~X~<&b~X~X}-M6.T6.[6.b6.i6.d% (} (%( Š͠n ( ( - AMOUNT OF PAYMENTx!(!(5?} - NUMBER OF PAYMENTS$($( - AMORTIZATION SCHEDULE/(/($ - AMORTIZATION W/ VARYING PAYMENTS$($( - APPREC5@}IATION SCHEDULE(( - SAVINGS SCHEDULE'( (( ŠŠ' A@!! @I)!@T@I 5A}AI&@HAA@AAA0A***PAYMENT AMOUNT*** (} AP Ap[5B}K6-P:$$+@'+@&+@%,#+6,,,$A%?P,'AQ6-[ AL( ((Ӡ $!(4( 5C}Ԡ $>6-$&H AL(#-@@(# A@ *** NUMBER OF PAYMENTS *** (} AP5D} A336-P:6+K:@&'$,,'K:%@,%?,T( (&(ҠƠӠ )(<( Ԡ $F6-5E}$&P AT(#-@@(# A@"##*** AMORTIZATION SCHEDULE ***,? A  Ap! A+ 5F}A 5 AP? Ap6'6-6-'6-@-%&@JM(6-P:+$,$A%?P,'A5G}2 A86.C6-&A:,M AT* 6.6-A:,6-&$ A*6.^ 6-%6-%A:,6-%h| 6. 675H}@<@,.767@<@,.N67@<@,.e67@ <@&,.|67@0<@9,.r("@5I} AP|?'6-P:A:,$A%?P,'A56-%@? A0R06-P:$+@%,$A%?P,'A5J}6<6-F AL6.R6-$$P:'@,"'@A  @ ?('( INTEREST= PRIN=5K}36-?6-"@ A`;6-@ A0-6.=:A:,%@,;6-%@ A5L} Ap A0K67@<@,.K67@<@),. AMORTIZATION - BALANCE= 116.'MON PYMNT INTRST5M} PRIN BALANCE"@ A  (} (((($&&*** AMORTIZATION VARYING PMTS***+ A 5N} A ! AP+ A07 Ap6-6-+6-76-@5 6.***6.***%6-&/ 5O}A56.&W*6-+P:+$,$A%?P,'A,26-%< AB6.M6-&A:,W A0. 6.6-A:,"5P}(6-6A:,.6.: 6-& A6.D 6-%6-%6-%N67@<@8,.167@<@,.H5Q}67@<@,._67@<@,.v67@ <@&,.67@)<@8,.X*-@( "@* 5R}APbA:, A lA:,"Apv?'6-P:A:,$A%?P,'A56-%@? A05S}V46-P:+$+@%,%,$A%?P,'A:@6-J AP6.V6-$$P:'@,"'@Ap1 5T}Ap6-%@'6-1 A@D( (-( INTEREST= CHARGES=D(PRINCIPAL PAID= "@5U} A` A:, A @-6-@ A0-6.=:A:,%@, A A0 A05V}J67@<@,.J67@<@),. AMORTIZATION - BALANCE=116.'MON PYMNT IN/CHRG PRIN BALANCE5W}"@ A (} (((($_-@@"(( Ҡ,;B:,"G6-U65X}. - _ A % 6-A:, A6.%6-A:,K-@"@""(&5B:,"A6-K 5Y}A  6-A:,*-@@"($40(&(ΠĠٺ O:A:,,0 Ap>*** APPRECIATION ***H5Z} (} AP AR446-P:$+@%,#+,$A%?P,'A\.( (.(YOUR INVESTMENT WILL BE WORTH 5[}f A A0p @z*** SAVINGS SCHEDULE ***; (} AP A' A1 A ; AP5\}6-6- A0-@X(6-P:+$,$A%?P,'A2 A86.>6-J"5]}X6. 0.00& 6-%% A6.&6-A:,# ("@# A@<6-%@6-%A:,$6-5^}%0"@<6-@((P:'@,"'@)"A v(&( INTEREST= PAYMENTS=2"@5_}f(@>:@, INTEREST= PAYMENTS=vPRINTS TOTALS " AP @ A0 A M (5`}} (4(MONTHPAYMENTINTERESTAMOUNT7(C"@M A0 $*** PAUSE ROUTINES ***$)@$5a}"AUAP$"AU@.!! @H)!@Ap8$B[-@@"(:( Ӡ٠٠5b}ϠŠG)@["AUAL"AU@V$`***INPUTS***j] (} (?(-INPUT STARTING YE5c}AR (PRESS 'RETURN' FOR 1989)CRB:,"]6.1989t''A:,!A P)A:, ApAp~@('(ENTER STARTING M5d}ONEY AMOUNT1 A`76.@6-A:,4((ENTER INTEREST RATE#16-'A4$+($(ENTER NUMBER OF PAYMENTS5e}(+$!(!(ENTER MONTHLY PAYMENT A6.6-A:,$E(/(#ENTER # OF COMPOUNDING PERIODS/YEAR3E65f}-'+A$,-(&(HOW MANY YEARS TO COMPOUND*-$+('(ENTER STARTING MONTH (1-12)+* 6.=:,* @5g})!@Ap+ 6. (67@&B:,<@,.+$7((٠ٯΠ# A@7@A*5q} B'DOS SYSB*+DUP SYSB-UBEAM BASBAUTORUN SYSB PROFILE1BASBPROFILE2LSTBPROFILE3BASBMEMCLR M65B#CNTANL M65BPROFILE M65B'ADVENT DOC PROFTESTBASB) CAPTURE OBJB?5FINANCE BASB }QDIRMAK BASBLEVEL1 PICB LEVEL2 PICBLEVEL3 PICBLEVEL4 PICBLEVEL5 PICB LEVEL6 PICB LEVEL7 PICBLEVEL8 PICBLEVEL9 PICBBUDGET DATBVBUDGET BASoPROFILE LSTB FUSEBOX DOCB|QDIR M65BMENU BHELP BASBDOC TXT** PRINTER SUBROUTINE***; (} (.(ƠҠӠ٠ӠЧ;)@@Ap {@-5r}@@P{(@>:@',@>:@',l>:@,>:@',Q>:@U,U$UABOVE SETS P5s}RINTER TO DEFAULT, SETS LEFT MARGIN AT 15 AND RIGHT MARGIN AT 55H$(@>:@,>:@,HTHIS LINE JUST ADDS TW5t}O 'RETURNS'(^5(@>:@,>:@,>:@,8$^THIS ADDS THE HEADINGS WITH RETURNS2MJ(@>:@5u},MONTHPAYMENTINTERESTAMOUNT>:@,M$<j(@$jTHESE TWO LINES PRINT THE HEADING,'RETUR5v}NS',& EACH LINE OF THE SAVINGS PROGRAMF(@$Pv8(@>:@, INTEREST= PRIN=Q(@5w} CHARGES= T$vPRINTS TOTALS AT BOTTOM OF PAGEZ*** ERROR ROUTINE ***dM (} (+(INPUT MISTAKE - START OVER?-5x}@AC M @n***CONVERT ROUTINE ***x.6.=:P:$A,,.B:,!@A("5y}6. 0.00( A0 6-B:,6-P:,L6. 0.00567@<@,.7&@<,LP:,"A05z})67@&<@,.=:,) A0*** CONVERT LARGE ***6.=:P:$A,,*" 6. 0.5{}00* A0 6-B:,6-P:,k6. 0.00867@ <@,.7&@<,GP:,"a67@<@,5|}.0.k A067@&<@,.=:,$ D:FINANCE.BAS ӠRI4z'AJAwSAVE"D:QDIRMAK.BAS" ;@,- +-(Quick Director9~}y, by Mat*Rat""((c) 1989, Antic Publishing($($(Get disk in Drive 1 ready2$(and press RETURN !($(<#9}F; @1@@D:QDIR; @P8(Couldn't create D:QDIR.5(ERROR F:A,8Z? #19};"10 ";d77(@CLR:DIM A$(153):A$(1,100)=>:@4,n-@Ax"(@>:, %%(@9}>:@4,>:AU,? #1;"20 ";))(@ A$(101,153)=>:@4,-AAS"(@9}>:, TT(@>:@4,:? >:@4, Dir Spec >:@4,;:A=USR(ADR(A$))@((D9}one.""(Try E.>:@4,D:QDIR (to get a quick directory( listing now!(((E(B(E.>:@4,9}D:QDIR>:@(,>:@(,>:@(,E##104,240,6,170,104,104,202,208251,162,0,169,11,141,66,3"142,72,3,19}42,73,3,169,63,32,86,228,169,5,141,66,36169,4,141,69,3,142,68,3@169,40,141,72,3,32,86,228J162,80,169,12,19}57,66,3,32T86,228,169,3,157,66,3,169^4,157,69,3,169,0,157,68h3,169,6,157,74,3,169,128r157,75,3,32,86,228,9}48,55|162,80,169,0,157,68,3,15773,3,169,4,157,69,3,16940,157,72,3,169,5,157,663,32,86,228,48,25,162,09}169,4,141,69,3,142,68,3169,40,141,72,3,169,9,14166,3,32,86,228,16,201,16280,169,12,157,66,3,76,86 9}228,-1 D:QDIRMAK.BASAwSAVE"D:QDIRMAK.BAS" ;@,- +-(Quick Director8(( FLLMUMU? P UZU-?@ UYUZU-? @ Uf U=}? ?? T UVf U? @UUYU? P UiU?UTU=}ԁU@UTԁU?PUWUP!@PTU?UWUT@!@PTU?@U_W UT@(U?=}TUW_ UP@(UWUP@ ?_WUUTP ?_WUU_U?=} <UUU? <UPUU_W uU?PTUUW_W U=}@ U @PTU?@P U_@PTU TUU 0PU_=}  UPU?|_WU@U? |_WU@U=}?TUW ?@U_$UP==}U@? U? U+" U$!P UT+PUTP@ U+TUTP=}@ U IU IU JO U ZJN U USU TSU!2U!3U\_U\WUf U<w(( p_UU!W$UU U!W$UTTUFTTUGUTT  ՁUTT [U\A}U $(i(U %(i(UCUCUUU UUUU??__ U?A}?_ U U UP UPU%U& A}U%U& U UUUUWU UUW UUA}?UT U?UUՁUUU UUUUUUUUUUA}UUUUUUUU@@@U@@@U K U L U[U\UUA}UUUUUUUUU_U??U_U??UUUUA}U UUUU UUUU3(-U3(-U?!(?&(U"(&(UA},-U-.UUUUUUUUUU_UU_UUPUUPA}UUUUUUUUUPP@UPP@U'& U '& U',U ',UA}UUUUUUUUUUUUUUUUUU????_A}????_p_UU!W$UU U!W$UTTUFTTUGUTT  ՁUTT [U\@((ʜ 8 U: U6 U7 UVUWVUVUUU UP)U UT)U TE}U_L @UW_M UL PUM U  UWW  U} E} PU UU}U  @U U #@TU QU $PTU Uw  PU UE}uwu @TU U  @TU U  @PTU TU .UuUU PUW E}.UuU U U]U U]UU]U UuU_?<PUՁU UE}WU_?UՂU U_UW U]U @UUUUUU]U UE} UWU? UU_U U UWU UU_E}U U U_U U UWU UU}U U_UU UU_E}U UUU UUPU UU@PU U? @U?PU U? TUuE}TU U U@U UUTU U U_?@TU U U?PU U @UE} ?@T U U PUW @PT U TUU U?PT U PUU U_@P U U E}U?@U @ U U?@U PU UU @ U U?UTU UԁTPU?UE}U PUTPTU?U UTUP @TU @PU?UUT PTUՂ PTUU UE}@TP@PUUUP@@TU?U U,PUUU,@UU TUTUUU@UE}U@PU@UTUU@TUTUUUTUTU WU@UU E}UWU@TUU_U@@U?U]U?' U_ UU?' U UE}UU'U _ WU'U WU%?5U_3$?=UW_1UVUUU UP)U UT)U TDC((  UA  UA  TA@PTU T@@PTU?SPU?TTUS*ZUT*ZUSI}eUSU?S@TUTTU?STU?RPU ?,U ?,@U UUU?UWU'EU I}?UWU'U ߁U)U U(U WUUU_%UU_$I}U U ?<<? U U ?<<? U UU UUUI}UQPTU UUQTUI UDTUI UU 5UQPQU 5UQUQPU UI} UQTTU U UQTUTU UU U@UEU UUUE@U UUE@'UQU UI}UE(UUQU U_UE'U@E@U UUE(UEU UU@E@E'UUU UUE-UU UI}UEUW_UW_U<WU UUEUWUW_U<WU UT_WTW_TW_| TI}U UTW_T_TW_ TU U? U U?I} U UU?U>PUXUXUXUXUUUVU? ?U? ?M}UJUKU ?GU ?HU< =U< =U?< TU? TU0)U/*U.-U-M}-U(@P)TU(@*TU?>U?>U$?)U$?)U$U$U?QU?RM}U< ")U ?< ")U(,U)-U ?"@)TU ?"@P)TUJUKU?FUM}?FU?< 5U?< 6UBUCU?E U?E U?;PTU?<TU?M}4 @U?5 @U IUIU??U?@U"? 3U!? 4U;U;UJM}UJUXUYUWUXUWUXUWU?WUWUWUU >PUQ}  (+@U  (+@U @EU @U 8U 9U U* U U* Q} U UZU U Zj ZU U+U U*U U % U U $ Q}U &U!U %U"U WSC-W WSC-W U2 UU3 UUU2 Uw1 UP=( ; ?3 ? ?3 ?] U"ՁU U"ՁU UUUU UU}UU U UUU UUUU UUVU TU< UUU PUU}? UUU U? UUU U PTU   UU PU? PTU   UU TU}U?U PTUՂU @UU TUՁU@PTUUU @PTUU U}U@UUUTUUUUUUUUUUUUUU}UUUUUUUU? UUUU?UU@UT UUU}TU TUU V UU RV UU  @PU U PTU}U U  U  UU*ՁUU)ՁUU*UUU)UUU*U}UUU)TUUU UUU UUTW_?UUTW_UU?U}PT U?@TU? U? U?"=? U?"? U1U _U0U}U WU1U U1U U1?U U1U U2?U U2U U3?T U3T U4! U3 U4?U}45U45U5@TU_5PUW6@TU:PU<@TU7 PU8!@TU7!PUU}4#@TU2#PU]3%U]]2&U3WWW2?W;?Q? UUUU UT`( pUIU?U U U UU UU UUU_Y}TUUTUWUUUUWUUU_@U_U?PPUW_Y}UPU?UU?U?U?UUU_??Y}UUUUUUUUUTUTUPUY}P UWUWU0UUU0UUUY} UUU UU?UUU UU< TU}Y}U_?< TU}U?@U?@U?< ?U_U?< UWY}U UUU UUUW?UU?UUPY}?UPUU?U UU0@U0@Y}} ?UU} ?UUU?U@U?U@U  PTY}U  PTU?U?U PU Y}PU ?UU ?UU?UUU ?UUUY} ?TT?U ?TTUU< UY}TU?T U U U U_U'VUPY}U'VUP U(UWU(U U'UUU'UWU U'UUU'UU Y}:WW:WWUIU?U U U UU UU UUU_X( (UJULUՁ  *TU !U  U PU]}  U   U   U  ?? U  ?? U ]} TU  U  U  U  U  ?]}PU   U   U  U  U  <0 ]}U  <3<TU  0?U  ?0? U  0]}PU   U  U   U  ?]}U  ? U  00 TU 00<  U]}  3ÁU< 3 U?< U?]}0PU UU0?U ? ?030]} U0U 0 TU ? 0U  0 U  ]} DISK DRIVE OR <2>?(.)@. @I)!@P@@27 6-#67@<@,f!}.>:,- B7 AZdA@@(&}PRESS TO CHOOSE. PRESS d(AFTER EDITING. NO CHANGE WIHOUTf"}[;&(RETURN. PRESS TO GO BACK.8A@$;$_F -)@-7(>:%A($+ A(,,:$FCURSOf#}R ON`G -)@-7(>:&A($+!A',,:$GCURSOR OFFdc(} çӠҠ"(6(1. PRINT BUf$}DGET9(E(2. EDITH(T(3. SAVEW(c(4. QUITn:AU@'AR*(:( CHOOSE ONEx.)@.f%} @I)!@RA 2(2&@HAPA A`Ap&EDIT CATEGORIESHAU@f&}'AR@H(} ** EDIT CATEGORIES **Z(( 2-@@>-@D(|P-@f'} V(|Z 5-@@ +(5 @s6-P:B:,'@,#6-@/6-@;6-@f(}G6-@S6-@2_6-@s"A @Z-&@--@%@V(7$@%@f)}<$@%@,Z ! @ A P! A#AdAU'F:B2y,"@$6-@'$ Ff*}:Ad,"AUA Q )@ 8F:A,"A(*A86-&A(8F:A,@d*f+}A@d86-&@2 "AU6-@$*"@'6-@$/G"A&*!@# @1f,}6-&@7-=(G A P4E"@0*!@# @16-&@; @E A P>G"@1* %@f-}% @36-%@= @G A PHE"@(*!@# @16-&@; @E A PRGf.}"@)* %@% @36-%@= @G A P\ )!A Pf@ -(>:,,6-%@$+ %@f/},6 @@ A P-6-&@-A)A#PA.  A% A  J @A@8f0}(} JA@$ `6-#-@@7-@%@>(R-@%@`f1}6-%@ T-@@$)@067,.>:,4 TAU(+F:AU,,$@  ! A& A%f2} 6647$@&@<$@&@,A% ?4 +AU@5 A&P? A% ..67f3}$@&@<$@&@,. !-@%@(|!  $( *4 '6-&@*$2 7#6f4}7@<@,.>:,767B:,%@,.< g67$A %@,.;67+%@,$A ,.g67$A %@f5},.7$A %@,F 6-%@$Z vA@v([}DELETING A CATEGORY WILL ALSO DELETE ITS FIELDS ANf6}D RECORDS. PRESS TO DELETE, d ( TO ABORT.n )@x 1"@''''A@$1 A f7} AUA&p 6-&@ C6-&@"&@967$@%@,.C A'@ //67$@%@f8},.7$@%@, i/67$@p%@,.7$@p%@q,@67AQ,. Q67A ,. i67AR,.7f9}AQ, )"@67A6,.) A'P //67$A %@,.7$A %A!,  (}A@$$f:}T  @ A0^ F:B2y,"@A)h A @ EDIT FIELDS EAU@'AR@f;}E(} ** EDIT FIELDS ** R(( *-@@6-@<(|H-@N(|R  ( f<} @ 16-@:7$@%@<$@%@,,=6-@I6-@U6-@a6-@m6-@2f=}y6-@"A0@ n-&@--@%@j(7$@p%$@%@<$@p%$f>}@%@,n   @ A P -6-&@-A9A3PA   A5 A0 J @f?}A@8(} JA@$ `6-#-@@7-@%@>(R-f@}@%@`6-%@ T-@@$)@067,.>:,4 TAU(+F:AU,,$@ BB47fA}$@p%$@&@<$@p%$@,A5  ! A6 A5 74 #AU@- AfB}6P7 A5 ::67$@p%$@&@<$@p%$@,. !-@%@(|! $"4 fC} 6-&@"$$y:67$@p%$@&@<$@p%$@,.H6-%@v67$@%@<$@fD}%@,.>:,y$Bk67$@p%$@&@<+%@,$@p,.7$@p%$@%@<+%@,$@p,fE}67$@p%@d<$@p%@p,. Lk67$A %$@r&@q<+%@,$A ,.7$A %$@rfF}%@<+%@,$A ,67$A %AH<$A %A ,.VP6-&@?67$@%@<$@%fG}@,.>:,M6-&@P$< @ A@F F:B2y,"@A9P A0@EDIT DATABAfH}U@'AR@B(} ** EDIT DATA **Q(( )-@@5-@;(|G-@fI}M(|Q ,-@@"(, @55JAN,FEB,MAR,APR,MAY,JUN,JUL,AUG,SEP,OCT,NOV,DEC9 #A@fJ}!-@@%"1-@5(9 K6-$@%'-@;-@%@G(O:8<,,K K6fK}-@6-@'6-@36-@?6-@HK6-@X @ A P) @)A@@ACPfL}A0 AE A@J @A@8(} JA@$F-@@fM}+-@%@2(F-@%@T-@@$)@067,.>:,4 TAU(+F:AU,,fN}$@768<&@,-A:,--@%@3(|7 5-@@58<,8<,AE`   fO}$:'-@368<,-8<,$6@7 :$ PRINT- B-@@P:%(} fP} ** PRINTING **"(%(5(ENTER TODAY'S DATE:  2AR@5(G(@(@<(@BUfQ}DGET PRINTED G(@oo(@] JAN FEB MAR APR MAY JUN JUL AUfR}G SEP//(@ OCT NOV DECM-&@M(@7$@%@<$@fS}%@,36-@:7$@%@,,3"AQ-&@)6-$@%`(@ 7$@fT}%@<$@%@,t-@(@O:8<,, (@   MA@.(fU}} @A@$M(@;6-6-'6-;-@-fV}$@ "6-8<, "6-%!6-%M 68,-$6@!6-%-6-MAUfW}(+F:AU,,$@P/ 6-P:'@,/6-'@$6@ZK(@FIXED+-@<(@P:fX},@ K(@dL(@PERIOD,-@=(@8,A L(@n](@$(@TfY}OTAL8-@N(@P:8,%,R ](@x=6-#-@06-&8,%968,-= fZ}56-#-@,8, 56-8, 5 #-@168,-8,&5 [(@f[}$(@RESERVE8-@L(@P:8,,P [(@_(@T(@MIN MONTHLY INCOME=f\}%BALANCE _______________(@u1(@BILLS DUE -______________<(@j(@Bf]}ILLS OUT +______________u(@<1(@RESERVE -______________<(@11(@AVAIL f^}BALANCE ______________.(@>:@,$@. Ap SAVEz6AR@6(} ** SAVING TOf_} DISK **16. D1:BUDGET.DAT167@<@,.>:,* B*@@P @0(@f`}7@<$@p,P(@7@<$A ,@ AX QUITb%%(DATA NOT SAVED. QUIT? l$)@$"@xAv@Ap ( }BUDGETIZER'W%6-F:A4,%AV$F:A5,>fb}%@F:%@,W%@F:%@,$'+%@A$+%@@.'@67@,.%67AC ,.fc}467@,.:6.@6.3'467@,._%67A2,._467@,.8'""@@S='* Bfd}*@@B'$@$6-P:B:,'@,L'W 6-C:,6-P:'AV,-6-&$AV?Af@fe}KAhWAiQ'J6-$@p"6-P:'AV,26-&$AV>ArJAsV'B67,. !6-?:Cff}:h LV,,.)@BAUB`'W 6-C:,6-P:'AV,-6-&$AV?Af@KAhWAfg}ie'J6-$A "6-P:'AV,26-&$AV>ArJAsj'!6-?:C:h LV,,!@~'"6.>:@fh},"6. BMQ'467@,._%67A2,._467@,.'$*+@+F:A,ApB fi}+6- B +J3( }DISK ERROR #F:A,. PRESS ANY KEY.@)@J BE\+a@;((}SOMETHINfj}G IS WRONG WITH THE DATA FILES.^(ERASE 'BUDGET.DAT AND RESTART.a+=&(}PRINTER ERROR. PRESS ANY KEY.3)@= Afk}$,U@>( }DISK ERROR #F:A,. PRESS ANY KEY.K)@U A D:BUDGET.BASA@A@Afl}@A@A@A@A@A@A@A@A@A@@@@@@@@@@@@@fm} fn}TOTATOTALNONCHOICVVTVNTCOUNALINEPRTOTAdH can pick up. You can still manipulate other objects described in the text.XXX When referring to items you can pick *p}up, always use the name that is listed under OBJECTS, but when referring to items listed in the description, use only o*q}ne word. So, when you are talking about the alien cannister, use CANNISTER. You can use several commands to move i*r}n a certain direction. For instance, to go up a ladder you could type GO UP, UP, U, or CLIMB LADDER. Other commands y*s}ou will use frequently are GET, DROP and INVENTORY. To repeat your last command, just press [RETURN].XXX Program Ta*t}ke-Apart All verbs and nouns are assigned a number. This is done in the subroutines from 8030 to 8060. The progra*u}m finds the number by sorting through either the ACT$ string for verbs, or the OBJ$ string for nouns. The number of th*v}e command is its starting position in the string. So, the number for the verb INVENTORY is 13, because ACT$(13,15)="*w}INV". Note that only the first three letters are used. The variables VB and NN are made equal to these 'command number*x}s'.XXX A set of variables, A0-A9, O, and LI, are established in the first line, and are used in places to refer to n*y}umbers. This is to save memory. So, instead of using 0, we use O(see line 3), A0 instead of 10(as in line 9077), and L*z}I to refer to line 52, which is often used.XXX The custom character set was designed to add "character" to the gam*{}e. Lines 9036 to 9045 contain data for numbers 0-9, and lines 9046 to 9071 contains data for letters A-Z.Line 9072 con*}% X;SAVE#D:QDIR.M65 X;ASM,#-,#D:QDIR.OBJX;ASM,#-,#D:QDIR.COMX;( OBJECT2 COM<CODEOBJECTFX;PX; r}}Set CODE equal to OBJECTZX; to create an object filedX; to be used from a BASICnX; USR routine.xX; Set CODE equal to r~}COM toX; make a stand alone .COMX; file for use with SpartaX; or any other DOS.X;X; X; Quick Directory by Mar}t*RatX; Ratware Softworks X; (c) 1989, Antic PublishingX;X; A quick and dirty utilityX; for getting a completer} X; directory listing while inX; Atari BASIC.#X; The BASIC program QDIRMAK.BASX; will create a the file:X; D1:QDIr}R."X;,X; From BASIC immediate mode6X; use the command:@X;JX; E."D:QDIRTX;^#X; The user will be prompted forh X;r} a directory specification,r"X; and a DIR will be displayed.|X; If it's a SpartaDOS disk,"X; the directory will be lister}dX; in LONG format.X; XCORDU YCORDT SAVMSCXSTRING;;String ptrFILEBUF;;Cas bufferCIOr}V;;CALL OS HEREICCOMB;;COMMAND TO CIOICBADRD;;BUFFER OR FNAMEICBLENH;;BUFFER LENGTHICAUX1J;;AUX r}BYTE #1ICAUX2K;;AUX BYTE #2X;COPN;;COMMAND OPEN&CCLOSE ;;COMMAND CLOSE0CGTXR;;GET TEXT REC:CPTr}XR ;;PUT TEXT RECDCGBINR;;GET BINARY RECNCPBINR ;;PUT BINARY RECXCDRAW;;COMMAND DRAWTObCFILL;;COMMANr}D FILLlX;vOPIN;;OPEN FOR INPUTOPOUT;;OPEN FOR OUTPUTOPDIR;;OPEN FOR DIRX;%X; A=USR(ADR(QDIR$),ADR(r}"D1:*.*"))X;(X; QDIR$ holds the code that follows.!X; It pulls the address of the$X; directory specification stringr}'X; off the stack. It allows the user$X; to enter a file specification,%X; such as D2:*.BAS, which is then#X; used forr} a directory listing.X;4 FCODEOBJECT  BEGIN*74 FGETDRV>X; Clean up unecessaryHX; parameters and r}continueR>\ CLEANf7p7z0 HCLEAN GETDRVX; Show only a question markX; as a prompt for file spec#X; r}No room for more in the code.$> Q>CPBINR PICCOM &ICBLEN&ICBLENQ> ? CIOX; Accept the user's filr}eX; specification. Q>CGTXR$ PICCOM.Q>5FILEBUF8PICBADRB &ICBADRLQ>(V PICBLEN` CIOjX; FILEBUF now r}containstX; the text file spec~X; to use as a templateX; for the directoryX; listing. GOTDRV$>P Q>CCLOSEr} PICCOM9 CIO Q>COPN PICCOM9Q>5FILEBUFPICBADR9Q> PICBADR9  Q>OPDIR PICAUX19Q>( PICAr}UX292 CIO< GCLOSEDRVF GETFILP$>PZQ>d PICBADR9nPICBLEN9xQ>5FILEBUFPICBADR9Q>( PICBLEN9r} Q>CGTXR PICCOM9 CIO GCLOSEDRV$>Q>5FILEBUFPICBADR &ICBADRQ>( PICBLEN Q>CPTXR PICCr}OM CIO" IGETFIL, CLOSEDRV6$>P@ Q>CCLOSEJ PICCOM9T!CIO^CODECOMhr GETDRV|OBJECTFX;PX; pktains data for the ? character, and lines 9073-9074 contains data for characters ( and ). If you have no experience *}with custom character sets, try reading the article Ultrafont (Antic August 1986), or take a look at Instedit(AP0117) *} from The Catalog.XXX Which line the object is on depends upon its position in the OBJ$ string. So, WATCH is at line*} 11019, because WAT holds the positions 19-21 in OBJ$. The coordinates of each object that can be picked up and moved*} are contained in the two-dimensional array OBJECTS, which is DIMed to a maximum of (11,3) because there are 11 objec*}ts that can be TAKEn, and there 3 coordinates. So, OBJECTS(3,x) would refer to the Manual, because it is the third o*}bject in the OBJ$ string. Take a look at this:XXX OBJECTS(3,1)=7 OBJECTS(3,2)=4 OBJECTS(3,3)=3 This means that *}the Manual's coordinates are (7,4,3).If the player was carring the Manual, then three zeros would be placed into OBJE*}CTS(3,1-3). The starting position of each object is placed into the array at lines 9900 to 9925. placed into OBJE(k HELP for FUSEBOX by RAY IRISH FUSEBOX is a text adventure, one of the winners from our April, 1989 "Adventure Workn}s" Adventure Contest. Since Fusebox is a BASIC program, you can RUN it from the Main Menu. The game's title screenn} appears -- and then the lights go out. You're alone at night in an unfamiliar house -- and now you have to find a fn}use, and the fusebox.XXX This isn't as easy as it sounds. There aren't that many rooms to explore, but it's a good iden}a to make a map. You can see well enough where there are windows, but that won't be enough. As with most games ofn} this type, you use two-word VERB/NOUN commands. (For example, LOOK BED or FLUSH TOILET.) In this adventure, you can}n use single letters (N, S, E, W) for direction commands. Some useful verbs: GET, OPEN, GO, READ, MOVE, UNLOCK, INSEn}RT. If necessary, you can LOAD GAME and SAVE GAME to disk.XXX If you can't figure something out, try varying your comn}mands. Instead of USE ROCK try KILL SNAKE, or something like that. Map the rooms, and make sure you've gone everywhn}PZ[{LINEAB }&&;A ,;@,;@ ,!! HIT [1] FOR GEz}NERAL HELP,   [2] FOR ADVENT.DOC,  [3] FOR FUSEBOX.DOC, (and [RETURN]) 6. D1:DOC.TXT'z}"@'6. D1:ADVENT.DOC$"@$6.D1:FUSEBOX.DOC1 (}@1@@ Az}(@2vB:,!@-7@<@,4XXX0(3(E-@@"Y(ӠΠf@lz} WELCOME TO THE ANTIC MONTHLY DISK (c)1989 Antic Publishing Inc.Most of the program~}s on this disk arewritten in Atari BASIC. Some requirespecial hardware or specific operatinginstructions. Please read the ~}matchingissue of ANTIC Magazine for completedocumentation.SUBSCRIPTION Info & Orders:(800) 347-6969.BACK ISSUE Orders:~} (800) 234-7001(Visa or Mastercard only, please.)XXX *** WHAT YOU NEED TO KNOW *** (about this months disk.) SID~}E A: PROFILE1, 2, and 3 are all part of the Super Bottleneck Breaker. You must use them together in the proper ord~}er, with another BASIC program that you want to test. See the article for details. CAPTURE.OBJ must be transfered ~}to another disk with the file DOS.SYS on it. Rename CAPTURE.OBJ to AUTORUN.SYS. Then reboot the computer without BASIC~}.XXX QDIRMAK.BAS must also be put on another disk before you RUN it. When RUN, this program will write a file QDIR~} on the disk in drive 1. All files from LEVEL1.PIC to LEVEL9.PIC belong with BEAM.BAS. Therefore, you must keep th~}em together. They contain the pictures for the game, and cannot be RUN. Furthermore, this side of the disk contain~}s several MAC/65 files ending with .M65. These files contain source code and cannot be run.XXX SIDE B: OK, boys~} and girls, ladies and gents. Here you have it! The best picks from our Adventure Contest. Just RUN these programs an~}d begin exploring. You can read the instructions for the games by selecting files ADVENT.DOC and FUSEBOX.DOC from HELP.~}BAS on side A. We were forced to exclude the help file from side B, since the adventure games fill up the disk.XXX~}The menu that appeared on the screenwhen you booted the disk will onlyRUN programs with a .BAS extender.If you try to~} run a program and theresponse is 'cannot run Filename',check the file extender with thislist:XXX.BAS BASIC saved pro~}gram, use menu RUN or LOAD and RUN..LST BASIC listed program, ENTER then RUN..EXE Assembly language 'Load~} and Go' file. Remove BASIC, boot DOS, type L then enter the filename..CTB Compiled Turbo Basic progr~}am. See the corresponding article for complete information..M65 "SAVEd" MAC/65 assembly language sou~}ere you can, and you'll get that fuse fixed -- eventually. that. Map the rooms, and make sure you've gone everywhlB(}v @@<( @@dj@ B*-@@"R("ΠҠՠҠˠҠ_@z}j%D:MENU D1:HELP.BASj%D:MENU 1 1iil ! 1L NO SUCH ITEMSELECIT [1] FOR GExprce code. Must be compiled.XXX.OBJ Machine language object file. Same as .EXE but not 'Load and Go~}'. See corresponding article..SYS Reserved for DOS system files..TXT Text file. Usually accessed by another prog~}ram..ACT ACTION! language source code. Must be compiled..LGO A Logo program. Requires the Logo cartridge~}.XXXAll programs from ANTIC issues datedprior to August 1984 were reproducedfrom ANTIC's Archive. We've updatedthem f~}rom our HELP columns andmost are compatible with the XL andXE machines. We have worked to insurethat our programs operate ~}aspublished, but we consider all oursoftware listings to be works inprogress which we encourage you topersonalize and enh~}ance.Good luck, and ENJOY! -ANTIC EDgs to be works inprogress which we encourage you topersonalize and enh|5