L|&+EQA Q BYYYY  R@P m   !  0@R!L}`S @1H& )* Yh`'&'ԭ֭Ԧ`CODPפ  38`CȱC)ȱC( Q ݥ gРCmCD`AA@HHe8ɢ,  +:+:0h\ 0 H轿hL< /) H轧heeL 0ԩ@1Li3%!44,%05'%43/5.$ !4!2) #/-054%2%.4(53)!343 present !#%3890,/4'2!0(%.429*ul.keFSP]d+d+ddnP!nnnnndnnoo.nnkpoooooojc fY fYfY fY fYfYqfYrfYrfYfYfYfYfYfYfYfYfY kAhiC=li]fY 4PWEV(TQJ"fY 4PWE<XP$fY 4PiE"Zh1]fY =PWE<`R"fY 0[WEVTVR"fY ]YIhiC.>=,?fY@ C4&$"m44fY@ C4s$"b4140fY@ U9_a*MT;,;0fY@ _UP -"0acY_UP 27P&6\@_UP 2%"0:H_UP .,3"1gNR!_UP 1>"0"4@_UP 1"0&4@_UP (, lh_T_UPU_PU_PU_PU_PU_P o5oU_PU_PU_PU_P kbk>B!@*OU_P 4V4TaAK@U_P 4V0P4$@U_P 4V<=_! !U_P 4V001E U_P 4V5RHU_P k>?X`ccdfflpqsvwx|~6  (*  (@AEPQTUUUUUUUUUUUUUUUUUUUW__}t 2[Z[[[\,\b\pB[O`]A@L `H232435; 1 ;  hh@2 e1i1LHҍ 00) 08 109hh@| Ҡ2e1i1232435ޥ<<8`^ u ]  : J)LI D L(( h L|Y)*ɢjT  A>لNA>LA 0٭) Ȅ A0 @ٮٝy؝}L|{A~ )`1   Y8`N@  LE:V V W VWV VWV W V V V VWV |`^ u ]  : J)LI D L(( h LL() [ L6 L(| L 0p  [  C?   O ~ L?|LL  !` O ) `A! ߰")- 0" $|G@LLL&0") e $G%H0 3P8`GȱGȱG 0GȭGȭGG}GH|8(()) e G$H% D`(0)8` )LU LGȘ LL  :|  LL )N>Q G 7 !H H) h  OhyhyB  1L > L$ |JJ R  R T L *` B'8 0 } H| H`$ g 3 LHG!@1F K|GȱGLLEE Ed E7EȩE 1 ͍8 3L  : L |  P ?   : L  : :    1L  [  h L  aL E`L!|  : L)   L ) `L0AML ML  NL"|LLNLML ,0,0SGɛ L  L 'EHEh  G #|L LSROTCES EERF G) *Gȩ GȽG GȌd   )G`8$| 0G`DCEDC0X:Ȣ ȱC* ? 0.. ,0%n?A[ 0 : L%|_`L  `,0``piH 0)բ?ٗ &|08`0   0$L GGȽG L ! `8'|Lw`L08`  05G),G)ȱGȱGHh0})Hh` B! 8`8(|iiiLGE`E8FEh( 30`ɃLL 'L18^~jj8jHi h)|EEEiEȱEiE` dTEH8EEȱEEȩEh JE8  .mi`LI*|!EF RLGH`L~` `HGHh+| 3`   :` 30 0) ~LRIIIIIIIIIIIIIIIIC,|`0 hߩ0 "  01  DDS , ߍ?TT-|U  L2    t`L C D~ CCDDܢ 0D.|CDCD`ʆ  өj  # l00 F F Yh < /|    L+8DE  F  2 ^L`BDEHI V0|(`BJ VLZ DEHIB V0dVQDEH1|I VF9 2,0 i,0 0hhLL t FLr` 2H 2hDHEhDE2|Li8HI [ [ 0 HI,00   VL,0 fL[&@*IJ3|`ll 2J 08 BD&EHI V0 20`BcDELV 2!B ` <0BcDE J V4| <(`  V⪍  Eઍ  E 2-LL+   DE5|HILV%, <><>`  l  l Z h  ` `` $B V6|BHID&E V BLV nBqDE J V* \*` B V BLVDEHI7| BLV)H hO }`N@  L&8|qi9>`0ݦ P ȌL `@}}MACH SYS D1:MACH.SYSD1:MACHCP.SYSD1:MACH9|GN.SYSD1:AUTORUN.SYSD1:MEMSAV.SYSE:Need MEMSAV to loadERROR: MEM.SAV I/OType "Y" to contPut MACH disk in D1, hit ret:|urn`sK$ @?,23 MACH SYS }:&|&8>&8>pppB(&BP&BA&㉀! $irectory( 'en-!#(/ $up&ile<}" #artridge) &ormat0 3et$ensity# #opy* $up$isk1 #onvert$ $elete+ 3ave"in2 $ef$r$% 2=}ename, ,oad"in6 6erify/&&& ,ock- 2un ,oc8 &x3ys/&&' 5nlock. -em3av󚀑>}/&&/.}K:Function not readyDIRECTORY: search spec,list fileCOPY: fro?}m,toCopying: DN:Type 'Y' to DELETE:DELETE: file specGEN MEMSAV.SYS: [Y/N]RUN: loc@}ationLOAD: filespecFORMAT: driveFORMAT disk 2 [Y/N]Formatting D2:UNLOCK: filespecRENAME: old,new filespecsSAVEA}: file,start,end[,init,run]Insert I/P disk, hit RETURNLoad both disks, hit RETURNDUP DISK: input,output drive(s)Disk typeB}, ile or ectorType 'Y' if ok to use program areaSET DEFAULT: DriveSET PROTECT: DriveVerify changedSET DENSITY: DriveDC}UP FILE: filespec [cr=all]CONVERT: filespec [cr=all]ERROR: 138-skip -abortNeed D1 thru D4Too longBad hex parD}mBad nameOne letterERROR: Unlike drivesNO CartridgeNo wild cards in destBad Load FileIllegal requestERROR: Not MACH fE}ormatNot a disk fileMEMSAV.SYS already exists9k9؆R'S  01ih&ȱi&F}%,:>$9>,e \<><>P>7&8&&,n='>'' &P@''ʈ !FːG}H o'y}'p'hک&10T' F @ 1;} ' FL{+8A0H' Fh ,, H}Fiil<>e8F <>L,9>$:>%01:><>l$;>P && &L,;>i( &i &L,I}Э;>I<>Le,<>l9>"---W0u11111A2g4Y5555969!:!:!:&:!:7:!:!:' v< ;G>f>e>:*f>h>.g>i>J}G>F> += ~< _<JB@> A=G>8F>L/F>g>DL/* hj )LzU * FLK}{+ ;Lz' vF>g>D ;L//P>Q>R>JBgD>E A=BHISD>E A=S>0:L} B A=L{+Q>R>R>Q> B A=]>401h>:'S> ' S> .'ȽS> ' 𩛙'' FM} ;BJD'E@> A= +=G>HH>H ~hG>F>g>DL/1h>:' 2L/ 'D'EL/ += ~ ; N}* FL{+ _< ;g>K@CL/S,BJ@> A=F>g>K E?>L/* F 2L{+CAD  JO}B?> A=K@>?>B BDDEE@>ܝHݝI VE>?>@>HHIIH A=E>ɈLS=@> B V?> P}B V?>' F,P>L.L{+;( v< _< ;g>D * FL{+N !B A=L{+'( FH> !BܝD>ED>:>h>:1Q}>BJgD>E A=ߝD>EBG>HI A=> hG>G>H>0ߢ> >0.> >> 0F>?R}>詛>ܢ> F 1H>F>> A= k1L0 k1L{+ BLA=( v< h< _< ; B A=L{+( v< _<#B A=L{+( v< _<$S}B A=L{+*~ )ͩFDEZ  F ; _< 2 ^L1( ; =i0(( _<( F 1A> =?> _< ;O>?>@>ʆ@>}ȌN>O>@>y}?>y} u* FL{+ ) U}\) F 1<؆B>F ɛSԆ$ ) F ^:@>$0 :,B>0B>$0@> A4=>>>=> >> ̥   V} L3$0' H)94ޭ h)FjFjFji E%и ȭ Șeˍe̍} 9LS=mN>˭mO>mNW}>mO>iiL3 => >>$0 :?>Υͥ $0L2L{+͍ ȱ͍ ii}8 9LX}S=mN>ͭmO>L3@ EF}h 3LS=`( v<HG>f> =  * = 8 95Y} L{+>5) =  = _< hAB,0 J A=   B DEHZ}I,H DE A=HIHI D ELq( v<N _< LX+LS=* F 2L{+c( ; = _<[}I># LM( 1Ȍ?>\} v< _<DE:ɛ *ȑ.D: ;˥̭~{z{+++ 9 99  +]} :BKJ <=B>EgDIH <=h> L7 {:/ f:̩; f:àiig> : 9L6^} B <=˅ޥ̅ߥ˅ͥ̅8ڥ8څܥۅݥ L8 :ޅ߅܅݅)4ˤ̭@> N9 BDE_}JK V06 ˢ BDȥ˝EHI Vȑˤ M=L8 HeIe8HI`}$ B <=) 9Ls7 :)@>ȱL8ͤέ?> N90BDEJK <= @͢0͝Ha}͝I͝Dȱ͝E B <=ͪ))͢0 B <=!LI7+ !9 ;L{+ɛeͥͅiΥL88b}ɛe˅˥i` !9L+9 9 +{)L: 0ɛLFS  |9`lc}) S)`) ; = _< 0 ; ;I) aL{+LR=) ; =H _<' &~H}~h}zHyzhyh'd}&~H}~h}zHyzhyL{+'L{+)P@W@L{+*I?,0L{+ 1;ɛ`g>ɛ`e}g> g> .g>Ȣ g> g> 𩛙g>`ɛ`@> ;I?> ;O )ф٩) F ^:$0f}L^`h>:)}N>N> A4E ˢ* FL{+`pBD'EJ VL8pBDEC>IH VC>g}p B V,C>0ȭ`H B Vhiɀ`v) F 1M>ߠ>8߅ܭ>`g>* ? ɛh},`P>G>H>C>BD>EPHI VC>`C> C> 2L{+D>0 j* FL6<>`,C>0`L{+I>G>i}H>L< ; +=G>H> I>>,;ɛ7>,"ɛ:ݑ>1ݐ>I>>A"Dg>I>I>ݏ>I>Dg>ȩ:g>ȩ>g>ɛ,,(j}/+.I>I>ީa* FC>>,ɛH>G>`>轏>f>gmG>D>iE` "* V0 "*` "*8d/8 i:!* **k} F"*"*L^: 2L{+I>J>K>H>>H>ɛ+,' =0*.K>.J> K>K>I>өK* FC>`K>J>`T*800 0 8 00l}`,C>0'H>>D800H>,ɛH>h`C>;*LF  L+XB>BB>B?F&8>9+8Put disk to gen MACH on in D1Gen MACH 2XH on driveGen MACH 2XH running on D1:Gen MACH 2X n}H on drive 1 [Y/N]Drive must be between 1 and 4 V0`8d/8 i:!* ** F̢> 2L{+t> F 0ɛ0:܍-> o}>1!~V> F ) ^ 0> F 0YФ> F+B,DEJ > B > }@ }@L{ p}+ ˦˽CDCGG g˥D# C  0L?G˦  0L?+H q},HY+,   8 90 i h,h+LLeB>5A =A>Aɛ-D r}EBJ >3DAEHI B >5AD6AE9AH:AI B >;ACA s} BL>B>B?F+Y)*ɢjT  A>لNA>LA 0٭) Ȅ A0 t} @ٮٝy؝}L{A~ )`1   Y8`N@  LE:? yMACH DOS Menu functions: A-DISK DIRECTORY LIST. Similar to DOS II. Minor change to read a wholedirectory into memory bev}fore displaying it. If MEM.SAV is used, it will askpermission, first, to overwrite the program area. B-RUN CARTRIDGE. Saw}me as DOS II. If you are using MACH on one of the newerXL series systems (excluding the 1200XL), you will have a pleasantsx}urprise. MACH switches the XL BASIC in an out to give you more ram whileoperating in MACH mode. BASIC is switched back in y}when you requestoption "B". C-COPY FILE(s). Same as DOS II D-DELETE FILE(s). Same as DOS II. E-RENAME FILE(s). Same az}s DOS II. F-LOCK FILE(s). Same as DOS II. G-UNLOCK FILE(s). Same as DOS II. H-WRITE MACH FILES. Changed from DOS II t{}o load the "MACHGN.SYS" programfrom the system disk. If the system disk is not in D1:, MACH will ask forit to be inserted.|} Don't worry if you have changed the density; MACH will setit to load the program then reset it to what it was, if necessar}}y, for you towrite the MACH files at a density different than the boot disk. I-FORMAT DISK. Similar to DOS II. The only d~}ifference is that if you try toboot a disk that was formatted under MACH but does not contain any operatingsystem, you will} NOT get a boot error. Instead, it will boot as though thedisk drive was not turned on. J-DUPLICATE DISK. Similar to DOS} II with one major exception: after youhave told MACH the source and destination drives, it will ask you if it isa "DOS" o}r "BOOT" disk. Atari DOS II's "J" function is the same as the "DOS"option here. The "BOOT" option will perform a sector by} sector copy of yourdisk, regardless of the contents. K-BINARY SAVE. Same as DOS II. L-BINARY LOAD. Same as DOS II. }M-RUN AT ADDRESS. Same as DOS II. N-CREATE MEMSAV FILE. Same as DOS II. O-DUPLICATE FILE(s). The MACH DUP FILE is really} a full one drive copyfunction. If you specify wild cards for more than one file, MACH will read asmany files into memory a}s it can, then ask you to switch disks, repeating theprocess as times as necessary to complete the request. P-SET DENSITY.} Asks you for the drive number to reverse the density (betweensingle & double). The menu display will be updated to reflec}t the newdensity. Q-CONVERT FILE(s). Similar to the "O" function with one important difference:the output will be at the }opposite density as the input. R-SET DEFAULT DRIVE. Changes the drive which is to be assigned as D1:. Inother words, if y}ou say the default drive is 2, then all requests for D1: willbe routed to drive 2, and all request for D2: will be routed to} drive 1.Sounds a little confusing, but it won't be after you try it a couple of times. V-SET WRITE VERIFY. Reverses the }current Write verify status. X-FIX the non-resident portion of MACH in memory. Transfers to the cartridgeor XL BASIC will} have approximately 7k less RAM, but transfers between DOS andthe cartridge will take less than half a second.MACH Differ}ences. 1. The first thing you will notice is the new menu. The MACH "flip-up" menuis unique among Atari operating system.} You can control the menu and displaytotally. Pressing the SELECT function key flips the menu up and down,revealing the d}isplay contents which are behind it. 2. The next thing you notice is that selecting a menu option does notrequire hitting }the return key. You can now type non-stop when requesting menufunctions. 3. Whenever MACH wants the system disk (to load t}he non-resident part, or toload the MACHGN program), it will instruct you to insert it into drive 1.It will reset the densi}ty to the proper setting for the system disk. The systemdisk is defined as the one you booted from. 4. Unlike some other A}tari operating systems, you can generate MACH on ANYdiskette which is in DOS II format. It does NOT have to be formatted by }MACH. 5. Even if you don't fix MACH (menu option X), it will check if the consoleprocessor is intact. If it is, guess wha}t, no disk access! Also, even ifFix is ON, MACH will reload the console processor if the copy in RAM isdamaged. 6. If yo}u have double density drives that will automatically switch densityto match your diskette, more good news. MACH will automa}tically "sense" thedensity of the disk when it opens a file. Most of the double densitydrives I have tested will do this.} 7. The operating system file names are totally different. There is no DOS.SYSor DUP.SYS files. Their equivalents are MACH}.SYS and MACHCP.SYS. Also, MEM.SAVhas been changed to MEMSAV.SYS 8. You cannot open D:MACH.SYS from your program. You m}ust use the consoleprocessor to generate MACH files.7))MPTNDRNBLKFNMDATXYMARKMPGNDPAGCROUPDACOYLXLNMMLMCENTNADSFLTEMPMPMOFC25JL}STRFNBMARODNFLDEFNEEPTOBILITTLMEAMEANSVASPDLISTAFFLA(<K }YA]eAeA e @ @ @2 @@@@@#@/3}@@@!@A A5 @!"#$%}AU&@'()*+,@ -./01234}56789:;Bh<=@>?@ $$******************************} $$** XYENTRY ** $$** PART OF XYGRAF ** $$** S. OCKERS 11/84 **$$** ACE News}letter Dec 84 **$$** 3662 Vine Maple Dr. **$$** Eugene, OR 97405 **$$** $12 year *}*$$******************************x6-Ab;@ ,;@ ,;@ ,;@,;@,;@},9,9,9,x6._______________A@4'A Av9AAKA@m6-F:A`},%AV$F:Aa,%@@p%@@3AR@3(>:A%, INITIALIZINGv6..D}AT6-'@ <@@K:F AR6-@d@AvB7tAP F:AA,@}X@Re6-#-@@<67<,.>:F:A9%,,S7<,4.*"Y6-e6-@T*  6}.7@<%@,* AV&&* GO HERE IF NO FILENAME PASSED*c* MENU *dAR@.(>:A%, }MENU@-@@\( ENTER AND MODIFY DATAn-@@( DRAW X,Y GRAPHn!-@@!( HELP!}5"@!-@@ 5( .)@. @I)!@QAP5"@I AP+}AR5 AB"@Q!-@@1( ΠӠ١B% D:XYGRAF.DOCC(>:A%,"-@@}6(C%D:XYPLOT5* MAIN KEYBOARD INPUT *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,,(68,-.-5(D;6-l%"@!68,--%( nA}"A%-(>:A%, clearing data7 AA APp#"AV A# APr+"@* 6-%% }AP+6-t%"@*!6-&% APu#"@ A# A Pv"@Aw"@A}x"@ Ay"@Az"@A{"@$AP| A* INPUT} A NUMBER *D AP-(-*6-@<67@,.>:,D(>:,)@"AUA.}"A&*!6-&&67,. .(>:,!@AaC+!@G* @X,)"@C)"@E)"@F)"@i}Q67<,.>:,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, AP6 B9$U-@!A(' ***** FILE NOT FOUN}D ***** 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 AP AQ* EXCHANGE X AND Y DATA *R##(>:A%, EX}CHANGING 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-@!@(&** ERR}OR-BE SURE AND CHECK ENTRIES ** J ApT A  * INITIALIZE ARRAYS ETC. *Z6-/3-@&68,-/6}8,->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!!* P}RINT OPTIONS AT BOTTOM *8@-@!@(& CTRL(arrows) 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@> -68,-68,-,68,-0 >6-&@Q6-P:'@ },"6-%@<6-%@&+$@ ,B6-N6-Q$!!* COUNT NUMBER OF ENTRIES *6-@+8,)8},!6-%@+ A6-&@$* INPUT 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 FO}R SPACEBAR *Z)-@ @")(Ӡd$)@$@2An$w * LIST VALUES ON PRINTER} *xx(>:A%, A+6-P:'@,96-@ &E6-^P:'@,'@l6-%@x6-@y}8 A@-@@P:8@zX3/3# # X Y X3$ # } X Y|D3-@6.=:,&6-B:,D37@<@&, } 8,3  A~ 3* }! 6-8,"3! A AP37@<,, 6-8,3 ""3 , A AP3}7@<, "*"@3 A476.=:%,6-B:,737@<@&,%  8%,3  } A& 3* '6-8%,"3 ' A0 AP37@<,)6-8%,3 "3) A}4 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- A}1!#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(( VARIAN}CE = (2(STANDARD DEV. = + B Ap! AP+ A6,($ ***** ERROR CHECK DATA VALUES *****6 A} D:XYENTRYHIy55MPTFNMDEADATXYMARKSXSYXSCLYSCLXTTLYTTLGTTLGRDFLSTYFLMKEVXVXVYVYXXYYXMIXMAYMIYMA}ENTSFLTEMMSDMSDXXYYRAMTOTOSC8LSC8HSAV8LSAV8HSC0LSC0HSAV0LSAV0HSAVCTSC0LWXWXWYWYWVXWVXWVYWVY}MXMYYTYTXTXTDADTADEEXSAYSAXFLSIGLLRRTTBBXYXYXYSTDLISERRO}@@@@ @ @ @ } !"#}$%&'()*+,-./012}3456789:;<=>?@AB}CDEFGHIJKLMNOPQ}RSTUVWXYZ[\]^_`a}bcde ""****************************""** XYPLOT **""** PART OF XYGR}AF **""** S. OCKERS 12/84 **""** ACE Newsletter Feb. 84 **""** 3662 Vine Maple Dr. **""** Eug}ene, OR 97405 ** ""** $12 year **"""****************************$&P A A R)AR}@F(>:A%, INITIALIZINGP A@(a6-Aa;@,;@ ,;@,;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:AT,@X@Re6-#-@@<67<,.>:}F:A9%,,S7<,4.*"Y6-e6-@T*  6.7@<%@,* AV*** JUMP HERE IF NO FILEN}AME TO LOAD *c* MENU *ddAR@2(>:A%, XYPLOT MENU5(G( (1) READ FILEJ(d((2) PLOT GRAPH & AX}ESn`(!((3) LIST FILES ON DISK$(?((4) CHOOSE TITLES ETC.B(`((5) PLOT ADDITIONAL CURVEsE(&((6) DISPLAY GRAP}HIC SCREEN E( (PRESS KEY TO RETURN)xd(%((7) PRINT GRAPH ON PRINTER((C((8) CLEAR GRAPH SCREENF(d((9) ENTE}R/MANIPULATE DATA=B:,!$-@@"=( FILENAME=7@,.)@. @I)!@WAP}WW&@HAAAAAPA pApAuA! A A0! A }A P A% 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 STYLE ("}B(ӭԠϠ"@( Ӡ&(&( RETURN TO XYPLOT MENU$)@$"@2}A!! @I)!@TA0??&@HA@A`AbAdApA* NEW MIN O }R MAX VALUES *Q B)(>:A%, CHOOSE ONE,(=( (1) XMIN =@(Q( (2) XMAX =O(( (3) YMIN =(+( } (4) YMAX =.(O( RETURN TO CHOICES MENU$)@$"@2A!! @I)!@RAD// }&@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-AXIS TITLE }3= A=(>:A%,((/(INPUT Y-AXIS TITLE 3= A<(>:A%,((.(INPUT GRAPH TITLE 2}< 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* DRAW ADDITIONAL CURVE * A A@" A"@ A  A}* READ A FILE *(>:A%, A7 A`*@@7@-@}@ 68,-68,-68,-*  ( (*(*****  LOADED *****,-@B:,(A9%@:7,,}, 6@ A" Ap, B6 A6( (,( ***** FILE NOT FOUND *****6 AP&&* PUT C}URVE 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$BT ,,&@-/%@%@C/&@%}@Q/&@T$DT ,,%@-/%@&@C/&@&@Q/%@T$* CLEAR GRA }PHICS SCREEN *o(>:A%,6-F:A,>AP:%@'AV,J@V@c(>:A%,oA!}Z +/6-F:A`,%AV$F:Aa,C%@@pW%@@Z$22* DISPLAY GRAPHIC SCREEN UNTI"}L KEY PRESSED * AAdAU F:Ad,"AUA r A R A##* SET ASIDE PLOTTI#}NG 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-&@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/A0}Ac_-@Ac@Q,@B/ 5-@A`@A,@EM/@PQ 1}5-@EA@%+,Af1/5 ;-@EA@+,Ac7/AX; ,6-A2}6-B:,,"Ad76-+@@&,'@$6-C:,76-?:<<<<<, A",6-3}6-B:,,"At$E#6-+A&$@,'@,6-C:,E6-?:<<<<<@,& A, 4} 6-B:, "A.C6-'6-+@@&,'@06-C:,C6-?:<<<<<,6$8~6-@36.65}-C:,=6-?:<<<<@<@,K6-%@Y6-&@b6.=:,k6-B:,~6-?:<<<<<,:$<~6-Ar6}6.6-C:,=6-?:<<<<@<@,K6-%@Y6-%@b6.=:,k6-B:,~6-?:<<<<<,>$?++* DE7}TERMINE EXPONENT & SCALE VALUES *@ 6-6-H8 6-O:,"@* B.6-8 AJ!AAP8}T@"-6@6@P6@@6-$P:+@#6,%?,^!@Ah r4-@@P46-9}'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 ANAC}LOG #2 P. 29 MAR/APR '81 (TOM HUDSON) *c6-6-'6-36-?6-K6-W6-D}c6-  6-@ A"` !6-@ !6-@ A"  6-@  E}6-@ A# !6-@ !6-@ A#    6-@ 85%"@)%"@F})%"@)%"@8$ % 6-6-6-6-% A#$  6-6-6-6-. 1 6-6-6-6-!6-G}'6-1 A#8 (% )!) )!) )!) )!($B  ,&%/&%L $V $%%%"6-!6-$$` >H} 6-%6-%+&,$+&,'+&,+6-16-;*>$j > 6-%6-%+&,$+&,'+&,+6-16-;*>$t >I} 6-%6-%+&,$+&,'+&,+6-16-;*>$~ > 6-%6-%+&,$+&,'+&,+6-16-;*>$ $J} &&* DUMP GR. 8 SCREEN TO PRINTER * %%6-F:@,%F:@,$AV 3>:@',A>:@, -AK}@;-@5@M6-%@@$%\6.>:,t67A ,.>:,67@,. N6-?:A9L}<:@',L>:A ,>:,G J3N  $ ))* ML ROUTINE USED IN PRINTER DUMP * / #A1M}!-A6A5%"+/ & __80,40,0,104,104,133,204,104,133,203,104,133,206,104,133,205,169,0,133,209,169,128,133,N}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,2O}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: >P}>144,193,230,203,208,2,230,204,165,209,201,120,144,177,96D $))* ML ROUTINE FOR GR. 8 CHARACTERS *DD* MODIFIED VERQ}SION OF ANALOG #23 P. 57 (OCT '84, TOM HUDSON) *P #A@;AW,.-@AW2"@67<,.>:,D M6-C:,R}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,S}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,1T}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,141U},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,V}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,2W}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,20X}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,6Y}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.FEBlKL55MPTFNMDEADATXYMARKSXSYXSCLYSCLXTTLYTTLGTTLGRDFLSTYFLMKEVXVXVYVYXXYYXMIXMAYMIYMA[}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@a}B@PCAXDAxEAcFA GAHIB IJB IKBxLMNAOAPAQ@b}RSTUVWXYZ[A0P\@0]@^@P_A0P`@0ac}bcB de@faa ""****************************""** XYPLOT **""** Pd}ART OF XYGRAF **""** S. OCKERS 12/84 **""** ACE Newsletter Feb. 84 **""** 3662 Vine Maple Dr. **e}""** Eugene, OR 97405 ** ""** $12 year **"""****************************$1AA`1*f} REQUIRES 48K COMPUTER *&P A A R)AR@F(>:A%, INITIALIZINGP A@(l6-Al;g}@,;@ ,;@,;A ,;@,;@,9,9,9,9,9,2<9@,9@,;@@,q}BŠˠb'MACH SYSb2;MACHCP SYSbmMACHGN SYSb&uMACHDOS DOCbSXYENTRY blXYPLOT FEBbkZXYPLOT b<XYGRAF DOCb XYPLOT DOCb&UPDATE DOCb5GROWTH DATbK7CAD BASbMENUMKR2COMb MENU bAUTORUN SYSbACEDISK DOCD2 ;@$,;@@,G6..DATg@@K:y@AB7tA<<6-6-r}'6-1 A1<6.X 10FK6-@E6-A'6-@36-Ac96-?6-E6-K6-P F:AAs},@X@Re6-#-@@<67<,.>:F:A9%,,S7<,4.*"Y6-e6-@T* t} 6.7@<%@,* AV*** JUMP HERE IF NO FILENAME TO LOAD *c* MENU *ddAR@2(>:A%u}, XYPLOT MENU5(G( (1) READ FILEJ(d((2) PLOT GRAPH & AXESn`(!((3) LIST FILES ON DISK$(?((4) CHOOSE TITLESv} ETC.B(`((5) PLOT ADDITIONAL CURVEsE(&((6) DISPLAY GRAPHIC SCREEN E( (PRESS KEY TO RETURN)xd(%((7) PRIw}NT GRAPH ON PRINTER((C((8) CLEAR GRAPH SCREENF(d((9) ENTER/MANIPULATE DATA=B:,!$-@@"=( FIx}LENAME=7@,.)@. @I)!@WAPWW&@HAAAAAPA py}ApAuA! A A0! A A P AXAA`# >:A%,5-@z}@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.ahh}hhhͩѩϩԢм%Ѕѥ ȑȑFϐ̥x`& $))* ML ROUTINE FOR GR.} 8 CHARACTERS *DD* MODIFIED VERSION OF ANALOG #23 P. 57 (OCT '84, TOM HUDSON) *;AW,6-C:,_67@<}@h,.Dhhhhh̩&&&ͥeXΥeY&&ͥe΅Υeυϥe˅΍67@i<@i,.>:A&,C#67@p}<@w,.iύC67@x<@x,.>:A',R267@y<A,.hhhhzzhh|R67A<A,.>}:A%,O/67A<A",.{y{y)O67A#<A#,.>:A',oO67A$<Au,.4 i@}`8 ̩ͅ&&&ͥmͤбMyo67Av<Av,.>:A%,V667Aw<A,.Хi(ΐ}V67A<A,.>:A%,E%67A<A,. {z0+E67A<A,.>:A%,X$67A<A$},. |.#A@B-A%AWF"T67<,.>:,X 125,6,24,173,126,6bb105,64,141,126,6,173,127,6,1}05,1,141,127,6,173,126,6,133,206,173,127,6,133,207,24,144,200,96$125,6,145,206D:XYPLOTj?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 qXYGRAF PART IIXYPLOT'XYPLOT' is the graph drawing portion of 'XYGRAF'. It takes files of X-Ydata from disk and conver& }ts them to X-Y graphs on the screen. Provision hasbeen included for dumping the screen to a Gemini 10X print (an Epson MX80& } withGraftrax should work as well). You may plot more than one file on the samescreen. Any points falling outside the lim& }its determined for the inital plotwill be clipped. Points may be plotted individually or a line connectingpoint-to-point m&}ay be selected.When the program is initialized, a set of data from disk may be read inautomatically. You will be presente&}d with a number of options. If you wisha different .DAT file select number (1). Option (3) will list all .DATfiles on the&} disk. Selection (2) will plot a graph and provide axes. Scalingwill be done using the minimum and maximum values of X and&} Y as limits.Any previous graph will be cleared when using this option.You may wish to choose your own limits, provide axe&}s titles and choose point orline plotting. If so, select option (4) before using (2). If you wish todraw a line plot as w&}ell as marking individual data points, you can useoption (2) for one, (say line), go to the choices menu (4) and switch to t&}heother. When you return to the main menu, option (5) can be used to add thepoints. Option (5) can also be used after loa&}ding additional files fromdisk to give multiple curves on one graph. Remember, the limits will bethose determined when fir&}st using option (2) and any points outside theselimits won't appear.Any time you want to display the graphics screen use o&}ption (6). It willbe displayed until another key (I use the spacebar) is pressed. Selection (7)prints the screen to a Gem&}ini 10X printer. The pixels are tripled uphorizontally and doubled up vertically for 960 X 384 dots. This takes alittle w&}hile so be patient. You can clear the graphics screen usingoption (8). You may wish to do this if you want to plot a curve&} without axes.If your data needs to be changed, option (9) will automatically load 'XYENTRY'.Choice (4) of the main menu b&}rings up another menu providing a number ofoptions. The first lists the current values of the limits of X and Y. Ifyou wa&}nt 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 betweenthem multiples of 10. This will give you the best scale values. If Y valuesfall between 1 and 1000 they&} will belisted normally on the graph, otherwise you will get numbers between 1 and 10expressed to tenths with an exponent i&}n the lower left corner. X scale valueswork much the same except there is a little more room so you get numbersbetween 1 a& }nd 10000 or decimal values to hundredths. Negative numbers areprinted in inverse. The spacebar will return you to the choi&!}ces menu and usedagain will return you to the main menu.Titles may be placed on the axes or across the top (graph title) u&"}singchoices 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 just points or a line between points will beplotted.&$}I haven't had time to extensively test this program so be sure to let me knowof any bugs or suggestions for improvement.S&%}tan OckersR.R. #4, Box 209Lockport,IL 60441$/XYENTRY UPDATEI seem to have made an oversight in writing 'XYENTRY'. I filled it with allsorts of fancy things; display*'} list interrupts, PM graphics and even a timerprogram running in the background, forgetting that I was planning to load ino*(}ther programs from this one. That means all of the fancy things have to bedisconnected. I suppose it can be done but it's *)}far easier to not have usedthe routines in the first place.If you want to use 'XYENTRY' as given in the last issue, you c**}an. Just createyour file and then hit system reset and load 'XYPLOT' to graph it. If howeveryou want to run 'XYPLOT' auto*+}matically from 'XYENTRY' the following changesare 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 DLIST+3,70:POKE DLI*-}ST+6,6 (3) get rid of the GOSUB 3000 in line 30 and DELETE all lines above 2000 (4) replace the POKE 694,0 in line 310 *.}with POS. COL-1,ROW:PRINT " "; andget 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 (thereare qui*0}te 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'*1} (10) line 170 should read:? CHR$(125):POS. 10,10:?"LOADING XYPLOT":RUN "D:XYPLOT"You should of course have 'XYPLOT' o*2}n your disk. These and a few minorcosmetic changes should allow you to run either program from the other. Theslow initial*3}ization time of 'XYPLOT' can be helped by putting the ML programin strings. The result (I've done it) is all but unreadable*4} in print thoughso I've provided the DATA statement listing for printing in the newsletter.Stan Ockers(l100,1975,191.2260,1976,327.8160,1977,398.4660,1978,284.4840,1979,180.8640,1980,286.3680,1981,307.0920,1982,413.5380,.6}1983,472.8840,1984,435.204,a4%A%CIRCLESCTRUPRECIRCLECIRCOLDCOLDSTRIRDRDXPOYPORD1RD1RD2RD2RDARDBRD1RD2RD1RD2YPOS28}YPOSCHORVERCOLOCOLORANTANVEIWDLISLMSLOLMSHIGQPADDIRUVIEWRADFRRFVWARFRSCKSBYTEXYXYLI29}NECIRCLEQ@@ @ @ @ 2:}2;} !"#$%&@'@()*+,-2<}./012@3@45@6@789:;<2=}=>@?@A@BCDEFGHIJK@L2>};@, A9@3<@,++9@0<@,9@0<@,&&;@,9@0,2?}9@0,<;@,$6-@"'@<6-+'@,'@ A A$ Ap $$6-+H:2@},$@,%@0@0@0@@ (}(--(%2A}---(%àϠ͠РՠԠŠҠӠӠɠӠԠŠĠ.--(%/--(%2B}ĠŠӠɠǠΠ2--(%4$d6-H:,$@n+@%@2C}x0@0@@0@@ @$ A-@62D}-+AP'+&@,,68<@,-A$$68<@,-++$,&,%@!68<@,-8<@,68<2E}@,-8<@, $,-@@'',8<@,&@@8<@,J O',A`'/A`2F}AP AT++,8@<@,8@<@,h-@r/8<@,8<@,| 2G}"T:,"" A6-R:,@,F:B2y,"@*!@*!6 Ap@ A **F:B22H}y,"@* @A6"F:B2y,"@* @,+6 A,F:B2y,"@"+, A2I}"@A="@368<@,-8<@,&@= A="@368<@,-8<@2J},%@= A="@368<@,-8<@,&@= A="@368<@,-8<@2K},%@= Aa"@368<@,-8<@,%@W68<@,-8<@,&@a Aa"2L}@368<@,-8<@,%@W68<@,-8<@,%@a Aa"@ 368<@,-8<2M}@,&@W68<@,-8<@,%@a Aa"@368<@,-8<@,&@W68<@2N},-8<@,&@a A AX6-%@b"%@ Al6-&@v"62O}- @',A0'/A0A @,A08<@,$= @,A02P}1/A0A=6-@1,A@'/A@A1@-@(,A@8<@2Q}, ( A  E8<@,$ A;68<@,-@E A%E8<@,A$ A;62R}8<@,-AE A*E8<@,A`$ A;68<@,-AaE A4E8<@,A2S}$ A;68<@,-AE A9#"@ AP# A> " A@ AC! A@ A2T}P! AH) @),8<@,8<@,I///8&@<@,8&@<@,L) @),8<@2U},8<@,M2//8&@<@,8&@<@,2$R) @),8<@,8<@,S///8%@2V}<@,8%@<@,V) @),8<@,8<@,W2//8%@<@,8%@<@,2$z2W}68<@,-8<@,)68<@,-8<@,) A A A@ A0-@2X}TT,A`%+8<@,&A`,$8@<@,8,%8,$8@<@,-@@3N36-A`%+82Y}<@,&A`,$8<@,N6-8,%8,$8<@,/ )!A%6-@/ A !"@,2Z}!6- /   6-+@$,'-+@$,& 6-G:,6-E:,-@&2[}@6-8<@,&A`$$6-8%@<@,&A`8#6-A`%$#6-8,%8,$B36-A`%$2\}36-8%@,%8%@,$L 6-V!A6-A` 6-j!A2]}6-At ,~ /    AP T:,"@A + @0( (0("2^} Construction lines Р-(-(" Change veiwing angle Π-(-(" Go to drawing page Ԡ2_}-(-(" Begin new design Ԡ-(-(" Draw current design Š-(-(" Help 2`} Π1( (1(" ŠˠϠԠ6-R:, F:B2y,"@B@2a}A T:,"A@ AP-"@*!@# @- AP-"@*!@# 2b}@- A`(P"R:,"@*!@, A26-< A`F ApP A52"@A< 2c}APF0( ( (0( Number of lines in currentJ ( ( design is .L/( ( (!( Change to %2d}/ AN AP.( ( (.( Angle of veiw in currentR(((( design is  degrees.T!( ( (!(2e} Change to V A0 AxP @(((<( Do you want a new design (Y/N)@P4NA2f} @ @H( (.( How many construction circles2>6-@H A A @2g}AP# @ @# AP# @ @# A`#!@ Ap# A  AP2h} -@ 6-@& g8<@, @36-@&8<@,C6-P:$G:$,,]68,-8<@,%+&2i},g A1 F6-8<@,&@,6-P:$G:$,,F68,-8<@,&+&,  & $-@6-8<2j}@,&A`68,-P:$G:$,, $%%2@@@-@@-@2k}@ %%2@@ @@-@@ %%2@@0@@ %%2l}2%%2@$X%%2@@@b%%2@2m}@@@l-@@ =%%2>%%2@2n}?$@>8<@,!A168<@,-A; A>$J>8<@, 168<@,-@; A2o}>$T>8<@,!A168<@,-A; A>$(#%%2A@@2#%%2@A2p}@@<#-@@ F#%%2P#%%2@Z#$2q}#-@@3#6-%? #+68<@,-E:,+68<@,-G:,$   $% @6-&%7-@2r}@7((C) SAM SMALL AUG 1983 (V.2)0%2-@@2(:%$' @'((2s}[1] CLOAD and RUN.$'([2] MENU displayed..'GG(?[3] All functions are locked out except 'new design'.8' (2t}[4] Select 'new design'.B'<<(4[5] 'New design Y/N' is displayed for checking.L'MM(E[6] Program creates COS and SIN a2u}rrays for faster circle drawing.V'HH(@[7] Select how many construction circles are required.`'([8] Retur2v}n to MENU.j'**("[9] Drawing page is now available.t'/( (/( ӠΧϠy' F:B2y,@2w}B~' @'(([10] DRAWING PAGE'G(G(< Select which segment to be drawn with fire button.'Q(2x}Q(F Joystick will then 'rubber band' drawing line to the desired'``(X profile. All eight directions are 2y}supported and there are limit checks.'d(d(Y then draws design if other parameters have been2z} entered.'(((( goes back to MENU',(,( ӠΧϠ' F:B2y,@2{}B' @'(([11] MAIN MENU'n(n(b Attempting to 'draw current design' without enteri2|}ng other parameters '(will result in (..(& program asking for these entries. (o(o(c 'Draw 2}}current design' will draw three-dimentional representation of ((drawn profile.(2( ( (22~}( ӠΧϠ#( F:B2y,@Bu(( @2( ( ( ( ([12] PARAMETERS<(P(P(E 2} 'Construction lines' Any number from 1 upwards.F(n(n(c 'Angle of veiw' 0 d2}eg - eye level, 90 deg - overhead.P(:-@@ :( ӠΧҠΠd( F:B2y2},@B@n( A D:CAD0-8kB D3?B4?x'687 X {== = V=)`8 A*B)C(D'E&F%G$H#I"J!K L8L6}8L9LU9L9L9L:LH:Ls:L;L`Y"Ya>Eb>Sc>GW G WL'8Na>Ob> c>GWȍ G WL'8>YY>E>S6}>-HYL'8N>O> >-HYL'8>YY>E>S>HXL'8N>O> >HXL'8 {=Π? = *= >h6}HXYH<jB8jBJlB)  `8 >8 hHXYjBL'8?4? 1? <3?D6} m B. Rotate color during load C. Screen off after load D. Title < ATARI ARCADE 6} >Modify disk parameters: E. Change Drive Number <1 > F. Change density G. Format disk 6} H. Delete *.SYS files Options: I. Disk directory J. Write boot loader program K. Exit to D6}OS} --- TITLE LINE OF MENU ---Enter up to 20 characters usingupper-case letters or numbers orany special characters6} which can bedisplayed in GRAPHICS 1.} --- DISK DIRECTORY ---Insert disk into drive number 1.Then press Π.6}Press Π to continue.} --- CREATE BOOT PROGRAM ---Insert disk in drive number 1.Then press ٠ to continue 6}orpress any other key to abort.}Insert DOS disk and press Π.Press Π to restart.Directory could not be opene6}d.Directory could not be read.Disk could not be formatted.*.SYS files could not be deleted.Could not write to sector 6}Drive could not be configured.D1:*.*D1:*.SYS8GHwDȄ J01|i   ʽ O06}A)=氤  iȩȽ 8 i泥 )i A8@ŰP    C D%C 6}E F CCD ECFD džI Il}?  /l @ Y0} ) ~ Э )6} `%H$H`pppGhpAJatariarcadeWYwDȄ N@   6} Y0ݩ   O Y0R@ Ѝ   Y0ӭ01/:0 1l i 6}  ʽ O0A)=氤  iȩȽ 8 i浥 )i "/ & 8@Ű  6}h i/ X X/01"/   C D%C E F CCD E6}CFD džI IlQ  $/l1R  @ Y0 )  Э  6}`%H$H`,oadingpppGX pA: atariarcade4[[\CRCCCCCCCCC1C1C2C3C19COCOLCUMENSEMDOWAIERDDFABDRCFJBFSCR@@@:}@@@@@ @ @ @! @2 A @AARB&B':}B'!B'7B'`@@A` ``0(( A@ !@:}"@#$C@@c(}C堳88":}VV1,2,3,4,5,7,8,9,11,17,21,32,195,82,712,752,32698,32712,32721,32737,32760,1,1,560:;%,;:},;%,;,"0K::%%2E:&$,&2O6-F:,%AV$F:%,%%:}&-&7%%A&%I&O6-Z6-F:A ,"AU*A ?6.D1:ACEDISK.DOCN6.ACEDISK :}T6-Z % 6-䛼C 6.D1:*.*"67<,.=:,'4%:6-@"C$E 6-&:}&%#6._.67%,.767,.=E&L&(} master menu  DRIVE #*(4%%8(@%F6-L:}6- (67,. 6-% %%%+"B:,&&)$,$>"(>:,)7<,7%<%%,46-&$$+"%,>6-":}$% 6-%6-%"%- &, ( -&((>:@:7%,,%$,, @  &"&:}(@(}RUN/ENTER,gg(_+LOAD rerun menu, miniDOS, printout more, *. files print:} to screen% )6-F:B2y,%6-")"II+"&,%+"%,$%+"A',$%+"AU,$+!%,$&%%I:} %)!%)!$*$I6-%$$+ @W,&&%++!%,,$$B !&6-$&&)67,.7<%,1->7<:},0 B C7%<%,0 !67<,..)6-%=67,.7%<%%,C %9 & +-+( 7,/5:}9%V & )')7"AU*"<GV6-?:AUv,2 (:}ĺ#6-2 &$+F:,",g"6.}ˠ堭36. $#! Rr3c@9A&g(!}Ӻ (1) Unlock (2) :}LockS*("(3) Delete (4) Rename (5) FormatS(#(6) Quit Rerun to MenuT )6-&@HH+ )!%,:}%+"&,%+"A,$%%&T6-@:7,,#!%%6-@:7%,,# &67,.7,$67<,.$:}367<,.067%,.󠨧3$-*6. }Ԡ렭-$ + K (:}(=>#)/(5"K &%@F$+0A,A4%+B:, ,&!-06-7<,4:=6.7$%,A  :}!%E!)"%$4(堧٧;)E%[  6.67&$+!,,.+/@:}67,.DOS.SYSEPU[6-$ $$(塠9  6--$ 9 &%$+F:,!:},%$+",)6-%Ax$6-&!6-) %$D+(#CHOOSE: Enter Merge Return2):"&@D :}% &O &(}NEW8(POKE842,12:GR.0:E.>:%,FAB%L-O&+7,4SYS)7,4COM!.+:} B&%"7,0DOC)7,4 XYGRAF.DOC%$A&%A(}7<%, documentation/ &6-:}$6-F:, (!%/6-( (F:%,  &G --(٠ݠ4)A"$)F:}:,G % %%(} &S 6-P:E6.'}堨 M&S &:}4( }Ǻ*(EF. 46-+ B:, %(E F+ &(( 6-%"#6:}-(( &2 $.( *** ERROR #F:, ***2 f;(%}Πխ堣>:%Av,:}B)P6-&@HV6-`!*f6- 6-6- F((Write 'DOS.SYS' file also? =>/)96-"%F(>::}&%$,@:,%)@:, %6.9$D1:MENU8=R) !"`3!3