@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 ALLOWED154 FREE SECTORS COPYING---D2:TUBES.SCRl# 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, ^ PICFIX graphics utility Version 1.1, 1987 by Bob Duhamel This program isp} intended to be self explanatory. It's main purposes are to: 1. Add color data to uncompressed Micro-Illustratorq} files so they may be loaded by the Atari BASIC Power Pack screen I/O routine called SCRIO. 2. Add text to r}Micro-Illustrator files. 3. Add a "spray paint" effect to Micro-Illustrator files. 4. Dump Micro-Illustrator s}files to a graphics printer. 5. Remove color data from SCRIO files so they may be loaded by Micro-Illustratt}or. The program will also work with any graphics screen created in mode 8 or it's relatives (9,10,11, and 15). If u}you have a split screen picture in one of these modes on the screen, press [BREAK] and run PICFIX in the normal mannev}r. PICFIX will start without affecting the screen. Once PICFIX starts you may manipulate the picture and save it inw} a format compatible with SCRIO or Micro-Illustrator. In the SCRIO format the first byte of each graphics file is thex} graphics mode the picture was created in. The next byte is information for the GTIA chip. The next 9 bytes are the y}color data and the remaining bytes are the graphics data. In the Micro-Illustrator format, always named D:PICTURE, tz}here are only graphics data. If you use Micro-Painter instead of Micro-Illustrator it should be an easy matter to mo{}dify PICFIX to save the color data at the end of the file. Micro Painter saves color 4 (address 712) as the first by|}te beyond the graphics data. The last three bytes are colors 0-2 (708-710). The program is menu driven for easy us}}e. The first thing you see when you run the program is "PRESS [START] FOR MENU". This is to remind you that you can~} usually call up the menu from full screen by pressing [START]. From the menu, Press [OPTION] (or [START]) to rotate} through the options. When you see the option you want press [SELECT]. LOADING AND SAVING ----------}-------- Type in the file name to load or save; D: is optional. To save the file in a format compatible with Micro-}Illustrator always use the file name PICTURE. CHANGING GRAPHICS MODES ----------------------- The options }of GRAPHICS 15 and GRAPHICS 8 alternate depending on which mode you are in at the time. GRAPHICS 15 is used by Micro-}Illustrator. This mode is only accessible with the ATARI 400/800 by changing the display list while in GRAPHICS 8. } CHANGING COLORS --------------- To change colors simply type the number key for the proper register} and use the arrow keys (without the [CTRL] key) to change the color and luminance. Colors 5-8 are only used in GRAP}HICS 10 where the color registers are different from any other mode. For GRAPHICS 10 only (GTIA=128) colors 5-8 are re}ally colors 0-3 and colors 0-4 are really colors 4-8. To activate and change the GTIA chip press [G]. In BASIC the} GTIA chip is active in graphics modes 9, 10 and 11. To rotate through modes 8 through 11 put the computer in graphic}s 8 and press [G] from the color menu. The number in the GTIA register will change as you rotate through the modes. } 0 is mode 8, 64 is mode 9, 128 is mode 10 and 192 is mode 11. SPRAY PAINT ----------- The} spray paint feature is a separate file on the disk called SPRAY. To use this feature press [BREAK] with the menu on t}he screen. Type ENTER "D:SPRAY to merge the spray paint file with PICFIX then re-run the program. Once SPRAY has be}en merged the spray option will appear in the color menu. Use a touch tablet to spray in the current color. The spr}ay paint routine is written for the ATARI Touch Tablet. The multiplication factors in lines 2030 and 2040 may need t}o be changed from 1.636 and 0.9631 to work with other tablets. ADDING TEXT ----------- To }add text simply type in up to 40 characters of text and press [RETURN]. next give the position when asked and the text} will appear on the screen. The text is "blended" (Exclusive ORed) with the graphics so it can be easily moved witho}ut wrecking the picture. To make the text more readable press [SELECT] when you have it where you want it. Move the} text by pressing the arrow keys repeatedly for the number of spaces to move, then press [RETURN]. If you want to see }the full screen while moving text, press [F] first. Press [W] to get the text window back. To have readable text in} any mode other than mode 8 you must first load a custom character set. Custom C-sets for this purpose are too compl}icated to discuss here. A C-set for graphics 15 named ANTIC4.FNT is provided on the disk. To get different colors w}ith this C-set use upper-case letters for one color, lower-case letters for the next and control characters for the t}hird. DUMP TO PRINTER --------------- The graphics dump uses the simple Epson sideways format. }It should work with any Epson compatible printer. DISK DIRECTORY -------------- This option wi}ll display all of the files on the disk, six at a time. FULL SCREEN ----------- This option} removes the text window from the bottom of the screen. To get the window back press [START]. BREAK KEY RECO}VERY ------------------ Should you have to press the break key (to stop a printer dump, Etc.) type GOTO SELEC}T [RETURN] to return to the menu.ould you have to press the break key (to stop a printer dump, Etc.) type GOTO SELEC%''ANTINUFONCSECSETTEXTGTIDLIOCOUNMISWINDOBLINBUTTOSELECCOLREHULUCOLGTIMISCTESTTTGFNRG}BUFBFSIOERRODLISSCNDMCATLOGR1GR3GRGR2FNFIRDSCWRSCGETDMPSCNERECODETGRESCCOROSCHINADSCRNU@}ABsD== (AA@@D B B B` B @}@@d@f (B[ @@B0AwSS} B!B(H"Bp#B0$B@%BF&BP'BU(B)B*B +@,S-w.../}0(1::2A3456789:;AgPICFIX 1.0$ B}$--- 1986 Bob DuHamel [6-@6-A26-F:AV,$AVJ;A$,;@@,[67A$,.6-}A6-A%-AVAv"!% +A'A@+ RR72,141,10,212,169,0,}141,27,208,169,202,141,23,208,169,148,141,24,208,104,64,Z( !(}RESS FOR MENU((c A@d̠}Λn  Πכ  ,Šӛ6 (}@(0 - 8   GJ))(!OLOR}UIT HUELUMGTIAO56-F:A%,%6-P:'@,56-&$@T''(   ^FA}@d'A9AdAUF)@`"@q Ab"@ APd5"@B}6-%@)!@56-f5"@C6-&@) 56-@h5"@a6-&@)} 56-@j5"@E6-%@)!@56-l=!@G* @S'6-&@H-6-36-}= A5mE!@R* @W'6-&@H-6-;6-&@ E A5n+6-$@%!A%+ A5}86-F:A#, 6-%@d,!A86-A#A A5ĠԛF 6.6-@}=("}ENTER TEXT CUSTOM SETF(33F:B2y,"@*F:Ad,"AUA&F:B2y,@} & A$)@$"AUAP"AT6-&A(I"A&*B:,!)67B:,,.76}-&@?(>:,I A B(>:,67<,.>:,+6-%@BB:, @@A &L$(}ENTER HORIZONTAL POSI}TION (H(ENTER VERTICAL POSITION L0+6-@6-6- %6-+6-XŠԛbBAdAU}B((}  PRESS NlY.(&RASE SOLID MORE MOVE TIMES THENY(&UIT ULL SCREEN INDOW} v2F:B2y,@$6-( 2 A@xSF:Ad,AU*A<A@dI)}@S AF{ A0"@  AM"@6-!6-'6-+ 16-76-C6-@}M A05"@6-6- %6-+6-5 A05"@E6-&@) 56-}"@6. 6.5"@a6-%@)!@#56-@#"@p6. 6.5"@C}6-&@) 56-5"@B6-%@)!@956-@9"@ APA}U A0-  6-6- 6-#6-- A0  ԛ*+(} +(TARI LOAD/$F:B}2y,@$ %@4* "@'6-A$$AV*$>GAdAU-(}FILE NAME OF CSET1G67B:},%@,.HI6-@6-@$6-C:,06-A$I6-?:C:,u6-BAu6-B@6-BFBu6-BP}6-BUCu6-BDu6-B`Fu6-B6-BHu6-Bu'6-B6-B '6-@}uàŠӛu##@@K:u;@,u;@,6.00:00:00u;@(,}u+;@F,;A,+67A,.u;@@,u;A ",;A,umm6.c00000000102103305207208411013}2142157191206228242268281289314331355366000000000000000366382387406417upp67A,.]433457473483495512527538549569594626}638669694711000000000000000000000000000000000711731751761u..67A,.789810826850862878893908922u;@X,u}Šӛu]]6.ShpBhEhDhhJK Vhhhhhh`phhBhEhDhIhH V B VHԽI`u886..hhh}hhhhϢEϑ8(˥`vpp6.fINSUFFICIENT MEMORY VALUE ERROR TOO MANY VARIABLES STRING LEGNTH ERROR OUT O}F DATA NUMBER GREATER THANvtt67A,.a 32767 INPUT STATEMENT ERROR DIM ERROR STACK OVERFLOW FLOATING POINT OVERFLOW/UN}DERFLOW LINE NOT vll67A,.YFOUND MISSING FOR STATEMENT LINE TOO LONG GOSUB OR FOR LINE DELETED RETURN ERROR GARBAGE }vtt67A,.aINVALID STRING CHARACTOR PROGRAM TOO LONG DEVICE NUMBER TOO LARGE FILE ERROR BREAK KEY ABORT IOCBvtt67}A,.a NONEXISTANT DEVICE WRITE ONLY INVALID COMMAND DEVICE OR FILE NOT OPEN BAD IOCB NUMBER READ ONLY vii67A,.}VEND OF FILE TRUNCATED RECORD DEVICE TIMEOUT DEVICE NAK SERIAL BUS CURSOR OUT OF RANGE vXX67Ai,.ESERIAL BUS FRAME OV}ERRUN SERIAL BUS FRAME CHECKSUM ERROR DEVICE DONE  vpp67A8,.]READ AFTER WRITE COMPARE ERROR FUNCTION NOT IMPLEMENTED }INSUFFICIENT RAM DEVICE NUMBER ERROR  vrr67A1,._TOO MANY OPEN FILES DISK FULL FATAL SYSTEM DATA I/O ERROR FILE NUMBER} MISMATCH FILE NAME ERROR  vtt67A&,.aPOINT DATA LEGNTH ERROR FILE LOCKED COMMAND INVALID DIRECTORY FULL FILE NOT FOUN}D POINT INVALID vMM67@,.:hhhhhhhhhТIAˁi(ː`[v$\v8 6-F:A,"}!A06-&A8қ^vU6-@%$@?6-A:7%@<%@,,&@U6-A:7<%@,,`v$ (}}(7<,$( PRESS ANY KEYav6-A:7@<@,,bv)@cv67@<@,.0dv fv'AF:A} G,#@' v/ (},( FOR NEXT ITEM OR /(v;(LOAD SCREEN ! -"@1 ; A}v;(SAVE SCREEN ! -"@1 ; Av"@ %@v=(GRAPHICS 8 ! -}"@96-@= v"@ %@v=(GRAPHICS 15 ! -"@96-@= v7(CHAN}GE COLORS ! -"@7 AvA(ADD TEXT ! -"@7 AA Av;(DUMP TO P}RINTER ! -"@1 ; Av1(DIRECTORY ! -"@1 v7(FULL SCREEN ! -}"@7 Av %@w=#@@P:4(@A=ЛwT6-$(}}inverse8( normal< H"@T6-AUw--6-F:@,%AV$F:@,%Av@ w-%@9 w6}-?:C:,<}A%F:%@%,B +w"@ @,wJA#  (26.D:B( FILE NAME}FJ -wC4 D:PICTURE!6-%@/6-&@CҠϠԮ.wO6-?:C:,+@%@%@2Eҳw %@w<6-Ag$F:@, @6+@%@}2<Ҹw776-?:C:%hhhϭ0˭1̠ ))@ϐ`,<,w   $wE6-A$F:@, @>+@%@}%@2EҲw %@w%F:B2y,"@ %Λw$F:B2y,"@$6-@w$F:B2y,"}@$6-@w$F:B2y,"@$6-@w$F:B2y,@$ %@w$w6-@`כw4}-@@ 067<,.>:F:A%,,4 w"@"@S:w/A#"@` +"@}/ wK-@@ -A%@:7<,,1 G"@D*"@K w   $w#6-@D %@#ě}w 4 $؛wB:,"@ %@w7@<@,4:$w.B:,!@+7@<@,4:}.$w$ 6.D:67@,.!6.$$ D1:PICFIX7@<@,4:$w.B:,!@+7@<@,4:8330 ? "OLORUIT PRAYHUELUMGTIA"355 IF K=83 THEN GOTO 20002000 REM * PAINT *2010 GOSUB BLIND2012 MIS}C$="":IF COLR=1 THEN MISC$=""2014 IF COLR=2 THEN MISC$=""2016 IF COLR=4 THEN MISC$=""2020 IF PEEK(53279)<>7 THEN G}OSUB WINDOW:GOTO 3002025 IF PADDLE(0)>220 OR PTRIG(0)=1 AND PTRIG(1)=1 AND STICK(0)=15 THEN 20202030 X=INT((PADDLE(0)-19)*1}.636):IF X>314 THEN X=3142035 IF X<5 THEN X=52040 Y=INT(191-(PADDLE(1)-19)*0.9631):IF Y<5 THEN Y=52050 IF Y>186 THEN Y=186}2060 IF ABS(H-X)>20 OR ABS(V-Y)>20 THEN H=X:V=Y:GOTO 20202070 FOR COUNT=1 TO 4:MISC=RND(0)*10:H=X-5+MISC:V=Y-5+RND(0)*10:H=}INT(H/2)*2:POSITION H,V2080 ? #6;MISC$;:NEXT COUNT:H=X:V=Y2090 GOTO 2020 TO 4:MISC=RND(0)*10:H=X-5+MISC:V=Y-5+RND(0)*10:H=K2000 REM * PAINT *2010 COLOR 1:DIV=25:OFS=52020 IF PADDLE(0)>220 THEN 20202030 X=(PADDLE(0)-19)*1.636:IF X>314 THEN X=314}2040 IF X<5 THEN X=52050 Y=191-(PADDLE(1)-19)*0.9631:IF Y<5 THEN Y=52060 IF Y>186 THEN Y=1862070 IF PEEK(53279)<>7 THEN GO}TO SELECT2080 FOR I=1 TO 4:PLOT X+(INT(PEEK(53770)/DIV)-OFS),Y+(INT(PEEK(53770)/DIV)-OFS)2090 NEXT I2100 OLDX=X:OLDY=Y211}0 GOTO 202080 FOR I=1 TO 4:PLOT X+(INT(PEEK(53770)/DIV)-OFS),Y+(INT(PEEK(53770)/DIV)-OFS)2090 NEXT I2100 OLDX=X:OLDY=Y211 F0@@@@@A@@ }@@@@@ }D@DP@@AE }@@@P@@@PPP@A }@@@@P@@@@ }@P@@@@@@D@@@ }@@A@@ }@D@@@@@E@!}@@@U@@@!}@@@P@@@D@@@!}@@P@T@@A@@P@!}P@@PD@P@@@A@D!}@PPPA@@P@@@@!}@D@D@PD@T@!}@@@P@@@@@T!}@PP@D@@P@A@@!}@@@@@P@@D@! }D@@T@P@@U! }@TPU@P@@TPP@@@U@QUD! }@@P@UTPQDP@PUUUTUU@@@UQ@DUU! }E@PUP@PTTPEU@@PUQUPPEP@@@@QUUU@P@! }@UUU@PPQQ@DPPP@@@AAUE@P@AA!}UE@EUUTAUU@@@TUQDUAU@@P@U@TUUPUP@@!}PPPUUDP@@@@@@@@!}P@@PD@P@@@DD!}U@@@@@@A@P@@!}@E@@P@P@@@@P@@@@!}@@@@@@@@@@P@@@!}@@DP@@D@@@@P!}@@@@A!} @DD@@0$!}@@ԚZ!}*Z(*PZ (*IZ!}*aZ**"(Ij*%j!}*j***( jj**U**(!}(Uj* ( j** "Zj**!}** * ***(**!} *"*******(!}* ** **!} **( ***  ! }*  * **!!} *  !"}* *(*!#}**(** ** *!$} *** *!%}* * * *!&}** *** !'}* *****!(}*****!)} *!*}* * *!+}****   *!,} * * ** !-}* *** !.}(******!/}  !0}  * **!1}***!2}**( !3}***!4} !5}  R@(ʔF %7}%8} e@4V e@4Vx %9}˩e@4Vx˩e@4Vx˩e@4Vx˩e@%:}4Vx˩e@4Vx˩e@4Vx˩e@4Vx%;}C˩e@4VxC4e@4VweC4V4Vwe@4eC4Vx%<}4Vx˩eC4Vx4Vx˩eC4Vx4Vx˩eC4Vx%=}4Vx˩eC4Vx4Vx˩eC4Vx4Vx˩eC4Vx%>}4Vx˩eC4VxC4Vx˩eC4VxC4Vx˩eC4VweC4V%?}4Vx˩eC4eC4Vx4Vx˩eC˩eC4Vx4Vx˩eC˩eC4Vx%@}4Vx˩eC˩eC4Vx4Vx˩eC˩eC4Vx4Vx˩eC˩eC4Vx%A}4Vx˩eC˩eC4Vx4Vx˩eC˩eC4VxC4Vx˩eC˩eC4VxC4Vx%B}˩eC˩eC4VweC4V4Vx˩eC˩eC4eC4Vx4Vx˩eC˩eC˩eC4Vx4Vx˩e%C}C˩eC˩eC4Vx4Vx˩eC˩eC˩eC4Vx4Vx˩eC˩eC˩eC4Vx4Vx˩eC˩e%D}C˩eC4Vx4Vx˩eC˩eC˩eC4Vx4Vx˩eC˩eC˩eC4VxC4Vx˩eC˩eC˩e%E}C4VxC4Vx˩eC˩eC˩eC4VweC4V4Vx˩eC˩eC˩eC4eC4Vx4Vx˩eC˩eC˩eC˩e%F}C4Vx4Vx˩eC˩eC˩eC˩eC4Vx4Vx˩eC˩eC˩eC˩eC4Vx4Vx˩eC˩eC˩eC˩eC4Vx%G}4Vx˩eC˩eC˩eC˩eC4Vx4Vx˩eC˩eC˩eC˩eC4Vx4Vx˩eC˩eC˩eC˩eC4VxC%H}4Vx˩eC˩eC˩eC˩eC4VxC4Vx˩eC˩eC˩eC˩eC4VweC4V4Vx˩eC˩eC˩eC˩eC4eC4Vx%I}4Vx˩eC˩eC˩eC˩eC˩eC4Vx4Vx˩eC˩eC˩eC˩eC˩eC4Vx4Vx˩eC˩eC˩eC˩eC˩eC4Vx4Vx%J}˩eC˩eC˩eC˩eC˩eC4Vx4Vx˩eC˩eC˩eC˩eC˩eC4Vx4Vx˩eC˩eC˩eC˩eC˩eC4Vx4Vx˩e%K}C˩eC˩eC˩eC˩eC4VxC4Vx˩eC˩eC˩eC˩eC˩eC4VxC4Vx˩eC˩eC˩eC˩eC˩eC4VweC4Vx˩eC˩e%L}C˩eC˩eC˩eC4eC4Vx˩eC˩eC˩eC˩eC˩eC˩eC4Vx˩eC˩eC˩eC˩eC˩eC˩eC4Vx˩eC˩eC˩e%M}C˩eC˩eC˩eC4Vx˩eC˩eC˩eC˩eC˩eC˩eC4Vx˩eC˩eC˩eC˩eC˩eC˩eC4Vx˩eC˩eC˩eC˩e%N}C˩eC˩eC4Vx˩eC˩eC˩eC˩eC˩eC˩eC4Vx˩eC˩eC˩eC˩eC˩eC˩eC4Vx˩eC˩eC˩eC˩eC˩e%O}C˩eC4Vx˩eC˩eC˩eC˩eC˩eC˩eC4Vx˩eC˩eC˩eC˩eC˩eC˩eC4Vx˩eC˩eC˩eC˩eC˩eC˩e%P}C4Vx˩eC˩eC˩eC˩eC˩eC˩eC4Vx˩eC˩eC˩eC˩eC˩eC˩eC4Vx˩eC˩eC˩eC˩eC˩eC˩eC%Q}4Vx˩eC˩eC˩eC˩eC˩eC˩eC4Vx˩eC˩eC˩eC˩eC˩eC˩eC4Vx˩eC˩eC˩eC˩eC˩eC˩eC4Vx%R}˩eC˩eC˩eC˩eC˩eC˩eC4Vx˩eC˩eC˩eC˩eC˩eC˩eC4Vx˩eC˩eC˩eC˩eC˩eC˩eC4Vx˩e%S}C˩eC˩eC˩eC˩eC˩eC4Vx˩eC˩eC˩eC˩eC˩eC˩eC4Vx˩eC˩eC˩eC˩eC˩eC˩eC4Vx˩eC˩e%T}C˩eC˩eC˩eC˩eC4Vx˩eC˩eC˩eC˩eC˩eC˩eC4Vx˩eC˩eC˩eC˩eC˩eC˩eC4Vx˩eC˩eC˩e%U}C˩eC˩eC˩eC4Vx˩eC˩eC˩eC˩eC˩eC˩eC4Vx˩eC˩eC˩eC˩eC˩eC˩eC4Vx˩eC˩eC˩eC˩e%V}C˩eC˩eC4Vx˩eC˩eC˩eC˩eC˩eC˩eC4Vx˩eC˩eC˩eC˩eC˩eC˩eC4Vx˩eC˩eC˩eC˩eC˩e%W}C˩eC4Vx˩eC˩eC˩eC˩eC˩eC˩eC4Vx˩eC˩eC˩eC˩eC˩eC˩eC4Vx˩eC˩eC˩eC˩eC˩eC˩e%X}C4Vx˩eC˩eC˩eC˩eC˩eC˩eC4Vx˩eC˩eC˩eC˩eC˩eC˩eC4Vx˩eC˩eC˩eC˩eC˩eC˩eC%Y}4Vx˩eC˩eC˩eC˩eC˩eC˩eC4Vx˩eC˩eC˩eC˩eC˩eC˩eC4Vx˩eC˩eC˩eC˩eC˩eC˩eC4Vx%Z}˩eC˩eC˩eC˩eC˩eC˩eC4Vx˩eC˩eC˩eC˩eC˩eC˩eC4Vx˩eC˩eC˩eC˩eC˩eC˩eC4Vx˩e%[}C˩eC˩eC˩eC˩eC˩eC4Vx˩eC˩eC˩eC˩eC˩eC˩eC4Vx˩eC˩eC˩eC˩eC˩eC˩eC4Vx˩eC˩e%\}C˩eC˩eC˩eC˩eC4Vx˩eC˩eC˩eC˩eC˩eC˩eC4Vx˩eC˩eC˩eC˩eC˩eC˩eC4Vx˩eC˩eC˩e%]}C˩eC˩eC˩eC4Vx˩eC˩eC˩eC˩eC˩eC˩eC4Vx˩eC˩eC˩eC˩eC˩eC˩eC4Vx˩eC˩eC˩eC˩e%^}C˩eC˩eC4Vx˩eC˩eC˩eC˩eC˩eC˩eC4Vx˩eC˩eC˩eC˩eC˩eC˩eC4Vx˩eC˩eC˩eC˩eC˩e%_}C˩eC4Vx˩eC˩eC˩eC˩eC˩eC˩eC4Vx˩eC˩eC˩eC˩eC˩eC˩eC4Vx˩eC˩eC˩eC˩eC˩eC˩e%`}C4Vx˩eC˩eC˩eC˩eC˩eC˩eC4Vx˩eC˩eC˩eC˩eC˩eC˩eC4Vx˩eC˩eC˩eC˩eC˩eC˩e@%a}4Vx˩eC˩eC˩eC˩eC˩eC˩e@4Vx˩eC˩eC˩eC˩eC˩eC˩e4Vx˩eC˩eC˩eC˩eC˩eC˩`4Vx%b}˩eC˩eC˩eC˩eC˩eC˩4Vx˩eC˩eC˩eC˩eC˩eC4Vx˩eC˩eC˩eC˩eC˩eC4Vx˩e%c}C˩eC˩eC˩eC˩eC4Vx˩eC˩eC˩eC˩eC˩eC4Vx˩eC˩eC˩eC˩eC˩eC4Vx˩eC˩e%d}C˩eC˩eC˩e@4Vx˩eC˩eC˩eC˩eC˩e@4Vx˩eC˩eC˩eC˩eC˩e4Vx˩eC˩eC˩e%e}C˩eC˩`4Vx˩eC˩eC˩eC˩eC˩4Vx˩eC˩eC˩eC˩eC4Vx˩eC˩eC˩eC˩e%f}C4Vx˩eC˩eC˩eC˩eC4Vx˩eC˩eC˩eC˩eC4Vx˩eC˩eC˩eC˩eC%g}4Vx˩eC˩eC˩eC˩e@4Vx˩eC˩eC˩eC˩e@4Vx˩eC˩eC˩eC˩e%q}B%DOS SYSB*)DUP SYSB SAUTORUN SYSB_HELP DOCB/oPICFIX DOCBPPICFIX BSPRAY BSPRAY 8 B>OCEAN SCRB>6TUBES SCRB.}PLOTIT DOCBUPLOTIT BBARPLOT RUTBDATA BMAKEDATA 4Vx˩eC˩eC˩eC˩`4Vx˩eC˩eC˩eC˩4Vx˩eC˩eC˩eC%r}4Vx˩eC˩eC˩eC4Vx˩eC˩eC˩eC4Vx˩eC˩eC˩eC4Vx%s}˩eC˩eC˩eC4Vx˩eC˩eC˩e@4Vx˩eC˩eC˩e@4Vx˩e%t}C˩eC˩e4Vx˩eC˩eC˩`4Vx˩eC˩eC˩4Vx˩eC˩e%u}C4Vx˩eC˩eC4Vx˩eC˩eC4Vx˩eC˩eC%v}4Vx˩eC˩eC4Vx˩eC˩e@4Vx˩eC˩e@%w}4Vx˩eC˩e4Vx˩eC˩`4Vx˩eC˩%x}4Vx˩eC4Vx˩eC4Vx˩eC%y}4Vx˩eC4Vx˩eC4Vx˩e@%z}4Vx˩e@4Vx˩e4Vx˩`Vx%{}˩%|}$R PLOTIT ====== An easy graph drawing utility Version 1.1, 1987 by )~}Bob Duhamel This program is intended to be self explanatory. When you first run the program it will ask you for a )}file name to plot. Give either a disk file name (D: is optional) or C: for cassette. The data must be on disk or ca)}ssette in an X,Y,X,Y,X,Y,X,Y, Etc. format. The data file must be terminated with an End-of-File character. This happe)}ns automatically when you close a channel after creating a file in BASIC. The program will read the data twice, ther)}efore you must rewind the cassette or save the file twice if you are using the cassette recorder. The file is read f)}irst to find the range of numbers and then to plot the data. The following simple program (also included on this dis)}k) will create a data file to plot: 5 TRAP 60 10 OPEN #1,8,0,"D:DATA" 20 FOR X=-10 TO 10 STEP .5 30 Y=1/X 40 ?#1)},X:?#1,Y 50 NEXT X:CLOSE #1:END 60 Y=99E-99:REM bad data, don't plot 70 GOTO 50 Lines 5,60 and 70 are needed )} because 1/0 is mathematically illegal. You can change lines 20 and 30 to get different numbers to plot. For example )}you could make X 0 to 360 and Y the sine of X (be sure to give the command DEG for degrees). You may have data plott)}ed as you type it in. To do this type K: [RETURN] when asked for a file name. Next type in the highest X coordinate)} you will plot followed by the highest Y coordinate. Nothing will appear on the screen until the Y coordinate is typed)}. Next type the lowest X and Y coordinates followed by [CTRL][3]. When the grid is drawn start typing the X and Y co)}ordinates for the points to plot. The graph will be drawn as each pair of coordinates is typed in. After the graph )}is drawn a list of options appears. If you want to abort the drawing of the graph and go directly to the options men)}u, press [SPACE] while the numbers are being printed on the screen. OPTIONS ------- [L]I)}NES tells the program not to draw lines between points. To draw lines between points press [L] again. [G]RID tells )}the program to draw a grid for the graph. To remove the grid press [G] again. [B]ORDER will remove the border fro)}m the graph. To redraw the border press [G] again. [Z]ERO adds emphasized lines marking zero points. To remove the)} zero lines press [Z] again. [D]UMP TO PRINTER dumps the graph to an epson compatible printer. [F]ULL SCREEN removes )}the text window at the bottom of the screen. [W]INDOW replaces the window. [CTRL][N] Will ask for a new data file)} to be plotted. [C]HANGE Takes you to a menu to change the size and location to the graph. When the change menu ap)}pears press the first letter of the boundary you wish to move, such as [T] for top. An arrow will appear under the b)}oundary you are to move. Use the up/down arrows to change the numbers. Remember that for the top and bottom boundar)}ies 0 is the top of the screen and 190 is the bottom. Press [P] to replot the graph. The save format is compatible )}with SCRIO from the Atari BASIC Power Pack. The first byte of the file is the graphics mode the graph was created in ()}mode 8). The next byte is information for the GTIA chip (0). The next 9 bytes are the color register data and the r)}emaining bytes are the graphics data. Although the file name D:PICTURE may be used to save in the Micro-Illustrator )}format the screen will probably not look good in graphics 15. The screen dump uses Epson protocol for a simple side)}ways printout. If you have my graphics utility called PICFIX you can use it to change colors and add text to the g)}raph. If you want to add text and don't have PICFIX: Break the program while the window is on the screen. Put up t)}o 40 characters of text into MISC$. Make X equal to the horizontal position and Y equal to the vertical position. )} Make MIX equal to 1 to blend the text and graphics, making erasure possible. Give the command GOSUB TGR. To erase )}the text repeat the command GOSUB TGR without changing any parameters. If you don't want to blend the text and graph)}ics make MIX equal to 0. If you have PICFIX you don't have to save the graph to use it. With the text window on the )} screen press [BREAK]. Next put the disk with PICFIX in the drive and type RUN "D:PICFIX. BAR GRAPHS )} ---------- The disk file BARPLOT adds vertical bar graph capability to PLOTIT. To use BARPLOT type ENTER ")}D:BARPLOT to merge it with Plotit then type RUN [RETURN]. New options appear before you are asked for a file name to p)}lot. THIN BARS -Plots in ome pixel wide bars. WIDE BARS -Plots in 9 pixel wide bars. HOLLOW BARS -Same as w)}ide bars except it does not fill in the bars. THREE COLORS OF BARS -Alternates between black, yellow and blue wid)}e bars. THREE COLORS PER BAR -Plots in bars of three colors, each color representing different but related data. )}It requires the data file to be in the form of X,Y,Y,Y,X,Y,Y,Y, Etc. COLUMNS -Plots three dimensional square c)}olumns. FLAT -Normal flat bars When BAEPLOT is used the option... [T]YPE appears in the option menu. This )}option changes the type of graph being ploted. After changing the type of graph, press [C] to goto the change menu, th)}en [P] to replot the graph.h being ploted. After changing the type of graph, press [C] to goto the change menu, th(-.v**DFNLEFRIGHTOBOTTOOLDLLOWOLDHHIGHOLDLLOWOLDHHIGHFRAMGRICONECZLINXINYINXRANGXWIDTXFACXOFYR-}ANGYWIDTYFACYOFYLINXLINCOUNMISMISCTGOLDWINDOERROSCNDMBLINWRSCMAMITEMRDSCGIOFNDMPSCNTGRSCCORG-}BUFBFSGTIROCSESCHADSCREOFNFIERECODEEMENECODEZASM-} -} !"#$%&-}'()*+,-./0123456-}789:;<=>?@ABCDE-}FGHPLOTIT 1.1$ B$(c) 1986 Bob DuHamel ;@(,6-@Q6-A6-}-@ 6-A@( A- 6-6-2 6-6-<36-@6-'6-@36-@c36--}6-!6-'6--6-36-dŠӛn% 6-&6-&6-'%6-&$x-" A-}# A- A% 6-&6-&6-'%6-&$-" A# A- Aנěe-} +@$@10@@K0@@e0@@-"@,/-}!/'/-/"@6-6-+"6-%@+6-&@ -6-$%-},/ !!!) AQ")"',&@5/&@C,%@Q/%-}@Q"@)"@',&@5/&@C,%@Q/%@ -6-+$%,-},/ "!!!) A'Q")"',%@5/%@C,&@Q-}/&@)Q"@)"@',%@5/%@C,&@Q/&@, AԠ65-}@+@@5 Ap@+@@+,$%$%J@@LG1+-}" )" ,*+"@)"@,=6-@G A0N%+" )" ,% A0T"@/$%-}$%^@,$%$%`"@6-@h A0r@ AԠÛ26-O:@-}$+@',,2 @AP6-@6-$(6-$@!%6-$@P($(6-$@P-}!%6-$@($(6-$@!%6-$@($ A"&6-?P #6-$@&$(6-'@-}P %6-$@($(6-'@ %6-$@($(6-'@ %6-$@($ AR-}ԠÛ26-O:@$+@',,2 @AP6-@6-$ (6-$@!%6-$@P-}($ (6-$@P!%6-$@($(6-$@!%6-$@($ A"&&6-?P #6--}$@&$((6-'@P %6-$@($*(6-'@ %6-$@($,(6-'@ %6-$@-}($0 ARXԠ؛]"Ab#6-#!APl 6-&!A v 6-}- A 6-%AP 6-&Ԡ؛#6-# AP"$ -}6-% A  6- $ 6-&AP 6-%$ Ԡٛ%"A *#6--}#!AP4 6-&!A > 6- A R 6-%AP\ 6-&Ԡٛ#6-}-# A P"$ 6-% A  6- $ 6-&A P 6-%$-}Ҡ/!(ENTER FILE NAME TO PLOT %) /6.5 A@5@@L@-}@#6-)6-/6-56-8(C(XYF(L(@@ ( !6-  -} 6-  !6-  6- A0B* F:A,"A6'@*$K@ L̠-}ěV( -6-$%(6-P:'@,` 6.=:,jA)6-P:+$%,'@,&+B:,%@,5 @A6-@o -}F:Ad,AUAt   y6-~0 -6-$%&@06-P:'@, 6.=:,2 6-@-}%&+B:,'@,. %@2 %B:,!@8$:"6-@%P:+$%,'@,.!@#:6-@#-}"*!@!  F:Ad,AUA  6-  $ ӛ.@.@@-}K: U.(&}RINT AVE EW DATAU("FULL SCREEN INDOW RID ORDER**("HANGE SIZE -} INES ERO8 A@d+AdAU8)@#"@+# @@"@-}  A0"@g A"@p  A@#"@(} # A "@ A-} A"@q6-@)6-%@5!@A6-A"@f6-@)6-%@5!@A6-}-A"@v6-@)6-%@5!@A6-A"@6-@)6-%@5!@-}A6-"@@ A@ŠΛ( }RAR@'-@@ -}R(&OP OTTOM EFT IGHT"3-@@!3(    $ (&-(-(" -}MOVE  X10 LOT(8 A@d+AdAU8)@2f"@!-@@"6(-}   <6-J6-&@V6-@\6-f A 4f"@f!-@@"6(   <6-H6-}-AV6-%@\6-f A 6f"@v!-@@"6(   <6-J6-&@V6-@-}\6-f A 8]"@!-@@"5(   ;6-G6-AM6-S6-] A 9Q"@-}!AR/6-%@;!@G6-Q @:+"@!AR+ @<!"@E*-} !6-%@>!"@a*!!6-&@@)"@(* &@)6-%@B)"@)*!%@)6-&-}@F"@6-H"@f6-J"@v6-L"@6-wG-@@!3(  -}   =(G A 0uΛ4u6-B 6u6-Bp>u6-BFu6-B6--}BHu6-Bu'6-B6-B '6-@uàŠӛu##@@K:-}u;@,u;@(,u+;@@,;A,+67A,.u;@@,u;A ",;A,umm6.-}c000000001021033052072084110132142157191206228242268281289314331355366000000000000000366382387406417upp67A,.]433457-}473483495512527538549569594626638669694711000000000000000000000000000000000711731751761u..67A,.7898108268508628788-}93908922u;@H,uŠӛu]]6.ShpBhEhDhhJK Vhhhhhh`phhBhEhDhIhH V B -}VHԽI`u;;67@,.(hhhhh͢ˑ8(˥`vpp6.fINSUFFICIENT MEMORY VALUE ERROR TOO MANY VA-}RIABLES STRING LEGNTH ERROR OUT OF DATA NUMBER GREATER THANvtt67A,.a 32767 INPUT STATEMENT ERROR DIM ERROR STACK OV-}ERFLOW FLOATING POINT OVERFLOW/UNDERFLOW LINE NOT vll67A,.YFOUND MISSING FOR STATEMENT LINE TOO LONG GOSUB OR FOR L-}INE DELETED RETURN ERROR GARBAGE vtt67A,.aINVALID STRING CHARACTOR PROGRAM TOO LONG DEVICE NUMBER TOO LARGE FILE ER-}ROR BREAK KEY ABORT IOCBvtt67A,.a NONEXISTANT DEVICE WRITE ONLY INVALID COMMAND DEVICE OR FILE NOT OPEN BAD IOCB NU-}MBER READ ONLY vii67A,.VEND OF FILE TRUNCATED RECORD DEVICE TIMEOUT DEVICE NAK SERIAL BUS CURSOR OUT OF RANGE vXX-}67Ai,.ESERIAL BUS FRAME OVERRUN SERIAL BUS FRAME CHECKSUM ERROR DEVICE DONE  vpp67A8,.]READ AFTER WRITE COMPAR-}E ERROR FUNCTION NOT IMPLEMENTED INSUFFICIENT RAM DEVICE NUMBER ERROR  vrr67A1,._TOO MANY OPEN FILES DISK FULL FATAL -}SYSTEM DATA I/O ERROR FILE NUMBER MISMATCH FILE NAME ERROR  vtt67A&,.aPOINT DATA LEGNTH ERROR FILE LOCKED COMMAND INV-}ALID DIRECTORY FULL FILE NOT FOUND POINT INVALID vCC67@,.0hhhhhhhϢAˁi(ː`[v$\-}v8 6-F:A,"!A06-&A8қ^vU6-@%$@?6-A:7%@<%@,,&@U6-A:-}7<%@,,`v'( ( ((7<,'( PRESS ANY KEYbv*6-A:7@<@,,*)@dv&67@<@,.0&-} Afv*AF:A G,&( I/O ERROR* w=#@@P:4(@A=Лw--6-F:@-},%AV$F:@,%Av@ w-%@9 w6-?:C:,<A%F:%@%,B ,w2(6..( FILE NAM-}E2-wC4 D:PICTURE!6-%@/6-&@CҠϠԮ.w6-?:C:,:F:A%,,4 w"@"@S:w4-@@ -A%@:7<,,1 4$w#6-@D -}%@#ěw 4 $؛wB:,"@ %@w7@<@,4:$w$ 6.D:67@,.-}!6.$$ D1:PLOTIT $؛wB:,"@ %@w7@<@,4:$w$ 6.D:67@,.,1 REM PLOTIT 1.1 PLUS BARGRAPH AND2 REM THREE COLOR BARS5 GOSUB 30000:REM (c) 1984 BOB DUHAMEL35 GOSUB SELECT36 WIDE=3:IF2} SPEC>1 AND SPEC<3 AND RIGHT+WIDE>318 THEN RIGHT=318-WIDE60 FRAME=0:GRID=0:CONECT=1:ZLINE=0225 IF SPEC>1 AND SPEC<3 THEN SA2}VL=LEFT:LEFT=LEFT-3*WIDE:IF LEFT<1 THEN LEFT=1300 GOSUB 1100:IF SPEC<>0 THEN GOTO 2000:REM Ԡ1025 IF SPEC=2.3 THEN G2}OSUB 22701039 IF SPEC=2.3 THEN GOSUB 22701130 X=LEFT/8-((LEN(MISC$)+1))-1:IF X<1 THEN X=11215 SAVL=LEFT1235 ? "INES ER2}O YPE EW DATA"1243 IF K=84 THEN GOSUB SELECT:GOTO 12002000 IF SPEC>1 AND SPEC<3 THEN LEFT=SAVL2005 IF SPEC<>1 2}THEN 21002010 CLOSE #1:OPEN #1,4,0,DFN$:TRAP 20502020 INPUT #1,X:INPUT #1,Y2030 PLOT X*XFACT+XOFF,BOTTOM:DRAWTO X*XFACT+XO2}FF,Y*YFACT+YOFF2040 GOTO 20202050 CLOSE #1:GOTO 12002100 IF SPEC<>2 AND SPEC<>2.1 THEN 22002110 CLOSE #1:OPEN #1,4,0,DFN$2}:B=BOTTOM:TRAP 20502120 INPUT #1,X:INPUT #1,Y2125 H=INT(X*XFACT+XOFF):V=Y*YFACT+YOFF:IF BOX=1 THEN GOSUB 21602130 PLOT H+52},BOTTOM-1:DRAWTO H+5,V2132 DRAWTO H-5,V2134 POSITION H-5,BOTTOM-12136 MISC=1:IF SPEC=2.1 THEN MISC=02138 POKE 765,1:XIO 12 }7+MISC,#6,0,0,"S:":DRAWTO H+5,BOTTOM-12140 GOTO 21202150 CLOSE #1:GOTO 12002160 PLOT H+WIDE,B-1:DRAWTO H+WIDE+4,B-4:DRAWTO2 } H+WIDE+4,V-42162 DRAWTO H+WIDE,V:DRAWTO H-WIDE,V:IF SPEC=2.3 THEN RETURN 2164 PLOT H+WIDE+4,V-4:DRAWTO H-WIDE+4,V-42166 D2 }RAWTO H-WIDE,V2168 POKE 765,1:XIO 18,#6,0,0,"S:"2170 RETURN 2200 REM 2210 CLOSE #1:OPEN #1,4,0,DFN$:NUM=1:TRAP 22602220 2 }B=BOTTOM:INPUT #1,X:INPUT #1,Y2222 NUM=NUM+1:IF NUM>2 THEN NUM=02225 H=INT(X*XFACT+XOFF):V=Y*YFACT+YOFF2227 IF H/2-INT(H/22 })<>0 THEN H=H-12228 H=H+NUM:IF NUM=2 THEN H=H-2:MISC=12230 FOR COUNT=-WIDE TO WIDE STEP 22232 PLOT H+COUNT,B-12234 DRAWTO2} H+COUNT,V2236 NEXT COUNT:IF MISC=1 THEN MISC=0:H=H+1:GOTO 22302238 IF BOX=1 THEN GOSUB 21602240 IF SPEC=2.3 AND NUM<>1 TH2}EN INPUT #1,Y:B=V:GOTO 22222245 IF BOX=1 THEN GOSUB 21642250 GOTO 22202260 CLOSE #1:GOTO 12002270 FOR COUNT=1 TO 2:INPUT 2}#1,Y2272 IF YHIGHY THEN HIGHY=Y2276 NEXT COUNT:RETURN 30000 REM * INITIALIZATION *30019 SELEC2}T=3038230020 BUTTON=3066030100 REM * MISC ROUTINE COMMANDS *30200 REM * ROUTINE STRINGS *30299 RETURN 30382 ? "}":? "2} FOR NEXT ITEM OR ":? 30384 ? "NORMAL ":GOSUB BUTTON:IF MISC=2 THEN SPEC=0:RETURN 30386 ? "THIN BAR2} ":GOSUB BUTTON:IF MISC=2 THEN SPEC=1:RETURN 30388 ? "WIDE BAR ":GOSUB BUTTON:IF MISC=2 THEN SPEC=2:R2}ETURN 30390 ? "HOLLOW BAR ":GOSUB BUTTON:IF MISC=2 THEN SPEC=2.1:RETURN 30392 ? "THREE COLORS OF BARS":GOSUB BUT2}TON:IF MISC=2 THEN SPEC=2.2:RETURN 30393 ? "THREE COLORS PER BAR":GOSUB BUTTON:IF MISC=2 THEN SPEC=2.3:RETURN 30394 IF BOX2}=1 THEN ? "FLAT ":GOSUB BUTTON:IF MISC=2 THEN BOX=0:RETURN 30396 IF BOX=0 THEN ? "COLUMN ":GOS2}UB BUTTON:IF MISC=2 THEN BOX=1:RETURN 30399 GOTO SELECT+230660 IF PEEK(53279)=7 THEN GOTO BUTTON:REM * BUTTON *30662 IF PE2}EK(53279)=3 THEN MISC=330664 IF PEEK(53279)=5 THEN MISC=230666 IF PEEK(53279)=6 THEN MISC=130668 IF PEEK(53279)<>7 THEN GO2}TO BUTTON+830669 RETURN 664 IF PEEK(53279)=5 THEN MISC=230666 IF PEEK(53279)=6 THEN MISC=130668 IF PEEK(53279)<>7 THEN GO0 0 29.64477539 1 43.69812011 2 50.94451904 3 66}0.56976318 4 17.05017089 5 53.39660644 6 64.02893066 76} 60.23254394 8 14.66369628 9 92.93774414 10 23.455810544} $ @`$OPEN #1,8,0,"D:DATA" -6@@@ 6-( (? #1:};X:? #1;Y2 @<# @`6- # @@ D1:MAKEDATA@@ 6-( (? #18U