@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 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 ALLOWED697 FREE SECTORS COPYING---D8:COPY32.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- 164ɛ+,' 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 D8u05  15 2 2151^116115ύ011$r2ԭ5 3)5)5ԭx GT}@@L00)+& 2 L0=ɛ -L!1LV1L1 /3 3ȹ441L-4 v3 25 2H 2h͔5U}L3L3 2 k3U hh`DOC`QL3P1Lk0S1H /3h0B k3@ VL0LU!#$53 1181118V}1111Ε5 1Lk0552 1Ȍ1i111i11115Lk0pppB4f5&&&&&&&&^6f^6&&&&&W}&&A1@BJ D2ELVK@BHILV^Щ6 2BD2EJ VBD5EHI0 V0%5X}5 2iХiL[2 25 25`D:*.*` i@`8 ``@i `8@`0 BLV525<4Y}5`HH i ԍΗ552 ԍhh@ Lح1Э1Ѣ 24.4 24Z}4`D4E` 2BJ k3LVRH` 2BD4EhK)I JLV333 BASIC languag i}e OBJ > MACHINE language DOC > DOCumentation PIC|MIC|FNT|MVM > Graphics AMS|MUS|MBD > Music LST j} > BASIC LISTing -Some MACHINE language programs can only be run by booting the disk MENU "without" BASIC! -For s k}ome programs, XL/XE models may require a "TRANSLATOR" program to be booted first! [Also available from BELLCOM] - l}Most programs are relatively self-explanatory; however, some have separate DOCumentation files available. Some BASIC m} programs may contain instructions in their program listings. -To use this great MENU program on your own disks, n}simply copy the file "AUTORUN.SYS" onto your disk. * MENU written by DAVID CASTELL * program on your own disks, ^ Welcome to... * -- ** | | p} * * | | |---------------------------| | | XY-PLOT/GRAPH/ENTRY | | |---------------------------| |q} * ** * | | * * * * -- * * * * r} * ***** * * * ************ ____________________________s}___ A public domain program from... A*C*E Atari Computer Enthusiasts 2222 Ironwood, Eugene, OR t}97401 DISK CONTENTS ------------- 1. XYENTRY. Use to enter points to be plotted with XY PLOu}T/XY GRAPH. Refer to XYPLOT.DOC, XYGRAPH.DOC, and UPDATE.DOC for instructions. (Stan Ockers, ACE) 2. v}XYPLOT.FEB. The plotting/ graphing portion of XY PLOT/GRAPH/ENTRY. 3. XYPLOT. A version of XYPLOT.FEB, abw}ove, configured for computers with 48K or greater RAM. 4. XYGRAF. A "BASIC" program with on-line instructix}ons for the XY PLOT/ GRAPH/ENTRY programs above. 5. XYPLOT.DOC. An ASCII text file with additional iny}structions. 6. UPDATE.DOC. An ASCII text file with program updates for XYENTRY (above). 7. GROWTH.DAT. A saz}mple chart created with XY PLOT/GRAPH/ENTRY. 8. INFO.DOC. These instructions. NOTE ---- Use the DOS "C{}OPY" option (copy to the "P:" device) to get printouts of any ".DOC" file.structions. NOTE ---- Use the DOS "CP((MPTNDRNBLKFNMDATXYMARKDLISMPGNDFFLCOROPAGCUPDAYLXLNMMLMCENTNADSFLTEMJLC}}25STRFNBMARODNFLDEFNEEPTOBILITTLMEAMEANSVAS@~}@@ } !"#$%&}'()*+,-./0123456}789: $$****************************** $$** XYENTRY ** $$** PART OF} XYGRAF ** $$** S. OCKERS 11/84 **$$** ACE Newsletter Dec 84 **$$** 3662 Vine Maple Dr. **}$$** Eugene, OR 97405 **$$** $12 year **$$******************************x6-A}b;@ ,;@ ,;@ ,;@,;@,;@,9,9,9,x6._______________A@}4'A Av9AAKA@m6-F:A`,%AV$F:Aa,%@@p%@}@3AR@3(>:A%, INITIALIZINGv6..DAT6-'@ <@@K:F A}R6-@d@AvB7tAP F:AA,@X@Re6-#-@@<67}<,.>:F:A9%,,S7<,4.*"Y6-e6-@T*  6.7@<%@,* AV&&* GO HERE IF NO F}ILENAME PASSED*c* MENU *dAR@.(>:A%, MENU@-@@\( ENTER AND MODIFY DATAn-}@@( DRAW X,Y GRAPHn!-@@!( HELP!5"@!-@@ 5( .})@. @I)!@QAP5"@I AP+AR5 A>"@Q!-@@}1( ΠӠ١>%D:XYGRAFC(>:A%,"-@@6(C%D:XYPLOT5* MAIN KEYBOARD INPU}T *69-&@( %)@96-+&,$@ %@"@(*!6-&J'"@)* @ !6-%'6-}T"@0*"6-^"@1*"6-`"@'Ab"@ AhAA+!@G* @X,)}"@C)"@E)"@FAj5"@*+8,)8,,(68,-.-5(*k;"@*+8,)8,,(6}8,-.-5(D;6-l%"@!68,--%( nA"A%-(>:A%, clearing data7 AA AP}p#"AV A# APr+"@* 6-%% AP+6-t%"@*!6-&% APu#"}@ A# A Pv"@Aw"@Ax"@ Ay"@Az}"@A{"@$AP| A* INPUT A NUMBER *D AP-(-*6-@<67}@,.>:,D(>:,)@"AUA."A&*!6-&&67,. .(>:,!@A}aC+!@G* @X,)"@C)"@E)"@F)"@iQ67<,.>:,Y(>:,a6-% A&6-+&},$@ %6.&6-A:," "68,-6-" A0" "68,-6-" A` B A&! -} ( B! A/++* ADVANCE ROW, CK FOR PAGE CROSSING *0"@ *"$:D6-%@!@ )6-}@76-%@A APD$D$W* SAVE A FILE *X Ab7 A*@@7 @}l-@v%% @8,,8,,8, ,@ AP" B, AT-@}!@(&**** DISK ERROR - FILE NOT SAVED **** J ApT AP* READ A FILE * A Aq6-}(>:A%,.-@@8 A`U@@d( q@[ %!-@!}G(% ***** FULL ***** Q Ap[ AP-%@%@ 68,-68},-68,- 6-%8-@B:,(A9%@:7,,, 86-@9@ Ap" Ap, AP}6 B9$U-@!A(' ***** FILE NOT FOUND ***** K ApU AP* BUBBLE SORT OF X'}S * ' A'(>:A%, sorting*A6-%-@&@A8%@,8,A04k 6-8, 68},-8%@,168%@,-=6-@F6-8,Z68,-8%@,k68%@,-> "@AH A}P AQ* EXCHANGE X AND Y DATA *R##(>:A%, EXEHANGING DATATA-@"A(' } \G-@6-8,&68,-8,/68,-3 = APG A * UPDATE X'S BY EQUATION *}Q A (>:A%,&")(M(WHAT MAXIMUM VALUE FOR ENTRIESQ!A PP-@@(980} (#(,(CONT/(P( ҠΠʬج٩-@@$)@$"AUA ` (>:, A }V*-@'AB@*&AB@-@68,-8,$@ .(>:A}%, B$ AP. AT-@!@(&** ERROR-BE SURE AND CHECK ENTRIES ** J ApT A  }* INITIALIZE ARRAYS ETC. *Z6-/3-@&68,-/68,->68,-B N6-Z6-6-}@6-@'6-@-6-96-@#E6-@Q6-@]6-i6-@u6-AU6-6@6}-6@$* DISPLAY A PAGE *^AR@:(>:A%, PAGE  OF F-@%L(xX-@3}^(y@6-+&,$@ #-@ )-4(% :-@( 8%,"-(*' - (8%,-}'(8%,$' - (8%,-'(8%,. 7!!* PRINT OPTIONS AT BOTTOM *8@-@!@(& CTRL(ar}rows) Mrk Del Undo Nxt Bk Xchg:B-@"B('Rd Sav Odr Eqn ESC DEL CLR Fil sTat LstBAR$K}* CLEAR UP BLANK SPACES *L" A$N;6-@6-;(>:A%,CLEANING UP DATAP@-}@"@(% T8,"A V1+8,)8,,* '6-%@1 A`} 6-"A`t1+8,")8,",* '6-%@1 A@v(8,"* 6-%@( A@x''"A*+}8,")8,",A`~Y68,-8,68,-8,'68,-8,56-%@C6-%@Y %@A@> -6}8,-68,-,68,-0 >6-&@Q6-P:'@ ,"6-%@<6-%@&+$@ ,B6-N6-}Q$!!* COUNT NUMBER OF ENTRIES *6-@+8,)8,!6-%@+ A6-&@$* IN}PUT FILENAME *C-@!C(( INPUT FILENAME @-@"@(% D: } .DAT *6-@!-@@"*6.D:)@"AUA:"A&*!@}'6-&@267,. :(>:,'!@* A#'6-&@2a=++!@G* @X,)+!@d* @,,*} @K67<,.>:,S(>:,a6-%@ A  67,.$!!* SHOW .DAT FILES ON DISK *?(>:A%,5}@@D:*.DAT? A@-@ @ 27-@@"$@*-/(3 }7 < ApP"@ AP" AY* WAIT FOR SPACEBAR *Z)-@ @")(Ӡd$})@$@2An$w * LIST VALUES ON PRINTER *xx(>:A%, A+6-P:'@,96-@ &}E6-^P:'@,'@l6-%@x6-@y8 A@-@@P:8@zX}3/3# # X Y X3$ # X Y|D3-@6.=:,&6-B:,D3}7@<@&, } 8,3  A~ 3* ! 6-8,"3! A AP37@}<,, 6-8,3 ""3 , A AP37@<, "*"@3 A476.=:%},6-B:,737@<@&,%  8%,3  A& 3* '6-8%,"3 ' A0} AP37@<,)6-8%,3 "3) A4 AP37@<, ! B }AP! A<3 3'3***** PRINTER ERROR *****2@< A6* PUT # IN E FORMAT *?6-6.=}:,$ 36.7@,?6-@T6-@6-'6-36-@?6-K6-T6-B:},"AP$7<,4.6-$6-%@(7<,406-%@( A 6-6-%@}!AP7<,4.6-7<,4E6- A1!#6-A:7%@,,167,.0000;}B:, @ ;67B:,%@,.00000000000000000000""6-&@,3!6-+&,%!36}-&@6/67@,.7,!/67,.7%@,@6.7@,*67@,.7@,C67@<@,. }T67@,..c67@,.v67%@,.E~6-%67%@,.+J" "67%@,.-TL6.=:O:,},B:,"@167%@,.0B67%@,.L A@^67%@,.h("@(67@<@,.-r}$* STATISTICS *$ A(>:A%,$ AA6-6-'6-36-pA-@}8,"A06-%@6-%8, 8,!6-8, 8, 6-8,# 6-'6-#6-}$,-@8,,6-%8,$8,&" 6-'+&@,"6-M:,i( ()(***************************I(}** STATISTICAL SUMMARY **i(***************************;( ( (LARGEST VALUE = #(;(SMALLEST VALUE = 8(}( MEAN VALUE = (8(NUMBER OF ENTRIES = 2(( VARIANCE = (2(STANDARD DEV. = + B Ap!} AP+ A6,($ ***** ERROR CHECK DATA VALUES *****6 A D2:XYENTRYDEV. = + B Ap![KL55MPTFNMDEADATXYMARKSXSYXSCLYSCLXTTLYTTLGTTLGRDFLSTYFLMKEVXVXVYVYXXYYXMIXMAYMIYMA}ENTSFLTEMMSDMSDXXYYRAMTOTOSC8LSC8HSAV8LSAV8HSC0LSC0HSAV0LSAV0HSAVCTSC0LWXWXWYWYWVXWVXWVYWVY}MXMYYTYTXTXTDADTADEEXSAYSAXFLSIGLLRRTTBBXYXYXYSTDLISERROPPA #}'xAeAbeAeA  eA | eA A "  j((@}@EA@Ac@EA@Ac@2@@@4 ?4@` @!@"}#@ #@$@%@&'A0P(AYp)@*A0P+@P,@0-A'.A`/@0A)1@T2A}(3@d4A#5@26A#7@8@49:;A<=A>@P?@E@@PA@}B@PCAXDAxEAcFA GAHIB IJB IKBxLMNAOAPAQ@}RSTUVWXYZ[A0P\@0]@^@P_A0P`@0a}bcB de@faa ""****************************""** XYPLOT **""** P}ART OF XYGRAF **""** S. OCKERS 12/84 **""** ACE Newsletter Feb. 84 **""** 3662 Vine Maple Dr. **}""** Eugene, OR 97405 ** ""** $12 year **"""****************************$1AA`1*} REQUIRES 48K COMPUTER *&P A A R)AR@F(>:A%, INITIALIZINGP A@(l6-Al;}@,;@ ,;@,;A ,;@,;@,9,9,9,9,9,2<9@,9@,;@@,};@$,;@@,G6..DATg@@K:y@AB7tA<<6-6-}'6-1 A1<6.X 10FK6-@E6-A'6-@36-Ac96-?6-E6-K6-P F:AA},@X@Re6-#-@@<67<,.>:F:A9%,,S7<,4.*"Y6-e6-@T* } 6.7@<%@,* AV*** JUMP HERE IF NO FILENAME TO LOAD *c* MENU *ddAR@2(>:A%}, XYPLOT MENU5(G( (1) READ FILEJ(d((2) PLOT GRAPH & AXESn`(!((3) LIST FILES ON DISK$(?((4) CHOOSE TITLES} ETC.B(`((5) PLOT ADDITIONAL CURVEsE(&((6) DISPLAY GRAPHIC SCREEN E( (PRESS KEY TO RETURN)xd(%((7) PRI}NT GRAPH ON PRINTER((C((8) CLEAR GRAPH SCREENF(d((9) ENTER/MANIPULATE DATA=B:,!$-@@"=( FI}LENAME=7@,.)@. @I)!@WAPWW&@HAAAAAPA p}ApAuA! A A0! A A P AXAA`# >:A%,5-@}@J(X% D:XYENTRY* TITLES ETC. FOR GRAPH *a!(>:A%, GRAPH CHOICES$(A( XMIN},XMAX,YMIN,YMAX a(    '(( X-AXIS TITLE'( '(( Y-AXIS TITLE'( }&(( GRAPH TITLE&( ((( GRID !"( "@(B(( GRAPH ST}YLE ("B(ӭԠϠ"@( Ӡ&(&( RETURN TO XYPLOT MENU$)@}$"@2A!! @I)!@TA0??&@HA@A`AbAdApA}* NEW MIN OR MAX VALUES *Q B)(>:A%, CHOOSE ONE,(=( (1) XMIN =@(Q( (2) XMAX =O(( (3) YMIN} =(+( (4) YMAX =.(O( RETURN TO CHOICES MENU$)@$"@2A!! @I)!@RA}D//&@HAPARATAVH AP(>:A%,( (:( INPUT XMIN () >H A@}H AR(>:A%,( (:( INPUT XMAX () >H A@H AT(>:A%,( (:( INPUT YMIN (}) >H A@H AV(>:A%,( (:( INPUT YMAX () >H A@=(>:A%,((/(INPUT X-A}XIS TITLE 3= A=(>:A%,((/(INPUT Y-AXIS TITLE 3= A<(>:A%,((.(INPUT GRAPH }TITLE 2< A%"6-@% A6- A%"6-@% A}6- A+&&* FIND HIGHEST & LOWEST VALUES *,?6-8@,!6-8@,06-8@,?6-8@,@}-@B8,!AbJ 8,  Ad AT 8, 6-8,^ 8,!6-8,h 8,!}6-8,j   $k!!* ORDER X DATA SUBROUTINE *lV(( Sorting$6-:-@&@V8%@,}8,Ahnk 6-8, 68,-8%@,168%@,-=6-@F6-8,Z68,-8%@,k68%@,-p} "@Adr${* PLOT GRAPH AND AXES *|$ A P($( SCALING~'6-+&,'@'6-+&,'}@? A A@! A+ A5 AP? AP" A"@ A  } A R A* DRAW ADDITIONAL CURVE * A A@" A"@ A } A* READ A FILE *(>:A%, Ae >:A%,"-@@, A`I@@}X(LOADING e@-@@ 68,-68,-68,-*  ( (*(***** } LOADED *****,-@B:,(A9%@:7,,, 6@ A" Ap, B6 A6( (},( ***** FILE NOT FOUND *****6 AP&&* PUT CURVE ON SCREEN PT TO PT * : @#-@&@:8,!}A*A 6-8,6-8%@,&6-8,76-8%@,A A"0,   $3* PUT POINTS ON SCREEN *42 }@-@28,!A&6/ 6-8,6-8,/!) )!) A&8 6-&% A0%:- }6-%@!"@-6-<$>z ,,&@&@5/%@&@K/%@%@a/&@}%@w/&@&@z$@R ,,&@%/%@3/%@A/&@O/&@R$B}T ,,&@-/%@%@C/&@%@Q/&@T$DT ,,%@-/%@&@}C/&@&@Q/%@T$* CLEAR GRAPHICS SCREEN *o(>:A%,6-F:A,>AP:%@'}AV,J@V@c(>:A%,oAW +/6-F:A`,%AV$F:Aa,C%@@p}W%@@NA@4'A Ax9AAKA@N$22* DISPLAY GRAPHIC SCRE}EN UNTIL KEY PRESSED * AAdAU F:Ad,"AUA r A R A##* SET ASIDE} PLOTTING SCREEN *g+@%@$6-F:A`,36-F:Aa,B6-F:A,XA+&@3,g6-F:@,@}6-F:@,6-"+16-F:@,@6-F:@,$6-F:A`,!6-F:Aa,$$* INPUT FILENAME *)}-@@)(INPUT FILENAME)-@ @)(D: .DAT*6-@!-@@*6.D:)}@"AUA:"A&*!@'6-&@267,. :(>:,'!@* A#'6-&@ }2a=++!@G* @X,)+!@d* @,,* @K67<,.>:,S(>:,a6-%@ A  67, }.$!!* SHOW .DAT FILES ON DISK *?(>:A%,5@@D:*.DAT? A@-@  }@ 27-@@"$@*-/(3 7 < ApP"@ B" AY* STOP FOR } SPACEBAR *Z)-@ @")(Ӡd$)@$@2An$w* SWITCH TO GR. 24 *xf }6-F:AY,$AY0A`<AaH@T@f@@AY$* SW}ITCH TO GR. 0 *f6-F:AY,$AY0A`<AaH@T@f@@A}Y$--* FIND WINDOW-VIEWPORT TRANSFORMATION * 6-6-6-6-6-+&,'+&, 6-&$6-+&},'+&, 6-&$ * CALC POINTS FOR SCREEN *5-@!68,-$8,%168,-$8,%5 $ * DRAW }GRID & TITLES *?6-A6-@'"36-@P?6-AX_ @,@E@1/@EAc}C/AAc_-@Ac@Q,@B/ 5-@A`@A,@EM/@P}Q 5-@EA@%+,Af1/5 ;-@EA@+,Ac7/AX; ,6-}A6-B:,,"Ad76-+@@&,'@$6-C:,76-?:<<<<<, A",6-}6-B:,,"At$E#6-+A&$@,'@,6-C:,E6-?:<<<<<@,& A}, 6-B:, "A.C6-'6-+@@&,'@06-C:,C6-?:<<<<<,6$8~6-@3}6.6-C:,=6-?:<<<<@<@,K6-%@Y6-&@b6.=:,k6-B:,~6-?:<<<<<,:$<~6-A}r6.6-C:,=6-?:<<<<@<@,K6-%@Y6-%@b6.=:,k6-B:,~6-?:<<<<<,>$?}++* DETERMINE EXPONENT & SCALE VALUES *@ 6-6-H8 6-O:,"@* B.6-8 AJ!A}APT@"-6@6@P6@@6-$P:+@#6,%?,^!@Ah r4-@@P}46-'P:+@#,%?,| @A  !@ 6-P:%?P,8 6-O:,"@* A}.6-8 A!AAP@"-6@6@P6@@6-$P:+@#6,%?,!@}A 4-@@P46-'P:+@#,%?, @A  !@ 6-P:%?P}@,E-@@.68,-&+&@,$E68,-&+&@,$& &68,-8,$@#6%!}%68,-8,'@#& &68,-8,$@#6%!%68,-8,'@#& 0$9* PRINT  }SCALES *: 6-C:,6-@$6-@8-@@A6-8,M6-W As6-?:<<<6-?:<<<:@:7,,%A(,@ $* CLIPPING ROUTINE *66* SEE ANALOG #2 P. 29 MAR/APR '81 (TOM HUDSON) *c6-&}6-'6-36-?6-K6-W6-c6-  6-@ A"` !'}6-@ !6-@ A"  6-@  6-@ A# !6-@ !(}6-@ A#    6-@ 85%"@)%"@)%"@)%"@8$ % 6-6-6-6-)}% A#$  6-6-6-6-. 1 6-6-6-6-!6-'6-1 A#8 (% )!) )!) )!) )!(*}$B  ,&%/&%L $V $%%%"6-!6-$$` > 6-%6-%+&,$+&,'+&,+6-16-;*+}>$j > 6-%6-%+&,$+&,'+&,+6-16-;*>$t > 6-%6-%+&,$+&,'+&,+6-16-;*,}>$~ > 6-%6-%+&,$+&,'+&,+6-16-;*>$ $ &&* DUMP GR. 8 SCREEN TO PRINTER * %%6-F:@-},%F:@,$AV 3>:@',A>:@, -A@;-@5@M6-%@@$.}%\6.>:,t67A ,.>:,67@,. K6-?:C:,<:@',L>:A ,>:,D /}G3K  $ ))* ML ROUTINE USED IN PRINTER DUMP * 9A6@'A7@@9A8! kk6.ahh0}hhhͩѩϩԢм%Ѕѥ ȑȑFϐ̥x`& $))* ML ROUTINE FOR GR.1} 8 CHARACTERS *DD* MODIFIED VERSION OF ANALOG #23 P. 57 (OCT '84, TOM HUDSON) *;AW,6-C:,_67@<2}@h,.Dhhhhh̩&&&ͥeXΥeY&&ͥe΅Υeυϥe˅΍67@i<@i,.>:A&,C#67@p3}<@w,.iύC67@x<@x,.>:A',R267@y<A,.hhhhzzhh|R67A<A,.>4}:A%,O/67A<A",.{y{y)O67A#<A#,.>:A',oO67A$<Au,.4 i@5}`8 ̩ͅ&&&ͥmͤбMyo67Av<Av,.>:A%,V667Aw<A,.Хi(ΐ6}V67A<A,.>:A%,E%67A<A,. {z0+E67A<A,.>:A%,X$67A<A$7},. |.#A@B-A%AWF"T67<,.>:,X 125,6,24,173,126,6bb105,64,141,126,6,173,127,6,18}05,1,141,127,6,173,126,6,133,206,173,127,6,133,207,24,144,200,96$125,6,145,206D:XYPLOT1,126,6,173,127,6,1jHIy55MPTFNMDEADATXYMARKSXSYXSCLYSCLXTTLYTTLGTTLGRDFLSTYFLMKEVXVXVYVYXXYYXMIXMAYMIYMA:}ENTSFLTEMMSDMSDXXYYRAMTOTOSC8LSC8HSAV8LSAV8HSC0LSC0HSAV0LSAV0HSAVCTSC0LWXWXWYWYWVXWVXWVYWVY;}MXMYYTYTXTXTDADTADEEXSAYSAXFLSIGLLRRTTBBXYXYXYSTDLISERRO<}@@@@ @ @ @ =} !"#>}$%&'()*+,-./012?}3456789:;<=>?@AB@}CDEFGHIJKLMNOPQA}RSTUVWXYZ[\]^_`aB}bcde ""****************************""** XYPLOT **""** PART OF XYGRC}AF **""** S. OCKERS 12/84 **""** ACE Newsletter Feb. 84 **""** 3662 Vine Maple Dr. **""** EugD}ene, OR 97405 ** ""** $12 year **"""****************************$&P A A R)ARE}@F(>:A%, INITIALIZINGP A@(a6-Aa;@,;@ ,;@,;A ,;@,9F},9,9,9,9,2<9@,9@,;@@,;@$,;@@,G6..DATg@@K:G}y@AB7tA<<6-6-'6-1 A1<6.X 10FK6-@E6-A'H}6-@36-Ac96-?6-E6-K6-P F:AT,@X@Re6-#-@@<67<,.>:I}F:A9%,,S7<,4.*"Y6-e6-@T*  6.7@<%@,* AV*** JUMP HERE IF NO FILENJ}AME TO LOAD *c* MENU *ddAR@2(>:A%, XYPLOT MENU5(G( (1) READ FILEJ(d((2) PLOT GRAPH & AXK}Sn`(!((3) LIST FILES ON DISK$(?((4) CHOOSE TITLES ETC.B(`((5) PLOT ADDITIONAL CURVEsE(&((6) DISPLAY GRAPL}HIC SCREEN E( (PRESS KEY TO RETURN)xd(%((7) PRINT GRAPH ON PRINTER((C((8) CLEAR GRAPH SCREENF(d((9) ENTEM}R/MANIPULATE DATA=B:,!$-@@"=( FILENAME=7@,.)@. @I)!@WAPN}WW&@HAAAAAPA pApAuA! A A0! A O}A P A% D:XYENTRY* TITLES ETC. FOR GRAPH *a!(>:A%, GRAPH CHOICES$(A( XMIN,XMAX,YMIN,P}YMAX a(    '(( X-AXIS TITLE'( '(( Y-AXIS TITLE'( &((Q} GRAPH TITLE&( ((( GRID !"( "@(B(( GRAPH STYLE ("R}B(ӭԠϠ"@( Ӡ&(&( RETURN TO XYPLOT MENU$)@$"@2S}A!! @I)!@TA0??&@HA@A`AbAdApA* NEW MIN OT}R MAX VALUES *Q B)(>:A%, CHOOSE ONE,(=( (1) XMIN =@(Q( (2) XMAX =O(( (3) YMIN =(+(U} (4) YMAX =.(O( RETURN TO CHOICES MENU$)@$"@2A!! @I)!@RAD//V}&@HAPARATAVH AP(>:A%,( (:( INPUT XMIN () >H A@H ARW}(>:A%,( (:( INPUT XMAX () >H A@H AT(>:A%,( (:( INPUT YMIN () >H X}A@H AV(>:A%,( (:( INPUT YMAX () >H A@=(>:A%,((/(INPUT X-AXIS TITLE Y}3= A=(>:A%,((/(INPUT Y-AXIS TITLE 3= A<(>:A%,((.(INPUT GRAPH TITLE 2Z}< A%"6-@% A6- A%"6-@% A6-[} A+&&* FIND HIGHEST & LOWEST VALUES *,?6-8@,!6-8@,06-8@,?6-8@,@-@\}B8,!AbJ 8,  Ad AT 8, 6-8,^ 8,!6-8,h 8,!6-8,j]}   $k!!* ORDER X DATA SUBROUTINE *lV(( Sorting$6-:-@&@V8%@,8,Ah^}nk 6-8, 68,-8%@,168%@,-=6-@F6-8,Z68,-8%@,k68%@,-p "@_}Adr${* PLOT GRAPH AND AXES *|$ A P($( SCALING~'6-+&,'@'6-+&,'@?`} A A@! A+ A5 AP? AP" A"@ A  A R a}A* DRAW ADDITIONAL CURVE * A A@" A"@ A  Ab}* READ A FILE *(>:A%, A7 A`*@@7@-@c}@ 68,-68,-68,-*  ( (*(*****  LOADED *****,-@B:,(A9%@:7,,d}, 6@ A" Ap, B6 A6( (,( ***** FILE NOT FOUND *****6 AP&&* PUT Ce}URVE ON SCREEN PT TO PT * : @#-@&@:8,!A*A 6-8,6-8%@,&6-8,76f}-8%@,A A"0,   $3* PUT POINTS ON SCREEN *42 @-@28,!A&6/ 6-8,g}6-8,/!) )!) A&8 6-&% A0%:- 6-%@!"@-6-<$>z ,,&q}b%DOS SYSb*)DUP SYSb SAUTORUN SYSb_HELP DOCb oXYINFO DOCbR|XYENTRY bkXYPLOT bl9XYPLOT FEBb"XYPLOT DOCb<XYGRAF b GROWTH DATbUPDATE DOC@&@5/%@&@K/%@%@a/&@%@w/&@&@z$@R ,,&r}@%/%@3/%@A/&@O/&@R$BT ,,&@-/%@%@C/&@%s}@Q/&@T$DT ,,%@-/%@&@C/&@&@Q/%@T$* CLEAR GRAt}PHICS SCREEN *o(>:A%,6-F:A,>AP:%@'AV,J@V@c(>:A%,oAu}Z +/6-F:A`,%AV$F:Aa,C%@@pW%@@Z$22* DISPLAY GRAPHIC SCREEN UNTIv}L KEY PRESSED * AAdAU F:Ad,"AUA r A R A##* SET ASIDE PLOTTIw}NG SCREEN *g+@%@$6-F:A`,36-F:Aa,B6-F:A,XA+&@3,g6-F:@,@6-F:x}@,6-"+16-F:@,@6-F:@,$6-F:A`,!6-F:Aa,$$* INPUT FILENAME *)-@y}@)(INPUT FILENAME)-@ @)(D: .DAT*6-@!-@@*6.D:)@z}"AUA:"A&*!@'6-&@267,. :(>:,'!@* A#'6-&@2{}a=++!@G* @X,)+!@d* @,,* @K67<,.>:,S(>:,a6-%@ A  67,.$|}!!* SHOW .DAT FILES ON DISK *?(>:A%,5@@D:*.DAT? A@-@ @ }}27-@@"$@*-/(3 7 < ApP"@ B" AY* STOP FOR SPACEB~}AR *Z)-@ @")(Ӡd$)@$@2An$w* SWITCH TO GR. 24 *xf6-F:A}Y,$AY0A`<AaH@T@f@@AY$* SWITCH TO} GR. 0 *f6-F:AY,$AY0A`<AaH@T@f@@AY}$--* FIND WINDOW-VIEWPORT TRANSFORMATION * 6-6-6-6-6-+&,'+&, 6-&$6-+&,'+&}, 6-&$ * CALC POINTS FOR SCREEN *5-@!68,-$8,%168,-$8,%5 $ * DRAW GRID & }TITLES *?6-A6-@'"36-@P?6-AX_ @,@E@1/@EAcC/A}Ac_-@Ac@Q,@B/ 5-@A`@A,@EM/@PQ }5-@EA@%+,Af1/5 ;-@EA@+,Ac7/AX; ,6-A}6-B:,,"Ad76-+@@&,'@$6-C:,76-?:<<<<<, A",6-}6-B:,,"At$E#6-+A&$@,'@,6-C:,E6-?:<<<<<@,& A, } 6-B:, "A.C6-'6-+@@&,'@06-C:,C6-?:<<<<<,6$8~6-@36.6}-C:,=6-?:<<<<@<@,K6-%@Y6-&@b6.=:,k6-B:,~6-?:<<<<<,:$<~6-Ar}6.6-C:,=6-?:<<<<@<@,K6-%@Y6-%@b6.=:,k6-B:,~6-?:<<<<<,>$?++* DE}TERMINE EXPONENT & SCALE VALUES *@ 6-6-H8 6-O:,"@* B.6-8 AJ!AAP}T@"-6@6@P6@@6-$P:+@#6,%?,^!@Ah r4-@@P46-}'P:+@#,%?,| @A 8 6-O:,"@* A.6-8 A!A}AP@"-6@6@P6@@6-$P:+@#6,%?,!@A 4-@@P}46-'P:+@#,%?, @A E-@@.68,-&+&@,$E68,-&+&@,}$& &68,-8,$@#6%!%68,-8,'@#& &68,-8,$@#6%!}%68,-8,'@#& 0$9* PRINT SCALES *: 6-C:,6-@$6-@8-@@A6-8},M6-W As6-?:<<<6-?:<<<:@:7,,%A(,@ $* CLIPPING ROUTINE *66* SEE ANA}LOG #2 P. 29 MAR/APR '81 (TOM HUDSON) *c6-6-'6-36-?6-K6-W6-}c6-  6-@ A"` !6-@ !6-@ A"  6-@  }6-@ A# !6-@ !6-@ A#    6-@ 85%"@)%"@})%"@)%"@8$ % 6-6-6-6-% A#$  6-6-6-6-. 1 6-6-6-6-!6-}'6-1 A#8 (% )!) )!) )!) )!($B  ,&%/&%L $V $%%%"6-!6-$$` >} 6-%6-%+&,$+&,'+&,+6-16-;*>$j > 6-%6-%+&,$+&,'+&,+6-16-;*>$t >} 6-%6-%+&,$+&,'+&,+6-16-;*>$~ > 6-%6-%+&,$+&,'+&,+6-16-;*>$ $} &&* DUMP GR. 8 SCREEN TO PRINTER * %%6-F:@,%F:@,$AV 3>:@',A>:@, -A}@;-@5@M6-%@@$%\6.>:,t67A ,.>:,67@,. N6-?:A9}<:@',L>:A ,>:,G J3N  $ ))* ML ROUTINE USED IN PRINTER DUMP * / #A1}!-A6A5%"+/ & __80,40,0,104,104,133,204,104,133,203,104,133,206,104,133,205,169,0,133,209,169,128,133,}207( 169,3,133,2120 **162,0,134,208,188,0,6,177,203,37,2072 ZZ240,6,165,212,5,208,133,208,6,212,6,212,232,224,6,208,2}32,164,209,165,208,10,145,2054 \\200,145,205,230,209,230,209,200,145,205,230,209,234,234,234,234,234,234,234,234,70,207: >}>144,193,230,203,208,2,230,204,165,209,201,120,144,177,96D $))* ML ROUTINE FOR GR. 8 CHARACTERS *DD* MODIFIED VER}SION OF ANALOG #23 P. 57 (OCT '84, TOM HUDSON) *P #A@;AW,.-@AW2"@67<,.>:,D M6-C:,}P$^^216,104,104,104,133,203,104,104,133,204,169,0,133,205,6,204,38,205,6,204,38,205,6,204,38__205,165,204,24,101,88,}133,206,165,205,101,89,133,207,6,204,38,205,6,204,38,205,165,204,24dd101,206,133,206,165,205,101,207,133,207,165,206,24,1}01,203,133,206,141,126,6,165,207,105,0,133YY207,141,127,6,104,133,213,104,133,212,104,104,141,122,6,206,122,6,104,104,141},124,6^^169,0,141,125,6,141,123,6,169,0,141,121,6,172,123,6,177,212,16,5,206,121,6,41,127,201,32XX176,5,24,105,64,16,}7,201,96,176,3,56,233,32,133,204,169,0,133,205,133,208,6,204,38]]205,6,204,38,205,6,204,38,205,165,205,24,109,244,2,133,2}05,164,208,177,204,77,121,6,172125,6,145,206TT230,208,165,208,201,8,240,15,165,206,24,105,40,133,206,144,227,230,20}7,208,223ii144,160,238,125,6,238,123,6,206,122,6,48,43,173,125,6,205,124,6,208,22,169,0,141,125,6,24,173,126,6bb105,6}4,141,126,6,173,127,6,105,1,141,127,6,173,126,6,133,206,173,127,6,133,207,24,144,200,96 D:XYPLOT.FEB,126,6bb105,6l * -- ** | | * * | | |--------------------!}-------| | | XYPLOT | | |---------------------------| | * ** * | | !} * * * * -- * * * * * ***** * * * !} ************ XYGRAF PART II -------------- 'XYPLOT' is the graph drawing portion of 'XYGRAF'. !} It takes files of X-Y data from disk and converts them to X-Y graphs on the screen. Provision has been included for!} dumping the screen to a Gemini 10X print (an Epson MX80 with Graftrax should work as well). You may plot more than !}one file on the same screen. Any points falling outside the limits determined for the inital plot will be clipped. Po!}ints may be plotted individually or a line connecting point-to-point may be selected. INTSTRUCTIONS !} ------------- When the program is initialized, a set of data from disk may be read in automatically. You will !}be presented with a number of options. If you wish a different ".DAT" file select number (1). Option (3) will list al!}l ".DAT" files on the disk. Selection (2) will plot a graph and provide axes. Scaling will be done using the minimu!}m and maximum values of X and Y as limits. Any previous graph will be cleared when using this option. You may wish t!}o choose your own limits, provide axes titles and choose point or line plotting. If so, select option (4) before usi!}ng (2). If you wish to draw a line plot as well as marking individual data points, you can use option (2) for one, (sa!}y line), go to the choices menu (4) and switch to the other. When you return to the main menu, option (5) can be use!}d to add the points. Option (5) can also be used after loading additional files from disk to give multiple curves on!} one graph. Remember, the limits will be those determined when first using option (2) and any points outside these l!}imits won't appear. Any time you want to display the graphics screen use option (6). It will be displayed until ano!}ther key (I use the spacebar) is pressed. Selection (7) prints the screen to a Gemini 10X printer. The pixels are tri!}pled up horizontally and doubled up vertically for 960 X 384 dots. This takes a little while so be patient. You can!} clear the graphics screen using option (8). You may wish to do this if you want to plot a curve without axes. If you!}r data needs to be changed, option (9) will automatically load 'XYENTRY'. Choice (4) of the main menu brings up anot!}her menu providing a number of options. The first lists the current values of the limits of X and Y. If you want to!} change any of these, choose (1) and you will be presented with yet another menu. As you pick limits try and make the!} difference between them multiples of 10. This will give you the best scale values. If Y values fall between 1 and 1!}000 they will be listed normally on the graph, otherwise you will get numbers between 1 and 10 expressed to tenths wi!}th an exponent in the lower left corner. X scale values work much the same except there is a little more room so you g!}et numbers between 1 and 10000 or decimal values to hundredths. Negative numbers are printed in inverse. The spaceb!}ar will return you to the choices menu and used again will return you to the main menu. Titles may be placed on the !}axes or across the top (graph title) using choices 2,3 or 4. The titles will be approximately centered on the axes. !}You may choose either a full grid or just tic marks by toggling with choice 5. The final choice (6) determines if jus!}t points or a line between points will be plotted. PLEASE NOTE ----------- I haven't had time !}to extensively test this program so be sure to let me know of any bugs or suggestions for improvement. Stan Ockers!} R.R. #4, Box 209 Lockport,IL 60441 sure to let me know of any bugs or suggestions for improvement. Stan Ockers (?2CYXLASNE@@7@"@3AAPdY +AR@+6-@=@%}@O@@9Y A@iAdAUn F:Ad,AUA0s* -6-%@# @ %}*(x.!@( "!@.6-} A66-F:Ad,2"@)"A4)"@R6 %} *** FRAME 1 ***(>:A%,22(&  22(& |XYGRAF%}| 22(&  (22(& This program is used to enter X-Y %}22(& data, save it as a .DAT file to 22(& disk and produce a plot which can 22(& be seen on t%}he screen or dumped to 22(& a Gemini 10X printer. (22(& You are initially given the c%}hoice 22(& of: entering/manipulating data 22(& or plotting a graph from data 22(& %} entered or from a disk file (22(& If you choose , a screen of lines 22(& two columns wide is d%}isplayed. At 22(& the bottom are abbreviations of 22(& possible options. You may just 22(%}& enter data or choose an option. 22(& Most options require that you hit 22(& a letter while pres%}sing . 22(& Press to see options  =6-Ap6-A@'6-@"36-@5= A%}*** FRAME 2 ***(>:A%,(22(& ٠Ӡ "('22(&נ%} Move to any page location ,(122(&rk Mark data pair with *. All such 622(& pairs will be ignore%}d but can ;22(& be restored by nmarking them. @(E22(&el Mark a pair for deletion (D). J%}22(& It will be removed at the next O22(& operation that requires update. T(Y22(&ndo wil%}l remove a mark or delete ^22(& symbol from the current pair. c(h22(&xt Go to the next page; %}5 maximum. m(r22(&k Go back to the previous page. w(|22(&chg Exchange the X and Y columns.%} (22(& to continue to go back =6-A6-AE'6-@"36-@7= A%}*** FRAME 3 ***(>:A%,(22(& Š٠ (22(&d Read a%} .DAT file from disk 22(&av Save a .DAT file to disk (22(&dr Put the X column in nume%}ric order (22(&qn Write an equation(s) to modify 22(& values in the X or Y columns 22(%}& eg. X(J)=J*10:Y(J)=3.14*X(J)^2 (22(& Escape to initial entry menu 22(& Delete %}all pairs marked with D 22(& Clear out data (22(&il Show names of all .DAT f%}iles (22(&sat Elementary statistics on Y's (22(&st List data to printer %}(22(& or  =6-A06-Au'6-@"36-@8= A%}*** FRAME 4 ***(>:A%,(!22(&Option of the ٠ takes you &22(&to the plotting part of%} the program. +22(& Be sure to save your data (av) 022(&first because this loads an entirely 522(%}&new program. Your new .DAT file will :22(&be automatically loaded and you will ?22(& be presented with a ne%}w menu, the: D(I22(& Ԡ N(S22(& Reads a .DAT file for plottin%}g X22(& Plots current file with axes ]22(& Gives a directory of .DAT files b22(& Goes%} to the Ӡ g22(& Additional graph; overplots using l22(& current file (no axis) %} q22(& Turns on graphic screen v22(& Prints graphic screen to printer {22(& Clea%}rs out the graphics screen 22(& Returns you to the ٠ (22(& %} or =6-A`6-A'6-@"36-@8= A*** FRAME 5 ***(>:A%,(%}22(&Option of the Ԡ gives the:(22(& Ӡ (22(&%} Allows setting of the maximum or 22(& minimum values of X and Y (22(& Entry of an X-a%}xis title (22(& Entry of a Y-axis title (22(& Entry of a graph title t%}o be 22(& centered across the top (22(& Allows toggling between and 22%}(& (just tic marks) (22(& Allows toggling between ӭ 22(& Ԡ%} and Ӡ (22(& Returns to the Ԡ  22(& %} or =6-A6-A5'6-@"36-@7= A*** FRAME 6 ***(>:A%, (%22(%}&Option of the Ӡ brings *22(&up another menu allowing selection /22(&of maximum and minimu%}m values of X 422(&and Y for the axes. These will very 922(&much determine what your graph will >22(%}&look like. Any points outside these C22(&limits will not be plotted. You can H22(&then 'blow up' a port%}ion of the graph.M(R22(&Curves can be plotted on top of each W22(&other using option of XYPLOT menu. %}\22(&Just bring in the next curve from a22(&disk after using option to plot the f22(&first. Limit%}s are decided by this k22(&first plot however; any portions of p22(&additional curves outside these won't &}u22(&be plotted. Toggling of CHOICES z22(&menu and using of the XYPLOT menu 22(&allows you to&} have both a curve and 22(&individual point outlined. (22(& &}or =6-A 6-Ae'6-@"36-@7= A*** FRAME 7 ***(>:A%,(22(&}& first appeared in: (22(&  22(& | ACE &}Newsletter | 22(& | 3662 Vine Maple Dr.| 22(& | Eugene, OR 97405 | &}22(& |$12/year (10 issues)| 22(&  (22(& Dec.'8&}4/Jan.'85 - Part I 22(& Feb.'85 - Part II (22(&I welcome comments or su&}ggestions 22(&for improvement of this program. 22(&It is in the public domain. Feel 22(&}&free to copy and modify it as you 22(&wish. I can be reached at: 22(& Stan O& }ckers 22(& R.R. #4, Box 209 22(& Lockport,IL 60441  22(& }& (815) 838-3603 22(& TO RUN XYGRAF OR =6-AP6-A'6-@"& }36-@7= AB(>:A%,"AdAU4ARB% D:XYENTRY D:XYGRAF.DOC'6-@"$q100,1975,191.2260,1976,327.8160,1977,398.4660,1978,284.4840,1979,180.8640,1980,286.3680,1981,307.0920,1982,413.5380,* }1983,472.8840,1984,435.204.8160,1977,398.4660,1978,284.4840,1979,180.8640,1980,286.3680,1981,307.0920,1982,413.5380,( XYENTRY UPDATE ============== NOTE: THE FOLLOWING CHANGES HAVE BEEN MADE TO THE FILE "XYENTRY".} INCLUDED ON THIS DISK. THIS UPDATE IS INCLUDED FOR YOUR INFORMATION. WHOOPS... I seem to have made an oversigh.}t in writing 'XYENTRY'. I filled it with all sorts of fancy things; display list interrupts, PM graphics and even a .}timer program running in the background, forgetting that I was planning to load in other programs from this one. Tha.}t means all of the fancy things have to be disconnected. I suppose it can be done but it's far easier to not have used.} the routines in the first place. If you want to use 'XYENTRY' as given in the last issue, you can. Just create your.} file and then hit system reset and load 'XYPLOT' to graph it. If however you want to run 'XYPLOT' automatically fro.}m 'XYENTRY' the following changes are necessary: (1) in line 20 use underscores instead of blanks in NBLK$ (2) .}enter line: 25 POKE 708,34: POKE 709,178: POKE 710,184:POKE 712,10: DLIST=PEEK(560)+256*PEEK(561): POKE DL.}IST+3,70:POKE DLIST+6,6 (3) get rid of the GOSUB 3000 in line 30 and DELETE all lines above 2000. (4) repla.}ce the POKE 694,0 in line 310 with POS. COL-1,ROW: PRINT " "; and get rid of the POKE 694,0 in line 410 .}(5) line 420 should read: IF K=155 THEN 500 (6) add OR K=46 to the others in line 360 (7) delete lines 899 .}through 920 and any references to these lines (there are quite a few) (8) add a semicolon to the end of .} the print statement in line 1082 (9) copy lines 80-84 and 742 from 'XYPLOT' (10) line 170 should read: ?.} CHR$(125):POS. 10,10: ?"LOADING XYPLOT":RUN "D:XYPLOT" You should of course have 'XYPLOT' on your disk. These and a.} few minor cosmetic changes should allow you to run either program from the other. The slow init- ialization time of.} 'XYPLOT' can be helped by putting the ML program in strings. The result (I've done it) is all but unreadable in pri.}nt though so I've not included it here. Stan Ockersrings. The result (I've done it) is all but unreadable in pri,;