: *********************************************** LINE Version 1.0 --> LINE CHART (c)1982 Zenith Data Systems ***********************************************  :()"y5": N: "l": $,$,n():*  LINE 4/21/82 6 (: J,KD 2 AI,LZX < : L A x: ()"x1";:LINX:LINY:LINX1: LINY1:LINCCOLORS(): COLORS()  Z:WIDTH 255 _:DEF FNP$(R,C)=CHR$(27)+"Y"+CHR$(31+R)+CHR$(31+C)j d  , : ()"x5";:BGRCOLORS(): : "Preparing line chart....";:BGRCOLORS():  n CU(d),P(,,),NLEG() x J  NCOLORS : COLORS(J)J : J AXCOLCOLORS() XSCAN YSCAN XSTARTi XENDX YSTARTYEND$LEGS$"Y"6HIGHESTYGLOWESTv_XPLACESXENDXSTARTwYPLACESYENDYSTARTPRNTLINESYPLACES YSCANPRNTSPACEXPLACES XSCAN TITLER$(),XHEADS$(),YHEADS$(),DESCRS$(,),VALUES(,)@ :"R",,"what.run", : #, AS A$, AS B$, AS C$, AS D$ ,:A(A$):B(B$):TIMLOOP1(C$):TIMLOOP2(D$): MODEA: #, AS A$: ,B (A$,(A$,"."),)"L" (A$,(A$,"."),)"l"  : "menu"QAA$A$::"I",,AA$: #,TT$: #, NF:NFILESNF: NFILE$(NF): J  NF: #,NFILE$(J): J J NF: #,NLEG$(J): J: #, NRECORDS: J NRECORDS: #, D$: DESCRS$(,J)(D$(, ),):: J: #, XHEADS$(): #,YHEADS$()3#,MIN:#,MAX:#,INC::: TYPEBAR$"N":TYPESPACE$"G":LEGS$"Y"" J NFILES::"I",,NFILE$(J): K NRECORDS: #,A$: #, VALUES(J,K): K: J :T TYPESPACE$"G" PERCENT @ : PERCENT EACH NFILESEACHAREA XPLACES (NRECORDS): BLANKAREA EACHAREA (PERCENT): EACHAREAEACHAREABLANKAREA: EACHBAREACHAREAEACH: TYPEBAR$"S" NEXTBAREACHBARXSCAN : NEXTBAREACHBAR EACHAREA  ::"Bar will be too small. Re-design graph.": J : J::"menu"%! TYPESPACE$"G" EACHBAREACHBARXSCANH& EACHBAR  "too small":~0 MINMAX D : HIGHESTMAX:LOWESTMIN: D J  NFILESN K  NRECORDSX VALUES(J,K) HIGHEST HIGHEST VALUES(J,K)b VALUES(J,K) LOWEST LOWEST VALUES(J,K)l K&v JJBGR: : x: ()"x1";VALUE.INCINC: V.I(HIGHESTLOWEST) YPLACESYORGYEND LOWEST  YORG(LOWEST)(HIGHEST(LOWEST)): YORG YPLACES YORG: YORG YENDYORGU LINXXSTARTXSCAN:LINYYORGYSCAN:LINX1XENDEACHAREABLANKAREA: LINY1YORG:LINCAXCOL: LINXXSTARTXSCAN:LINYYENDYSCAN:LINX1XSTARTXSCAN :LINY1YSTART:LINCAXCOL: : SPMODE  PHIGHEST : ,: "##,###.##";P;*K9K: J YEND YSTART YSCANp> LINXXSTARTXSCAN:LINYJ:LINX1XSTARTXSCAN: LINY1J:LINCAXCOL: ~H (,J)R KYSTARTYSCAN,: (YHEADS$(),K,);: K K   K,: "##,###.##";P;\ PPVALUE.INC f KKWp J: KYSTARTYSCAN,: " ";: : PRINT USING "##,###.##";LOWEST;uTTCEN(P(TT$)): ,TTCEN: TT$: (YENDYSCAN)YSCAN,: XHEADS$();z (YENDYSCAN)YSCAN,(XSTARTXSCAN)XSCAN J  NRECORDS3 (DESCRS$(,J),,(EACHAREABLANKAREA)XSCAN);" ";; JSPXXSTARTEACHAREABLANKAREA:RC : NFILES  LEGS$"Y" RC,G: "LEGEND";: J  NRECORDS SPXSPXEACHAREABLANKAREA SPYYORG GARB$  K  NFILEST LOWEST  PT(VALUES(K,J)LOWEST)V.I : PTVALUES(K,J)V.I{ VALUES(K,J)  D  : D J P(,K,)XSTART:P(,K,)YORG SPYPTYEND PTSPYYEND SPYPT YSTART PTPT: i P(,K,J)SPXEACHBAR:P(,K,J)SPYPT: J (P(,K,J),P(,K,J))(P(,K,J),P(,K,J)),COLORS((COLR )) (SPXEACHBAR,SPYPT),K,COLORS((COLR )),: CU(K)COLR: COLRCOLR  LEGS$"Y" NFILES  J RC,G: (NLEG$(K),);: NFILES  J LINXXSCAN:LINY(RC)YSCAN:LINX1OXSCAN: LINY1RCYSCAN:LINCCOLORS((CU(K) )): (LINX,LINYYSCAN),K,COLORS((CU(K) )): RCRC TYPEBAR$"S" SPXSPXXSCAN K(SPXXSTART ((J)(EACHAREABLANKAREA)):COLR0 JQ (,)(,),COLORS(),B LEGS$"Y" NFILES (FXSCAN,(RCNFILES)YSCAN)(PXSCAN,RCYSCAN),AXCOL,B ,: ()"p";"PRESS ";()"q";"";3JACK$: JACK$() MODE  : COUNTCOUNT: COUNTTIMLOOP1 MODE  : COUNTTIMLOOP2 MODE "menu" : JACK$( ) 3 : :"MENU",0u"R",,"WHAT.RUN", :#,  AS A$, AS B$ ,:A(A$):B(B$):BB: BA FL:B : FL_ B$(B): A$(A): ,: #,  AS C$: ,B:CC$C$: FL "MENU" : TYPE$(CC$,(CC$,"."),) TYPE$"l" TYPE$"L" : TYPE$ BGR BGR BGRBGR : BGR BGR BGRBGR? FGR FGR FGRFGR : FGR FGR FGRFGRy COLORS() FGRBGR FGRCOLORS():BGRCOLORS() FGR,BGR:L (,),:PT(,): (,)V PT COLORS$"07777777" : COLORS$"01234567"8 ` J :COLORS(J)((COLORS$,J,)): J: FGRCOLORS():r COLORS() : (PAINX,PAINY),PAINS,PAINE: COLORS() : (PAINX,PAINY),PAINS,PAINE:&! COLORS() LINC (LINX,LINY)(LINX1,LINY1),COLORS(),BF: : (LINX,LINY)(LINX1,LINY1),LINC,BF:F!x COLORS() : : : (LINX,LINY)(LINX1,LINY1),COLORS(),BF: : (LINX,LINY)(LI