: *********************************************** TREND Version 1.0 --> TREND LINE CHART (c)1982 Zenith Data Systems ***********************************************  ()"m70";:: ()"y5": N: "T": $,$,n():A  TREND 4/21/82 M (: J,K[ 2 AI,LZ < : L:BGRCOLORS():  A x: ()"x1";: COLORS() (,)(,),,BF Z:WIDTH 255 _:DEF FNP$(R,C)=CHR$(27)+"Y"+CHR$(31+R)+CHR$(31+C)X d  , : "Preparing Trend line chart....";: BGRCOLORS(): y n CU(d),P(,,),NLEG() AXCOLCOLORS() XSCAN YSCAN XSTARTi XENDX YSTART YEND HIGHESTY LOWESTvXPLACESXENDXSTART-YPLACESYENDYSTARTKPRNTLINESYPLACES YSCANiPRNTSPACEXPLACES XSCAN TITLER$(),XHEADS$(),YHEADS$(),DESCRS$(,),VALUES(,) :"R",,"what.run", : #, AS A$, AS B$, AS C$, AS D$W ,:A(A$):B(B$):TIMLOOP1(C$):TIMLOOP2(D$): MODEA: #, AS A$: ,B (A$,(A$,"."),)"T" (A$,(A$,"."),)"t"  : "menu"AA$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$()#,MIN:#,MAX:#,INC::: TYPEBAR$"N":TYPESPACE$"G":LEGS$"Y"I" J NFILES::"I",,NFILE$(J): K NRECORDS: #,A$: #, VALUES(J,K): K: J :, J NRECORDS:VJ:KVALUES(,J): REG1REG1V:REG11REG11V: REG2REG2K:REG12REG12(VK): J6SLOPE(REG12((REG1REG2)NRECORDS))(REG11(REG1)NRECORDS)#@YINTCREG2NRECORDS(SLOPEREG1NRECORDS)XT TYPESPACE$"G" PERCENT @ : PERCENT jEACH NFILES'EACHAREA 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" EACHBAREACHBARXSCAN& EACHBAR  "too small":0 MINMAX D : HIGHESTMAX:LOWESTMIN: #D J  NFILES;N K  NRECORDSqX VALUES(J,K) HIGHEST HIGHEST VALUES(J,K)b VALUES(J,K) LOWEST LOWEST VALUES(J,K)l Kv J x: ()"x1";VALUE.INC(HIGHESTLOWEST) PRNTLINES: V.I(HIGHESTLOWEST)YPLACES*VALUE.INCINC8YORGYEND LOWEST  YORG(LOWEST)(HIGHEST(LOWEST)): YORG YPLACES YORG: YORG YENDYORG  (XSTARTXSCAN,YORGYSCAN)(XENDEACHAREABLANKAREA,YORG),AXCOL,BF7 (XSTARTXSCAN,YENDYSCAN)(XSTARTXSCAN,YSTART),AXCOL,BF: SPMODE _ PHIGHEST : ,: "##,###.##";P;g*K9K: J YEND YSTART YSCAN> LINXXSTARTXSCAN:LINYJ:LINX1XSTARTXSCAN: LINY1J:LINCAXCOL: H (,J)[R KYSTARTYSCAN,: (YHEADS$(),K,);: K K   K,: "##,###.##";P;p\ PPVALUE.INC}f KKp J: KYSTARTYSCAN,: " ";: : PRINT USING "##,###.##";LOWEST;%uTTCEN(P(TT$)): ,TTCEN: TT$;: (YENDYSCAN)YSCAN,: XHEADS$();Uz (YENDYSCAN)YSCAN,(XSTARTXSCAN)XSCANl J  NRECORDS (DESCRS$(,J),,(EACHAREABLANKAREA)XSCAN);" "; JSPXXSTARTEACHAREABLANKAREA:RC : NFILES  LEGS$"Y" RC,G: "LEGEND";:. J  NRECORDSi SPXSPXEACHAREABLANKAREA: J REGXSPXy SPYYORG GARB$ K  NFILES LOWEST PT(VALUES(K,J)LOWEST)V.I : PTVALUES(K,J)V.I, VALUES(K,J)  D  : DX J P(,K,)XSTART:P(,K,)YORGz SPYPTYEND PTSPYYEND SPYPT YSTART PTPT: & P(,K,J)SPXEACHBAR:P(,K,J)SPYPT:: IF J>1 THEN LINE (P(0,K,J),P(1,K,J))-(P(0,K,J-1),P(1,K,J-1)),COLORS((COLR MOD 7)+1)k (SPXEACHBAR,SPYPT),,,: CU(K)COLR: COLRCOLR LEGS$"Y" NFILES  J P$(RC,G)(NLEG$(K),);:  NFILES  J (XSCAN,(RC)YSCAN)(OXSCAN,RCYSCAN),COLORS((CU(K) )),BF: RCRCF TYPEBAR$"S" SPXSPXXSCANO KSPXXSTART ((J)(EACHAREABLANKAREA)):COLR J$VSLOPEYINTC:  :YSPYPT: VSLOPENRECORDSYINTC:  : (REGXEACHBAR,Y)(SPXEACHBAR,SPYPT),COLORS()# (,)(,),COLORS(),B LEGS$"Y" NFILES (FXSCAN,(RCNFILES)YSCAN)(PXSCAN,RCYSCAN),AXCOL,B ,: ()"p";"PRESS ";()"q";"";w3JACK$: JACK$() MODE  : COUNTCOUNT: COUNTTIMLOOP1 MODE  : COUNTTIMLOOP2 MODE "menu" : JACK$( ) 3 : :"MENU",0u PTVVALUE.INC: LOWEST  PT(VLOWEST)VALUE.INC PTPTPRNTLINES YEND SPYPT YEND PTSPYYEND SPYPT YSTART PTPT:   I"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$,"."),)4  TYPE$"r" TYPE$"R" : TYPE$t BGR BGR BGRBGR : BGR BGR BGRBGR FGR FGR FGRFGR : FGR FGR FGRFGR COLORS() FGRBGR FGRCOLORS():BGRCOLORS() FGR,BGR:!L (,),:PT(,): (,)i!V PT COLORS$"07777777" : COLORS$"01234567"!` J :COLORS(J)((COLORS$,J,)): J: FGRCOLORS():! COLORS() : (PAINX,PAINY),PAINS,PAINE:#" COLORS() : (PAINX,PAINY),PAINS,PAINE:" COLORS() LINC (LINX,LINY)(LINX1,LINY1),COLORS(),BF: : (LINX,LINY)(LINX1,LINY1),LINC,BF:"x COLORS() : : : (LINX,LINY)(LINX1,LINY1),COLORS(),BF: : (LINX,LINY)(LINX1,LINY1),