: *********************************************** BAR Version 1.0 --> BAR CHART (c)1982 Zenith Data Systems ***********************************************  ()"m70";:: ()"y5": N: "B": $,$,n():8  BARS 4/21/82 D (: J,KR 2 AI,LZf < : L A x: ()"x1";:LINX:LINY:LINX1:LINY1: LINCCOLORS(): COLORS()  FBGRCOLORS():  PLF$( ) Z:WIDTH 2556 _:DEF FNP$(R,C)=CHR$(27)+"Y"+CHR$(31+R)+CHR$(31+C)t d  , : "Preparing bar chart....";::BGRCOLORS():  n CU(),NLEG() x:INITS AXCOLCOLORS() XSCAN YSCAN XSTARTi XENDH YSTART YEND HIGHESTYLOWESTv3XPLACESXENDXSTARTKYPLACESYENDYSTARTiPRNTLINESYPLACES YSCANPRNTSPACEXPLACES 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$,"."),)"B" (A$,(A$,"."),)"b"  : "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$:#,TYPESPACE$: s" J NFILES::"I",,NFILE$(J): K NRECORDS: #,A$: #, VALUES(J,K): K: J :T TYPESPACE$"G" PERCENT @ : PERCENT :IF TYPEBAR$="S" THEN XEND=XEND-XSCAN*2EACH NFILESEACHAREA XPLACES (NRECORDS): BLANKAREA EACHAREA (PERCENT): EACHAREAEACHAREABLANKAREA: EACHBAREACHAREAEACH: TYPEBAR$"O" NEXTBAREACHBARXSCAN : NEXTBAREACHBAR EACHAREA  ::"Bar will be too small. Re-design graph.": J : J::"menu"K! TYPESPACE$"G" EACHBAREACHBARXSCANp& EACHBAR  EACHAREA 0 MINMAX D : HIGHESTMAX:LOWESTMIN: D J  NFILESN K  NRECORDS X VALUES(J,K) HIGHEST HIGHEST VALUES(J,K)=b VALUES(J,K) LOWEST LOWEST VALUES(J,K)Fl KNv JrBGR: : x: ()"x1"; LOWEST  MIN LOWEST VALUE.INC(HIGHESTLOWEST) PRNTLINES: V.I(HIGHESTLOWEST)YPLACES INC VALUE.INCINCYORGYENDr LOWEST  YORG(LOWEST)(HIGHEST(LOWEST)): YORG YPLACES YORG: YORG YENDYORG LINXXSTARTXSCAN:LINYYORGYSCAN:LINX1XENDEACHAREABLANKAREA: LINY1YORG:LINCAXCOL: :LINXXSTARTXSCAN:LINYYENDYSCAN:LINX1XSTARTXSCAN: LINY1YSTART:LINCAXCOL: b PHIGHEST : ,: "##,###.##";P;j*K9K: J YEND YSTART YSCAN> LINXXSTARTXSCAN:LINYJ:LINX1XSTARTXSCAN: LINY1J:LINCAXCOL: H (,J)TR KYSTARTYSCAN,: (YHEADS$(),K,);: K K   K,: "##,###.##";P;i\ PPVALUE.INCtf KKp J: KYSTARTYSCAN,: " ";: : PRINT USING "##,###.##";LOWEST;uTTCEN(P(TT$)): ,TTCEN: TT$;: (YENDYSCAN)YSCAN,: XHEADS$();Lz (YENDYSCAN)YSCAN,(XSTARTXSCAN)XSCANc J  NRECORDS (DESCRS$(,J),,(EACHAREABLANKAREA)XSCAN);" "; JSPXXSTARTEACHAREABLANKAREA:RC : NFILES  RC,I: "LEGEND"; J  NRECORDS3 SPXSPXEACHAREABLANKAREAA SPYYORGN GARB$d K  NFILES LOWEST PT(VALUES(K,J)LOWEST)V.I : PTVALUES(K,J)V.I VALUES(K,J)  D  : D SPYPT YSTART PTPT:  SPYPTYEND PTSPYYEND LINXSPX:LINYSPY:LINX1SPXEACHBAR:LINY1SPYPT: LINCCOLORS( (COLR ) ): D LINYLINY : SPXSPXNEXTBAR: CU(K)COLR: COLRCOLR NFILES  J RC,G: (NLEG$(K),);: LINXXSCAN:LINY(RC)YSCAN:LINX1OXSCAN: LINY1RCYSCAN:LINCCOLORS((CU(K) )): : RCRC TYPEBAR$"S" SPXSPXXSCAN K/SPXXSTART ((J)(EACHAREABLANKAREA)):COLR7 Jf ()"x1";: (,)(,),COLORS(),B NFILES (FXSCAN,(RCNFILES)YSCAN)(PXSCAN,RCYSCAN),AXCOL,B ,: ()"p";"PRESS ";()"q";"";3JACK$: JACK$() MODE  : COUNTCOUNT: COUNTTIMLOOP1 MODE  : COUNTTIMLOOP2 MODE "menu" : JACK$( ) 3 : :"MENU",0u  TYPECHART$,TYPESPACE$,TYPEBAR$: EACHAREA,EACHBAR,BLANKAREA,NEXTBAR: SPX,SPY:7"R",,"WHAT.RUN", :#,  AS A$, AS B$z ,:A(A$):B(B$):BB: BA FL:B : FL B$(B): A$(A): ,: #,  AS C$: ,B:CC$C$: FL "MENU" : TYPE$(CC$,(CC$,"."),)" TYPE$"b" TYPE$"B" : TYPE$,' 'l BGR BGR BGRBGR : BGR BGR BGRBGR FGR FGR FGRFGR : FGR FGR FGRFGR COLORS() FGRBGR FGRCOLORS():BGRCOLORS() FGR,BGR: L (,),:PT(,): (,)a 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),LINC,BF: