@L}5 _$% l0$)$$Hȱ$ UhL" `e$$%`$%`  R@W!( 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`  `8  ɐ     `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.D8:MEM.SAV J y08 B|DEHI$} V0 0`B;DEL`?<0LV`@ʆ v s? F0Ξ05: [ BDEHI%} VY8 B V  @  /DE `E:D8: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 2.5 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.5s, 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 ALLOWED377 FREE SECTORS COPYING---D2:JT.PICCOMl# 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- 144ɛ+,' 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 D8u8K8P?@     Y`  Y0 l `8LRS:H` B V`BDT}EhK)I JLVUVT`H 2` BHIhLV }}~ɛ  ;} 2 ` GR.0:RUN"D:MENU" U}  \`bb D:MENU" j 8 F JXLAPNBEGIJBLJ@@ @ (AU(}T  W} @ Br @'@@'@@9O6-@ B X}OD1:MENU MODIFIED BY JERRY WHITE AND RUSSELL GROKETTAR @h -@6?=-@ Y}6? ]2%@&@a e h$ dG;@%,;@@,;@ ,;@@,;A,;@ Z},d@D:*.* >@'-@@4( > @=-@@=(# [}-#6. - @0''7@<@,4FREE@c 6- \}%"6.7@<@,;67@ <@ ,..c67@<@,.7@<@,' 6.|67B:,%,.'67B:,% ]},.A67@<@,.('-B:,47<,4 A67<,..E 6.=:, @867@<@,.7<, ^}E67<,.0$ @ B //IF A$(3,5)="MEN" OR A$(3,5)="VAR" THEN 30(&&7@<@,4SY _}S@02" @ "(@) < @ B>//IF A$(3,5)="MEN" OR A$(3,5)="VAR" THEN 60F&& `}7@<@,4SYS@`P< @ 2(@7@<@,)|< @0W0!-@6+'@,%@ a}0 @|X0!-@+'@,%@0(@|Y0!-@6+'@,%@0(@|Z44(@ b}#| |[&&? #6;"| ";A$;" |"\F4(@# c}FAR@"-@@ "(@R-@@)-@@ @(@ SLCINN- d}@R B-@@ ,(@ EETO:-@> B E-@@ -(@  e}7 A0;E BP:,A0$ "6.7<@,$ AED A0:6.7+&,$@%<+&,$@ f}%@,D B77@<@,4 -6.7<@,7 AEP7@<@,4OBJ)7@<@ g},4AUT)7@<@,4DOCZ+}(--- REMOVE BASIC CARTRIDGE ---7<@,4DOS.* 6.-B h}:,*7<,4 AH67B:,%,.7<,   6. 6.D1:67B:,%,.0-@ 0(@ L i}OADING  A% B=-@ 3(@ CANNOT RUN = BM-APAP52 j}@'@P9 C @M A0' +'--6-F:A`,%F:Aa,$AV%@$'&@@ k}q.'%@@B'E%@$@e.%@%F:A`,E%@&F:Aa,L'Q0@@@ l}70@@@Q0@@@V'0@@@`'5@@2(@ m} 5$D:MENUQ0@@@V'0@@@`'5@@2(@ ~ MAINMODENAMEPR1PR2PR3FILETEMPDUMP1DUMP2PRTGRAFILFPIBKCRCRCRDUMPRPRSCPICSTDKEPAo}DLI1DLI2HLFJJ==  <I  ^ _ i Bp}@@@@@@@@B&q}B0!@@ @!"j# $@%A $$KOALA PICTURE PRINTER VCAdss;A0,;r}@a,;@,;Ar,;Ar,;Ar,;A,;@,;Ax,;Ax,i<<;@,;@,;s}@,;@0,;@2,nsSHOW TITLE AND GET TYPExOF PRINTER TO BE USED}C +@@t}1@@9CA@A (}KOALA PAD/ATARI ARTISTA(PICTURE PRINTER (Horizontal)^ AP(3(u}Which printer are you using...6(Z(pson emini EC rowriter ^%%4E)4G)4N)4PA A@v} A@!!PUT DISK I/O SUBROUTINES INPAGE FOUR CASSETTE BUFFERee162,16,169,0,157,72,3,169,0,157,73w},3,32,86,228,192,0,48,9,238,31,4,208,3,238,32,4,96,104,104,96%-A$AT"!% DISPLAY LIST INTERRUPx}TROUTINES TO MAINTAINTEXT WINDOW COLORS""BY CHARLES JOHNSON 75066,404((6.HH  ԍЎЩhh@y}**6. HH ԍЎЩhh@a 6-C:,6-P:'AV,-6-&$AVG67@<@,.>:,a67@#z}<@#,.>:,a 6-C:,6-P:'AV,-6-&$AVG67@ <@ ,.>:,a67@%<@%,.>:,!!DU{}MP$ IS A MACHINE LANGUAGE##ROUTINE THAT DOES THE PRINTERSCREEN DUMP...!!DUMP1$ IS FOR EPSON, GEMINI""|}DUMP2$ IS FOR NEC, PROWRITERcc67@,.PhhhhhhhϩР˅ѥϭiͭi88}}ϭcc67@,.PiͭiΥ) JJ)  q͑JJѥ8%%67Aa,.~}(̅ХД`cc67@,.PhhhhhhhϩР˅ѥϭiͭi88שϭcc6}7@,.PiͭiΥ)  JJ) q͑JJѥ8%%67Aa,.(̅Х}Д`!!MODE$ IS A MACHINE LANGUAGE  ROUTINE TO CHANGE GRAPHICSMODE 8 TO ANTIC MODE EGG6.=h0}1eeAO ݩ֩N`"!!MAIN$ IS A MACHINE LANGUAGE'!!ROUTINE TO LOAD AND DISPL}AY,KOALA COMPRESSED FILES16ww67@,.dhBDE   D }    ;ww67A,.d!  XY X!  FD))}   @ww67A,.d ]GPee`/ee}(eEm-67A,.eee`M67A<A,.>:@4,m67AW<AW,.>:@4},JO##READ DISK DIRECTORY AND STORET*.PIC FILES IN FILE$Y^c A(7("Insert a diskette with pictur}es..._("What disk drive is the diskette incc06.D1:*.PIC0067@<@,.h_@+@@}76-@?6. P67A,. _67@,.m((((Reading diskette directory...r1@1}7@<@,0 AwV67@,.7@,/67@,..PICH67@$&@,.V6-%@| }@9Ap06-&@@0A_()(Sorry, there are no .PIC filesK(currently on thi}s diskette...U A@_ APDISPLAY DIRECTORY AND GETNAME OF PICTUREp +AA}1AR@C-p((à堠|-@*6.7$@&@},i-++'@&P:'@,, ? ,$@ %@'@u @|(0 (- k AEA}@"(C(Type '0' to switch diskettesk("Which picture do you want to print9AR%"/+}9 APAPA(-("Sorry, that picture doesn't exist.7 A@A A046.7$@&@,}#6.4-@B:,)7<,0 )67B:,%@,.7<, @LOAD AND DISPLAY PICTURE}C((Loading ...& AC@@m+@%@!6-?:C:,,-6-?:C:,,8@L}-@A0aF:Ad,AUm6-A0S AdAU%6-@16-@=6-@I6-@S} A.(( I can't load $ A@. A0 SETUP PRINTER FOR GRAPHICSg Ap@8}@@P:@4EI6-C:,\(@@3g6.L2 4G6-C:,'(@@326.L} 7 4N6-C:,*(@T16[Q76.S07727 4P6-C:,*(@T16[Q76.S07727 6.6}7Ar,.+67@,.16.76. 6-C:,6-C:,!&SCREEN TO PRINTER LOOP+0K%6-F:@,%F:@},$AV7AdAUK-@958F:Ad,AU*AdAU5@8$:*6-A$}@@%%*6-?:<<<,? 0(@D$(@0$(@I7(@ )(@>:@},4@7$NSSELECT GRAY SCALES TO BEXUSED FOR PRINTER DUMP]b+@%@2'AY}EA@p$+&@,cA@p$+&@,A @p$+&@,A@p$+&@,g}AR@# >:A%,/6-?:C:,,Y6-F:A`,%F:Aa,$AV%As6-F:@,%F:@,$AV&A}hm&@AB+&@A046-C:,E6-P:'AV,U6-&$AVaAmAlW-}@7-@$@$%@O%%@@$@S W q]%@@e+%@@D%@}F:%@,]%@F:%@,vc&%@&P:'AV,$AV?%@P:'AV,QBBAcA}Y@4{N*("} Options: rint, enu, iew, orN( choose color to change (1-4);(/(# --1-- --2-- --3}-- --4--;@xE A@8@@K:E)@g"@)"A+( }}Printing I(Press any key to abort...S A] Ag A5"@w)"A +BB@d5 A}?"@)"A+BB@d5 A? A!! @I)!@RAE0@e0(} 1 2 3 4 5 ""( Choose new shade (1-5) ?44( Present shade for color &@H is S"@I(} Ap+6-&@HIA@p$+&@I,S A5S"@P( Ap+6-&@HIA@p$}+&@I,S A5S"@Q( Ap+6-&@HIA @p$+&@I,S A5S"@R(} Ap+6-&@HIA@p$+&@I,S A5 A@ A59#A5%$@+-A`Ac}/"59 9#A5%$@+-AdAg/"59 9#A5%$@+-AhAq/"5}9 9#A5%$@+-ArAu/"59 $DATA FOR GRAY SCALES15,15,15,1510,5,10},510,0,5,0 2,0,8,0 0,0,0,0DISPLAY PRINTER ERROR MSG R(}***PRINTER ERROR***:(Please }check your printerR(and try it again.../ A@!-@A% / A5VIEW FULL PICTURE }%+@%@H'AYEA@p$+&@,cA@p$+&@,A @p$+&@},A@p$+&@,*!6-?:C:,,!AY@4/8-@A ,F:Ad,AU86-A 4} AdAU$9>ERROR SOUND EFFECTCHC -AP6@P<2@@@ }C$RWGET COLOR CHOICE\f,)@, @:1,)!@:5,App$ D:KDUMP.BAS@@@ kNOCOLPENPIXEMEMLOCFILETEMPMEMLMEMHRSAVMSDLISMAINQLDZENMODEA@}A0 ? @@ @ A) A' @ @BCtB7(@KVV^w}@!==d1020 PICTURE MAKERx A A" ##@@P:(@*H*}I-@8,"@A&(@H&(@C8,A6-?:B&}<,, B'g@-6-F:A,F:A,-6-%AVT>>(@M,6@$+A&,*J0,4;1,0;0,-4}hF:A,A| TITLE AND INITIALIZATION@@6.6hBDEHI  <}OO67@U,.<    ĩOO67A,.:AU,QQ67A),.>`RɥPee`/ee0GG67A,.4(e}eЕee:GG6.=h01eeAO ݩ֩N`D$XRR9}@,9@,;@,;@,;AB,;A(,;@a,l' +@'0@'-@}@'(@1020*-@@*(@picture(-@@((@;AR@};(!(c)1984 George L. Graff A@ #A`(-@"$68,-( 712,708,709},710 $-@ 68,-$  6-@6-A)46-A'AH6-@\''READ MACHI}NE LANGUAGE ROUTINES305f #A@pM-@A"'67,.>:,+ ?-B&B(7C"IM z-A6}AV{ " | ;@,OPEN PICTURE FILETRAP 940##(OUCH TABLET OR RAPHICS 8?}0T*0G A `G }ENTER FILENAME--@B:,:7<,4:='G A $! 6.6.D:}!67@,.8+@+@@LDISPLAY PICTUREV/ +@$/6-F:A`,%F:Aa,$AV}j %@t! 4G6-?:C:,,! A~6-?:C:,,6-?:C:,,6-@++POKE SAVMSC,MEMLO:POK}E SAVMSC+1,MEMHIA`6-?:C:,%@x,# -@ 6-8,"8,}"@8,AH("@8,A<"@8,@pP"@8,@d }xI%@%@3%AI%A%@6-F:B2y,%"@6-@% A }"@$ A SELECT COLORS(Choose Pen Color:( Black ( Blue },( Green @( Red T( Blank hS-@B( Pen Color No.%@}?8,FO68,-S | AGRAPHICS 7+ CONVERTERAND SCREEN LOADER FROMA.N.A.L.O.G. NO. 12}ZZ216,104,173,48,2,24,105,3,133,203,173,49,2,105,0,133,204,160,0,177,203,201,79,208,21]]169,78,145,203,165,203,24,105,2},133,203,165,204,105,0,133,204,169,0,240,14,201,15,208,6]]169,14,145,203,208,4,201,65,240,17,165,203,24,105,1,133,203,165},204,105,0,133,204,169,0]]240,198,96,104,162,16,169,7,157,66,3,169,0,157,72,3,169,30,157,73,3,165,88,157,68,3,165==89},157,69,3,32,86,228,189,67,3,133,212,169,0,133,213,960PRINTER DRIVERD%%104,104,104,133,205,165,204,208X!!12,169,0,}133,208,169,64,133l 206,169,1,133,207,169,1,36$$208,208,95,198,206,198,206,165##206,201,254,208,19,198,207,16$}$15,230,208,165,208,201,192,144 228,162,0,134,204,76,7,128!!32,18,128,133,203,6,203,230!!206,32,18,128,198,206,}5,203%%197,205,208,201,134,204,165,208 !!133,212,6,212,169,0,133,213 ""38,213,96,162,96,165,206,1334##85,165,207},133,86,165,208,133H84,169,7,157,66,3,169,0\157,72,3,157,73,3,32,86p""228,96,230,206,230,206,208,2$$230,207,}165,206,201,64,208,176 165,207,240,172,76,224,127 (@ A@GG162,16,169,1,157,72,3,169,0,157,73,}3,32,86,228,48,1,96,104,104,96(#$-@@ (F:%,$ D2:BOBSPGM.V20162,16,169,1,157,72,3,169,0,157,73,YCD<YYREKXXHXXINYISYINZINDBKFLAQFCZDDUMP @?P@}@ @ 9#P` ?I$5b W5C A@ @#3333Af%5?R5wP@#3333@!`s@!PVe@A}@((@BDK:hB@ Ahh} 紶 -6$+&,6- -$}+&, 6-G:, !) 6- @4 6-$ 6-$ 6-&$6-%$$ 6-%$6-A&}&/6-%AY/% A / @4 ASETUP FOR PLOT  , A 6-! ASETU}P FOR DRAW"   $-$+&,6-&-6$+&,( 6-G:,* !) 6- @`, 6-$. 6}-$0 6-&$26-%$$4 6-%$66-A&&8/6-%AY/% A / @`9 A}SET UP FOR PLOT: , A 6-; ASTUP FOR DRAW<   Ad 6-6- -6$+&,}f-$+&,h 6-G:,i !6-j  6-k   l !6-m  6-n$M2A@}@--A1 ;2MAdAU26-F:B2y,"@( A02 A"@} #"@ A# A(F:Ad,"@((}( A AX+6-@6-6-}!6.+ A Yo,AYA'/@ A9/AY@DK/AA]/AYAo/AYAG}Zi,@ A'/@ @s9,AY@DE/AYW,AAi/A@s\E/AYAG}'/@ @s3/AYE/A@s^u 6-6-@#6.- A 96-@G6.Q }A ]6-@k6.u A `X 6-6-@6.=:,( A 16.=:,B6-@9&B:,N6-@X A} bw6-@6-@#$6.=:,. A :6-@#C6.=:,M A Y6-@&_6-m6.HIGH Z=w A }c86-@36.=:,'B:,!@86.7<@,dr A 6-@&%6-@36.LOW Z== A I6-@3}R6.=:,aB:,!@r6.7<@,fb A 6-@%6-@26.Y-AXIS< A H6-@0U6.X-}AXIS_ A b$<6-?:C:,<<:,4 e@+%AAHB(ŠҧӠҡe(Ġ}Ҡ͠M,($ɠҭҠΠM(렦pQ(IINPUT FORMULA AS... Z=(}IN TERMS OF X&Y) THAT SYNTAX IS CORRECT.p((eg: PAIRS OF PARENTHESIS)E (}AY%-@/(14} ;-@E(40 J-@(104 &-@!/(CONT5-GAB@J&UAY@4'A}B@U()}ҡӠ٠ΠMM(ENOTE: ALL THREE PRIMARY AXIS (X,Y,Z) BE IN SPECIFI}ED DOMAINS!_( ( (Y(GAUTOMATIC BOUNDS SELECTION ENSURES FULL PLOTTING BUT TAKES MORE TIME..._6-g(U(JPLEASE C}HOOSE |1] AUTOMATIC SCALING Z-AXIS BOUNDS |2] MANUAL SETTINGS.Yg"A @((INPUT LOWER LIMIT#<(I}NPUT UPPER LIMIT@&!)!) (WOOPS!& A%(( LOWER LIMIT%6-"( UPPER LIMIT}"6-&!)!) (WOOPS!& A N(.("DESIRED RESOLUTION (4=HIGH;10=LOW)2@6-%@N6-$>P }@(((Π ADD LABELS & BORDERS@(Ԡ START OVER --(%Ԡ PLOT SURFACE TO 1020 PLOTTER6($(PRESS A}NY KEY TO BEGIN...6AdAU F:Ad,"AUA@> " (4(# AUTO SCALING SEQUENCE IN ACTION!> A}V6-A@'+&,'6-A@'+&,96-@C'+&,V6-O:$,%O:$$,%O:$$,9 +@$AAV+}A /9 @`bb104,201,4,240,9,170,240,5,104,104,202,208,251,96,104,133,215,104,133,214,104,104,168,104,133ji}i217,104,133,216,104,104,240,236,133,212,24,165,214,101,88,133,214,165,89,101,215,133,215,152,240,15tff165,214,105,64,133},214,165,215,105,1,133,215,136,208,241,132,221,160,0,132,220,177,216,160,0,170~XX16,1,136,132,213,138,41,96,208,4,169,64,1}6,14,201,32,208,4,169,0,16,6,201,64,208,2__169,32,133,218,138,41,31,5,218,133,218,169,0,162,3,6,218,42,202,208,250,109,24}4,2,133,219hh164,221,177,218,69,213,164,220,145,214,200,132,220,196,212,208,182,24,165,214,105,40,133,214,144,255230,}215,230,221,169,8,197,221,208,159,96,207,96SHIFT TO DRAW COMMAND67B:,,.*D$@SWITCH TO PLOT COMMANDJ}67B:,,.*MT$77PLOTTER SCALING AND DUMP STRING BUILDING SEQUENCE--67B:,%@,.=:P:@$'@,,}67B:,%@,.,..67B:,%@,.=:P:6@$'@,,67B:,%@,.;$ PRINT THE DUMP$ .}@.@@P: (@ (@I &&(@7@?@ABCD6-F:A,}&@&A0+<6-AVE6-F:,Q6-Ad]6-B2y(Initializing...MATT*EDIT 14.0 6-A6 }6-A'6-36-@?6-@K6-@W6-@c6-@o6-@#{6-@76-A6- }@6-@6-6-+$;,;,;,;,;@,+6.6K:67,. '67,. 667@, }.(!-%A"! 20-%@T"! 0A F:,<` (} ((-A@AA @, }(0 E(POKE 842,12:CONTK-]AB@`&F6 (} ((-@@@,(0 6(5P6(POKE 842, }12:GOTO 90!-3AB@6&Z7+6-I:,&@;,&6.,6-76-P:',d4 (}@A-B}7tA46.n+ A(!6-@+ A0x ( ΠՒ ( DISK MENU }( Edit Text ( Load File ( Merge File( Save Text ( Print Text( Custom Set}( Quit ( j 6-66-@ A&6-jAAA# A$PA$A}(pA6A5p3-@6',2@`@0 3$(Try Again Please--@%-2A}@@02A@@@# -20$_ A @(@(G)S"AU_6-@I"#6-&@H# )!A ,&(@  (}&6-6$@,(( O}ut of range." A`, AJ 6- APT 6-^ AhU(4( ( ONLY=) }8AB:,"G6-K(U Ar6-P:A:,,| *$@,( Out of range (- only).6 AP@ AP}(Bad input char(s)$$( #'s only, - valid. AP APAA@d!A=(}}ԪԠ֠A(!!($+B:,,##(󠽠&%+B:, ,!@AR(}!$( Are you G AA@d+A@( G) "@(6-} $ "@x(6- $#( AP# Ap 6.6-1(< To Abort>1(Type text & }press :4 6-F:,@"*( }Р4 A- 6-F:,-(- %--(-&> AP)} "@'#'&'46.> A0A&A:2 6-&  A`!6-(6.2 A0D (>:},6.7<, APN"AU(6-B:,$X7# @2)!A")"@- A`7 APb! (>:,6-}%!67<,.>:,lA@v*(( Ϡǡ A`* A !& A@ AP 6-&} 6- A0)( Š 6-# A)6-((Š to ??AA A0A@A}EAFAG<(Ġ2(< AP(Š AP (Š text  }TO AP( AP (íԠĠ AP( AP(ˠҠ ((pr!}ess only for )'6-@ A'!Au# 6-6- A# Ap 4C:6. A "}+ 6.D67,.=:,"67,.:+67,.- A(*( Working...-$ A6. ɯϠ 467B:,%,.#}=:F:A,,7'A A* 6.AD46-@ A0>(ˠ H(LIST/PRINT DIRR$}(LOAD/MERGE DIR\( ERASE FILE f( RENAME FILE p(LOK/UNLOK FILEz(FORMAT A DISK |(%} MAIN MENU ~(\ 6-66- A 6-\A A APA8pA9A9`&}AJ 6-6-,(۱ LIST ۲ PRINT DIR ?6 AJA A  B:," A J 6-6-,(۱'} LOAD ۲ MERGE DIR ?6 AJA A `# 6-6- A # A9 6-((Load Disk DIR into buffer(}.9B:,"A P)(< will be >) Ae (6. A $ 6-6. A $ A )}) 6-)(Merge into text buffer." A 6." A 4 6-6- A*6. Ԡ4 A*}  6-2( of Š ?"6-, A26-% 6.D67,.=:,%67,.:*.*G +),#(} fo+}r this DIR)6-3 A96.G"A@67B:,%,.7B:,%,I( A&@*>@,}P:I(A) 6. A6-$()($- 6.6- A`#6.- A`.! A-}6-6!6-8;7<@,4 F167@<@,. ; AB 6.7,6.7<, 67,./6.7@,@67.}@,..O67@,.h67@<@,. n 67@<@,.|L( (V A0`(/} (j(Apt$  67<@,.$ Ap~.67@ <,.6.$ A`. Ap 6-%!0}' A@#6-$+&,% 67<%&,.#$ A(( (, "F:A,A6, A1}( A05  6.+67@<,.7@<,5 A` 6. A`A A(4( ;)>(A$- 6-&*6.Incomp. Load, full-$ 6. ERASE FILE 6-@ 6- A`3} (  Ae(A @ =@36.367B:,%,. = A  6.4}A0 6- A0## !#(> TOGGLE C-SETS(/( Ġ/(Π>& Scroll Up 1 Pg2!!(5}Ԡ>& Scroll Dn 1 Pg<9$(Ԡ>& Exit to EDIT Menu6@@9(F( Ԡ P( GoTo StartZ6}( GoTo End d( GoTo LINE n( Delete Lnsx( Insert Lns( Empty BUFF( GoTo Main ( 7}\ 6-66- A 6-\APA`AA0A0A"PA 6- A8}% 6- A% A0(6-$+&,%(7<%&,0A 6-&!Ap A 6- 9}A0*( Go To 堣6-$ A@*6- A' B:, 6. Ơ' AD 6- A0.(:} line to Š46-> A@D6-:( line to Š$6-*6-4 AP:6-.($( Lines;} >  - . Ae"A,6. A6% "67$+&,%,.% A@!!67$+&,%,.7$<}+&,%%,J6-&&+&,TR6. >'67B:,%,.=:,767B:,%,.-H67B:,%,.=:,R A^<(} =}LINE(S) B:, 26. < Ah3(Insert Line # #6-- A@36-rH 6-&&(# of to >}insert ?8((MAX=) B A@H6-| Ae(A+( Working..-%%+6-$+&,%67<%&?},. -6L6-$+&,%!6-$+%&,%967<%&,.7<%&,H67<%&,.L U 6-%6.=:,:67B:@},%,. Lines before K67B:,%,.=:,U AA)AR6-%@"#!)6- (}A}Af B:, 6- A 6--6-$+&,% -(7<%&,6-% =AfB}AR!-7(LINE #  =6-7-@+(EDIT MODE 7AR 1-"(C}>:,>:@0,6-"6-& "(0- A@F:,AU#)- A:F:,"A@D*F:,@D}*  A`* A@N"F:,"@6-" A pX"F:,"@6-" A pb F:,"6- A plE}3"A%)+"@'*",) A`3 A@n@'Ap" F:,"AV" A@r" F:,"AVF}" A@vAWA@! 6-F:,6-F:,!AR/-@"(>:AV,)AR/-B (>G}:,0+"@1)"@0,*F:,!@88(>:,B A@4"+"@()"@),*F:,"*(>:,4 A@F:,"*H}AVA ! 6-F:,6-F:,!AR3"AV-@")(>:AW,3 A ;"*"AU6-I}@"%6-1@"; A p - (LINE # % 0AR1-0(>:,>:@0, 6-F:J}, @8A `"@"6- A p/ @"6-%%(>:AU,/ A ` 1(>:,>:@0K},  A@! 6-F:,6-F:,!AR 4-@,(READING PAGE 41* , A@L}4 -6-$+&%,%> -H+AB@+AB@RB:,"A!P\67B:,%,.7B:,%,M}f67<%&,. p 6-%!6-z "6-& A A" 6-%!6-& A N}A"@ 6-& 6- A 96.** Last line read >>/67B:,%,.=:,9 A&6.EmptO}y Ơנ *& A0!!( text from BUFF AeA# A+ 6.6-!6. P}+ A $ A6. Ġ 6- A`6- 6.$ A$.  B:,"A#pQ}8 67B:,%,.7B:,%,B  6-%! A$@L 67$+&,%<$+&,%,.V A#P` j F:A,"A6R}A$0t A~ 6.ĭ A 7'6.Ơ쬠-6-7 A Ax 6S}. Š  6- A` A#@ B:,A% 6. Ơ A 6. 0@T}@2&6-@0 A0 (Šՠ  ( As Text File  (As PRINT Stmnts (As DATA StmntU}s  ( Main Menu  ( 6-66- A 6-  " A( L*(" blV}ank lines from buffer<( During SAVE F ApL6-2 A&A& A&P< <#(File # for PRINT statements<(W}(i.e. 6 for '? #6;')F (P # 6- A06-# A&`Z (Write DATA Statementsd 7(SX}tarting 堣 '6-B'g&1 A076-n =6-P:+B'g&,',-(Line 7 A@=6-x A 6-6. Y}Š%6-@16-@; A`A6- - ,6-$+&,%"7<%&,4*, A(@ "A'  (Z}6-% &A'@A'p ( ? (A'` (#; (>:@4, A' ([} DATA  6.7<%&, 6-?::@4, (  " B\}6.!167B:,%,. 堣>B67B:,%,.=:,,  2 A%6  B:,  A$@  6.]}@2J  6-@ A0T (ԠӒ ^ ( 40 Char Lines h (Newspaper ۲ Colr ^}(Newspaper ۳ Col| ( Return to Main  ( 6-66- A 6- "A_} ^@(( for Printout46-@0> AD6.K0^67B:,%,. PG  6&(} text as it is `}printed:0 Ap66-  "6- A0  =6-@ $-(Left (max=)7 A@=6- !(!(Verta}ical line spacing: ""( Single (screen format) ( Double ( 6- A ! "6-@!6-@b} ! "6-@!6-@H  "6- A0 (* CHARACTER SET SELECT * ( USE ATARI SET 0(c} USE CUSTOM SET0( FROM FILE  ( 6- A6-& (Get  (And Press keyd} (< to abort>& ( A)("AUA100 5"@'%6.Ԡ+5 A:  A$ e}? AVD  6-6-&@N ,@P:,(A>:,OX !A2pb 6-@:K,f} A4`l -v 96-$+&,6.7%<%,$4/(@9 A2@ (+,A20 06-?: A5H  R (6-&A4@\ 6-t}%+&,$!A4@f A5Pp  6-%!A2`z A2  6.=:,6-% $ 4-( !6u}-$$ K( A5`6-B:,% A5@86-?::@',>:,>:,>:,U$ Hx}-%+"@,( +(A;(A>:,E A4H$ & 6- A5@#6-?: % A,)8"@'>6-H A @E 6.D67,.=:,(67@,.:;AT}E AOO104,240,10,201,2,240,7,170,104,104,202,208,251,96,104,133,213,104,133,212OO104,104,133,216,160},0,177,212,230,212,208,2,230,213,160,0,132,217,201,128LL144,4,41,127,198,217,170,133,218,224,96,176,11,169,64,224,32,144,}2,169LL224,24,101,218,133,214,169,0,133,215,162,3,6,214,38,215,202,208,249,24MM173,244,2,101,215,133,215,160,0,240,2,}208,187,162,0,177,214,230,214,208JJ2,230,215,69,217,149,228,232,224,8,208,239,162,0,22,228,42,232,224,8MM208,248,153,}220,0,200,192,8,208,238,162,0,181,220,201,155,208,4,169,151LL149,220,232,224,8,208,241,162,112,169,11,157,66,3,169,220,15}7,68,3,169DD0,157,69,3,169,0,157,73,3,169,8,157,72,3,32,86,228,198,216,208 166,96MM104,240,10,201,2,240,15,170,1}04,104,202,208,251,169,0,133,212,169,1,133QQ213,96,104,133,215,104,133,214,104,104,168,136,177,214,201,32,208,9,136,208};;247,177,214,201,32,240,1,200,132,212,169,0,133,213,96 D:RATEDIT.BAS iiiiiiiiiiiiii}iiiiiiiii77,214,201,32,240,1,200,132,212,169,0,133,213,96 D:RATEDIT.BAS iiiiiiiiiiiiii  pAADADDVALUTEMCNTENTBN   !} &&;@ ,;@,;@ ,A' ENTER INSPECTION ADDRESS IN HEX+16.; AA6- 6-F:, A !}(5/ HEX CONTENTS OF  ARE 7<@ ,2 5 2 @  A6--@B:,6.7!}<,20A-7<,/9#6-$@%A:,- A2AA$3FA.%%6-$@%@:,&!}@:A,%@8  BB$!!CONVERT DECIMAL TO HEX ****6-@  6-6-P:'@,6-&$@!} ' @67<,.=:,' A  67<,.>:&@%@:A,, '6-&@' A @* B!}$ D:INSPECT7<,.=:,' A  67<,.>:&@%@:A,, '6-&@' A @* B XHSFPEK A6A`@@@ *** HEX DISK FILE %}DUMP ***F +d&&;@,;@,;@,n6.0123456789ABCDEF 6.D1:""@@%}K  ؠŠ ENTER DISK FILE NAME67@<@,.4A A  %}@@""@@P"2' Ӡ٠٠ϠԠ2 @,I> @%}>:@,HEX DUMP OF FILE--> >:@,I @.FF @5BYTE# 0 1 2 3 4 5 6 7 8 9 A B C D E%} F 6FF @5---------------------------------------------------- @AdAUr6-P:'AV, A%}w6-&+$AV, A| @:  6.X$-@@$)@b A @ %}g467,..(+!@1,*+ A#,467,.>:,l)6-%@ ) @  F:Ad,"AUAp%})@AR@ ++ #CONTINUE,RESTART, OR STOP (C,R,S) ?$)@$"@gA%}"@A @A 9AR @+@6@976-F:A,A6%}- ERROR # 7 A3 @ " @3 @EOF#@@# A&6-P:%}'@,&6-&+$@,== @7%@<%@,7%@<%@,$ D:HEXDUMP.BAS&6-P:$ttu]& < ZTXTROZYCUZTXTCOZXCUZCURSOZZQZZCZRZCARREACURSOZDEZCZFZLZUSHFLOZ9Z3Z6INVFLPOKMSZ12NAM)}EAG@@@@AR)(@@ ( AU AU @A&)}@@H@WA@@2@dA@d@A(Q @2)}繰%%ӠӠ͠ϠԠԠ%%Š̠ԠŠ!!THE INPUT ROUTINE ITSELF I)}SLINES 150 - 195""THE MAIN BODY OF THE PROGRAMSTARTS AT 1000$$INITIALIZATION BEGINS AT 32000  )}B ))ӠӠŠ̠ԠŠ  K:6- 6.$ A")} !$$Au"Ae"  6-&""A`6.7<, Ae 6.>:,6)}-%'+"%) )!,6-&' Ae 67,.  Ae )"AF:,"*!6-& )}$--ӠӠŠˠ٠ŠŠCALL THIS ROUTINE AFTEREVERY GRAPHICS STATEMENT)}2 6-F:,!A' 6-&&2B7t$%%ӠӠŠΠ͠٠44AFTER INITIALIZATI)}ON, CONTROL WILL RETURN HERE)) !}WELCOME TO THE SOLID GOLD BULLET)) !PROOF INPUT ROUTINE TEST PROGRAM.)}" " LET'S START OFF SIMPLE..........FIRST JUST GET A TEXT STRING.....;@,I6-@6-@36.)}ENTER YOUR NAME: ?6-@I AU"A 0 6. 0 THANKS FOR YOUR COOPERATION, %%........NOW G)}ET A NUMBER....... W6-@)6.HOW OLD ARE YOU? : 56-@A6-@HM6-@WW AU"A5)} 6-A:,22.............NOW BACK TO TEXT INPUT ........q6-@6-@C6.!DO YOU LIKE THE INPUT ROUTINE? :)} O6-@[6-@eg6-@q AU"AP$$$7@<@,4YAp)E ; 0I'LL BET YOU C)}OULDN'T BREAK IT THOUGH. BYE, BYE.E Au.) )  YOU KNOW, , YOU'RE PRETTY0  SMART FOR  YEARS.3&}*)}*ӠӠŠΠΠ}" }&&;@,;@@,;@@,}"}+6-)}@e6-@% A+W AX0,1,4,32,64,96,128]""155,126,702,694,84,85,752,16 D:INPUT.BAS)}%6-@% A+W AX0,1,4,32,64,96,128]""155,126,702,694,84,85,752,16 D:INPUT.BAS(>?ININ1OUTOUT1HOLDQCOLREGNUTITYPTYPTYPCOUNT-}@ @&&-}** ANTIC ** SEP 84 ** PAGE 57 ** GRAPHICS CONVERTERBY CHARLES JACKSONANTIC MAGAZINE(h -@x@f6-}@,A8ALA Ah&`-@@d h 2RR;@,;@,;@,;@-},;@,;@,9@,<*'(} *** GRAPHICS CONVERTER ****(F9A@f'A@f9A -}AP((1) Micro IllustratorZ##( (Tech-Sketch, Koala, d( Chalkboard)(n((2) Micro Pain-}terx( (Datasoft)(((3) Moviemaker( (Reston)(((4) Fun with Art( (Epyx)(-}NUM = Number of types6-@6-@-(&(Type of source file (1-4) *-(!A( -} Filename (+6. +6. 467@<@,.D:467@<@,.+$(Ty-}pe of desired file (1-4) (+(!A@AC!(}NEEDLESS CONVERSION5-@A9 -}C @`@A@"6-@P,uA @'AA9AAu(7}Micro Il-}lustrator files must be named 'PICTURE'61(-("Press 'Y' to name the output file.1@0Y@`J]6.PICTURE-}6-@/A@fAA@fSA A] A`TF!( Destination filename6( (No ex-}t.):C6-B:,F(^!!"@*!@A@h667@<@,.D:667@<%@,.r@A-}|-#67%@<%@,..BKG- A 6-$% ( Please stand by . . ."("((Approximate conver-}sion( time:  minutes)##BRANCH TO CONVERSION ROUTINES+&+%@,,AA`AA -}A AA`ApAA@A Ap( Still working . . .%%+"@,)+"-}@,APDELETE TEMP. FILE''@@D:TEMP:/@3@D:TEMP-}:@ AP((Micro Illustrator to Micro Painter= @@=@@-}5-@Av$)@1*@5 O*@@)*@@@<*@AO*@-}AP&@@$0&&Micro Illustrator to Movie Maker: 6.6.D:TEMP AD 6.6. A-} N''Micro Illustrator to Fun With ArtX 6.6.D:TEMP Ab 6.6. Al""Micro Painter to M-}ovie Makerv= @@=@@!6-!A@f A?--}@@@$)@1*@?6-%@"A8DA 2-@@@$)@( -}2 APA-@@0**@. A*@A& B@#@&$((Micro -}Painter to Micro Illustrator= @@=@@5-@Av$)@-}1*@5 @@$""Movie Maker to Micro Painter = @@=@-}@9@@, 6-*-@@4>-@@@$)@1*@:6-}8,-> >/-@@@'*@8,+ / H5-@@$)@1*@5 R& B-}@#@&$\&&Movie Maker to Micro Illustratorf 6.6.D:TEMP App 6.6. A z!!Mo-}vie Maker to Fun with Art 6.6.D:TEMP Ap 6.6. A##Fun With Art to Micro Painter= -}@@=@@)@)@1-@@$)@-68,-}-1 (-@AV$)@( -@Av)@!!!A@* A@A*-}@ +-@@'*@8,+ @@$''Fun with Art to Micro Illustrato-}r 6.6.D:TEMP A $ 6.6. A .!!Fun with Art to Movie Maker8 6.6.D:TEMP A B-} 6.6. A L##Micro Painter to Fun with ArtV= @@=@@`,-}-@Ab"(*@, j-@Avt6!A@* A@,*@6 A`~)@-}*@ )*@)*@1-@@$)@-68,-1 6@-}@6@@)*@AT)*@AT+-@@'*@8,-}+ @$ 254,254QQ1,2,3,4,112,112,112,78,0,80,14,14,14,14,14,14,14,14,14,14,14,14,14,14,14,14SS1-}4,14,14,14,14,14,14,14,14,14,14,14,14,14,14,14,14,14,14,14,14,14,14,14,14,14SS14,14,14,14,14,14,14,14,14,14,14,14,14,14,1-}4,14,14,14,14,14,14,14,14,14,14,14SS14,14,14,14,14,14,14,14,14,14,14,14,14,14,14,14,14,14,14,14,14,14,14,14,14,14 RR14-},14,14,14,14,14,14,78,0,96,14,14,14,14,14,14,14,14,14,14,14,14,14,14,14,14SS14,14,14,14,14,14,14,14,14,14,14,14,14,14,14,-}14,14,14,14,14,14,14,14,14,14,14SS14,14,14,14,14,14,14,14,14,14,14,14,14,14,14,14,14,14,14,14,14,14,14,14,14,14(SS14,1-}4,14,14,14,14,14,14,14,14,14,14,14,14,14,14,14,14,14,14,14,65,0,6,104,1702TT104,141,1,2,232,208,3,238,1,2,142,0,2,104,170,-}104,64,169,0,141,0,2,169,0,141,1<FF2,169,192,141,14,212,76,95,228,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0F#(#(} File: 7-}@:&A($+!A',,# A(*# A 01} J6-%@168,-B:,%@J68,-8,%B:,&@%678,,.% A $ (BY1}PASS VARIABLE VALUES) -@ -@@ )@     $(SCAN TOKENIZED FILE)1}I)@6-#)@36-%AV$?"B'hI A@u,-@ , PROCESSING LINE ")@1}6-@"6-$)@6-%@$6-)@6-%@D")"@)-%@1}6)@: D A@L"@#-@@0)@>6-%@B L A@Ps"@1})@*6-%@6!<6-J-@W)@e6-%@i s A@PX!A'6-&A1}'+6-%@7688,,-@68,-O68,-X68,-   A@@   A@0 A@$ $ 1}PROCESSING COMPLETE . . .$(SORT NAMES))6-6-)6-P:@D'$K:,,"6-%@"6-P:'@,1}=-@= SORTING: PASS  OF  PASSES6-@-@&6-%)78,<8,,2781},<8,,) AP`! 6-8,68,-8,!68,-! 6-8,68,-8,!68,-! 6-8,68,-8,!68,-6-1} " AP0!@ AP   SORT COMPLETED . . .$p(WRITE CROSS-REFER1}ENCES)u  WRITING FILE . . .z2 @@2A@a( @CROSS-REFERENCES FOR 1}V @ VARIABLES, & REFERENCESa @-@' @' @78,<8,,<6-1}6-88,,'"2 @< A`@"@$P:'@,' @@ @ " @1}8,"6-%@" 6-8," A`P @ @  -@!$2}D2:CROSSREF.BAS" 6-8," A`P @ @  -@!$0@\] XASUTOTANPOLINU @0@@HAP@@"wf @@ 6} BCALCULATOR SIMULATOR;@,;@,##@@K:AR@6} ' +'0@ AR@--(%--(%WALLAC6}E DUVALL'S | --(% ɠ | 0 --(% Ҡ | --6}(% Ҡ --(% --(% 6} --(% Π Π Ǡ --(% --(% 6} --(% --(% Ӡ ؠ  --(% 6} ؠ !--(% "--(% #--(% 6 } ؂ ؠ $--(% %--(% 6 }&--(% ͠ ̠ '--(% С (--(% 6 } )--(% *--(% 2#7\ @@6 }@&1@@O( S\6-A:,8I@@&'@@E( 6 } I(9 6-< A"F"@@"(<G[!2%@@5-6}@@9 [2P)@QAdAUU "A'(  @`Z6}"AU [C"AX#&@'@3@9( C @`_ @de\ A@6}@&1@@O( S\6-A:,nL@@&'@@E( 6}I(L$xL@@&'@@E( I(L$ A AdA6}U F:Ad,AUA A A 6-%.@@!( $'. @p8 6} A @%@+( .'8 @p A AdAU F:Ad,AUAp A6}b A 6-&".@@!( $'. @p, A -AdAU. F:Ad,6}AUA / A5 A6 6-$@.@@!( $'. @p^ A _Ad6}AU` F:Ad,AUAYa ARg Ah 6-'r.@@!( $'. @p6}# 6-G:, A '# @p# 6-E:, A '# @p*6-+&, A  '* @p7 6-%6}@@ /@@7(͠"Au' @p 7 6-&@@ /@@6}7(͠"Au' @p&S@@&'@@F( I'S 6}@p?H6-!@@ 3@@;( >'H @pX# 6-8, A '# @pq# 6-M:,6} A '# @p# 6-O:, A '# @p' A # 6-K:, A '# @p$ 6-+$, 6}A '$ @p:6-+'A,#6-+'A,- A0': @pg6-6--@@&?6}@@P( 0 Z A]'g @p#-@@  "@@6}( :@@%'@@:(WHICH FUNCTION\ A Q@@&1@@O( 6} S\6-A:,I@@&'@@E( I(  +$@6 },%A!>+ (}(MEMORY +%(________((+(?pp(h THIS FUNCTION STORES THE TOTAL AMOUNT CALCULATED (NOT NECE6!}SSARILY THEAMOUNT DISPLAYED) IN MEMORY.@l(i(^THE LETTER ͠ WILL APPEAR TO THE LEFTOF THE DISPLAY WINDOW WHEN THERE IS 6"} A VALUE IN MEMORY.l(AB(B(7 USE FUNCTION M= TO DISPLAY AMOUNT IN MEMORY.B A)H+ (}(MEMORY -6#}%(________((+(Iff(] THIS FUNCTION SUBTRACTS THE TOTALCALCULATED AMOUNT (NOT NECESSARILY THEAMOUNT DISPLAYED)Jo6$}( FROM MEMORY.(o(QTHE LETTER ͠ WILL APPEAR TO THE LEFTOF THE DISPLAY WINDOW WHEN THERE IS A VALUEKG( IN MEMORY6%}.(=("USE FUNCTION M= TO DISPLAY MEMORY.G A)R+ (}(MEMORY =%(________((+(Shh(` THIS FUNCTION DI6&}SPLAYS THE TOTAL OF THE AMOUNTS ADDED TO AND/OR SUB- TRACTED FROM MEMORY.TF(<(1NOTE: THIS FUNCTION DOES NOT CLEAR T6'}HE MEMORY.F A)\3 (}( MEMORY CLEAR-( ____________0(3(]JG(? THIS FUNCTION CLEARS THE MEMORY OF ALL V6(}ALUES (MEMORY=0).J(^jj(bTHIS FUNCTION DOES NOT CLEAR THE CURRENT WORKING VALUES, ONLY THE MEMORY WILL BE CLEARE6)}D_ A)f' (}(SIN(X)!(______$('(ghb(Z THIS FUNCTION CALCULATES AND DISPLAYS THE SIN VALUE OF 6*}THE CURRENT WORKING TOTAL.e(h(h A)p' (}(COS(X)!(______$('(qhb(Z THIS FUNCTION CALCULATES AND6+} DISPLAYS THE COS VALUE OF THE CURRENT WORKING TOTAL.e(h(r A)z! (}(+/-(___(!({@@(8 THI6,}S FUNCTION CHANGES THE SIGN OFTHE CURRENT TOTAL.|O((EXAMPLE:()(-5 BECOMES 5,(?(26 BECOMES -26B(E(O A)6-}- (}( ALL CLEAR'( _________*(-(SS(K THIS FUNCTION CLEARS THE WORKING TOTAL. IT DOES NOT CLEAR THE ME6.}MORY.a(T(IYOU MUST INPUT A NEW STARTING VALUE AFTER USING THE ALL CLEAR FUNCTION.W(a A)' (}(TAN(X)!6/}(______$('(hb(Z THIS FUNCTION CALCULATES AND DISPLAYS THE TAN VALUE OF THE CURRENT WORKING TOTAL.e(h( 60} A)1 (}( SQUARE ROOT+( ___________.(1(gg(_ THIS FUNCTION CALCULATES AND DISPLAYS THE SQUARE RO61}OT OF THE CUR- RENT WORKING TOTAL.G(:(/THE OPPOSITE OF THIS FUNCTION IS X^2 (SQUARE).=(G A)7 (}(ABSO62}LUTE VALUE1(______________4(7(TT(L THIS FUNCTION DISPLAYS THE POSITIVE DISTANCE FROM ZERO OF A VALUEK>63}(6THIS FUNCTION WILL ALWAYS DISPLAY A POSITIVE NUMBER.A(K A)%' (}(LOG(X)!(______$('(hb(Z 64} THIS FUNCTION CALCULATES AND DISPLAYS THE LOG VALUE OF THE CURRENT WORKING TOTAL.e(h( A)- (}( SQU65}ARE(X)'( _________*(-([[(S THIS FUNCTION MULTIPLIES THE VALUE BY ITSELF AND DISPLAYS THE RESULT.(66} ( A)) (}(PERCENT#(_______&()(cc([ THIS FUNCTION ONLY WORKS PROPERLYWHEN USING IT IN CONJUNCTI67}ON WITH MULTIPLICATION.((EXAMPLE:(-*("100 X 10 % = 10 CORRECT USAGE-(**("100 + 10 % =100.1 INCO68}RRECT USAGE( ( A)' (}(EQUALS!(______$('(ll(d THIS FUNCTION DISPLAYS THE TOTAL OF ALL CAL69}CULATIONS THAT HAVE BEEN DONE. (EXCLUDING MEMORY)( ( A)# (}(PLUS(____ (#(EE(= THIS F6:}UNCTION ADDS FOLLOWING INPUT TO CURRENT TOTAL.( ( A)% (}(MINUS(_____"(%(KK(C THIS F6;}UNCTION SUBTRACTS FOLLOW- ING INPUT FROM CURRENT TOTAL.( ( A)+ (}(MULTIPLY%(________((+(PP(6<}H THIS FUNCTION MULTIPLIES CURRENT TOTAL BY VALUE OF FOLLOWING INPUT.( ( A)' (}(DIVIDE!(______6=}$('(PP(H THIS FUNCTION DIVIDES CURRENT TOTAL BY VALUE OF FOLLOWING INPUT.( ( A) .('(HIT }RN> TO START AGAIN+.%'.@@!( $#. @`'9,7,500,10000'9,11,525,10001'9,15,5506?},10002'9,19,575,10003'16,7,400,10004'16,11,420,10005'16,15,440,10006'16,19,1000,10007'23,7,600,6@}10008'23,11,625,10009'23,15,650,10010'23,19,675,10011'30,7,700,10012'30,11,725,10013'30,15,750,6A}10014'30,19,250,10015 '37,7,200,10016!'37,11,260,10017"'37,15,300,10018#'37,19,350,10019 D:CALCUL6B}AT.OR1 "37,15,300,10018#'37,19,350,10019 D:CALCUL4F CALCULATOR SIMULATOR *INSTRUCTIONS* The program will simulate apocket calculator. It will be easi:D}estto use if you think of it as a reg-ular everyday calculator. to start-type run'D:CALCULAT.ORA screen resemblin:E}g a pocket calcul-ator will appear and will be await-ing your input.(starting value towhich you will perform operations)S:F}imply type your value and press. A small arrow will apearnext to the box in the upper leftcorner marked M+. Use :G}the [TAB] keyto move the arrow to the desiredoperation (+,-,%,etc...). When thearrow is next to the operation whichyou w:H}ish to perform, press .Input your second value and press (See, it's just like aregular calculator!)After :I}entering your second value youmay tab over to the [EQUALS] box andhit which will display thetotal - or you may co:J}ntinue toperform more consecutive operations. Now isn't that easy? It mightseem a little strange at first, butonce:K} you get the hang of it, it works quite well. Try this example... 1.) Run the program. 2.) enter 10 as the st:L}art value 3.) [TAB] over to +.HINT.. if you tab too far-SHIFT/TABWill make the arrow move backwards. 4.) enter 10:M}. 5.) [TAB] over to EQUALS. 5.) press 6.) the number 20 will be displayed. Try some p:N}roblems of your ownto get the hang of it. If you getstuck, [TAB] over to the HELP boxand press . Enter the numbe:O}r of the item you need help with anda help screen will appear. ENJOY! W. Duvall numbe8x !CURSOAhA( #A-A6Ag"  "6-?:A6,+>Q},104,162,6,160,11,169,6,321 92,228,96,165,20,110,243,26110,243,2,106,106,106,106;!!46,243,2,46,243,2,76>R},95,228D:CURSOR,11,169,6,321 92,228,96,165,20,110,243,26110,243,2,106,106,106,106;!!46,243,2,46,243,2,76<LMIROUTINRATCCOLOCURSOd"PMCURSOR.BAS"fBY JERRY WBT}HITEh33ANTIC MAGAZINE NOVEMBER '84 PAGE 68n A x#-A"#%2-@&BU}@(% 2AR8-@@8(POKE 752,1 TURNS OUR CURSOR ON+(+( POKE 752,0 TBV}URNS ATARI CURSOR ON8(*(ENTER CURSOR FLASH RATE (1-64)4 A8!! @)!@dA%@UBW}>(&(ENTER CURSOR COLOR (O,255)0 A 4> B!! )!AUA %@t.(.(#WBX}ARNING: THIS ROUTINE USES PAGE SIX((AS P/M (PLAYER 2). 6-?:,",-AR@("(BASIC*(BY}IS-6@C +AR@1@@C@@9JT^$$6-+F:A,&@3,$AVBZ}h'('(PLAYER CURSOR BY JERRY WHITEr.(.(!MACHINE LANGUAGE ROUTINE ADDRESS=|((%(STORING DATA AT LOCATION B[}($##104,165,212,24,105,36,133,212!!165,213,105,0,133,213,162,7!!160,144,177,212,157,0,6,136$$202B\},16,247,164,212,166,213,1697,76,92,228,173,240,2,240124,173,43,2,240,4,169,0240,6,173,8,6,24,105,8 141B]},8,6,48,104,160,255,1690,153,0,6,136,192,8,208!!248,169,10,141,194,2,141,20 208,169,1,141,111,2,141,27 20B^}8,169,0,141,10,208,169,0 141,7,212,169,2,141,29,208169,58,141,47,2,141,0,212&!!166,85,164,84,165,87,13,1470B_}2,240,12,173,191,2,201,4:""208,35,152,24,105,20,168,138D 10,10,105,48,141,2,208,152N10,10,10,105,39,168,162,7XB`}189,0,6,153,0,6,136,202b 16,246,76,98,228,169,0,141l2,208,76,98,228v0,0,0,0,0,0,0,240DATA IN LINE 630 Ba}IS THEPLAYER CURSOR SHAPE.D:PMCURSOR.BAS141l2,208,76,98,228v0,0,0,0,0,0,0,240DATA IN LINE 630 @7  CABVxxx@@2@@@@##*****************************##*** Fc}FROM K-POWER MAGAZINE ***##*** APRIL 1984 PAGE 46 ***##***************************** (;A ,;A Fd},((>:A%,6-@gg6.]THIS IS A SHORT DEMO OF HOW EASY THIS SUBROUTINE IS TO USE. LIST THE PROGRAM AND LOFe}OK AT ...( A0236-@)6.LINES 10-170 TO SEE3 A P66-@,6.HOW TO PRINT LINES. OR6 A Ff}n26-@(6.LINES 1000-2100 TO2 A 16-@'6.SEE THE ROUTINES.1 A ##*** LINE BREFg}AK SUBROUTINE ***,B:,@86.6.) A ,$8#6-@8#-@@9L7<,4 6-&@Fh}`) 6.7@<,)6.7%@,~ A 6-%@ A0*** OUTPUT SUBROUTINE *** 6-B:,Fi}='@P:'@,/67@%,. =6-%@-@'@/-@ &/(7@<,7&%Fj}@,* 4$ D:OUTPUT.BAS,. =6-%@-@'@/-@ &/(7@<,7&%D*+,AQAFBRLYDSPPRQLIDNLJl} Jm} * PROGRAM LISTER ** BY DANA NOONAN *$$* THIS PROGRAM WILL PRINTOUT *#$$* ANY LISTED BASIC PJn}ROGRAM *%$$* IN A READABLE FORMAT *(SET-UP PROGRAM2]];A,;@,;@ ,;@,;@Jo},;@,;@ ,;@0,<)6. )6.REM F-#@@K:- APP/Jp}@6-F:AY,/AYZW A *@@J@@P:W@Jq}d\F(@>:,7@,PAGE 7@,7@,Q(@\(@n\(@ | | = InversJr}e7@, [ ] = Control7@,< > = Control Inverseg(@s6-@6-%@ A@xGET DATAJs} A @\ 6-B:,6-$6-06-\6-@e$+"@,%A $+"@,**CHJt}ECK REMS, QUOTES, AND LINE NUMBERS-@6-@:7<,,/"@4)!AY%6-@/ A -Ju}-@@)@:7,,@2- *7%@<%@,0*6-@("(@(6-%@.Jv} (@7@<, .6-%@-"* #(@7,- ACHECK ASC VALUE- 6--Jw}6-@:7<,,-6-%@'q!+%@,5(@>:AU,7@,C6-%@q6-%@e$+"@,%AJx} $+"@,,!!!@1* A%A`6!!!AY* ATA@!!!A'* AUA0J @Jy}'A`T#^ "h  APmu+%,!+%@,9(@>:AU,7@,G6-%@u6-Jz}%@e$+"@,%A $+"@,r%(@[]!6-%% |8827,8,ESCAPE,28,4,UP,29,6,DOWN,30,6,LEFT,3J{}1,7,RIGHT--125,7,CLEAR,126,10,BACK SPACE,127,5,TABJJ156,13,DELETE LINE,157,13,INSERT LINE,158,11,CLEAR TAB,159,9,SET J|}TAB**253,6,BELL,254,8,DELETE,255,8,INSERT INVERSE CONTROL CHARACTERS3"A(!(@<,>/6-%@J}}3 <6-&@d*(@<>:,>86-%@< CONTROL CHARACTERS3"!(@[,]/6-J~}%@3 <6-%@d*(@[>:,]86-%@< INVERSE NORMAL CHARACTERS3"AS!(@J}<;>/6-%@3 46-&A(&(@|>:,46-%@ A@6-%@)6-%@7J}6-@:7<,,G!+%@,i(@>:AU,7@,w6-%@6-%@e$+"@,%A $+"@,J}B!AY* AS'6-&A(8(@>:,B A+(@|!6-%@+ A@ A0(@J}|((@66-%@@ A&!!PRINT LINE AND GET NEXT ONE03"@!(@[.]/6-%@J}3 :3"A#!(@[;]/6-%@3 D#(@>:, #(@N'6-%@ @`' AJ}0X2#-@@&+&@`,.(@2 ba'(@7@,PAGE 2(@=(@K6-%@J}W6-@a A0l ENDvd(@AY$+6-@@H( COPY COMPLETES@^@J}ad TITLE( +((( ͠$( ( ( ENTER FILE NAME;$37@<@,0:J}*7@<@,0:M67@<@,.D:\67@,.b6.s67@,. 67@ ,. 67@,.(J}( DATE(( SOURSEJ(%( CONDENSED PRINT (Y or N))70Y*0N@(J A2 4YJ}6-@#6-A /6-@2$2 4N6-@#6-@e/6-@2$ERROR TRAPPING F:A,"J}A6A O A0@#@/AYO@@K: F:A,"ApAJ} F:A,"A8A9 (}-@@9(CANNOT PRINT THIS LISTING F-@@3(PRESS RETUJ}RN TO TRY AGAIN@)@CF%IF:A,"Ap(}0-@@I(NO FILE BY THAT NAME F-@@J}3(PRESS RETURN TO TRY AGAIN@)@CF%*U (}-@@>(CHECK PRINTER AND PRESS RETURNK)@J}U @4+(@>!6-&@+ AD:LISTER@>(CHECK PRINTER AND PRESS RETURNK)@HH12 MLDUMMYWORKHNEHOLTESTPMPAGPMBASDRIVN} d,+"A @, AnV6-?:C:,&6-P:A6'+'@2,,&Aq2 @>6-@!N}@56-@586-@%6-$@%@R+ 86-6@=AA+ @)!@=AN}@pJ -B2H-B2I%@1 76-C-@J(w"-&@6@.-N}@<(>:@,@ ^-%@@5@j-@s( w  A* INITIALIZATIONi1;@rN},;@,;A(,;@2,]6-P:+F:AE,%@,'@,$@iBByoAY@F'B2wN}@56-$AVI-@@rM"Y67,.>:,] oA;-%Ap%At"%) ;N}B2H@$;-%A%A"%) ;B2I@2u-@@"'67,.>:,+ =ARN}@O-@@u(!̠=-@@=(#N};-@@;(!275 280 285 290 295 300 305s Ap-@@K:?-@@\N}(Which drive (1-4)? i)@s B:@6-&@H: @)!@Ap"uAi!N}Ap@3ArEAsAUWAx@iAyu6-@$,W6-?:C:,,$F:AqN},@6-@@M(W Ap6i-@@-( Testing Drive # ?-@@N}_(Press START to change drivei A@* M/L ROUTINEJ]]104,104,141,5,3,104,141,4,3,104,133,204,104,133,203,216,16N}9,0,133,212,133,213,32,83,228T__169,31,133,205,169,0,133,20,32,83,228,165,20,164,205,145,203,136,48,10,132,205,173,31,208N}^TT201,6,208,231,96,160,31,24,177,203,101,212,133,212,144,2,230,213,136,16,242,96h * SHELLr12,30,63,127,255| *N} HEAD160,64,64,64,192,192,192* TEST ROUTINE104,76,83,228D:SNAIL SHELLr12,30,63,127,255| *LZ]qZZZZZZ1IOCFILERESPONSEDECHEXBLANKCIOSEGMENDECNUMBEFLAGFLAGKHEBYTECECNUMBEMLSTARMLENR}SIZDECNUMEBLOCSUINITINITINILRUHRUGOADDERROR} R} !"#$%&'R}""HEADER.BAS-DOS FILE ANALYZERK6-6-@'6-@36-@?6-@K6-@!6-@!R}AR@00;,;,;A,;@2,;@1,% 6.D1:6-6-6-%6-6.123456789ABCDER}F$467@,. %67@2,. 467@,.. A%`8 ABCOMMAND ROUTINEL AV(-@R}( PRESS OPTION TO QUIT`)) !PRESS SELECT TO LOOK FOR RUN/INITj$$ PRESS START TO LOAD NEW FILEt2F:B2y,"@R}*AdAU/2%~ F:B2y,"@A p F:B2y,"@A CTRL-R AUTO SCANS FOR INIR}T F:Ad,"AhA p@w A@&AR!AdAU&DECIMAL-R}TO-HEX CONVERTER6-A@ $ "6-6- -6-P:', 7%<%,  6-&$ 6-'R}   ( "6-6-2$< SEGMENT AF FILE APCLEAR THE MESSAGE BOARDZ -R}d n$x= >:A%,-= "HEADER.BAS - DOS 2.0 FILE ANALYZER0-@& ENTER NAME OF FILE0 A`R} -** INPUT ERROR - TRY AGAIN>:AS,-A  Ap-@!@ 7@<@R},-@!@67<,.7@<@, A 110DOS.SYS*0DUP.SYS*0MEM.SAVR}A Ap -'' DO NOT USE DOS FILES>:AS,"-A , A 6""FETCH FIRST TWO HR}EADER BYTES@"@AJ67<,.T^ ))h)Apr Ap| -'' R}THAT IS A BASIC FILE>:AS, A-@  FIRST BYTE =  6-6- A@ SECOND R}BYTE =  6-6- A@$ A""FETCH NEXT FOUR HEADER BYTES )) ))R}6-@COMPUTE START AND END&6-%AV$06-%AV$:.6-P:&,%.!B) A&`R}D-@!@N 7@<@,X-@!@b 7@<@,l-@!@v 7@R}<@,-@ STARTING ADRESS =  6--@(@ A@ ENDING ADDRESS = R} 6--@(@ A@ LENGTH OF FILE =  6--@(@ A@ AR} !!MOVE POINTER TO SEGMENT END- 6-6--!B) A&`  A!@*;%@*+"A$)"R}A&,16-; A!P4'!A%6-&A%' A!>6-?:C:,<,H 6-%6-&A!R A!R}P\5 Ap-+ END OF FILE REACHED5 Af A!@))p-@ z-@ R}1"AU*"AU# A*)1)!!"A$*"@A$!!"A&*"@A"COMPOUNR}D LOAD FILE 6-6-< Ap-4 THIS IS A COMPOUND LOAD FILE<6-%:-@ : "THESE PARAMETERS ARR}E FOR SEGMENT #%-@ -@  )) A0SIMPLE LOAD FILE ))R}!!A')@A  )) -@$ -@.  INIT ADDRESS =8 6-B -@R}(@L -@(@V ) A@AdAU) A'` 6-@ Aj  ))t /R}"A%*"@%6-/ A$P~ /"A'*"@%6-@/ A$P A  )) R}6-%AV$ -@ " RUN ADDRESS = "6- -@(@ ) A@AdAU) A'R} A# %6-6-@% A ""MACHINE LANGUAGE BYTE READER ""DATA FROM DISK IS NOT SAVED. R}EXECUTED ON FIRST RUN ONLY -@0 " 67<,.>:,  ( $2 104,162,48,169,7,157,66,3< 169,0,1R}57,68,3,169,224,157F 69,3,104,157,73,3,104,157P 72,3,32,86,228,96Z CHECK FOR END OF FILEd  A&)n <R} >:A%,"-@@2  FATAL ERROR< Ax F:A,"A6A!@ A&p TONE %%2R}@P@@ -@@P  (%2($ D:HEADER.BAS %%2Pn