7%8>B͔ TO PROVIDE LINEAR (STANDARD) DATA DISPLAY :')^(' ON THE GRID LINES FROM THIS AXIS, YOU MAY SPECIFY EITHER'/,' A SOLID LINE AT EVERY "TIC MARK" (ENTER "0") OR DASHED LINE','S',/,' WITH A SOLID LINE AT REGULAR INTERVALS (ENTER THE INTER','VAL',/,' FOR LINEAR AND A "1" FOR LOGARITHMIC) :')(' ENTER LENGTH (INCHES) OF DASH ON LINE (AS : .07) :')(F10.0)(' ENTER THE TITLE FOR THE Y AXIS',/)(' ENTER THE NAME FOR THE GRAPH DATA FILE (LINE #',I2,')'/)C(' FILE WAS NOT FOUND.')(' FILE NAME WAS IMPROPER, USE: D:NNNNNNNN.EEE',/,' WHERE D IS PROPER DISK NAME, NNNNNNNN AND EEE ARE NAMES',/,' WITH ONLY NUMBERS OR A-Z, AND IF EEE IS NOT INCLUDED,',/,' OMIT THE PERIOD.')(' **** 12 LINES ARE ALREADY SPECIFIED, NO MORE ALLOWED',/,' PRESS ')*"U7*U7~#fo}2f7=!"!"g7!"i7*g7"k7*i7!*k7"m7> *m7w*i7#>><*g7#>> *m7w*i7#>>=*g7#>> *k7w*g7"k7> *k7w*g7#>>G=!"g7!"i7*g7"k7*i7! *k7"m7> *m7w*i7#> >=*g7#> >z=!A "n!"p!"ro7 !͙G|7!Bg7!B>a͸&*g7#"g7}=2f7*g7+}!f72{7=*g7ͧAH>H>H>>>>>>??@uBBB*g7+"77!B7!B>a͸&7!B!"i7*7"k7*i7!*k7"m7*m7!B>o*i7#>>r>͸&=*g7"77!B7!B>a͸&7!B!"i7*7"k7*i7!*k7"m7*m7!B>o*i7#>>>͸&=7!B͸&7!Bn!B>a͸&*n}2f7*n}2{7*n}28*n}!8!{7!f728?=8!B͸&7!B!"g7*g7"k7*k7!B>o*g7#>>?͸&8!B͸&|7!Bp!B>a͸&*p+++}=2f7*p}!f72{7?*p++}2f7=!"99!B͸&|7!B*9)z"k7*k7!B>a͸&*9)z~#fo}2f7@:!B͸&:!B*9))p"k7*k7!B>h͸&=*9))p"k7!Bd-*k7U-=:!B͸&7!B!"g7*g7"k7*k7!B>o*g7#>>@͸&8!B͸&|7!Br!B>a͸&*r+++}=2f7*r}!f72{7A!"9*r++}2f7=D@*#"}=2f7ZB!;!B!B>a͸&7!BW7!B>o͸&*! "k7\;W7*k7͞*\;} *k7w=^;!B͸&ãAv;!B͸&ãABgÈC͈Cͯ_.g45678LOGARITHMICLINEAR _=gPe͉i1( Ͷg͇_͔Qb` ʌg@_, WITH GRIDV`g?<:v(////////////////////////,' ONLY ONE "GRAPH DATA" NAME IS REQUIRED, OTHER ITEMS ARE'1X,'OPTIONAL.',/,' <1>',30A1,20X,'"GRAPH DATA"',/,' <2>',30A1,20X,' FILE NAME',/,' <3>',30A1,20X,' TO USE')(' <11> ! ')(' ! <',A1,'>',30A1,21X,A1,':',8A1,'.',3A1)(' ! ',22X,A1,':',8A1,'.',3A1)(' !__________________________________',22X,A1,':',8A1,'.',3A1)(' <10> ',22X,A1,':',8A1,'.',3A1)(' SPECIFY "GRAPH DATA" FILE NAME',22X,A1,':',8A1,'.',3A1,/,' <1 - 3> CENTERED GRAPH TITLE ',22X,A1,':',8A1,'.',3A1,/,' <4 - 8> "CORNER NOTATION" ON THE GRAPH',22X,A1,':',8A1,'.',3A1,/,' <9> PLACE <4-8> AT ,,,',22X,A1,':',8A1,'.',3A1)(' <10> "X" TITLE, TYPE, GRID: ',30A1,/,' <11> "Y" TITLE, TYPE, GRID: ',30A1,/,' <12> MAKE THE GRAPH NOW.',5X,' "CORNER NOTATION" NOW AT : ',A1,/,' <13> SAVE THE GRAPH (BY NAME).',8X,'"X" AXIS IS ',22A1,/,' <14> EXIT - ABANDON THIS GRAPH',8X,'"Y" AXIS IS ',22A1,//,' MAKE A SELECTION (BLANK, OR 1 THRU 14):')R"B"B>!B%.!"C*C"CB"C*CB~*Cw*CB"C> *Cw*CB" C*CB~* Cw*CB" C> * Cw*B~#fo++}2 C*B~#fo}! C2CFH*C"CB"C*CB~*Cw*B~#fo++}2 C*B~#fo}! C2CʏH*C"CB"C*CB~*Cw*B~#fo+}=2 CH*C"CB"C*CB~*Cw*B~#fo+}=2 CH*C"CB"C*CB~*Cw*C#> >GC!K!"C!"C*C"C*C!*C*B"C*C!K>o*C#>>I*C#>> I͸&C!K͸&%D!K!"C*CB"C*C!K>o!"C*C"C*C!*C*B"C*C!K>o*C#>>I!"C*C" C*C! * C*B" C* C!K>o*C#> >I*C#>>wI͸&WD!K!"C!"C*C"C*C! *C*B"C*C!K>o*C#> >2J*C#>>,J͸&D!K!"C*CG*B"C*C!K>o*C#> >J͸&D!K!"C*CS*B"C*C!K>o*C#> >J͸&&E!K! "C!"C*C"C*C! *C*B"C*C!K>o*C#> >K*C#> >J͸&=F!K!"C*C+*B"C*C!K>o*C#>>^K!"C*C+*B"C*C!K>o*C#>>K*B!K>aBB!K>o͸&""!"!"*"!"*}(' DATA 1 "',15A1,'"')!(' GRID ',2F6.3,I6)(' SCALEX X 6.0 0 1 .75')(' AXISA 0 0 "',31A1,'-99 6.0 0 99 0 .75 2')(' SCALEL X 6.0 0')(' AXISLG 0 0 "',31A1,'-99 6.0 0 99 0')(' SCALEX Y 4.5 0 1 .75')(' AXISA 0 0 "',31A1,' 99 4.5 90 99 0 .75 2')(' SCALEL Y 4.5 0 ')(' AXISLG 0 0 "',31A1,' 99 4.5 90 99 0')LK;M=M(' LINELG'I3' 0 1'2I3,2A2)(' LINEX ',I2,' 0 1 1 ',I2,' .75 .75')"K*Kj0!nw!"K!"K!"L*L! ~ 2L=O*K#"K*L! "L~2K!"L*L~ 2LN>:2K!"L!"L*L"L*L! *L~ 2L_N*LK"L*L" L*L! * L~*Lw*L#"L*L#> >N*LK"L>.*Lw! "L*L"L*L! *L~ 2LN*L#"LK"L*L" L*L! * L~*Lw*L#> >N*L#"L"L*LK"L> *Lw*L#>>N L!cR!"L*LK"L*L![R>o*L#>>O͸&*L#> >MK!!gRd-!"LU-*p+++}2L*p+}!L29LO:L!cR͸&*p++}?2LO&L!cR"L![R>ht![R>h|![R>a͸&SL!cRK!_R>o͸&\PL!cR͸&!"K*p++}?2LEP&L!cR"L![R>ht![R>h|![R>a͸&L!cRK!_R>o͸&K!!kRd-!"LU-*r+++}2L*r+}!L29LQL!cR͸&*r++}?2LP&L!cR"L![R>hx![R>h~![R>a͸&L!cRK!_R>o͸&oQL!cR͸&*K+"K*r++}?2LXQ&L!cR"L![R>hx![R>h~![R>a͸&M!cRK!_R>o͸&*K+}2LʉQ!"K*K###}2LʥQ!"K!"L*K##}2LR! .";M!75"=M*K}2LQ! ";M! "=MGM!cR?ML![R>a͸&@R*L*K{ozg}=Ɓ2L@RaM!cRLL![R>a͸&*L#*K{zQ*K![R@R?ML![R>LQ:6!vvLzWL:v<2v_:v=ëRbP*C!&w####PS~͝:!"8vK"3v+"3v#*(I2)r(' ENTER TITLE LINE NUMBER ',I1,/)',(81A1)(' ENTER LINE',I2,' OF "CORNER NOTATION"',/)(' ENTER THE LOCATION FOR THE "CORNER NOTATION"',/,' A UPPER LEFT CORNER',/,' B LOWER LEFT CORNER',/,' C LOWER RIGHT CORNER',/,' D UPPER RIGHT CORNER :') (' ENTER THE NAME FOR THE CHART DATA FILE '/)S'(' FILE WAS NOT FOUND.')(' FILE NAME WAS IMPROPER, USE: D:NNNNNNNN.EEE',/,' WHERE D IS PROPER DISK NAME, NNNNNNNN AND EEE ARE NAMES',/,' WITH ONLY NUMBERS OR A-Z, AND IF EEE IS NOT INCLUDED,',/,' OMIT THE PERIOD.')(' COLORS MAY BE APPLIED TO EACH CIRCLE CHART SEGMENT,'/' THERE CURRENTLY ARE ',I2,' COLORS/SHADES SPECIFIED.'/)(' COLOR')(1X,I4)(' HOW MANY COLORS? (UP TO 10):')(' ENTER COLOR NUMBER (PREFACED BY A "-" FOR DETACHED',' SEGMENT) : SEGMENT #',I2':')R "U7*U7~#fo}2f7˜;!"g7!"i7*g7"k7*i7!*k7"m7> *m7w*i7#>>:*g7#>>:!"g7!"i7*g7"k7*i7!*k7"m7> *m7w*i7#>>;*g7#>>;!"g7*g7"k7> *k7w*g7#> >J;!A "!"g7*g7"k7*k7w*g7#> >s;!"o7 !Ct7!?g7!?>a͸&*g7#"g7}=2f7*g7+}!f72s7˜;*g7ͧb= < < >>=*g7+"x7z7!?x7!?>a͸&7!?!"i7*x7"k7*i7!*k7"m7*m7!?>o*i7#>>7<͸&Ø;*g7"77!?7!?>a͸&7!?!"i7*g7"k7*i7!*k7"m7*m7!?>o*i7#>><͸&Ø;7!?͸&7!?!?>a͸&*}2f7*}2s7*}28*}!8!s7!f728<Ø;8!?͸&7!?W7!?>o͸&8W7!͞*8}==:@2@2f7ʹ=> 2Ø;8!?͸&b=8!?͸&b=9!?!?>a͸&*}2f7H>:!?͸&:!?!"g7*g7"k7*k7!?>o*g7#*{z>͸&#:!?͸&t7!?!?>a͸&*}=2f7*}!f72s7H>!"g7E:!?g7!?>a͸&t7!?*g7"k7*k7!?>o͸&*g7#*{z>Ø;!":!:#E>!":>>>>͸&=(////////////////////////,' ONLY ONE "CHART DATA" NAME IS REQUIRED, OTHER ITEMS ARE'1X,'OPTIONAL.',/,' <1>',30A1,20X,'"CHART DATA"',/,' <2>',30A1,20X,' FILE NAME',/,' <3>',30A1,20X,' TO USE',/)(' ___ ',30X,A1,':',8A1,'.',3A1)(' /---- ----\ <4>',30A1,/,' I pie I <5>',30A1,/,' I chart I <6>',30A1,/,' \--__. .__--/ <7>',30A1,/,' --- <8>',30A1,/,' ',//)(' SPECIFY "CHART DATA" FILE NAME',5X' <13> SPECIFY SEGMENT COLOR',/,' <1 - 3> CENTERED CHART TITLE ',/,' <4 - 8> "CORNER NOTATION" ON THE CHART',/,' <9> PLACE <4-8> AT ,,,',/,' <10> MAKE THE CHART NOW.',10X,' "CORNER NOTATION" NOW AT : ',A1,/,' <11> SAVE THE CHART (BY NAME).',/,' <12> EXIT - ABANDON THIS CHART',//,' MAKE A SELECTION (BLANK, OR 1 THRU 13):')" ?"?>!?%.?!!D!"?!"?*?"?*?!*?* ?"?*?!D>o*?#>>@C*?#>>:C͸&@!!D*?!%D>o͸&C@!!D!"?!"?*?"?*?!*?*?"?*?!D>o*?#>>C*?#>>C͸&lA!!D*?!D>a͸& ! <',A1,'>',30A1,21X,A1,':',8A1,'.',3A1)(' ! ',22X,A1,':',8A1,'.',3A(6A1,9E14.0)______MGEMG____(' CHART CIRCLE 3.25 3.25 4.5')8A1,'.',3A1(' DATA "',6A1,'"',F13.1)<1(' DATA ',I2,' "',6A1,'"',F13.1)(' END')"*D**Dj0*"D!Dw!uD!YG,D!QG>o͸&!"D!͇!DU-DD!YG,D!QG>oD!IG>h͸&!DG!DU-*D#"D!Dd-!D!DU-jE!M&*D+"DD!QG͸&D!YG,D!QG>o͸&!"D!"DD!YG,D!QG>otD!UG>h͸&!tDG!tDU-!DG!]GkH!aG!DU-!eGd-!DkHjG"D*D"D*D͇!DU-!eGG!DU-*D*D{ozg}2D¯F!*D{ozg͇!DU-!eGG!D!DU-*D~2DFD!QG,D!QG>oD!IG>h͸&GD!QG*D"D*D!IG>o,D!QG>oD!IG>h͸&*D#*D{zEE!QG͸&**D!EG HL| /!6d->ʧGGq4͍-͵G{-ʣG!66Bg>.|!>yGakd-GHGÔ-d-G!6~+>wÔ-͙Gͅ-@I͔-ȯGH"6y26Fo!D*6:6OH64,7HGHg.*6:6Oz HGHg.*6:6-Hx<=^H{_zWxG)yOHG,͙nHͅ-p-͔-Hy+F+F+Fw`h|ʻHgyҟH:6O|g}oxG-|“H}ŽH,ElaOÍH!6~GxHƀ,w5w+ɷ,,{-x{p-!66BwgIzI >.|,{>26,/o!"C*C"C*C!*C*B"C*C!K>o*C#>>I:=!"HvK"3v+"3v#*E(I2) T(' ENTER TITLE LINE NUMBER ',I1,/) E(81A1)(' ENTER LINE',I2,' OF "CORNER NOTATION"',/)(' ENTER THE LOCATION FOR THE "CORNER NOTATION"',/,' A UPPER LEFT CORNER',/,' B UPPER RIGHT CORNER :')(' ENTER THE TITLE FOR THE HORIZONTAL AXIS',/)(' ENTER THE TITLE FOR THE VERTICAL AXIS',/)(' ENTER THE NAME FOR THE CHART DATA FILE '/)WA(' FILE WAS NOT FOUND.')(' FILE NAME WAS IMPROPER, USE: D:NNNNNNNN.EEE',/,' WHERE D IS PROPER DISK NAME, NNNNNNNN AND EEE ARE NAMES',/,' WITH ONLY NUMBERS OR A-Z, AND IF EEE IS NOT INCLUDED,',/,' OMIT THE PERIOD.')(' COLORS AND SHADING MAY BE APPLIED TO EACH BAR SEGMENT,'/' WITH SINGLE BAR (NO COMPARISON) OR TO EACH BAR OF A',/,' GROUP BEING COMPARED (COLORS AND SHADING WILL THEN BE'/' THEN SAME FOR EACH CORRESPONDING BAR OF EACH GROUP)',/,' THERE CURRENTLY ARE ',I2,' COLORS/SHADES SPECIFIED.')*i(' COLOR SHADE-DENSITY')(1X,I6,I10)(' (A "-" IN FRONT OF THE SHADE-DENSITY MEANS THAT IT IS',/' "CROSS-HATCHED" FOR DENSER SHADING. DENSITY IS IN LINES',' PER INCH.',/,' HOW MANY COLORS AND SHADES? (UP TO 10):')(' ENTER COLOR NUMBER FOR BAR #',I2':')(' ENTER SHADE-DENSITY FOR BAR #',I2,':')(I5)+"(' VERTICAL (ENTER "V") OR HORIZONTAL (ENTER "H") BARS:')(' ENTER BAR TYPE:'/' "STACKED" BARS COMPARING 2 ITEMS'/' "1" SIMPLE BAR CHART WITH SINGLE BARS'/' "2" THRU "9" BARS CLUSTERED OR GROUPED TO COMPARE'/' SEVERAL GROUPS OF FROM 2 - 9 ITEMS PER GROUP.'/' SELECT :')2"U7*U7~#fo}2h7ƒ>!"i7!"k7*i7"m7*k7!*m7"o7> *o7w*k7#>>]=*i7#>>W=!"i7!"k7*i7"m7*k7!*m7"o7> *o7w*k7#>>=*i7#>>=!"i7*i7"m7> *m7w*i7"m7> *m7w*i7#>>=!"i7*i7"m7> *m7w*i7#> >>!"i7*i7"m7*m7w*i7"m7*m7w*i7#> >=>!A "!"!"!"q7 !bH~7!JCi7!FC>a͸&*i7#"i7}=2h7*i7+}!h72}7ƒ>*i7ͧ@>>>f?f?f?f?f??%@i@BBEC%AB*i7+"77!JC7!FC>a͸&7!JC!"k7*7"m7*k7!*m7"o7*o7!FC>o*k7#>>(?͸&Ã>*i7"77!JC7!FC>a͸&7!JC!"k7*i7"m7*k7!*m7"o7*o7!FC>o*k7#>>?͸&Ã>7!JC͸&7!JC!FC>a͸&*}2h7*}!h72}7?Ã>X8!JC͸&7!JC!"i7*i7"m7*m7!FC>o*i7#>>=@͸&Ã>8!JC͸&7!JC!"i7*i7"m7*m7!FC>o*i7#>>@͸&Ã>8!JC͸&7!JCY7!NC>o͸&8Y7!͞*8}AA:@2@2h7A> 2Ã>8!JC͸&í@8!JC͸&í@9!JC!FC>a͸&*}2h7¬A:!JC͸&;!JC!"i7*i7"m7"o7*o7!FC>o*m7":*:!FC>o*i7#*{zgA͸& ;!JC͸&~7!JC!FC>a͸&*}=2h7*}!h72}7¬A!"i7;!JCi7!FC>a͸&~7!JC*i7"m7*m7!FC>o͸&;!JCi7!FC>a͸& o͸&*i7#*{zAÃ>!"o͸&!":W7!X72h7B!"Ka͸&*}=2h7*}!h72}7B*}2h7BC!"Ã>*?* ?"?*?!D>o*?#>VERTICAL SINGLE HORIZONTALSTACKED CLUSTEREDC@!!D!(////////////////////////,' ONLY ONE "CHART DATA" NAME IS REQUIRED, OTHER ITEMS ARE'1X,'OPTIONAL.',/,' <1>',30A1,20X,'"CHART DATA"',/,' <2>',30A1,20X,' FILE NAME',/,' <3>',30A1,20X,' TO USE',/)(' ',30X,A1,':',8A1,'.',3A1)(' ! <4>',30A1,/,' ! bar chart <5>',30A1,/,' <11> ! <6>',30A1,/,' ! <7>',30A1,/,' !__________________________ <8>',30A1,/,' <10> ',/)(' SPECIFY "CHART DATA" FILE NAME',3X' <15> BAR COLOR AND/OR SHADING',/,' <1 - 3> CENTERED CHART TITLE ',3X' <16> BAR TYPE AND GROUPING',/,' <4 - 8> "CORNER NOTATION" ON THE CHART',/,' <9> PLACE <4-8> AT OR ',/,' <10> HORIZONTAL AXIS TITLE: ',30A1,/,' <11> VERTICAL AXIS TITLE: ',30A1,/,' <12> MAKE THE CHART NOW.',10X,' "CORNER NOTATION" NOW AT : ',A1,/,' <13> SAVE THE CHART (BY NAME).',4X,' BAR TYPE:'10A1,/,' <14> EXIT - ABANDON THIS CHART',4X,' GROUPED:'9A1,/,/,' MAKE A SELECTION (BLANK, OR 1 THRU 15):')"SC"UC>!WC%.!"C*C"CbC"C*CuC~*Cw*[C~#fo}2CH*C"CbC"C*CC~*Cw*C#> >tH!"C*]C~#fo+"C}I"I*C"ClC"C*CC~*Cw;I*C"ClC"C*CC~*Cw;I*C"ClC"C*CC~*Cw*C#> >HC!fJ!"C!"C*C"C*C!*C*SC"C*C!^J>o*C#>>ZI*C#>>TI͸&D!fJ*WC!jJ>o͸&D!fJ!"C!"C*C"C*C!*C*UC"C*C!^J>o*C#>>I*C#>>I͸&E!fJ*aCDM*_C!bJ>o*YC!^J>acC!nJ>omC!rJ>o͸& >,J͸&D!K!"C*CG*B"C*C!K>o*C#> >J͸&D!-K!"C*CS*B"C*C!K>o*C#> (6A1,9E14.0)E!P5LP "C!"C*C"(' CHART BAR 0 0 6.0 4.5 ',I2,2F8.4,'"',1X,31A1,'"',1X,31A1)>(' DATA " " 0 0 1 0')C*C+*B"(' DATA "',6A1,'"',2F13.4,2I5)(' DATA ',I2,' "',6A1,'"',2F13.4,2I5)(' END')"wJ*wJj0*"J}2JK!D "J!Jw!uJ!PyJ!P>o͸&!"JJJ!PyJ!P>o͸&*J#"JL!M&*J+"J"J*++}?2JlL*J**J"J*J͇!JU-!Pd-!KU-!Pd-!KU-*}2J¯L!Pd-!KU-!Kd-!JLQ! KU-*++}2JL! Kd-!PQ! KU-J!J! K!P!P>aK K!P>hJJ!P>o͸&J!PyJ!P>o͸&!"JJ!PyJ!P>oJ!P>h͸&!Pd-! KLQP"IK*++}2J:OKK!P͸&!"`K!"bK*`K))"dK*`K~2JN*`K~2JN*`K~og"dK}2JN*dKog"dKN!"bKM*dK*IK"dK*`K))Jd-!fKU-:yJ!J2JYN!fK1Q!fKLQ!fK!fKU-> 2yJ*`K~2J®NlK!PyJ!P>o*`K))J"jKfK*jK!P>hdKbK!P>a͸&OK!P*`K"jK*jK!P>oyJ!P>o*`K))J"KfK*K!P>hdKbK!P>a͸&!"K*KxJ"jK> *jKw*K#>>O*`K#*{zMÃP!"bK*IK"dK*J~2J—O*J~og"dK!"bK*dK}=2J—O!"bK*dKog"dK!Jd-!fKU-:yJ!J2JO!fK1Q!fKLQ!fK!fKU-> 2yJ*##}2JO!Jd-!fKU-*J~2J:PlK!PyJ!P>ofKJ!P>hdKbK!P>a͸&ÃPK!P*J"jK*jK!P>oyJ!P>ofKJ!P>hdKbK!P>a͸&*J#*J{zFMK!P͸&*wJ!P @@!6d->QPq4͍-"Q{-Q!66Bg>.|!>Pakd-8QPR8QÔ-d-8Q!6~+>wÔ-͙OQͅ-ʭR͔-ȯG0R"6y26Fo!D*6:6OҌQ64,äQʹQg.*6:6OzҍQʹQg.*6:6ÚQx<=Q{_zWxG)yOHG,͙Qͅ-p-͔-0Ry+F+F+Fw`h|(Rgy R:6O|g}oxG-|R}Q,ElaOQ!6~GxHRƀ,w5w+ɷ,,{-x{p-!66BwgnRzmR >.|,{>26,/.|,{>2+ SxPS~PS~PS~4Sz!CPS++++~PSPSDMz!CPS!CPS2v26AB!"HvK"3v+"3v#*E(I2) T(' ENTER TITLE LINE NUMBER ',I1,/) E(81A1)(' ENTER LINE',I2,' OF "CORNER NOTATION"',/)(' ENTER THE LOCATION FOR THE "CORNER NOTATION"',/,' A UPPER LEFT CORNER',/,' B UPPER RIGHT CORNER :')(' ENTER THE TITLE FOR THE HDIRLP,SOL AAISX - Y DATA CHART DATA - PIE/BARBAR CHART : COMPARE (////////////////////)A (' *************************************',/,' ** EDITING EXISTING GRAPH DATA **',/,' *************************************',/,/,' THIS OPTION ALLOWS YOU TO EDIT GRAPH OR CHART DATA THAT',/,' HAS ALREADY BEEN CREATED. YOU EDIT THE DATA BY REFERRING'/' TO THE "LINE NUMBER" OF THE DATA. THIS IS LISTED AT THE',/,' FAR LEFT COLUMN OF THE SCREEN. YOU MAY DELETE THAT LINE,'/' INSERT ANOTHER LINE JUST BEFORE THAT LINE, OR REPLACE THAT'/' LINE. ALL DATA IS ENTERED "FREE FORM" - THAT IS, SEPARATED'/' BY COMMAS OR SPACES. ENTER "D" TO DELETE, "I" TO INSERT, '/,' OR "R" TO REPLACE DATA, FOLLOWED BY THE LINE NUMBER, E.G.'//' D 1234',//,' WHICH WILL DELETE THE LINE NUMBERED "1234". OTHER OPTIONS:'/' "L" (line #) TO LIST THE DATA, "P" (line #) TO PRINT THE ',/' DATA, "A" TO AUTO-INSERT DATA. NO NUMBER AFTER THE OPTION',/' STARTS THE PROCESS WITH THE TITLE INFORMATION. WHEN FINIS','HED,',/,' A NULL ENTRY (RETURN KEY ONLY) WILL SAVE THE (NEW) DATA.'/,' ANY "OPTION ERROR" WILL RE-DISPLAY THIS EXPLANATION.')(' ENTER THE DISK FILE NAME OF THE DATA:')F (' *** BAD FILE NAME, USE NNNNNNNN.EEE OR D:NNNNNNNN.EEE')(' *** FILE NOT FOUND, TRY AGAIN ***')*m7(' *** LOADING YOUR DATA - STAND BY ****')i7!#!==8(112A1,I5,2I1,2I3,I1)7> (' *** FILE CONTAINS',I5,' VALUES')(' *** DATA TYPE:',5A4)(' *** NUMBER OF BARS :',I5)7*i7"m(' *** NUMBER OF LINES:',I5)(6A1,9E14.0)(' *** IMPROPER FILE FORMAT ***')(' ** NOT ENOUGH MEMORY. HAVE:',I5,' NEED:',I5,' ENTER "OK" TO CONTINUE:')(' *** PREMATURE FILE END ***')(' ***** MISTAKE MADE WHEN SELECTING AN OPTION *****')(' ACTION:')(132A1)C!"k7*(' PRESS "RETURN" KEY ONLY TO EXIT AUTO-INSERT MODE.')('+',I5,':TITLE:')('+',I5,':')(' AUTO-INSERT LINE#',I5)m7*k7!(' ENTER DATA TITLE (UP TO 20 CHARACTERS):')(' ENTER "NOTE" FOR THIS FILE:')(' ** LINE NUMBER TOO HIGH (ONLY',I5,' LINES) **')(' ** TITLE/COMMENT LINE CANNOT BE ACCESSED HERE **')(' *** NO MORE ROOM - MEMORY FULL ***')('+ #''s:')(' ENTER TITLE FOR THIS GROUP:')(' ENTER',I2,' NUMBERS:')Y7!N(9E14.0)&8Y7!͞*8}(' DISK FILE NAME:',A1,':',8A1,'.',3A1,', HAS',I5,' VALUES,',I5,' LINES:',5A4,/,' TITLE:',20A1,/,' NOTE:',75A1)(I6,':'6A1,1X,4F14.5/6X,5F14.5/6X,F14.5)(I6,5F14.5,/,6X,5F14.5)(' HOW MANY LINES TO PRINT:')(I6)(I6,':',6A1,1X,8F14.5,/,6X,F14.5)(I6,':',9F14.5)(' ENTER "SAVE" TO SAVE FILE, OR ANOTHER ACTION REQUEST:')#!==8(1X,112A1,I5,2I1,2I3,I1)!8"U7"W7`i"Y7*#}28mB8!U͸&*Y7~#fo"88!U͸&*}28±B*}28ʮB!"@Go͸&=7!7͞*=+}286C*=}28C=!U͸&*=#}283CJ=!U͸&ñB!"p=*p="r=$"t=*r=7~*t=w*p=#> >9Cv=!U͸&!%N =!U1!U>o=!U>a͸&*= "=:=2|8!"}828!"p=*p=0"r=~!828*r=~og"=*}8"}8*p=#>p>C:}8og"=X*={ozg}28:8!|8!82=›F=!U!U>a͸&**W7~#fo{ozg}=28°F=!U!"=*=))"r=*#!*r=j8"t=*t=!U>h*=#>>iD͸&*#+++}28D>!U!!U>a͸&!">*!">*8++}?28D*>##">**>U" >&>!U >!U>a͸&*!T]"">*T]"$>*8++}?28„E@!U!"p=*p=))W7"r=*r=!U>h*p=#*!{zSE͸&"FB>!U!"p=*p=7"r=*r=!U>o*p=#>>E!"p=*p=))W7"t=*t=!U>h*p=#*!{zE͸&!"p=*>#">*>)++*U7"r=*p=)7~#fo*r=s#r*p=#>>E!"p=*>#">*$>{ozg}=28G*>)++*U7"r=*p=)Y7~#fo*r=s#r*p=#*">{z%F*>*$>{ozg}?28G2EN>!U͸&!Uͻ ñBo>!U*W7!U>a͸&?!U7!U>o͸&:7!{828§F*W7~#fo"]D*>!U">!U͸&!Uͻ @G>!U͸&!U_8!U͸&?!U͸&?!U7!U>o͸&!"!?!"#?!"=!"p=*#?ͧGG*p=7~ 28G*p="!?!"#?G*p=7~ 28G*p="=!"p=*p=#>>xG!"%?!"'?*!?}28T!")?*=}28!H*=7"r=)?*r=ͤ *!?7~!828yH*)?}28PH!")?!"+?*)?"'?*!?7"r=:u8*r=w-?!U͸&*'?}28I*+?}28H*8++}?28Hu?!U'?!U>a͸&Hc?!U'?!U>a͸&H?!U'?!U>a͸&*'?")?*'?#"'?:u827!"!?*!">*8++}?28;I*>##">**>U" >*!?7~!t828dI!"%?*!?7~!u828ʀI!"%?*!?7~!v828ʜI!"%?*!?7~!w828ʸI!"%?*!?7~!x828I!"%?*%?ͧ"GINLOaPST!"?!"?*#+}28J!"?*#+++}28.J*!T]"?*8+}=28MJ*?"?*?}28* >#"r=*)?*r={ozg}!82=¢J*)?* >{ozg}=28L*)?}28}K*)?+*?#"?*?"?* >*)?{ozg"?*?}28¿L!"p=!"=*?)++*U7"r=*?)++*U7~#fo*r=s#r*?#"?*?#"?*=#*?{zJ*p=#*?{zJ**!{ozg"*8++}?28zK*++"@G*?+}280L?!U͸&?!U!"p=*p=0"r=*r=!U>o*p=#>>K͸&?!U͸&?!U!"p=*p=0"r=*r=!U>o*p=#>e>K͸&@G?!U >!U>a͸&@G"@!U͸&@GW@!U͸&@G!"?I*8++}289M?!Um8!U>o͸&*o8}28*m8}!82=|O~@!U͸&9M*'?}28L*+?#"+?+}=28WL*8++}28"M@!U͸&?!Um8!U>o͸&@!U!!U>a͸&?!U7!U>o͸&!"%?!"@!"@*@{}?28&N*%?}/ *r=w!"%?M*@{}?28WN*@7"r=> *r=w*@#"@&N:7 28*'?}=!82=|O@!7Ͳ!"p=*p=))W7"r=*r=!U>h*p=#*!{zN͸&*?++}28ŽO*?"@*8++}28(O*?"@!"p=*?)++*U7"r=*p=)k8~#fo*r=s#r*?#"?*p=#>>N!"p=*?)++*U7"r=*p=)Y7~#fo*r=s#r*?#"?*p=#*@{z+O*'?}28yH@G!"'?@G!"?I*?!U*"$>*W7~#fo{ozg}=28?L*$>"*$>T]"$>*?{ozg"@*)?* >{ozg}=28N*?#"@!"p=!"=*$>)++*U7"r=*@)++*U7~#fo*r=s#r*$>+"$>*@+"@*=#*?{z P*p=#*@{zPN!"?!"@!"@*!">*8++}?28ʖP*>##">*)?+*>"?#*?"?*?}=28Q:% og"@:%28P*@ "@@!@@!U>a!"p=*p=$"r=*r=!U>o*p=#> >P >!U>a!"p=*p=))"t=*#!*t=j8"@*@!U>h*p=#>>2Q!"p=*p=0"@*@!U>o*p=#>>oQ!"p=*p=0"@*@!U>o*p=#>e>Q͸&!"?*@+++"@!")?íP*)?* >{ozg}=28S*8++}28MR!"p=*p=)k8"r=*?)++*U7~#fo*r=s#r*?#"?*p=#>>R*?#"?!"=!"p=*=)"r=Y7"t=*?)"@++*U7~#fo*t=s#r*r=[7"@*@*U7~#fo*@s#r*=##"=*?##"?*p=#*!{zVR*?+}28T*8++}?28.SxA!U)?!U>a!"p=*p=))W7"r=*r=!U>h*p=#*!{zR͸&~SPA!U)?!U>am8!U>o!"p=*p=))W7"r=*r=!U>h*p=#*!{zPS͸&*)?#")?*@+"@*)?* >{ozg}=28S*@}=28­P@G@GA!U͸&A!U@!U>a͸&*)?}28T*@###"@!"?!"@sP*8++}28yTA!U)?!U>am8!U>o!"p=*p=))W7"r=*r=!U>h*p=#*!{zHT͸&þTA!U)?!U>a!"p=*p=))W7"r=*r=!U>h*p=#*!{zT͸&~SA!U͸&?!U7!U>o͸&:7!z828cG28!"}8!"p=*p=0"r=~!828*r=~og"=*}8"}8*p=#>p>U:8og"=:}8og"=*="=*=X"=!%N $B!U!"p=*p=0"r=*r=!U>o*p=#>p>qUB!U>a͸&2@v[bV#54+U:ivb(J!"HvK"3v+"3v#*E(I2) T(' ENTER TITLE LINE NUMBER ',I1,/) E(81A1)(' ENTER LINE',I2,' OF "CORNER NOTATION"',/)(' ENTER THE LOCATION FOR THE "CORNER NOTATION"',/,' A UPPER LEFT CORNER',/,' B UPPER RIGHT CORNER :')(' ENTER THE TIOYNS,zR18[ $ &/&3$0.1&%AISX(///////////////////////,' ******************************************',/,' ** MAKING A NEW GRAPH/CHART DATA FILE **',/,' ******************************************',//,' THIS OPTION ALLOWS YOU TO MAKE A NEW DATA FILE, ON YOUR',/,' DISK, AND FILL THIS FILE WITH DATA FROM ANOTHER DISK FILE',/,' OR FROM YOUR KEYBOARD - BY ENTERING IT MANUALLY. YOU MUST',/,' FIRST ENTER A FEW BASIC ITEMS REQUIRED FOR ALL DATA FILES.',/,/' WHAT WILL BE THE NAME OF YOUR DATA FILE ON DISK? ')(132A1)R L(' *** BAD FILE NAME FORMAT. YOU MUST SPECIFY THE NAME:',/,/,' D:NNNNNNNN.EEE',//,' WHERE D CAN BE AN (OPTIONAL) DISK NAME, NNNNNNNN IS THE',/,' PRIMARY FILE NAME (UP TO 8 LETTERS AND NUMBERS), AND',/,' EEE (IF USED - IT IS OPTIONAL) IS UP TO 3 LETTERS',/,' AND NUMBERS. TRY AGAIN! ')(' *** CAUTION !! THAT FILE IS ON DISK, AND IF YOU ',/,' CONTINUE, IT WILL BE REPLACED WITH A NEW FILE.',/,' IF THIS IS OK, THEN ENTER "OK". ')(' ENTER A NEW NAME NOW: ')THE TI(' NOW ENTER A TITLE FOR YOUR DATA FILE (YOU CAN USE',/,' UP TO 20 CHARACTERS): ')(' NOW ENTER ANY "NOTES" THAT YOU WISH TO INCLUDE IN THIS',/' FILE AND WHICH MAY BE HELPFUL TO YOU IN THE FUTURE.',/)(' NOW ENTER THE TYPE OF DATA YOU WILL BE ENTERING.',/,' "1" FOR X - Y DATA.',/,' "2" FOR CHART DATA (PIE OR BAR WITHOUT COMPARISON',' BARS.',/,' "3" FOR BAR CHART DATA WITH 2 TO 9 BARS BEING ','COMPARED.',/,' TYPE: ')(I6)A(' NOW ENTER HOW MANY BARS WILL BE COMPARED ON YOUR CHART:')(' THE DATA MUST NOW BE ENTERED. THIS CAN HAPPEN IN TWO',/,' DIFFERENT WAYS. YOU CAN ENTER IT DIRECTLY, OR YOU CAN'/,' EXTRACT IT FROM A DISK FILE, THEN GO INTO THE "EDIT"',/,' OPTION AND MAKE ANY CHANGES NECESSARY.',/,/,' "1" TO ENTER IT MANUALLY.',/,' "2" TO EXTRACT DATA FROM DISK FIRST.',/,/,' METHOD:')(' YOU CAN NOW ENTER YOUR DATA WITH THE "A" OPTION OF THE',' EDIT ROUTINE.')(' ENTER THE NAME OF THE DISK FILE FROM WHICH THE DATA',/,' WILL BE EXTRACTED: ')(' **** THAT FILE IS NOT ON DISK. YOU MUST TRY AGAIN.')(' *** THAT IS AN IMPROPER NAME. USE D:NNNNNNNN.EEE ,',/,' JUST AS EXPLAINED EARLIER. YOU MUST TRY AGAIN.'):')(' (' YOU MAY "SKIP" SOME RECORDS AT THIS POINT. HOW MANY? ')K gWPgWAM(' **SKIPPED: ',66A1,/,1X,66A1)I5(' ENTER "RETURN" ONLY TO FOLLOWING QUESTION TO KEEP PRES','ENT BLANKING POSITIONS.',/,I5,'-',I3,I5,'-',I3,I5,'-',I3,I5,'-',I3,I5,'-',I3,/,I5,'-',I3,I5,'-',I3,I5,'-',I3,I5,'-',I3,I5,'-',I3)(' NOW THE DATA WILL BE EXTRACTED. IT IS EXPECTED TO BE',/,' IN "COLUMNS" IN THE DISK FILE. THESE ARE COLUMNS OF',/,' OF NUMBERS THAT ARE SEPARATED BY SPACES OR COMMAS.',/,' YOU MAY ALSO IGNORE A POSITION OR GROUP OF POSITIONS',/,' AS YOU EXTRACT THE DATA. THIS MUST BE SPECIFIED AS',/,' A BEGINNING CHARACTER POSITION, THROUGH AN ENDING',/,' CHARACTER POSITION (IN ORDER TO DISCARD "TRASH")',//,' BEGINNING POSITION (OR NOTHING, IF NOT DESIRED): ')(' ENDING POSITION : ')2(' DATA WILL BE CONSIDERED AS "BLANK" FROM ',I3,' TO ',I3)}8o(' NEXT BEGINNING POSITION (OR NOTHING TO STOP) :')(' **** BAD CHOICE !!!! TRY AGAIN.')(' CANNOT HAVE OVER 10 BLANK FIELDS. SORRY.')(' DO YOU WISH TO KEEP CURRENT "COLUMN STRUCTURE" OF',' DATA FILE? ("Y" OR "N"):')(' YOUR DATA FILE WILL HAVE',I2,' COLUMNS OF DATA IN IT.',/,' THIS DATA FILE HAS DATA WHICH IS ALSO IN COLUMNS.',/,' YOU MUST NOW INDICATE HOW THE "COLUMN STRUCTURE"',/,' OF THIS DATA FILE WILL MATCH UP TO YOUR DATA FILE.'/)(' YOUR BAR OR SEGMENT TITLE (UP TO 6 CHARACTERS) CAN BE'/' TAKEN FROM ANYWHERE IN THIS FILE (AND LATER BLANKED).'/' WHAT IS THE BEGINNING COLUMN OF THE TITLE? ')G*(' AND THE ENDING COLUMN? ')=s(' FOR COLUMN',I2,' OF YOUR DATA FILE, ENTER THE COLUMN',/,' NUMBER OF THIS DATA FILE WHICH WILL CORRESPOND: ')(' *** ONLY COLUMNS 1 THRU 9 ALLOWED ***.',/,' YOU MAY NEED TO "BLANK OUT" MORE SUPERFLUOUS DATA FROM',/' THIS FILE. ENTER "Y" TO BLANK OUT OR "N" TO RETRY: ')(' YOU MAY PROCESS THIS DATA FILE IN ONE OF THREE WAYS TO',/' EXTRACT YOUR DATA.',//,' A. PREVIEW EVERY RECORD BEFORE PROCESSING (ENTER "0")',/' B. PROCESS ALL REMAINING RECORDS IN THIS FILE (','ENTER "9999")',/,' C. PROCESS ONLY A CERTAIN NUMBER OF RECORDS (ENTER ','THAT NUMBER)',//,' RESPOND: ')}gW\WgW(' *** NEXT RECORD ***',/,1X,66A1,/,1X,66A1)(' ENTER "Y" TO PROCESS, "N" TO NOT PROCESS, "','S" TO STOP PROCESSING THIS WAY:')(I6,':',6A1)">**>(9E14.0)(I6,':'5F14.5,/,7X,5F14.5)*!(' ENTER "Y" TO PROCESS MORE DATA FROM THE FILE,',/' "B" TO GO BACK TO BEGINNING OF THIS FILE,',/' "N" TO EDIT THIS DATA NOW:')(' *** MEMORY IS FULL ***',/,' EDITING WILL NOW BEGIN')"U7"W7`i"Y7!"8!"88!wW͸&m:!wW7!kW>o͸&t:7!7͞*t:#}2v:J*t:+}2v:¦Jw:!wW͸&LJ;!wW͸&m:!wW%!oW>o͸&:%!g82v:J( >JIo*C<#>>-K͸&o*C<#>e>nK͸&!"C<*C<"E<0"G<*E<m8~*G>K!f"C<*C<"E<0"G<*E<8~*Gp>K!"=!wW͸&=!wW#!cW>a͸&*#*Y7s#r*#}2v:ML!*Y7s#r!"#*#+++}=2v:*#}!v:2=K!*#{ozg"!*#+++}2v:L=!wW͸&=!wW!!cW>a͸&*!}=2v:*!++}!v:2=†L.>!wW͸&=!wWCa͸&*C<++}2v:*C<+}!v:2=L*C<++}2v:eM!"g?!wW͸&!{W_?!wW͸&m:!wW7!kW>o͸&t:7!7͞*t:#}2v:¾M*t:}2v:MM@!wW͸&eM;@!wW͸&eM:7og"@!7N !"@!"@@!wW͸&=!wW@!cW>a͸&*@+}2v:“N@m:!sW7!kW>o͸&@!7 @!wW!"C<*C<7"E<*Eo*C<#*@{z]N͸&*@+"@N*@}2v:NA!wW!"C<*C<)"E<Y7"G<*Ga*E<m7"A*A!cW>a*C<#*@{zN͸&A!wW͸&=!wWC!cW>a͸&*C}2v:†P!"@aO=!wWC!cW>a͸&*C}2v:†PC!wW͸&=!wWC!cW>a͸&C!wWCC!cW>a͸&*C*C{ozg}=2v:*C|}=2=*C|}=2C*C}=Ɓ2C*C}=Ɓ!C!C!=!v:2CkP*@#"@}=2v:zP*@)"E<Y7"G<*C*Go͸&:7!h82v:IRD!wW!!cW>a͸&*Y7~#fo++}2v:~QE!wW͸&=!wWIF!cW>a͸&KF!wW͸&=!wWgF!cW>a͸&*IF*gF{ozg}2v:*gF*IF{ozg}!v:2=P!"C<iF!wWCa͸&=!wW*C<)7"E<*Ea͸&!"@*C<)7"E<~#fo}=2v:*E<~#fo+}!v:2=R9RF!wW͸&m:!wW7!kW>o͸&:7!h82v:“NÄQ*C<#*!{zQwG!wW͸&=!wWH!cW>a͸&!"H*H}2v:ʋR!"HHm:!sW7!kW>o͸&*H+}2v:?S@!7 H!wW!"C<*C<7"E<*Eo*C<#*@{zR͸&H!wW͸&m:!wWm8!cW>o͸&:m8!j82v:V:m8!i82v:‹R*Y7~#fo++}2v:$T!"C<*C<)7"E>ZS!"@*IF"C<*@7"E<*C<7~*E>S*##"*8#"C<,I!wWCa7!sW>o͸&*@}2v:“T!"C<*C<)"E<Y7~#fo"8I*E<m7~#fo"@*8I":I*:I7"E<> *EI!"@I*@I{}?2v:hU*I7"E<*@I7~*EI#">I*@I#"@IåT!"I7"E<> *EI|}=2v:šU*>I7"E<> *EI#">IhUBI!7Ͳ!"C<*C<))7"E<*Eh*C<#> >U͸&!"C<*C<)7~#fo"8I*C<))7"E<*8I))7d-*Ea!"C<*C<))7"E<*Eh*C<#*!{z2V͸&*!T]"dI!"C<*8#"8*W7~#fo{ozg}?2v:JW*8)++*U7"E<*C<)7~#fo*Eo͸&:7!h82v:M:7!i82v:\W!M&MI!wW͸&!W_!cWͻ  ͸&m:!wW7!kW>o͸&:7!h82v:M:7!i82v:\W!M&MI!wW͸&!W_!cWͻ   X )WX*hv*0v#R|}&X>=,XOyFX FXFX 3XxgðW