: *********************************************** SIDE Version 1.0 --> SIDE BAR CHART (c)1982 Zenith Data Systems ***********************************************  : ()"y5": N: "s": $,$,n():3  Side BARS 5/5/82 E (: L: J,KS 2 AI,LZa <  A x: COLORS() ()"x1";: (,)(,),COLORS(),BF B ()"x5"; Z:WIDTH 255 _:DEF FNP$(R,C)=CHR$(27)+"Y"+CHR$(31+R)+CHR$(31+C) cBGRCOLORS(): J d  , : "Preparing Side bar chart....";b eBGRCOLORS(): x n CU(),NLEG() AXCOL XSCAN YSCAN XSTARTs XEND( YSTART YEND HIGHESTY LOWESTv XPLACESXENDXSTART$YPLACESYENDYSTARTBPRNTLINESYPLACES YSCAN`PRNTSPACEXPLACES XSCAN TITLER$(),XHEADS$(),YHEADS$(),DESCRS$(,),VALUES(,) :"R",,"what.run", : #, AS A$, AS B$, AS C$,  AS D$P ,:A(A$):B(B$):TIMLOOP1(C$):TIMLOOP2(D$): :MODEA: #, AS A$: ,B (A$,(A$,"."),)"s" (A$,(A$,"."),)"S"  : "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: #, YHEADS$(): #,XHEADS$()#,MIN:#,MAX:#,INC:: TYPEBAR$"N":TYPESPACE$"G":LEGS$"Y"Z" J NFILES::"I",,NFILE$(J): K NRECORDS: #,A$: #, VALUES(J,K): K: J :lTPERCENT@|EACHNFILES9EACHAREA YPLACES (NRECORDS): BLANKAREA EACHAREA (PERCENT): EACHAREAEACHAREABLANKAREA: EACHBAREACHAREAEACH: TYPEBAR$"S" NEXTBAREACHBARYSCAN : NEXTBAREACHBAR EACHAREA  ::"Bar will be too small. Re-design graph.": J : J::"menu"! TYPESPACE$"G" EACHBAR EACHBAREACHBARYSCAN : EACHBAR EACHBAR%0 MINMAX D : HIGHESTMAX:LOWESTMIN: :D J  NFILESRN K  NRECORDSX VALUES(J,K) HIGHEST HIGHEST VALUES(J,K)b VALUES(J,K) LOWEST LOWEST VALUES(J,K)l Kv J x LOWEST  MIN LOWEST :VALUE.INCINC: V.I(HIGHESTLOWEST) XPLACESt LOWESTMIN MIN V.I(HIGHESTLOWEST) XPLACESXORGXSTART:YORGYEND LOWEST  XORG(LOWEST)(HIGHEST(LOWEST)): XORG XPLACES XORG: XORG XSTARTXORG0  (XORGXSCAN,YSTARTYSCAN)(XORG,YEND),COLORS(AXCOL),BFw (XENDXSCAN,YENDYSCAN)(XSTART,YENDYSCAN),COLORS(AXCOL),BF PHIGHEST*K9K: J XEND XSTART (XENDXSTART) xR K K   (J,YENDYSCAN)(J,YENDYSCAN5),COLORS(AXCOL),BF: YENDYSCAN(KK ),JXSCAN: "#,###.## ";P;: KKKK :PPVALUE.INC\: P=P-VALUE.INCf KKp J: YENDYSCAN,XSTARTXSCAN): " ";/uTTCEN(P(TT$)): ,TTCEN: TT$;: ,: YHEADS$();: ,: XHEADS$();SPYYSTARTEACHAREABLANKAREA:RC : NFILES  LEGS$"Y" RC,I: "LEGEND"; J  NRECORDS SPYSPYEACHAREABLANKAREA SPXXORG GARB$VST$DESCRS$(,J):ST$(ST$,(ST$" "," ")):DESCRS$(,J)ST$: ST$(, ): ST$DESCRS$(,J)x (SPY),: (ST$,,); K  NFILES PTVALUES(K,J)V.I SPXPT XSTART PTPT:  SPXPTXEND PTPT: 0 VALUES(K,J)  SPX11SPX : SPX11SPX (SPX11,SPY)(SPXPT,SPYEACHBAR),COLORS((COLR )),BF: SPYSPYNEXTBAR: CU(K)COLR: COLRCOLR NFILES  J LEGS$"Y" RC,G: ;(NLEG$(K),);: (XSCAN,(RC)YSCAN)(OXSCAN,RCYSCAN),COLORS((CU(K) )),BF: RCRC TYPEBAR$"S" SPYSPYYSCAN KSPYYSTART ((J)(EACHAREABLANKAREA)):COLR J (,)(,),COLORS(),Bx LEGS$"Y" NFILES (FXSCAN,(RCNFILES)YSCAN)(PXSCAN,RCYSCAN),COLORS(AXCOL),B ,: ()"p";"PRESS ";()"q";"";m3JACK$: JACK$() MODE  : COUNTCOUNT: COUNTTIMLOOP1 MODE  : COUNTTIMLOOP2 MODE "menu" : JACK$( ) 3 : :"MENU",0u TYPECHART$,TYPESPACE$,TYPEBAR$: EACHAREA,EACHBAR,BLANKAREA,NEXTBAR: SPX,SPY:"R",,"WHAT.RUN", :#,  AS A$, AS B$8 ,:A(A$):B(B$):BB: BA FL:B : FL B$(B): A$(A): ,: #,  AS C$: ,B:CC$C$: FL "MENU" : TYPE$(CC$,(CC$,"."),) TYPE$"S" TYPE$"s" : TYPE$' '* BGR BGR BGRBGR : BGR BGR BGRBGRj FGR FGR FGRFGR : FGR FGR FGRFGR COLORS() FGRBGR FGRCOLORS():BGRCOLORS() FGR,BGR:L (,),:PT(,): (,)V PT COLORS$"07777777" : COLORS$"01234567"a` J :COLORS(J)((COLORS$,J,)): J:FGRCOLORS():x COLORS() : : : COLOR