CQ80K Double-Sided((j** NONE **yb&)TImage file created by unregistered CopyQMp  <5Ȏ3ێ&& &Zu>} ]t uA-I[r@ؾ@  SQY[CuIO SYS No System I/O error @&G62ts.ztbU @m& RZB't&&OteQIuYtú3ú3 @` @`! #@%`')+-/1 3@5`79;=?A C@KMOQ S@U`WY[]_a c@e`gikmoq su`wy{}@` @ ` @ C@` @`! #@%`')+-/1 3@5`79;=?A C@KMOQ S@U`WY[]_a c@e`gikmoq su`wy{}@` @ ` @ CIO SYSn#Z-DOS SYS:q LCOMMAND COM[jALTCHAR SYSBZBASIC COMAUTOEXE1BATtEAUTOEXECBATaOFCHOICE BASQGMENU BAS tIB BAS nenT BAS ftD BAS DzE BAS F BAS L BAS P BAS GS BAS aAR DAT 5COMP81 DAT28TERM81 DATk|CORP1 DATRGCORP2 DATSGCORP3 DATUGCORP4 DATVGCORP5 DATXGCORP6 DATZGCORP7 DAT\GCORP8 DAT HDOW DAT NAB DAT G/RIAA DATvD/NEWDISTRDAT J/AR PIE,4NEWDISTRPIE 4WHAT FILtWHAT RUNWvTC81 BAR9TC81 SDE%CRIAANAB LNERWORLD2 PIS m4DOW TND.9TC81 DM3 Q9,vz Z-DOS/MS-DOS BIOS release 1.00, version 1.00 (C)COPYRIGHT 1982 BY ZENITH DATA SYSTEMS - 08/27/82 FOR TECHNICAL ASSISTANCE, CALL: (616) 982-3860 BETWEEN 8:00 AM AND 4:30 PM (EST) ON NORMAL BUSINESS DAYS THIS BIOS WRITTEN BY DTP AND BB DON MOFFIT, PRESIDENT OF ZENITH DATA SYSTEMS TOM DORNBACK, VICE PRESIDENT OF SOFTWARE FOR ZENITH DATA SYSTEMS BILL JOHNSON, PRESIDENT OF HEATH .]u._.&a$PQS.:[YX.]y ._.&a WILD INTERRUPT .&,.]u._.&a̎Լ$.0..o$UVWRQS606,6_6.,_w7wȎ؎WFkFe#2#]]]]]]X[YZ_^]]y_&a&p t ̈&p o$ߢo o.0..'@''@'- ERROR - MEMORY PARITY OR BUSS F =0000 IP=0000 CS=0000 DS=0000 ES=0000 SS=0000 SP=0000 AX=0000 BX=0000 CX=0000 DX=0000 DI=0000 SI=0000 BP=0000 SYSTEM HALT .]u._.&a$PQS+&>[YX.]y ._.&a RESERVED BIOS ENTRY POINT CALLED w Cu8_"EhcZroȎм$.] 33&˺$ڎË3Ǝ..&c&e&x&B  $(,048<Ȏ؎ uآ2N}62N}6_2㰯 =6p簰2帨a3uo t4$3؎@;u 33u،ȎذH@E sh s sc5.-<s> tt '( '($(''2㋟"g g$ ĈG GGW;t"t ;WuG""qVQggPqV^uXPGȸ " QqYqXY^g⨡"%3۹"%WS"[!s)PQ6>!EuD "D`YX";3؎¯$Rډ+xv'q rtqs[w 2tG:- rG< Htvqsdr)o(!cekm.>t .koqoq.g.iRj / %    - 2 . Disk read error Disk is not a system disk Timer failure PRN Configured wrong AUX Configured wrong CON Configured wrong Version mismatch between BIOS and LOADER Version mismatch between BIOS and system ROM _ڋ.kȎ؎b!tbD!D#D0!b'!t0Ct!02>-sNN..1Ǻb'!ux0-sNN..1Ǻb!!یȎغ=!uJ^`K'!/<u+ێӼ[.]3P!SP 3˻ w Error loading COMMAND.COM Z-DOS SYSCOMMAND COM ALTCHAR SYSSWVRPrذXZ^_[SWVRPXrZ^_[SWVRPXZ^_[SWVRPXrZ^_[SWVRPyXrZ^_[SWVRPlXrZ^_[SWVRPUXrZ^_[˜.Z˜..\.].6^._˜.Z..\.].6^._]d<.aPX.atPXsPRȎut a ZXϰ@أb+d"t)""P""X_=r 36f_2^6h&^]_-dr3_^^,\r \Zbd7 @@ph -Z- ;x;7x7 L L.]u.&a._$PSQRVWUt9Āt@t..>wt #.$_ t#4P}린렻. ]_^ZY[X.]y ._.&aS.s[PSt s.O t$ [XPS8t ts.O t$ [XV.w.w2 t.w .^V.7.w .w.w .G.G^V.w tN.w.w ..;wv.7.w ^V.w.;wr^F.w.w F.;wv.7..w ^þE hv2˚|u)PQUآ؊Ěآ]YXËJsÊDt$Dt|U:D uDD"À|u\!<u |:v߈\!Ë|"D2D :DtÀ|u@DuD!:Ds~D!ULs$<tÀdO|tFDtvs$<tÀd!Ws$<tÀLÀ|"uL"UËsË|Dt$DtË|;"D2D:DuøË|-s u 38S.Ë\uÁu8[]u &a_$PSQRVWUآ؊Ěآ]_^ZY[X]y_&aËTT PTT $ X2ËT TċTËT$ 8S.t[ËTuSuS8ۋT2AX|S.2GDt[ËTTuSځuS8333<u6|2pr@rπ ||Ċڀ|"tAX<tÍ4QY<tkQV"^v32>u>v uhuv2犍2젴$ p 6DBABA@V#^|PYY<uL|PVbS.[T$  TTuSׁuS8<tË|ëð6T"u&eqSˎûq$ruPX[EqsP<rK狽"@ueMEEEEeMEE)E)E_&<}EVS拴"\DPtD(PRZXut |[^˴.xqrtvqĜksF>ttEt@   .]u.&a._$QRVW_^ZY.]y ._.&a< v<t< u#uÊ2"3â"&" uL3D@u2"");6"u""u 8"""2&"6"2MDuC uE!u>4>"tDu DD u|Q VWS"VDtD$2"D@uD$2"edED_Et:DED$E$ ĈEdM@&<r,<r,$d ĈD&<r,<r,AEuM@E$A5[_^Place disk x in drive x:. Hit any key when ready. 2uWtPLst sX Xt2 2&Gt"D @kL&D "TRTZD@ D tDD t@&G""""D"DuD"t2Dts"l:tU">"tvDDtD D kDtDD THDtDzD}}>"ud@u<u |rEL&D "" "TRTZ&D "t@u6"tPXr"&&OtDMD @L&D "" "TRTZDSt6"tzPvXrp"&&OtMDDt@Du"&Gt"d@uu |rL&D "TRTZ&DDtDHDu;DDtD DbVPDtDXDtDP"T "T""Xs"DDtD 7DD@tQ DYD P2DDtDXÀ>"u"uD u""!!"9"!"!":DrDDxDtDl`uȈDD PDtD}D 9-Q2cDU YQLQL.Y7tQYuú 3Tú3 T"#4#V#x##4#V#x##4#!1XP%%@d1XP%%@dQXM@dQXM@d:{{||}}~~D MDNZ]bsy| SVTWUEJDPQRR Z-DOS/MS-DOS release 1.00, version 1.25 (C)Copyright 1982 Zenith Data Systems $.vXX.P.6$wUWVRQSP.&.̎Լܷ ~F..&.FX[YZ^_]kYbzta6|h ,*8:,,f,&.6>^p/$.P'@X<t<t<t <t< tC@ÊPtX@;^ w89s ӁPXË?s ?þtu߹ urR_rȎs=Ur' t:&t t#}?tisÃ>DuD:&tÊ&"$ttá@;F sO3ҋ^ڊf;tS}[FVË>G;~ s> ;r RXZFr.$<u ?u.r x&'v t;^ wJ s?2|rwrlrg xc  &( !:R[Ãu Z<С:^;sK48"FN2tuH3. &]v 3[á8 t +F+s3ۣ>3vB@&]&U t+s3&]s܇BAJË2";u :$tJ2 tRU.]Z"u3HRZ$.!>(>6(6682vsá4@4;6wTs!t':Fv2sv>20ì< u < u 3 uG 6>(u >&&e>tui<6 u>hthQWh_Yj<u 33wc x&E&]+:<ru t;s2' uʼn02>>t>Btr^!B2WPRSl_Xr%>t+؋N6sY[ns0볋6&(+3&L;.t"  t +3s@ȋ2&E0&E*,IAá@ t>+r86@ttt <t*< <t&.>&떋*s *,>&Q&E&U x?&]:<IvNP&E&Uv t@6X2|20+t QXrȋ0BItr20>>t2B t@4%!2Br WP Y[0ء@ t>8(+:<ʋ>&&;E&Mr&E&U.N t=-vNr݋>&:&E<&E3"1D3&] tRSF*‹ыv,Ȁ;sIC;tK2+Rf6(ƣ(XZ+0[.9r96r PF:Xt+*̈&QNJJ V YË=uE U ؊ֶ4RQSËC;^ ~)=)[\X+ZBŠVB+*w3bt H~ɓYtڋu⳺kD[YZ9 uˋ>&&]3#tD=rsur5 x:&E&m>:u $2&E&]>3 3 rыmE xR_rك!&M u33 xFFDP Zt@uBª@s&%..ðòr^FV JN6\TLL$6lL2 t. .QY.E!U#}@su$.:s.ÌȎ t܊:v8 t݊J..Vk<t.:t2<t~<tz< t:< tZ<t[:sc u:sFǰs+ W_}Y_uƌŌێÎݾð > 9냰\/^.^ tN&< s< tC u tNMWOΰ Sv &} t .**ˀ[_tO &*0:t:t w:tF6*tItWG_u*]@S_W^xs_1' < s< tP^X @<t@<t<<t8Ê< rq<t.PX @.t @Ú@t<u@@<t)<t,<uްo..&X[YZ^_]#I..< t <t%< u. Qȵ kY.k.cxt PEXutÊ+;vIA&f&F&F &+F &N@@&vH3 INIT TABLE BAD $p YQLQL.Y7tQYuú 3Tú3 T"#4#V#x##4#V#x##4#!1XP%%@d1XP%%@dQXM@dQXM@d_{{||}}~~D MDNZ]bsy|bȎ؎м !2t ! !$_u9, ! !9 ! u\!c<%t < ud&b c)!<tt  \ )! _at:!\!u;_uxS tkб$-$-PY3؋ וA<PZրt"̀0*Ѵ!''ù ]]  >m t \!u3Ҵ!\!  u3}@j\'!3&<t !3k\6eyu 3}.uG? ݀t.!/ ]/? tHЊ&k4" Ģjg ¢lfMtJu03\6e6et#u]t63. !;l / l3hit ;uMo t+h !>jtiit+tۋ6e#tV;l^ j@:<+u0kF)!hu !ú:! u3[]@H!+ʺ:'!ˀ>jtы>uA+ы;rN벡 t>Ft;u.3>guN !ð u!>iu !Y u>3+-@3ɇ>iu,3! (! t !!? !+-ú'!\<u 2ìtN< t <=t<,t< ú ! !Ȏ ˾< t -/=z !*!Cٹ \ËʲdĒ--/tr7:t:u.r)l< t drĴȬ< u +! u^X !볾,< t ::t !,!:3ɺ::@thr33Ҭ< t":u&.`r< t:uPrԬ< u-! t3 !뵴 ! a!:c< tr:t:uN:ur r Ê,0r< rFÊŷ /% :u. 00<0u*ǷĒP!XÌce!'! uym i+ЉiӋc;wQus;w8>qt+ȋً3Ҵ!i'!)it&uۺ- - !6:Pˡ} e!>kt"'! uȋ>egŎ&-kuޡsЋ&u.{..y+!.3ɋ.2t.Bad command or file name $Missing file name$Duplicate file name or File not found$Error in EXE file$Insufficient disk space $File creation error $File cannot be copied onto itself $Content of destination lost before copy $ File(s) copied$ File(s)$Program too big to fit in memory$Invalid drive specification$Strike a key when ready . . . $Illegal switch $SunMonTueWedThuFriSat Invalid date, enter as mm-dd-yy$Current date is $ Enter new date: $ Invalid time, enter as hh:mm:ss(24 hour clock)$Current time is $ Enter new time: $Are you sure (Y/N)? $DIRRENAMERENERASEDELTYPEREMCOPYPPAUSE DATE TIME  or $File cannot be copied onto itself $Content of destination lost before copy $ File(s) copied$ File(s)$Program too big to fit in memory$Invalid dP,22, Q&&Y""&`>>>a?bscdefghi>>j>kUUUUlm*nopqrsStuvwxyf<^8N6I6bbQ///b̔aэԤxu1$+y.+/..F(0/++y]4آLLLJdjdrdKKK!| lfUܙ}9ar-CUZvw+,jUTϪNBTSSAVLOAEEVLOSžONԚLEAҒSRLIINSNDBV+V,V-O HRALLUAL̳OMMOεHAIζIRCLOLOLOWELETũATI͆EFSTҬEFINԭEFSNǮEFDB̯EƘRAATQLSšNāRASťDIԦRROҧRRX O/QO҂IELĻILERIOTωO TωOSUEԼEXNPUԅƋNSTNNMNKEYILESOCATPRINԞLISԟPOEԈINŰOAĿSEISԓO O0EEFTO1COPTERGOKI2KS3KD4IDEXԃUL̖AMEהOPEκUԝΕCTPTIOηFRINԑUԽOKřOEESERESEOINAINETURΎEAćUΊESTORŌE͏ESUMŨSEIGHTNENUͫESEANDOMIZŸCREEPTOАWAФAVPCTEGQI TRTRINGPACEYSTE͹HERO΢ROFƣABA IMRSINSAARPTIDTȠAIԗHILűENIJRITŴOྜyy||PF<2(z{4]OQ⦴^c}hNEXT without FORSyntax errorRETURN without GOSUBOut of DATAIllegal function callOverflowOut of memoryUndefined line numberSubscript out of rangeDuplicate DefinitionDivision by zeroIllegal directType mismatchOut of string spaceString too longString formula too complexCan't continueUndefined user functionNo RESUMERESUME without errorUnprintable errorMissing operandLine buffer overflow??FOR Without NEXT??WHILE without WENDWEND without WHILEFIELD overflowInternal errorBad file numberFile not foundBad file modeFile already open?Disk I/O errorFile already exists??Disk fullInput past endBad record numberBad file name?Direct statement in fileToo many filesDisk write protectedDisk not readyDisk media errorRename across disksFile Not OpenDevice UnavailableIllegal FilenameDevice Parity ErrorDevice I/O ErrorROROp8u  zz!z)z in Ok BreakCC7@?2C:"b C   2oT tޥCs 2 "tu q #YŠʢ6o w ڋs "t  ډ y ۇڻ{ t "u2Ѣ>!W:F>V6,u"BCj tk S軒ZR*r Vj @s2j 2tĜvj t <*u:up< ugRmZo rTRQ a u m rR;Zsk 2j rtj uQu tj uQ\QSb[YQsZRtGZ u5 Z  ^VYSSP[ ڈ?YZSCCCCIIIICBI uZ?~ !~ ?EڊڊC uCCC t< s< rCډԺRt<,tZ(Rt<,tm!t<,tt<,tCg Z^VSEˊC KtCC;ڋًts2& % ; u @*ȊŊ2BB<"u3< t % t/CPUX,:tiu lu&Y. uÊ :uCBGO TOUB[ S-,Aȵ.[CS ȋ.$uC:uN.B y<(t.u u u= Rt^Vt!,m ttڊ um j [k Y<,u[ u\<,u 2 s;S[S t ?J J4Ys+Q2f ,[SRRKd 4&K<[t<(u(Cu<"u@<(t<[t<]t<)uut<,tn^V<,t$ e tS(u3[K^V<,u|[K [t,S 2f ^V",$^VR<,t f t 2~ tm/Pu8b<"tf t:,K(XȠ~ uÊڻ^VR*XP<QswwKt<,tP^VKtkZf tR[Ms uCC upCCb ~toK/S?[Y*Q/Lg Kt ,B,@C[ZC/C ugMNQC/CQ^V;YsM^VSQډu .}[< t A@릊 u,C2% 2 KACtߊ t< r(< r8<"u % 4% "<:u% r$% : y<<.t Us2 tu Auð < r< s5날% rCsR$:u$t :t4t$:uà,rû2CCCuà{ uSC"t<tCCCu[QCC7KK YtRS~5YZ[^V[8ڋEtS݋ZrK uu2{ u1o 9 7 YCS"t  o  2>642t8f۰P,u>^42X@.2)22 ۺuXڋ Cxu+ø2 RS rm ^VP, X:t^VS ;uZ[^VR9m[ 2m[d uSd IIII xIIڇڋ ;ڋBAuIى [<,uXĞ[Ê.:t KuZÇ͊^VPCCRS6BuKPr[CCRSRJs ه[ZYXRBZR u*CCBZJ u[4,d tآd SهSطAهY[>2i>>>>M??? ?>?B?N?X^A@?ڹGڋʺ>ڋ82ڋ<+t<-tŊPR<,t3YX uFRZs(PRSA[SY[RڻuS[ZXsr PQR @ZYXr TىV2ð@ s <sr׊ t׊¢à tuڊsJsފ BÊsuASڊs?sISy?r?[É=SRPWCbQPX[ u^tȋ.u:tCCCQ@Q.s( ؊QS)urM3 [YC.tS tC< t<`r, [SK[<=th<+t<-uuAR<,t<;t<:s<0rŊڊ,0жڇtuxR ;rB<;t bu[i^VP_[ ى K;uZ7CZCB[Mu  [S# ^VȢe RQq t=؊^C/CQuSqPX[YK/Ku2q t u_JYXĞ^VS<,t<)t<]t ҉~ [# RSPċ _# tXĞu}^*u ʠ$ CжXĞuC/CCC\ C# ЊrP 4 ȵXsYAPC/C]XuڟPʇsjz K;u2A\ هKKCCXrFȊC[CC^VP;rOG]Xȋu$ ,r t  zYهڋ~ [ÊCQYQRPqŋBCuXZY\;ڋ f tZS2f R/uMC$SC<\u< uu[\>!2ЊCNS [K.uu,<,taSj [Kt[,:tALLu,:td QYZQى s Ӊ [;rΝtuCSEKCC uCCC t<:t:t KytSd td 2d u <(u i<(u[ u IRBR$ L u_Sʻ5ISII x âd <(u^VII[KuX<(u r)uHi,^[C  ;tXSCC $CFٝYxQ ډ [χڋ ;ڋBAu*ÊЊNJJIى Ë ;t%SCC $CC/CٝYxQ[׋  ;t6u?2жY ;t\PC/CXS<u\ [C\ ;tй3JQCCC uS ;[rSE;[sSKKKSv[W[ ˋ  +ډz Z  WKZ t ˋ y݉  Mư tO 2  ˋz ى Z Cڋ Z ;ڋBAuIى  EK uJr8IʊCCCPX<rͱ}KtSS1t;Ub CC< u B7KK[Kt"<;t7,Kʰ,뼰""S? tCS4ي y4ي[<u($*Š؊Ɗޞs K u[@P2XߋX UPwX:rE$ CUTչ ,uQBU4kQR2PQSv< uu<"u<,"u rSȊ<"t0< St\[< u&Ȋ<,tr(< t< u < t<, t t :t :tjWsS<"t< u Ir< t<,u< u 5r< t[, t [wԟPXĞPsFXĞrF[ tCuY뷶22PKt!],YRt?XĞ uXĞp oWCC"uCs ZuXs CػSK[뿢6s t tuX< u t< utCu< tLuD@ ; PSQ^`&f&aȢc&ebdY[Xâaf`bQɈcYdeÈ&W`J&àÊ6Ê&fS۷ef$<t< s[Seff[ùgƇCCRQSLr ('[YZÜ\t ÝÑP2 tu:&fwBrt:t:&fr:&fsđ:wcrr^tf.fP*:&fwQ2n /'YX":u 6d@ u:w͑#wr7뚑R&fs&f*:wPX:u :&r&:u :6s6Ĉ&X6QR6f YZʏPSQRIr:ctrc:cZRtr:br ]tZ(]t w rPXsZR:csZZ Y[XQʊb bQcPSR>d*wr$PP.a(ȴЊ6dX tZ[XYVP!&b8$r&c8$v$X^:r:w$ÊbPSQŠÊ>dc*Pv.e'ȴ6dX xtAwY[XPSQŠ&dÊ.ePRgeCCƇeƇfZRegƇeƇfc rṵZQPSƇfe[Xe8at2*rR $ZYm$RVW>u#F_^ZÜ6u4 S! r Y W1Sft$6[t Έ6ƈ6Ü:t U rs6du :u6u:wXu:6wPPr u :u ':wr<u <Xt0Š6d*$ t 'ItCIXt<u:v CrKC Ê6^uN<tJ=u =uPS?f[X= s#P7.WP.WPÈ6X, ,#^  PSQW.W u\_Y[XWW5YWWYXYZX*]YY]\WWW^WbVYWZWWYWAXXXXZr;R:rtRj:Zw6:6v6:u :6s6ZrG:sss\t o6:6fwt:6fwuŠ6doR6:u :6r"r KXQr6dZRrr sFrru:w6R:6u :6wGrr=rsXRZurS tB$7 !b6dR6d:cwxZ R8:wrr%6drZÜ:t s= Ê>6:vR :w Z:6fvrML!:u:6s>R:6fv/R6sƋZ:rw:.r:u *v^ZRQ:ъ6dtvYZ:.dv7YZʊ.f K:v :&ds&d:6fv tR%A2ɝrru: wj ti ta:tY6]6d>W:_t> us!rtruZõSQR6.f*r:u u&fŋ؊kP:v6dPR:6fw ZXst&!:uP*&Xv(&s>ϝXr t:>ft>f t:uSXZY[X&f3SQRP:w{ڋYQ:v:u:.v.:wWP(r tXQ*윊r+P:r R Zr X t R*wZYR :w gOZX:u:.rZY(.s ZY:v1u,<t(6:u >d> X< tZY[:t:&sr:&fs1rt<ṵ6dþtB\t=:r6:t+  R:6fvZ:cuUgtrt:&fv,rts >&fV6d:u6Šsr: 3 $:uV^rh6d t:cvcX6\VPQ[RP2 u XZYX^XruPgXr tP:Xs :u*<u:&s Š6dɇSPQ3YVj tƀw^r RZOWQ:fu%:r:u:sRP*.fw28*zs P Xŋ tt tWP XX*Z[Q*űŠ{Yr"t :>ft t>fPR ZX u:w~:u :>v>_Ê< t:.fv*.f QuY[S>f[RVPRs +θ ZXR t P* X^Zr t<u̝6P &dX86fs .r6d:6dsr6f8cr:brt:br8crt:u :6r^:Wrr:sŠ6d:w :u:6wSr:ts ӊ6d [:t vrsŠ6dr6Rs u<0r<:r<,tY[)KX,Str tDx а Bu[(t37uK/tI=Q.tduVK蟱t*,^X^XS [ԩ?#u #RQ6 tYZ©<#uQtZ:t<u ,щ?险鄩ftΊ XtsB<uá? uTQMSVZYÈ6ng rx < uBAƄSn23ɜPSQRVWطu ]_^ZY[X PV6j;6lt^^XÊ&oĀu&t ttSQR6RRZY[VMsIt骨1uSQRo$oZY[ tp tSQR*ZY[ ^Ë6?Ft9Nu t,/t7ugrƄ/Ƅ0À722 u  2ÜPXPXS50[V6?^È27 t RCIË6?4xr trRCIZ V+LZr sV6?Ft Nt5^^kQTgY< u u < rt:r P Ӱ X< r< u<urf tVP u tmX^ïV6?^WVPFtNu  4+X^_WPK.= t+XP.hX_&hP x2؜X``]S|Ɗd x2PRW  IOVRG>.u.8uJuG. y^^^_ZG.tZ^.u邥 ,@r<snu uQ^6RV ^X9 n<u><u3!!u鮡!un<u<uzDŽ3ɉ-/n<t<t<uORÍ;E39u 9uƄٍ(V^u-'3er<tB3Ƅ-38댃(s*Àu/t!r <u 1t Àu5t*0tS3ۊ/*00B[ À/t`uS[Ë@;9tC@Zt5u S[/uGS3ۊ/B[/< uƄ8< 8ਨu=B ~뉔=JDŽ@9St ů23ۉ  ZBˉ +;rʨt!sCVQ6 > sY^)(VQ6 > sY^  +3 u $PSQR C;;ut'K-DŽ/DŽ0(DŽ*t8ZY[XQW-@3BH!N u/0 _YPƄ/%"+j;>lt;tVW uK_^XSQSR6?/*0(DŽZ!Y'![<諥g Ÿ'a»9@ًËRZ;ù EӋ ;tN؋*.2PŘX.2Bu u˵ ǹ EӋ ;tŘ؋*.2PNX.2ŋBu u˵ SCC[tÜ u@S;2[QRW @r :uII$,@r<sê-I< r<.tJu_ZYÝ trtװ J Juu*.Dž* x2)!!״!u逜 vu < t.f:s Q?2!nu uX ܷQ Y t9t7yDž,ƅƅƅƅ3 tr N truH>t"WQɎ]{.Y_<u tZÊZ&uuYimrxyS [SQRVWSȘPȘP3؎_^ZY[t<tSt2<0u t)||.:t .?tCCCC.C.' u [ðӊx؀8t2.~.~ òx y1RZP!XRPuu3؎:6u :uXZXYZRZRրZR! ZI(J)K*L+JS T!U"V#W$P%Q&R'H ABCD@ON~/Cw>CC tw1t  tw R2+}. Z2҆-}.$228t u uY[ÿV?TpÉËË&Ўل't ل't ل't "ss x;˟rK xr 3ɟ3Ë㋟ ؉<s(e؀ۈ؀ۈ$آË&Ԋݺt 'Ўt 't '݋΋ûðËˋ3 I~sCŀtAQ2Qŋe$YQŋ$YЎŋY2| 6áu--átáu"uá=rÉ؜3ҋ2\Ê2sˈ`bs2,b.sÒ}&25"&05 & 5"&5"&05À>b`2Ź\>6'Ў\>\>6&G&5GˆF*ƒ>\6ۋ+Hu>`26>\&Ў>\>\62ҋʹ*4Fʊ+vG+ۊ+;rN<s+܈&܈&$آeJu&wVQUoY [Zd3tnrFuNsCΈ&8u Nt\s3ɋVu&w3Ft@ru^&Ê&630rÊˀtKrÊˀOsC2Ɋt&22t&7262. tЎ&7262. ͊ Bytes freeZ-BASIC Rev. 1.0 [Z-DOS/MSDOS Version] Copyright 1982 (C) by Microsoft Created: 15-Jul-82 Error detected in command line Y :PPP?? @`  !!""##$(())**++,0011223348899::;;<@@AABBCCDHHIIJJKKLPPQQRRSSTXXYYZZ[[\``aabbccdhhiijjkklppqqrrsstxxyyzz{{|€ÀLIST RUN LOAD"SAVE"CONT PRINT AUTO FOR NEXTGOSUB TRON TROFF  fEND OF VALS ,$.EE6 /+sC6 u#ù  V2.תNu Yɀ?0uCSd[t/C C>~  2++tC< t<*tKSP2<-t<+t<$t<0uCsKKX tX t[%û / & t :*uuNt2܌.:t ӌt&Mӌ. 44888848K0& tK$uK/2 0Cu"0CurT[t SP#Z[P tt  u*PxNSPPpXuNH XP5rĘ ĘX[xXYQPSP,X[2ܠ  t  ů2X6 P. "X ~6X u K<.tC~ XrĊ& * t  u &%%%$$$###""""!!!  L} Hz@PC$t >(kn@C:h* 51_c.1@v:k ^# bx-Àz&XƐn2xʴW ?h)͡SЅ@aQYԦo% 'N x9? 6!OgI#E@|o|p+L67EV߄vl: {Η@H½p Pv5$cCu͍M r5r1.eE%#!Dd,0Ƥ~@zZrN vH Tʚ;@B@B''d &;8|Yt&wz^Pc|u~r1e&X4#]I׳]b5~P$L~y DNn"~CÞ&0123456789ABCDEF& p ws y $ 6Pg) xu 薚   :t  yB%r   .Py uXSrQ) ty YP{ Xy Y&XyP6"X~ :r Űŵ[P20uCK?0t?.tCXt+PE{D'CX+y-ش/, s:CĉCCٻ < u.C uÿ ø -u}y tyà t ty à$ <r S;[3һarqr6 6 $ Z[:ùCCùKKÀ û r&Q 'C2Y t& tQYuþ ÿ  .߃ÿ QSW _[YQSW   Ë  uà uS[rCr6SW2 xC x +rFu> ++ r5u-+ r+u#2Q,rSW 2 y& x ,'Qޠ yu s  Y_[û [rSW 2yQ뿻6u $  .+.x xá xx6 á =uS [ û 3 󫢫 rwùzrke drU߹ H Ir: 18r-s] 5OOUÿ  s XGGPyr.2$  m+V3ϋPX u$ <&u<-t<+tK sڌ3ҋ.:t ӌt#Mӌ.y2 (Au`yQSW_[YtC.2)u p5zS0[Ë xh t`> ΀s@ 3(+s NFރ6 $ (w+W }uy u 7 u^ y&> rRS6 6 [Z[Zt܁ y ȕW$ SR6 6 Z[uRS[ZyZ[<rySReZ[؏  & s6WSRZ[SR   . sZ[SRd tZ[QZ[Z[dxP2 XĞ t-g wu׋6 97uRPRxA [VS u 2t _ ^V 'CC^ u p<RCCXS [Y* t Cч~q g ?,u ;w~ PXS[s:`sbPs:fsOP}s tPX: t Spr3 [Y[P'[PsPGsPmXYSPr[},sfPP"s`PHX:`X:f"t SPQYXr[X}"S8r[sPsPsPY[XRr[S3ۊ6[ |藘(r8:`s0Pr(:fs P)tr)u<t XYS}XYSRъZ[K{ SZr[ÿ3GAQW=_Yt s3GGrAI ù3QS<(t<@u[X逢[XKU{t#<,tPKG{t <,t<)tXu|CXCK&{t]|^;\r+\ZXut SQRUZY[Qw(襉Po)Pzu"ZXY tR:}JX")6!6=s=ds\=Nsdl=sL[ tD Sw[Ë  ÜSK[!  ^6 6 ot0mÇ2 Ȉ/C/s S3ۉ  $ [$ Ësû  R r Ê2ڠ$ ֋誏+AڋAÜIulx ty3 u[Ø$  $ [Z[ZC7CCCS[o,Q2\  C0 (tt9À6 3݋‹ЊxxNH+tpx2x;u3Fu tt‰ u6 $ ] y y> ډ í:tF;u:$ u:,uFЬ:qt trtȋ[Ë.w 뾋. :tF;u:$ u:,uF:qu trtЭЋɟ;d 葝e Sk u[rt1虎(6 iY; t >e t,srR<,uql)g cP6| 6 ˋg  2 22s-+ x =rރy ރ 2ˀS PQ!YX9s_S [2û xCCs t4KKKK CCsKKuCCt    á t6 t t3ɋ6 *s ن߉ ߓ֊2㜴 2 tQr6 & % Ģ Àr't ֊2ۀtŀ uy%*̊Ês/ u!Buus  t P iy  2 tb tՀ쀀*p΀ĀP2ɭ̀ FG %W!WW ‹tY[_ (6 3;s\ u;w;R3 tP t tZ]蕒sO    sO+     ‹ X x utwrtsuZ$߀ ǣ  ߿ ƪu B ui  2 쀀*p5ĀPɀ$2΀-2ɀπV ‹t[)y;sV3sNsX xtʀwrt st$ ǣ ƣ þ+ЋsSWQ,0PXy sx  HPr3P $ t (yZ6 6 A[ZnZ-Y_[ß>$ uSWZ_[3r<-u<+trÁ rP Z02 SWuD_[3Cxdt/{Rudy=F$    & @ˀs#udy$ 3 RV `^Zy uSdPQ  3ۀrݑ*͊r.t"πp yYX $  x utc32 Ƅ yފ$ c t uË o6  M t,ϋ#S߁ sBsB[tGGۋS [tFF뾾  t  x CCi u[YS /sCC[S uC[Ê sAٜ  ۜ  ˀy2 tyBuÝs2y Ӄñ* '~Qu   à ,P 廭Z[@㻾Z[cZZ[ 1roh9 CC t%t!xu,vv  vo>  x!urފ2t uP>  . RUS[[Z.P6 6 ..Z[XHtPSRV^..VO^Ssٻvr [K%stA[x?* yP26 R$Z 6 2 tA 6 Р tȊŠx2PQRS[ZYXx*y .~ C2Ɋ*3R6  R6 **x'6  XZu~ x׊*,Ƞ $@uÊ@u2䣶   t+S[y-S&[C0ߡ  x ̵ s SR2Z-؊,x RXP uKx etny  .&.2&2.&2..و& $ CC$렋3 & Y sCCu t u& &  $ \݀ĀsBuu u ?ݝu FF>  ߈ËiQr > y> yỹ YQ ໹ gỹ ޻ Os Yű*EK^  tl\ʁL &!ڎһ5 2 W.CBu3!辷5 A:L!"2>!  69 7  5 3 ^  ^ u/CKCCuK^ b ub Artwork."; PCURY%CURY%: :" Interactive Business Graphics.";R ZCURX%:CURY%CURY%: :"Enter your choice : ";:  dFKEY%($()): FKEY%F1% FKEY%F2% d : FKEY%F1% n,x: :::normal exit n "";: : : x "";: : : ::artwork zbasic f,autoexec,*7:business graphicsT zbasic menu,autoexec,*h CURY%,CURX%:"O",,"AUTOEXE1.BAT" A$: A$"*" : : #,A$: TIMLOOP2%}:TIMLOOP1%"R",,"WHAT.FIL", "R",,"WHAT.RUN", . #, AS A$, AS DUMMY1$,AS TL11$,AS TL21$W #,AS DUMMY2$,AS TL12$,AS TL22$a ,k , TL11$(TIMLOOP1%) TL21$(TIMLOOP2%)" TL12$(TIMLOOP1%), TL22$(TIMLOOP2%)6 A$():@ ,J ,T^ h: h::abnormal endfr BGR BGR BGRBGR : BGR BGR BGRBGR| FGR FGR FGRFGR : FGR FGR FGRFGR FGRBGR FGRCOLORS():BGRCOLORS() FGR,BGR: (,),:PT(,): (,),O PT COLORS$"07" : aCOLORS$"01234567" J :COLORS(J)((COLORS$,J,)): J:FGRCOLORS()::7" : COLORS$"01234567" J :COLORS(J)((COLORS$,J,)): J:FGRCOLORS():abnormal endfr BGR BGR BGRBGR : BGR BGR BGRBGR| FGR FGR FGRFGR : FGR FGR FGRFGR FGRBGR FGRCOLORS():BGRCOLORS() FGR,BGR: (,),:PT(,): (,),O PT : *q MENU Version 1.0 --> DATA MANAGEMENT, GRAPHIC DESIGN & GRAPHIC DISPLAY LOADER (c)1982 Zenith Data Systems * : ' FGR:BGR: : ()"y5";: O::G "menu.bas": n():y  these wild routines draw little graphics ( all coordinates are in Row(1-24),Col(1-80) 2 < F (c)1982 Zenith Data Systems P Z let's goR d ,:" ":: x:::ESC$(): D$( ),D( ),P( ): L: initialize color or b&w scheme n : J  : J ,(J)( ): J x:DEF FNP$(R,C)=ESC$+"Y"+CHR$(31+R)+CHR$(31+C) ' position _ at (r,c)3}"R",,"what.fil": 4#,  AS DUMMY$, AS TIML$: ,:TIML(TIML$):: KEYOUTTIML(CCCOLORS():RS:CS:COLOR.STARTCC: T$()"B":T$()"S":T$()"P":T$()"L": T$()"M":TY$()"Bar ":TY$()"Side ":TY$()"Pie ": TY$()"Line ":TY$()"Pies ":FI$()"Data1 ":FI$()"Year82 ": FI$()"Sales80":FI$()"World81" : T$()"T":T$()"D":TY$()"Trend":TY$()"3d ": TI$()"Sales Trend ":TI$()" Expenses ":TI$()" XYZ Inc. ":TI$()"Total Sales ":TI$()" Income " :TI$()"Sales Growth":YS:XS:DXXS:DYYS : TI$()"1st Quarter":: lens in pixelsD f COLORS() CCCOLORS()} TYPE$"L" ,  :draw axesXXXSuz:X1X:YY1YS #{(): J X1X1XS)\}:Y1YYS)\}\() Y1 Y1Y1L~: k (X,Y),,CC: (X,Y)(X1,Y1),CC:XX1:YY1: J: (X,Y),,CC: (X,Y)(X,(YSRS)33 ),CC: C1CC: :PAINXX:PAINYY:PAINSCC:PAINEC1:  :  9, TYPE$"T"  :  : COLORS() CCCOLORS()  : ,o6XXXSuz:X1X:YY1YS #{(): J @X1X1XS)\}:Y1YYS)\}\()J Y1 Y1Y1L~: JK J PXX1:PYY1 T (X,Y),,CC:XX1:YY1: J: (X,Y),,CC:3Y (PX,PY)(X,Y),COLORS()=h Gr ^ TYPE$"S" X :CONu{:  : draw axesXXG : :X1CSYXS:YI*:YRSYI:Y1YYI J  :X1CSLXS(XSGA)():YYYI:Y1YYI:  : J SX TYPE$"P"  : COLORS() CCCOLORS()~bXMCS(XS):YMRS(YS):: centers lRAD(XMCS)L:XMXM:YMYM:DEG1()333L} v (XM,YM),RAD,CC,Y,DEG1,:C1CC:  :circle & new colorPAINXXMRAD:PAINYYM:PAINSCC:PAINEC1: : % (XM,YM),RAD,C1,DEG1,,: :  COLORS() CCCOLORS()PAINXXMRAD:PAINYYM:PAINSCC:PAINEC1:   TYPE$"D"  BOX$()"c=colors(cb%);l=bx10%;u=by%;r=bx10%;c=colors(0);nl1c=colors(cb%);bl=bx10%;e=bx20%;r=bx10%;ng=bx20%;d=by%;g=bx20%;u=by%;c=colors(0);nd1c=colors(cb%);bd=by%;"BOX$()"u=by%;nl=bx10%;ne=bx20%;bd=by%;"::CB%CC: COLORS() :: 7 crease color#PC%CC: :5paint color7BX10%(CECS)LBY1%(RSRE)^BX20%BX10%pBX15%BX10%((CS)BX10%,(RS)),COLORS()::set graphics cursor X BY%BY1%(()L}): BY%BY1%  BOX$()3PAINX:PAINY:PAINSPC%:PAINECB%: : (,)T  BOX$():"br=bx15%;": X:k  TYPE$"B" *  :draw axes4 :Y1RSYSeff:XI@: J  :XX:X1XXI:YRS(YS()L)> :XX@: JH :MULTI :SYM:SXMX:STCCC:RAD:YMSYM:XMSXM: J  :XMXM:DEG1(),L: (XM,YM),RAD,CC,Y,DEG1,:C1CC: PAINXXMRAD:PAINYYM:PAINSCC:PAINEC1: 8 (XM,YM),RAD,C1,DEG1,,:CCSTC: PAINXXMRAD:PAINYYM:PAINSCC:PAINEC1: T J XMSXM:YMYM$\ Jb (X,Y)(X1,Y1),CC,B: : box onlyLINXX:LINYY:LINX1X1:LINY1Y1:LINCCC: : : filled in boxXCS:YRS:X1XXS:Y1YYS: : : bordort COLORS()  CCCOLORS(): : CCCOLORS(( (CC) )): : color rotation schemeOLDCCCC:XCSXSu}:X1CSXSL:YRSYSk: Y1RSYSeff:  :x axis &3XCSXSu}:X1CSXS~:YRSYSL}:Y1RSYSgff: : CCOLDCC: :y axisn x:BGRCOLORS(): : : ready for menu template : :  ,: "-->Press ";: ,?: "-->Press ";: a ,": "-->Press ";:   ,:"Demonstration -->Press ";_BGRCOLORS(): : ,: " Zenith Data Systems' "; ,: " Z-100 :";! ,: " Business Graphics Demonstration ";: ,: " Version 1.0 ";: }BGRCOLORS(): 9 J 2:A$: Js ,: "Data Management";: ,=: "Graphic Design";  , : "Graphic Displays"; (,)(,),COLORS(),B CCCOLORS(): (9,<)(,),CC,B (8,)(M,),CC,B=  (,)(4,),CC,B: .: /.BGRCOLORS(): : ,: "Press Function Key Indicating ";: ,: " Your Choice "";:BGRCOLORS(): / : W: J  : D$(J): J:  :  0 ()"y5";()"x1";:BGRCOLORS(): : = ,: ;" Enter your choice (F1-F4) or to END> ";: =BGRCOLORS():  4COUNTCOUNT: COUNTTIML  : #A$: A$"" A(A$): > : s ()pz  : %!5 ,=: ()L| 6 : 4/!6 4z!> A : ()"y1":: : E A A ();: 4!H A ' : data!R A  N : design!\ A 0u : draw!f A  :continuous demo! 4]" :N3(()):T: J N3: D$(J): D$(J)D$(J)( , ):D(J)()H:TTD(J): J" USA,CANADA,EUROPE,ASIA,USSR,MEXICO" J  : J,: " ";: J: R N3 D$()D$(N3)" ,: "Desc. Value %";# ,: "Total " "#8.#";T@# J N3:P(J)D(J)Td: J# J N3: J,: (D$(J),); " ####.# ##.#";D(J),P(J)# J# 4$LINX:LINY:LINX14:LINY1:LINCCOLORS():  : RS:CS:YS:XS: TY(()):TYPE$(T$(TY),)Y$ TY CE4:CS:RE:RS$ ,:: "TYPE OF GRAPH> ";TY$(TY);$ ,:: "DATA FILE> ";FI$(N3);$  ,:: "TITLE> ";TI$(TY);: ,#: ;TI$(TY);$ :RS:CS:W%:"R",,"what.run", :"R",,"what.fil", :  #,  AS A$, AS N$: ,:N(A$)% #,  AS A$: #,  AS B$: J  N: ,J: A$B$: ,J: J% ,:TYPE$(A$,(A$,"."),):: TYPE$%o&' FData Management Subroutines for Z-100 GraphicsQ&' (c)1982 ZDS, Inc. Written by Jack R. Frank 5/6/82v&$' l::ESC$():KEYOUTz&.' DESC$(d),D(d),L$(d),F$( ):CCCOLORS():ESC$;"y5";&8':DEF FNP$(R,C)=ESC$+"Y"+CHR$(31+R)+CHR$(31+C)' cursor positioning0'=' t' : init color/b&w scheme and fill color 1'?'BGRCOLORS(): : ,: \ ()"p";" Data Management routines "()"q": ,f(B' "Enter Your Choice:";: , -: "--> Create a new data file";: , 1: "--> Modify existing data file";:  , ': "--> Print data file";: , /: " --> EXIT"(L' ESC$"y5";:COUNT: g ,: " Press Function key indicating your choice> ";)V'A$:COUNTCOUNT: COUNT : : A A$"" V' : A(A$)K)`' A  : A A h ();: L')j' A * : A . : A 2 : 5*t' L:BGRCOLORS(): :  ESC$"y5";: ESC$"x1";: = x:CCCOLORS():LINX:LINY:LINX1:LINY1:LINCCC:  COLORS() : I :W*~'CCCOLORS(( (CC)  )):** t':BGRCOLORS(): : < ,: "Create New Data File";d++ ,:MODE:CURLEN: ,CURPRM$"Enter name for new file or EXIT ": CURDEF$"": P:  (5FINSTR$) FINSTR$"exit" FINSTR$"EXIT" ' : FLE$FINSTR$".DAT"+ + (FINSTR$,".") (FINSTR$," ") 3);();"NO spaces or periods!";:: +++ *+:"I",,FLE$:: , + ();" File already exists. Shall I overwrite it? ";: :A$JRF$: A$"Y" A$"y" A$;: 4+ : A$"N" A$"n" A$;: + : ( );(N, );( );:  +,*+ 4+/-4+ ,: (M, );::MODE:CURLEN: @CURMIN:CURMAX:CURPRM$"Number of data items (maximum=20)":  P:NRECFINVAL .9+BGRCOLORS(): : x:"Data Descriptions and values will now be entered.": "Press after each line to continue with the next item.": "Errors can be corrected after all items have been entered.":u.>+ J NREC:CURLEN:MODE: CURPRM$"Enter Description for item #"(J): P: DESC$(J)FINSTR$.H+MODE:CURLEN:CURMINz:CURMAXz: CURPRM$"Enter value for "FINSTR$: P:D(J)FINVAL9/R+ J::"* Data Entry Complete *X";: OLDFLE$"": J : J: &//. t'::BGRCOLORS():FGRCOLORS(): : I: ,: "Modify Data File";/. ,:: "*.DAT"^0.MODE:CURLEN: 7 ( );( );:CURPRM$"Enter name of file or EXIT": CURDEF$"": P: * FINSTR$"EXIT" FINSTR$"exit" ' D: FLE$FINSTR$".DAT"0. (FINSTR$,".") (FINSTR$," ") h 3);();"Do not enter .DAT !";:: .0.NREC: / ::"I",,FLE$11/ () &/ : NRECNREC: #,DESC$(NREC):#,D(NREC): /1/CRBE: ();: J , : (J%)% J / : ( );3);(, );( );3);"File not found";1/ J: CRBE,3:" ";: CRBE,: ..2&/ x: ! ::BGRCOLORS(): : : ,$: ;"Modify Data";s2+/TOTAL: J NREC:TOTALTOTALD(J): D(J)  TOTAL : J!30/ J NREC: J,: "##) Description> ";J;:  DESC$(J);: J,2: "Value> #.#b";D(J);: TOTAL  " (###.#%)";D(J)TOTALd : )35/ J3:/ CURDEF$"": ,:CURPRM$" TEnter item number to change (99 if done)":MODE:CURLEN:CURMIN:CURMAXc: P:  FINVALc ]/ i: FINVALNREC ();: :/ : JFINVAL4D/ ,: (N, );( );: ,y4N/CURLEN:MODE: (CURDEF$DESC$(J):CURPRM$"Description": > P:DESC$(J)FINSTR$*5X/ , : (N, );( );:MODE: CURLEN:CURMINz: 4CURMAXz:CURPRM$"Enter new value or ": @CURDEF$(D(J)): P:D(J)FINVAL: &/45]/ t'5b/ ,: " Shall I save changes (Y/N)? ";: * :A$JRF$: A$: A$"N" A$"n" v/  2: A$"Y" A$"y" g/ : (): b/6g/" ,** Saving file> ";FLE$;" **"6l/ /: +"O",,FLE$: J NREC: );J;( );: #,DESC$(J):#,D(J): J: :" Data Output Completed.": J : J: ' 7v/:" File not saved. Returning to menu...": J : J: 'i7/: (): "Error during file output. Check diskette and retry.": J : J: '72 t':BGRCOLORS(): : B ,: "Print Data File";x82 ,: "*.DAT"::MODE:CURLEN: 7 ( );( );:CURPRM$"Enter name of file or EXIT": CURDEF$"": P: + FINSTR$"EXIT" FINSTR$"exit" ' P: FLE$FINSTR$".DAT"82NREC: 2::"I",,FLE$82 () 3 : cNRECNREC: #,DESC$(NREC):#,D(NREC): 2T92 ();: J d : (J) J 2 : x ( );();"K";( );3);"File not found";b92 J: 293:"Press when printer is ready> ";: : *:" ":" ": )"File> ";FLE$;<);$: }" ":3 J NREC: );DESC$(J)<)D(J): J0:3 ( )::"Done": J : J: 26:"3n:; PT COLORS$"07;" : COLORS$"01452367"; N: L:BGRCOLORS(): :: "KEYOUTz: ()"x5";: x: - V(,),D$(,),D(,),NREC(),TOTAL():  FLE$(),DESC$(),LEG$(),NEXPL$();"N l:EXT$()"bar":EXT$()"pie":EXT$()"sde":EXT$()"lne": EXT$()"pis":EXT$()"tnd":EXT$()"dm3"V<%NESC$(): TYPE$()"Bar chart":TYPE$()"Pie chart":TYPE$()"Side bar chart": TYPE$()"Line chart":TYPE$()"Multi-Pie chart": TYPE$()"Trend line chart":TYPE$()"3 Dimensional chart"<*N (,)(,),COLORS(),B: COLORS() LINX:LINY:LINX1:LINY1:LINCCOLORS(): <4N:DEF FNP$(R,C)=CHR$(27)+"Y"+CHR$(31+R)+CHR$(31+C)0=>N ,: ()"p";"Graphic Design Menu"()"q";m=HNCOUNT:  ,: "Shall we design a:": RN: N=RN ,:" Bar Chart")"Pie Graph"*)"Sidebar">)"Line graph": ,: "Multi-Pie";: ,: "Trend Line";: ,*: "3 Dimensional":;>\N J  : ,(J):"Press --> ";: J>]N J  : ,(J): "Press --> ";: J>fNC1COLORS():Y:Y1 :X:X1: N>pN J :XX:X1X1: N: J?uNC1COLORS():Y:Y1:X:X1: N.?vN J :XX:X1X1: N: J?zNX:X133#:Y :Y133C: N:X:X1L:Y1: N: X1:XI:Xl:C1COLORS(): J  : XXXI:X1X1XI:Y :Y133(): N: J:@NC1COLORS(): (,U),#,C1,Y,33s,: PAINX:PAINYP:PAINSCOLORS():PAINEC1: : (,U),#,C1,33s,,: PAINX:PAINY_:PAINSCOLORS():PAINEC1: @NX+:X1L:Y :Y133C: N@NX+:X1,:Y1: NGANC1COLORS():X,:X10:Y33:YI333:Y1YL~: J  : N:X1X1():YYYI:Y1YL~: JANC1COLORS():X?:X1ff:Y :Y1A: N: X1|:Y1: N BNYY:XX: J :X1Xgff:Y1Y()Ga}: (X,Y)(X1,Y1),COLORS():XX1:YY1: J: : T: and multi piesKBNCS:XS:RS:YS:TYPE$"T": ,SBN:BN : : : CE9:CS):RE:RS: : :BNCOUNTCOUNT:A$: A$"" A(A$): N : COUNT : NCN A d : AA: A A 9 ();: NCNTYPE$(TYPE$(A),(TYPE$(A)," ")): :BGRCOLORS(): :: ,: "Graphic Design --> ";TYPE$(A);: A R,U,Y,],a,e,xi: NCN(X,Y)(X1,Y1),C1,B:DNLINXX:LINYY:LINX1X1:LINY1Y1:LINCC1: :TDP: * common routines for design *DP:Get file name and verify existance: leave open & set legendSEPMODE:CURLEN:CURPRM$"Enter data file "CPRM$" or EXIT":CURDEF$"": P:FLE$FINSTR$: FLE$"exit" FLE$"EXIT"  N : FLE$FLE$".DAT":FLE$(L)FLE$:  for no change."LHdP"Enter Title for "TYPE$". Maximum length is 70 characters.": MODE:CURPRM$"":CURLENF:CURPOS:CURDEF$"": P: TITLE$CURSTR$:CURPOS2: (TITLE$) TITLE$TL$: : HnPMODE:CURLEN:CURPRM$"Number of files for "TYPE$: P:HxPCURLEN:MODE:CURPRM$"Description for "DESC$: P:FINSTR$(FINSTR$(, ),):RIPCURLEN:MODE:CURPRM$"Legend entry for file: ": CURDEF$(FLE$,(FLE$,".")): PIP (FINSTR$,".") P : FINSTR$(FINSTR$,(FINSTR$,"."))IPFINSTR$(FINSTR$(, ),):IPCURLEN:MODE:CURPRM$"Enter X heading": P:+JPCURLEN:MODE:CURPRM$"Enter Y heading": P:JPCURPRM$"Enter Minimum value for Y axis":CURLEN:MODE: CURMINz:CURMAXz: P:JPCURPRM$"Enter Maximum value for Y axis":CURLEN:MODE: CURMINz:CURMAXz: P:MKPCURPRM$"Enter Increment for Y@ axis":CURLEN:MODE: CURMINz:CURMAXz: P:KP L NF: M NREC: V(L,M) : ();"Data cannot contain negative numbers!.": "Please start design over.": J  : J:  NKP M,L:KR:bar#LR::CURMIN:CURMAX: nP:NFFINVALLR"Available Data Files:": "*.dat":: L NF:NREC:CPRM$"file #"(L): P: PP: A)ESC$"A";NREC;"items": L: L NF: ML NF: NREC(L)NREC(M) !RLR M,L: &RIM!R: () "Files must all have the same number of data items. RE-TRY": J : J:: RM&R:" Thank you":  L : L:: ="The following items describe the drawing of the Chart:":: TL$"": ZP:N0R P:XH$FINSTR$: P:YH$FINSTR$ZN:R: L NREC:DESC$"Item #"(L):CURDEF$D$(,L): xP: DESC$(L)FINSTR$: LNDR: L NF:FLE$FLE$(L): P:LEG$(L)FINSTR$: LNNRMIN'kn:MAXMIN: L NF: M NREC: V(L,M)MAX MAXV(L,M) OSR V(L,M)MIN MINV(L,M) OXR M,L/ObRCURDEF$(MIN): P:MINFINVALTOlRCURDEF$(MAX): P:MAXFINVALOvRINC(MAXMIN):CURDEF$(INC): P: INCFINVAL: INCMINMAX MAXINCMIN : INCMINMAX MAXINCMINGPRCURMIN:CURMAX:MODE:CURLEN:CURDEF$"N": CURPRM$"Use Normal or Overlapping bars": P:OVER$FINSTR$PR OVER$"o" OVER$"O" : OVER$"n" OVER$"N"PR OVER$"N" OVER$"O" R : ();:"Enter N for normal or O for overlapping": RDQRMODE:CURLEN:CURDEF$"G": CURPRM$"Use Gaps or Stepped bars (G or S)": P:GAP$FINSTR$QRGAP$FINSTR$: GAP$"g" GAP$"G" : GAP$"s" GAP$"S"QR GAP$"S" GAP$"G" R : ();:"Enter G for gaps or S for steps": R3RR:" All entries have been made. Shall I save this": " "TYPE$" Design file?":RRCURPRM$" Save design (Y or N)":CURDEF$"":CURLEN: MODE: P:A$FINSTR$: A$"y" A$"Y" : A$"n" A$"N"RR A$"Y" R : A$"N" R : ();: R7SR:"Design has been aborted. Returning to menu.": J : J:  NSRCURLEN:MODE:CURPRM$"Name for design file or EXIT": . P: FINSTR$"exit" FINSTR$"EXIT"  N i: (FINSTR$) (FINSTR$,".") R : RUTR ();: J , : (J%)% J R : ( );();"K";( );3);"Illegal file name!";vTR J: ( );(O, );: RTR:DFLE$FINSTR$"."EXT$(A): R: "I",,DFLE$:: RUR:"Error during disk write. Check disk and re-create design.": `mUR RUR ();" File already exists. Shall I overwrite it? ";: 1 :A$JRF$: A$"Y" A$"y" A$;: R : ! A$"N" A$"n" A$;: R : ( );(N, );( );(VR R:: U::" File has been written.": J : J:  NVU:"O",,DFLE$: #,TITLE$: #,NF: J NF:#,FLE$(J): J: J NF:#,LEG$(J): J: #,NREC: J NREC:#,DESC$(J): JVU#,XH$: #,YH$: #,MIN: #,MAX: #,INCWU#,OVER$:#,GAP$::WU:pieWU::NFWV"Available Data Files:": "*.dat":: # L NF:NREC:CPRM$" ": P: & PP: A)ESC$"A";NREC;"items": L: H L NF: ML NREC: V(L,M) VWV M,L: "V@XV: () ,"File must contain only positive numbers!": J : J:: UX"V:" Thank you":  L : L:: ="The following items describe the drawing of the Chart:":: KTL$"": ZP:)Y6V: L NREC:DESC$"Item #"(L):CURDEF$D$(,L): xP: DESC$(L)FINSTR$: LY@V: "Each piece of the pie may be 'exploded' or offset from the center.": "As each pie is listed below enter Y if you would like that pieces": "exploded or N if not.":DZJV L NREC:CURLEN:MODE: CURPRM$"Explode "DESC$(L)" ->"(V(,L)TOTALd)" %": CURDEF$"N"ZTV P: FINSTR$"y" FINSTR$"Y" : FINSTR$"n" FINSTR$"N"Z^V FINSTR$"Y" FINSTR$"N" EXPL$(L)FINSTR$ : ();: TVZhV L:1[V:" All entries have been made. Shall I save this"^: " "TYPE$" Design file?":[VCURPRM$" Save design (Y or N)":CURDEF$"":CURLEN: MODE: P:A$FINSTR$: A$"y" A$"Y" : A$"n" A$"N"[V A$"Y" V : A$"N" V : ();: V3\V:"Design has been aborted. Returning to menu.": J : J:  N\VCURLEN:MODE:CURPRM$"Name for design file or EXIT": . P: FINSTR$"exit" FINSTR$"EXIT"  N i: (FINSTR$) (FINSTR$,".") V : VQ]V ();: J , : (J%)% J V : ( );();"K";( );3);"Illegal file name!";r]V J: ( );(O, );: V]V:DFLE$FINSTR$"."EXT$(A): W: ^"I",,DFLE$:: W]W W^W ();" File already exists. Shall I overwrite it? ";: 1 :A$JRF$: A$"Y" A$"y" A$;: W : ! A$"N" A$"n" A$;: V R: ( );(N, );( );^W R:: tY::" File has been written.":  J : J:  N^tY:Single piee_~Y:"O",,DFLE$: #,TITLE$: #,FLE$(): #,NREC: J NREC:#,DESC$(J): J: J NREC:#,EXPL$(J): Jm_Y:y_Y:side_Y::CURMIN:CURMAX: nP:NFFINVALS`Y"Available Data Files:": "*.dat":: L NF:NREC:CPRM$"file #"(L): P: PP: A)ESC$"A";NREC;"items": L: L NF: ML NF: NREC(L)NREC(M) Zc`Y M,L:  Z`Z: () "Files must all have the same number of data items. RE-TRY": J : J:: Y]a Z:" Thank you":  L : L:: ="The following items describe the drawing of the Chart:":: TL$"": ZP:aZ P:XH$FINSTR$: P:YH$FINSTR$aZ: L NREC:DESC$"Item #"(L):CURDEF$D$(,L): xP: DESC$(L)FINSTR$: Lb(Z: L NF:FLE$FLE$(L): P:LEG$(L)FINSTR$: Lab2ZMIN'kn:MAXMIN: L NF: M NREC: V(L,M)MAX MAXV(L,M)b7Z V(L,M)MIN MINV(L,M)b@j:" All entries have been made. Shall I save this": " "TYPE$" Design file?":JjCURPRM$" Save design (Y or N)":CURDEF$"":CURLEN: MODE: P:A$FINSTR$: A$"y" A$"Y" : A$"n" A$"N"Tj A$"Y" hj : A$"N" ^j : ();: JjB^j:"Design has been aborted. Returning to menu.": J : J:  NhjCURLEN:MODE:CURPRM$"Name for design file or EXIT": . P: FINSTR$"exit" FINSTR$"EXIT"  N i: (FINSTR$) (FINSTR$,".") rj : j`rj ();: J , : (J%)% J |j : ( );();"K";( );3);"Illegal file name!";|j J: ( );(O, );: hjЈj:DFLE$FINSTR$"."EXT$(A): j: "I",,DFLE$:: O jڈj jj ();" File already exists. Shall I overwrite it? ";: 1 :A$JRF$: A$"Y" A$"y" A$;: j : ! A$"N" A$"n" A$;: hj : ( );(N, );( );ꉤj R:: j::" File has been written.": J : J:  Nyj:"O",,DFLE$: #,TITLE$: #,NF: J NF:#,FLE$(J): J: J NF:#,LEG$(J): J: #,NREC: J NREC:#,DESC$(J): Jj#,XH$: #,YH$: #,MIN: #,MAX: #,INCj:ϊ`m J : J:  N0u: L:BGRCOLORS(): : ()"x5";:KEYOUTz : x: B$( ): EXT$()"bar":EXT$()"pie":EXT$()"sde":EXT$()"lne": EXT$()"pis":EXT$()"tnd":EXT$()"dm3":u l: (,)(,),COLORS(),B:  COLORS() LINX:LINY:LINX1:LINY1:LINCCOLORS(): 7Du:DEF FNP$(R,C)=CHR$(27)+"Y"+CHR$(31+R)+CHR$(31+C)vNu ,: ()"p";"Display Designed Graphs Menu"()"q"ΌXu ,: "Press Function key representing the type of graph to display:": RN: uuCOUNTCOUNT:A$: A$"" A(A$): u : COUNT : uLu A : A A ();: ujuAA:EXT$EXT$(A):  vu (X,Y)(X1,Y1),C1,B:ɍvLINXX:LINYY:LINX1X1:LINY1Y1:LINCC1: : vBGRCOLORS(): :: "Enter design name from the list shown below:"9v }: "*."EXT$::vCURLEN:CURDEF$"":CURPRM$"Filename or EXIT":MODE: P: (FINSTR$,".") : v : FI$FINSTR$v FI$"exit" FI$"EXIT" :  v:FI$FI$"."EXT$:"I",,FI$:: 4vg v: ()"File does not exist. Try another or use F2 to create it.": J : J:  v*v ()"USE AN EXTENSION!": J : J:  v24v"R",,"what.run", :#, AS A$, AS B$, AS X$: 3 ,:X1$X$: X$X1$: A$(): B$(): ,:  #, AS A$: A$FI$: ,:H>v ((FI$,),)p}:"NO FILES": J : J: 0u-TCCCOLORS():DEG1():YP: :SYM(YP):SXM: STCCC:RAD:YMSYM:XMSXM: J  :XMXM:DEG1(),L: (XM,YM),RAD,CC,Y,DEG1,:C1CC: chPAINXXMRAD:PAINYYM:PAINSCC:PIANEC1: Ǒ| (XM,YM),RAD,C1,DEG1,,: : :PAINX=XM+AD-8:PAINY=YM+3:PAINS=CC:PAINE=C1:GOSUB 65200ꑁCCSTC: J XMSXM:YMYM J:BGRCOLORS(): ::  ()"y5";()"x1";: BGRCOLORS(): : < ,: "Enter your choice (F1-F7) or to Exit> ";: ;BGRCOLORS(): :˒l WLF :WLF$: WLF:PÏ .keyboard input routine2ZÏ (c)1982 ZDS, Inc. Written by Jack R. Frank 5/6/82ydKEYCOUNT:CURSTR$"": CURDEF$"" CURDEF$(CURDEF$,CURLEN)"nÑ ( );();"K";: CURPRM$" ";: MODE   CURDEF$"" "(Default = ";CURDEF$;")"; : MODE   CURDEF$"" "(Default=";(CURDEF$);")";@xË CURPOS  CURPOS2 Ñ CURPOS)"> ";(CURLEN,"*");:JL:JC(X)CURLEN: JL,JCÏ start input routineKEYIN$: KEYIN$"" KEYCOUNTKEYCOUNT:  6: KEYCOUNT: MË MODE KEYCOUNTKEYOUT  :  #z JACK(A$):  : KEYIN(KEYIN$): : KEYIN KEYIN   : KEYIN ەË MODE    : KEYIN KEYIN~ " : UË (KEYIN0 KEYIN9) ((CURSTR$,".") KEYIN.) ((CURSTR$) (KEYIN- KEYIN+))  : "Ë (CURSTR$)CURLEN " : CURSTR$CURSTR$KEYIN$: KEYIN$;: іË (CURSTR$) CURSTR$CURDEF$: CURSTR$;Ë MODE   FINSTR$CURSTR$: ;FINVAL(CURSTR$): FINVALCURMIN FINVALCURMAX ƗÑ ();: FINVAL , : (FINVAL%)% FINVAL  : ( );();"K";( );(); "Out of Range ";CURMIN;">"CURMAX;à FINVAL:CURSTR$"": dCURPOS: ();"K":ċ (CURSTR$) "cđ ();"*";();: CURSTR$(CURSTR$,(CURSTR$)): "KEYIN$:KEYIN$: ();: COUNT:KEYOUT JRF$: JRF$"" KEYCOUNTKEYCOUNT: KEYCOUNTKEYOUT :  : q֑ ();: FINVAL , : (FINVAL%)% FINVAL  : ( );();"K";( );3);"Do not use extensions!";׃ FINVAL: ()"A";( );:ٙڋ KEYIN KEYIN KEYINKEYIN:KEYIN$(KEYIN): :  BGR BGR BGRBGR : BGR BGR BGRBGRW FGR FGR FGRFGR : FGR FGR FGRFGR COLORS() FGRBGR FGRCOLORS():BGRCOLORS() FGR,BGR:L (,),:PT(,): (,),V PT COLORS$"070" : COLORS$"01234567";` J :COLORS(J)((COLORS$,J,)): J:FGRCOLORS():s COLORS() : (PAINX,PAINY),PAINS,PAINE: COLORS() (PAINX,PAINY): : (PAINX,PAINY),PAINS,PAINE:1 COLORS() LINC (LINX,LINY)(LINX1,LINY1),COLORS(),BF: : (LINX,LINY)(LINX1,LINY1),LINC,BF:Dx ,:" "::RS() LINC (LINX,LINY)(LINX1,LINY1),COLORS(),BF: : (LIN FGR,BGR:L (,),:PT(,): (,),V PT COLORS$"070" : COLORS$"01234567";` J :COLORS(J) : *@ 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" N(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 xVALUE.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,);: x K K   K,: "##,###.##";P;i\ PPVALUE.INCtf KKp J: KYSTARTYSCAN,: " ";: : KPRINT USING "##,###.##";LOWEST;uTTCEN(P(TT$)): ,TTCEN: TT$;: (YENDYSCAN)YSCAN,: XHEADS$();Lz (YENDYSCAN)YSCAN,(XSTARTXSCAN)XSCANc J  NRECORDS (DESCRS$(,J),,(EACHAREABLANKAREA)XSCAN);" "; JSPXXSTARTEACHAREABLANKAREA:RC : J 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 2LINXSPX:LINYSPY:LINX1SPXEACHBAR:LINY1SPYPT: 4LINCCOLORS( (COLR ) ): D LINYLINY  : SPXSPXNEXTBAR: CU(K)COLR: 0COLRCOLR NFILES  J RC,G:  (NLEG$(K),);: 5LINXXSCAN:LINY(RC)YSCAN:LINX1OXSCAN: 4LINY1RCYSCAN:LINCCOLORS((CU(K) )): : XRCRC 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$"07" : 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:,)a V PT COLORS$"07" : COLORS$"01234567" ` J :COLORS(J)((COLORS$,J,)): J: FGRCOLORS(): COLORS() : (PAINX,PAINY),PAINS,PAINE:! COLORS() : (PAINX,PAINY),PAIN : *I 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: ZLINY1J:LINCAXCOL: H (,J)[R KYSTARTYSCAN,: (YHEADS$(),K,);: z K K   K,: "##,###.##";P;p\ PPVALUE.INC}f KKp J: KYSTARTYSCAN,: " ";: : KPRINT USING "##,###.##";LOWEST;%uTTCEN(P(TT$)): ,TTCEN: TT$;: (YENDYSCAN)YSCAN,: XHEADS$();Uz (YENDYSCAN)YSCAN,(XSTARTXSCAN)XSCANl J  NRECORDS (DESCRS$(,J),,(EACHAREABLANKAREA)XSCAN);" "; JSPXXSTARTEACHAREABLANKAREA:RC : m 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$"07" : 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), : *X 3 DIMENSIONAL Version 1.0 --> 3 DIMENSIONAL BAR CHART (c)1982 Zenith Data Systems *?  "D": n(),$,$: : L: x3 ( ()"x5";:: No CursorE ) ()"x1"; 2BOX$()"c=colors(cb%);l=bx10%;u=by%;r=bx10%;c=colors(0);nl1c=colors(cb%);bl=bx10%;e=bx20%;r=bx10%;ng=bx20%;d=by%;g=bx20%;u=by%;c=colors(0);nd1c=colors(cb%);bd=by%;" <BOX$()"u=by%;nl=bx10%;ne=bx20%;bd=by%;"u FGRID$()"c=colors(7);u=pixup%;be=dwle%;d=pixup%;r=bxro%;g=dwle%;l=bxro%;bg=dwle%;" KGRID$()"c=colors(3);bu9e=dwle%;r=bxro%;d9l=bxro%;g=dwle%;bu9"PGRID$()"c=colors(3);bu9ng=dwle%;e=dwle%;r=bxro%;d9l=bxro%;g=dwle%;ng=dwle%;bu9"0ZAS:: Aspect of x-yidASD((((AS)))AS)::diagonal aspectnD3MX%:: maximum number of files in 3-d displayxBXRO%::length of x that boxes are placed onSSPINT::box spacing interval multiplierDDSPINT`::box diagonal down-left spacing intervalSXSTART%FbYSTART%PSX%(XSTART%BXRO%)PSY%YSTART%PLX%(XSTART%BXRO%)PLY%YSTART%DIAGSZ%::fixed depth of diagonals DWLE%DIAGSZ%DSPINT;PIXUP%::pixels for full range deflectionUCB%::Border colorCI%::start row internal color of box:WIDTH 2556 ::here read what.run@ COLORS() (,)(,),COLORS(),BFJCURX% TCURY% ] COLORS() BGRCOLORS():  : CURX%: :"A Z-100 with color capability is required for three dimensional charts ...";: "^ hTFN$(AA$,(AA$,"."),)r TFN$"DM3" TFN$"dm3" | : "menu" :: do 3-d else menu3|"Preparing three dimensional bar chart....";d ::Set up files info & data array miscn 4x f J% NF%: `: J%PBX%XSTART%PBY%YSTART%CURX%PBX%:CURY%PBY%: : BOT$ ""I",,AA$: #,TITLE$'#, NF%::number of files NF%D3MX% : : "Error in three dimensional bar chart request...": "there must be no more than "D3MX%" rows in the chart.": ":(S. MICHAEL SARNA) (C) 1982, ZENITH DATA Systems. NFILE$(NF%)::Name of files-- number of files times? J% NF%T #,NFILE$(J%)] J%nD NLEG$(NF%)N J% NF%X #,NLEG$(J%): J%::get legends' descriptionsZ#, NRECORDS%: DESCRS$(NRECORDS%)2] J% NRECORDS%: #,A$:XSTEVE(A$," "): XSTEVE A$(A$,XSTEVE)J^DESCRS$(J%)A$: J%|l #,XHEAD$: #,YHEAD$: #,MIN::minimumv #,MAX::maximum #,INC::increment VALUES(NF%,NRECORDS%) J% NF%"I",,NFILE$(J%) K% NRECORDS%; #,IGNORE$::forget the descriptionsQ#,VALUES(J%,K%)Z K%` i J%o u*4 x> ,::" ":H(,)(,),COLORS(),BR ::give chart a name\f(XSTART%,YSTART%),COLORS()pCURX%PLX%zCURY%PLY%.BGRCOLORS(): ? L% NF%N GRID$() : (NLEG$(L%),):CURY%CURY%:CURX%CURX% L%BOT$(BXRO% )BQ%BXRO%NRECORDS% L% NRECORDS%HALF%(BQ%(DESCRS$(L%))): HALF% HALF%B(BOT$,L%BQ%HALF%,BQ%)DESCRS$(L%)K L%l(XSTART%,YSTART%),COLORS(){CURX%PSX%CURY%PSY%$ L% . GRID$(NF%) 8 (L%)L% : (((INCL%MIN),((INCL%MIN))),);:CURY%CURY%@B L% : (((MAX),((MAX))),);IL L%PV _:enter this routine with j% indexing a file`BX10%(BXRO%NRECORDS%)SSPINT::front size of boxtBX12%(BX10%SSPINT)::box side spacing interval~BX20%DIAGSZ%::diagonal size of boxi(XSTART%BX12%@,YSTART%),COLORS()::point to start of box building K% NRECORDS%BY%VALUES(J%,K%)MAXPIXUP% BOX$() BY% p BOX$() BY% z"br=bx12%;" K%XSTART%XSTART%DWLE%QYSTART%YSTART%DWLE%::drop to next rox of boxes_CI%CI%mCB%CB%s :CHARTNAMETITLE$(TITLE$,P)CURX%(P(TITLE$))(CURY%2 < COLORS() BGRCOLORS(): :: BGRCOLORS(): F TITLE$4PXHEAD$(XHEAD$,N)PZCURX%(N(XHEAD$))]dCURY%gn ux XHEAD$;zYHEAD$(YHEAD$,)|CURX%N~CURY%((YHEAD$)) L% (YHEAD$) : (YHEAD$,L%,);:CURY%CURY% L% :PRINTATb CURY%,CURX%: PRINT CHR$(27)"Y"CHR$(32+CURY%)CHR$(32+CURX%);h"R",,"WHAT.RUN", : A  :A$: A #,AS A$,AS B$,AS C$,AS D$ ,A(A$)B(B$)TIMLOOP1(C$)TIMLOOP2(D$)MODEA# #, AS A$6 ,B:AA$A$<BN"CURX%[6CURY%? COLORS() BGRCOLORS():  : BGRCOLORS(): @ T ()"p";"PRESS ";()"q";^COUNTCOUNT  :JACK$h MODE JACK$() U Dr COUNTTIMLOOP2 MODE : "MENU"| COUNTTIMLOOP1 MODE   : JACK$( ) ^ : : ;: "menu",0u"R",,"WHAT.RUN",   #, AS A$,AS B$  ,( A(A$)5 B(B$)? BBa  BA FL: B : FLp  B$(B)  A$(A)  ,  #, AS C$  ,B:CC$C$   FL : "MENU" : TYPE$(CC$,(CC$,"."),)S! TYPE$"D" TYPE$"d"  :  : :  TYPE$Y!!p COLORS() (,),CI%,CB%: (,),CB%!q!z COLORS() (,),CI%,CB%: (,),CB%!{" BGR BGR BGRBGR : BGR BGR BGRBGRS" FGR FGR FGRFGR : FGR FGR FGRFGR" COLORS() FGRBGR FGRCOLORS():BGRCOLORS()" FGR,BGR:"L (,),:PT(,): (,)#V PT COLORS$"07" : yCOLORS$"01234567"J#` J :COLORS(J)((COLORS$,J,)): J:FGRCOLORS():j#x COLORS() : : : aCOLORS$"01234567"J#` J!q!z COLORS() (,),CI%,CB%: (,),CB%!{" BGR BGR BGRBGR : BGR BGR BGRBGRS" FGR FGR FGRFGR : FGR FGR FGRFGR" COLORS() FGRBGR FGRCOLORS():BGRCOLORS()" FGR,BGR:"L (,),:PT(,): (,)#V PT COLORS$"07" : COLORS$"01234567"J#` J $ "e6 : ,:"":< (rning to Menu...":"menu" C$(TIMLOOP1): D$(TIMLOOP2): A$(NP",,"what.fil",  #, AS A$, AS B$, AS C$, AS D$: ,a NP(A$): C$(TIMLOOP1): D$(TIMLOOP2): A$(NP): B$(): , ::"All set to go... Returning to Menu...":"menu" C$(TIMLOOP1): D$(TIMLOOP2): A$(NP)ps for the demo.": "The first is for the slide show (default is 2500).": "The second is for 'walk aways' (default 5000)": : *V Artwork Version 1.0 --> Pretty Pictures w/ Z-BASIC (c)1982 Zenith Data Systems *A ( "F": : :# ( ,: AZ: P,T,R: t: x: J Y 2 : J ,,,*,,,,6,Jm < K : K{ F x: J P Z: dCC:X:Y:RAD2:DIX:DIY n (X,Y),RAD,COLORS(CC),,VI,L} xXX(DIX):YY(DIY) X X DIXDIX3 Y Y DIYDIYC : nI c CC ( (CC) ):k : CC:X:Y:RAD2:DIX:DIY (,)(,),COLORS(),B: ,: ,: , XS:YS RATIO (XS,(YS)RATIO)(XS(RATIO),YS),COLORS(CC)@ (,YS)(XS(RATIO),),COLORS(CC)f(XS,)(,()RATIO),COLORS(CC)(,YS)(XS,()RATIO),COLORS(CC)RATIORATIOL| RATIO : ",CC ( (CC) ):6:,@CO:XS:YS:CC:XXS:YYS:RADF:DIX:DIY: XI:YIWJCOCO: (X,Y),RAD,COLORS(CC),,,bTXXXIm^YYYIh X X XIXI: Tr Y Y2 YIYI| COd  J:XS:YS:CC:X:Y:RADP:DIX:DIY: XI:YI: (X,Y)(XRAD,YRAD),COLORS(CC),BEXXXIPYYYIv Y YRAD YIYI:  X XRAD XIXI:  X Y  CC ( (CC) ): CC  : PIIC14XS:YS:CC:XXS:YYS:RAD<:DIX:DIY (2,2)(2,d),COLORS(CC): (d,d),COLORS(CC): (d,2),COLORS(CC): (L,2),COLORS(CC): (J,2)(2,2),COLORS(CC)& (F,2)(F,),COLORS(CC): (P,2)(P,),COLORS(CC)v0 (F,)(b,),COLORS(CC): (P,)(X,),COLORS(CC): (b,)(b,),COLORS(CC): (X,)(X,),COLORS(CC): (,)(,),COLORS(CC),BD (&,)(&,),COLORS(CC): (&,)(&,),COLORS(CC): (_,)(a,),COLORS(CC)HN (,),2,COLORS(C1),,,: (,)(,),COLORS(CC)cX (K,K),,COLORS(CC)b v: CCC1 : (K,K),COLORS(CC),COLORS(C1): blvCC ( (CC) )::A$()"F":A$()"":A$()"F"CC:X:Y:RAD2:DIX:DIYNCOCO:X():Y():X1():Y1() (X,Y)(X1,Y1),COLORS(CC),B:+A$(INT(2*RND(1)-1))) : CO2 : CC ( (CC) ): (,)(,),COLORS(),B:A$()"BF":A$()"B" A$()"F":A$()"":A$()"F"FCC:X:Y:RAD2:DIX:DIYCOCO:X():Y():X1()v:Y1() (X,Y)(X1,Y1),COLORS(CC),BF: COK :     :  CC ( (CC) ):*:74CO: (,)(,),COLORS(),B:CC:X:Y:RAD2:DIX:DIYu>X()N:Y():RAD()() ()H R1 RAD R (X,Y),R1,COLORS(CC),,,\ R1fCOCO: CO p : z: >pzCC ( (CC) )::C< G@ X1 @ 2: Y1  ZCC:C C  :CChXX1:YY1(X,YL~G)(XG,Y),COLORS(C)(X,YL~G)(XG,Y),COLORS(C)(X,YL~G)(XG,Y),COLORS(C)(X,YL~G)(XG,Y),COLORS(C))(X,YLG)(XG,YG),COLORS(C)V(X,YLG)(XG,YG),COLORS(C)}(XG,Y)(XG,YG),COLORS(C)(X,YL~G)(X,YLG),COLORS(C)(XG,Y)(XG,YG),COLORS(C)XX1:YY1 $(X,YL~G)(XG,Y),COLORS(C)..(X,YL~G)(XG,Y),COLORS(C)S8(X,YL~G)(XG,Y),COLORS(C)xB(X,YL~G)(XG,Y),COLORS(C)L(X,YLG)(XG,YG),COLORS(C)V(X,YLG)(XG,YG),COLORS(C)`(XG,Y)(XG,YG),COLORS(C)$j(X,YL~G)(X,YLG),COLORS(C)Kt(XG,Y)(XG,YG),COLORS(C)W~ Y1,X1]e:~ COLORS() P G  X@:Y( :CENTERC()(X,YL~G)(XG,Y),COLORS(C)(X,YL~G)(XG,Y),COLORS(C)'(X,YL~G)(XG,Y),COLORS(C)L(X,YL~G)(XG,Y),COLORS(C)y(X,YLG)(XG,YL~G),COLORS(C)(X,YLG)(XG,YL~G),COLORS(C)(X,YG)(XG,YLG),COLORS(C) (X,YG)(XG,YLG),COLORS(C)-(X,YLG)(XG,YG),COLORS(C)Z(X,YLG)(XG,YG),COLORS(C)((XG,Y)(XG,YG),COLORS(C)2(X,YL~G)(X,YLG),COLORS(C)<(XG,Y)(XG,YG),COLORS(C)F GPCZCC::IF C=4 THEN C=0d G  ,nX@:Y( :CENTERQx(X,YL~G)(XG,Y),COLORS(C)v(X,YL~G)(XG,Y),COLORS(C)(X,YL~G)(XG,Y),COLORS(C)(X,YL~G)(XG,Y),COLORS(C)(X,YLG)(XG,YL~G),COLORS(C)(X,YLG)(XG,YL~G),COLORS(C)M(X,YG)(XG,YLG),COLORS(C)|(X,YG)(XG,YLG),COLORS(C)(X,YLG)(XG,YG),COLORS(C)(X,YLG)(XG,YG),COLORS(C) G CO:PII:XC@:YC:R:CC:D:R1R:RRJCOCO::CIRCLE (XC,YC),R1,CC,,,.5:c PT PI PIXR1(PT)XC:YR1(PT):YYYC (X,Y),R,COLORS(CC),,," PT: z,YCYC:XCXC6 CO :  @RR D:: RAD RR:DD :  : % J:- T:5 ^ Q> hCLI rCX^T |CX1d^ CYh SZ  Q I L} X2(Q)SZ:YCY(Q)SZ:XCXX2:X1CX1X2:CL()  (X,Y) (QSZ,QSZ),COLORS(CL),B"! (X1,Y) (QSZ,(Q)\})SZ),COLORS(CL),B(!0! QD! Q : QJ!!L BGR BGR BGRBGR : BGR BGR BGRBGR!V FGR FGR FGRFGR : FGR FGR FGRFGR"` COLORS() FGRBGR FGRCOLORS():BGRCOLORS()"j FGR,BGR4"t (,),:PT(,): (,),"~ PT COLORS$"07" : mCOLORS$"01234567"" J :COLORS(J)((COLORS$,J,)): J:FGRCOLORS():"x ,:" ":: 0COLORS$"01234567"" J :COLO : *B LINE Version 1.0 --> LINE CHART (c)1982 Zenith Data Systems *L  :()"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.lrun", : #, 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: ZLINY1J:LINCAXCOL: ~H (,J)R KYSTARTYSCAN,: (YHEADS$(),K,);: z K K   K,: "##,###.##";P;\ PPVALUE.INC f KKWp J: KYSTARTYSCAN,: " ";: : JPRINT 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" : x 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$"07" : 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,),:PT(,): (,)V PT COLORS$"07" : ;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)(LI : *a PIE/MULTI-PIE Version 1.0 --> PIE CHART AND MULTIPLE PIE CHART (c)1982 Zenith Data Systems *g ( BGR:FGR: :! "p": n(),$,$:7 : ()"y5":` (: L: ()"x5";:: No Cursorx )BGRCOLORS():  * ()"x1";:: 25th line enable + x 2PII <XM%8:: Maximum x-steps of circle generator FCX%@:: Circle center x4 PCY%p:: Circle center y ZEX%:: Amount to explode pie piece (Becomes r1%) dR2%:: Radius nR4%R2%:: arrowhead location xR3%R4%EX%:: Outside label radiusOA1%:: OUL array indexs by quadrant&OA2%2OA3%>OA4%iCON1%:: Quadrant 1 conflict flagCON2%:: Etc.CON3%CON4%SCRLN%:: display screen linesBXHT%:: height of display box AS:: Aspect of x-y-MR1%2::multple pies radius:XMX%HPIESMX%UPIESX%dMSCRNL%r"HEDLNS%,INCLN%6LBLMX%::8 lables maximum@LBOXX%JLBOXY%TLBXAD%@^LBYAD%%h:WIDTH 255  v::here read what.run; COLORS() (,)(,),COLORS(),BFHCURX% UCURY% _ bTFN$(AA$,(AA$,"."),) TFN$"PIE" TFN$"pie"  : TFN$"pis" TFN$"PIS"  : "menu" :: do PIE else do MultPIE else menu| COLORS() BGRCOLORS():  : ( )"A Z-100 with color capability is required for multiple pies chart...": "Preparing multiple pie chart...."; ::Set up files info & data array misc V "I",,AA$: #,TITLE$&#, NF%::number of files NF% NF%PIESMX% : : "Error in multiple pies request... there must be between 2 and"PIESMX%" pies.":  NFILE$(NF%)::Name of files-- number of files times J% NF%& #,NFILE$(J%)0 J%": NLEG$(NF%)3D J% NF%dN #,NLEG$(J%)::get legends' descriptionsmX J%b#, NRECORDS%l DESCRS$(NRECORDS%)v J% NRECORDS% #,DESCRS$(J%) J% VALUES%(NF%,NRECORDS%) J% NF%"I",,NFILE$(J%)0 K% NRECORDS%] #,IGNORE$::forget the descriptionst#,VALUES%(J%,K%)} K% J% PAY%(PIESX%)::prepare location for pies arrays PAY%()HEDLNS%INCLN% I% PIESX%/  PAY%(I%)PAY%(I%)INCLN%::print at y locs8* I%n4 PLB%(LBLMX%,)::legend lables placement array>: X, Y:'print locations for legendH 23, 3R 23, 4\ 23, 5f 23, 6p 43, 3z 43, 4 43, 5 43, 6 I% LBLMX%+ PLB%(I%,),PLB%(I%,)4 I%l DP%(PIESMX%,PIESX%)::display placment of pies -32767,-32767::0 Pie Undefined -32767,-32767::1 Pie Undefined 2,0::2 PIES 3,0::3 PIES 4,0::4 PIES  4,1::5 PIES 4,2::6 PIES2 4,3::7 PIESF 4,4::8 PIES[ I% PIESMX%r$ J% PIESX%. DP%(I%,J%)::Load display placement of pies array8 J%B I%LVNP%NF%::number of pies is number of files` xj: ,:" ":4t(,)(,),COLORS(),BS~ ::give chart a name ::label the legends & draw & fill pies(LBOXX%,LBOXY%)(LBOXX%LBXAD%,LBOXY%LBYAD%),COLORS(),BF I% NRECORDS% DESCRS$(I%)"" CURX%PLB%(I%,)'CURY%PLB%(I%,)o((CURX%),CURY%)((CURX%),(CURY%)),COLORS(),BF I% JRFI% : I% JRFI% : JRFI%I%((CURX%),CURY%)((CURX%),(CURY%)),COLORS(JRFI%),BF BGRCOLORS():  b' DESCRS$(I%);0 I%F  J% PIESX%` DP%(NP%,J%) CY%PAY%(J%)(MR1%AS)( F% DP%(NP%,J%)2ARIN%F%(J%(DP%(NP%,)))<CX%F%XMX%(DP%(NP%,J%))F: (S. Michael Sarna), (C) 1982, Zenith Data Systems$PCURY%PAY%(J%)JZCURX%CX%((NLEG$(ARIN% )))b[BGRCOLORS(): ld bn NLEG$(ARIN%);xMX:: Initialize "Maximum" variableTT:: Initialize "Total" variable OLY:: Initialize "Old Radian" variable5 I% NRECORDS%:: Sum all amounts R MXMXVALUES%(ARIN%,I%)[ I%dI%y I%NRECORDS%AMVALUES%(ARIN%,I%):: Get "Cut" AM h:: Blank amount, skipTTTTAM:: Running total of "Cuts"$NW(TTMXPI):: New radian for circleYPERCENTAGE%AMMXd:: Percentage CalculationeRAMR1%VA%I% : VA% VA% : VA% VA% >:: Draw the pieceRAgffMR1%"SR(NWOL), PERCENTAGE%  : : 6 PERCENTAGE% J:@ p::paint routine]JOLNW:: Old Radian = RadianfTXOo^YOhI%I%:: Go get next piecer:: Untill While is done|(CX%,CY%),MR1% F% J% COLORS() BGRCOLORS():  : BGRCOLORS(): ="Preparing pie chart....";~ ::Set up files information & data array miscellaneous (FY% )  CLMOD% : CLMOD% x: ,::" ":(,)(,),COLORS(),B   ::Give the Chart a name0   ::Draw & Fill the PieZ   ::gosub resolve outside labels~   ::display outside labels  :: finished - look at keyboard. :DRAWSHELL MX:: Initialize "Maximum" variable!&TT:: Initialize "Total" variableC!0OLY:: Initialize "Old Radian" variablek!: I% FY%:: Sum all amounts !D MXMX(IN$(,I%))!N I%!XI%!b I%FY%!lAM(IN$(,I%)):: Get "Cut"!v AM :: Blank amount, skipL" IN$(,I%)"Y" IN$(,I%)"y" R1%EX% : R1%:: Set radius for this "Cut"v"TTTTAM:: Running total of "Cuts""NW(TTMXPI):: New radian for circle"IN$(,I%)(AMMXd):: Percentage Calculation# :: Figure out Explosion Radius"# *:: Draw the pieceA# p:: Paint the Piece# :: Fit Description & label or build outside tables#OLNW:: Old Radian = Radian#I%I%:: Go get next piece#:: Untill While is done##:EXPLODE$YOR1%AS((NWOL))1$ XOR1%((NWOL))7$H$ :DRAWPIECES$*RAR2%j$4VA%(I% CLMOD%)t$>SROL~$HSPNW$R $\$f:PAINTPIECE$pRA(R1%R2%) $zSR(NWOL)$ (IN$(,I%)) : : % (IN$(,I%)) /% p::paint routine5%I%:INOROUTLABELq% j :: Fit the box in the piece% K%N%  : x :  : :: Label Description & Percentage%:Otherwise store data for outside lableing '&T1(YOAS)((R1%R4%)(XO(YOAS)))AST&S1XO((R1%R4%)(XO(YOAS)))&V1(YOAS)((R3%)(XO(YOAS)))AS&U1XO((R3%)(XO(YOAS)))& U1 V1 WS%: OA1%OA1%: OAI%OA1%' U1 V1 WS%: OA4%OA4%: OAI%OA4%W' U1 V1 WS%: OA2%OA2%: OAI%OA2%' U1 V1 WS%: OA3%OA3%: OAI%OA3%'$ OUL(OAI%,,WS%)U1:: outside x anglepoint coordinate(. OUL(OAI%,,WS%)V1:: outside y anglepoint coordinate1(8 OUL(OAI%,,WS%)I%:: data array indiceH(B OUL(OAI%,,WS%)S1_(L OUL(OAI%,,WS%)T1e(V (` :FIXBOX (Needs va% from drawpiece)(j CURX1%((CX%XO)):: Rubber band center point(t CURY1%((CY%YO)):: To closest Print location/)~ D$(IN$(,I%)"_",(IN$(,I%)"_","_"))G) M%(((D$)))d) M% N%M% : N%m) K%v) L%) J%CURX1%0* (J%L%,CURY1%)COLORS(VA%) (J%L%,((CURY1%)))COLORS(VA%) (J%L%,CURY1%)COLORS(VA%) (J%L%,((CURY1%)))COLORS(VA%) K%N%N* :PSET(J%-L%-1,CURY1%*9)t* :PSET(J%-L%-1,((CURY1%+2)*9)-1)* :PSET(J%+L%+8,CURY1%*9)* :PSET(J%+L%+8,((CURY1%+2)*9)-1)* L%L%* K%K%* * * :DRAWBORDER+ O% L% C+( (J%O%,CURY1%)(J%O%,((CURY1%))),COLORS(),BFv+2 (J%O%,CURY1%)(J%O%,((CURY1%)))+< (J%O%,CURY1%)(J%O%,((CURY1%)))+F (J%O%,(CURY1%))(J%O%,(CURY1%)),P (J%O%,((CURY1%)))(J%O%,((CURY1%))),Z O%",d :,n :LABELDESCRIPTIONP,x CURX%CURX1%N%a, CURY%CURY1%y, BGRCOLORS(): , b, D$;, , :LABELPERCENT (Needs xo,yo from paint calc), CURX%CURX1%, CURY%CURY1%- BGRCOLORS():  - b0- "##.#!";(IN$(,I%)),"%";6- G- :OUTLABELS- OA1% OAI%OA1%: WS%: : " :: sort first quadrant labels- OA2% OAI%OA2%: WS%: :  :: sort second quadrant labelsG. OA3% OAI%OA3%: WS%: :  :: sort third quadrant labels. OA4% OAI%OA4%: WS%: :  :: sort fourth quadrant labels. ." CPOS%(SCRLN%)(BXHT%)., PV1% OA1%.6 RBY%(((CY%OUL(PV1%,,))))/@ CPOS% CON1%: /J RBY%CPOS% OUL(PV1%,,)CPOS%: CPOS%CPOS%BXHT% : OUL(PV1%,,)RBY%: CPOS%RBY%BXHT%/T D$(IN$(,OUL(PV1%,,))"_",(IN$(,OUL(PV1%,,))"_","_"))/^ M%(((D$)))/h M% N%M% : N%,0r OUL(PV1%,,)((CX%OUL(PV1%,,)))A0| OUL(PV1%,,)N%L0 PV1%R0 q0 CPOS%(SCRLN%)(BXHT%)0 PV1% OA2%0 RBY%(((CY%OUL(PV1%,,))))0 CPOS% CON2%: 21 RBY%CPOS% OUL(PV1%,,)CPOS%: CPOS%CPOS%BXHT% : OUL(PV1%,,)RBY%: CPOS%RBY%BXHT%x1 D$(IN$(,OUL(PV1%,,))"_",(IN$(,OUL(PV1%,,))"_","_"))1 M%(((D$)))1 M% N%M% : N%1 OUL(PV1%,,)((CX%OUL(PV1%,,)))(N%)1 OUL(PV1%,,)N%2 PV1%2 2 CPOS%(SCRLN%)32 PV1% OA3%X2& RBY%(((CY%OUL(PV1%,,))))20 CPOS%SCRLN%BXHT% CON3%: 2: RBY%CPOS% OUL(PV1%,,)CPOS%: CPOS%CPOS%BXHT% : OUL(PV1%,,)RBY%: CPOS%RBY%BXHT%/3D D$(IN$(,OUL(PV1%,,))"_",(IN$(,OUL(PV1%,,))"_","_"))G3N M%(((D$)))d3X M% N%M% : N%3b OUL(PV1%,,)((CX%OUL(PV1%,,)))(N%)3l OUL(PV1%,,)N%3v PV1%3 3 CPOS%(SCRLN%)3 PV1% OA4%4 RBY%(((CY%OUL(PV1%,,))))84 CPOS%SCRLN%BXHT% CON4%: 4 RBY%CPOS% OUL(PV1%,,)CPOS%: CPOS%CPOS%BXHT% : OUL(PV1%,,)RBY%: CPOS%RBY%BXHT%4 D$(IN$(,OUL(PV1%,,))"_",(IN$(,OUL(PV1%,,))"_","_"))4 M%(((D$)))5 M% N%M% : N%I5 OUL(PV1%,,)((CX%OUL(PV1%,,)))^5 OUL(PV1%,,)N%i5 PV1%o5 5 :Display Outside Labels5 CON1% LCX%: LCY%: :  5 PV1% OA1%5 I%OUL(PV1%,,)6* N%OUL(PV1%,,)64 VA%(I% CLMOD%)06> CURX%OUL(PV1%,,)H6H CURY%OUL(PV1%,,)d6R EROX%CX%OUL(PV1%,,)6\ EROY%CY%OUL(PV1%,,)6f LSGX%(CURX%)6p LSGY%(CURY%)6z OSGX%CX%OUL(PV1%,,)6 OSGY%CY%OUL(PV1%,,)7 (LSGX%,LSGY%)(EROX%,EROY%),COLORS(VA%) >7 (EROX%,EROY%)(OSGX%,OSGY%),COLORS(VA%)n7 D$(IN$(,I%)"_",(IN$(,I%)"_","_"))7 BGRCOLORS(): 7 b7 D$;7 CURY%CURY%7 N% CURX%CURX%N%7 b7 "##.#!";(IN$(,I%)),"%";8 PV1%78 CON2% LCX%: LCY%: : K8 PV1% OA2%`8I%OUL(PV1%,,)u8N%OUL(PV1%,,)8VA%(I% CLMOD%)8$CURX%OUL(PV1%,,)8.CURY%OUL(PV1%,,)88EROX%CX%OUL(PV1%,,)8BEROY%CY%OUL(PV1%,,)9LLSGX%((CURX%N%))'9VLSGY%(CURY%)C9`OSGX%CX%OUL(PV1%,,)_9jOSGY%CY%OUL(PV1%,,)9t(LSGX%,LSGY%)(EROX%,EROY%),COLORS(VA%)9~(EROX%,EROY%)(OSGX%,OSGY%),COLORS(VA%)9D$(IN$(,I%)"_",(IN$(,I%)"_","_")):BGRCOLORS():  : b: D$;':CURY%CURY%F: N% CURX%CURX%N%P: bs: "##.#!";(IN$(,I%)),"%";~: PV1%: CON3% LCX%: LCY%: : : PV1% OA3%:I%OUL(PV1%,,):N%OUL(PV1%,,);VA%(I% CLMOD%) ; CURX%OUL(PV1%,,)8;CURY%OUL(PV1%,,)T;EROX%CX%OUL(PV1%,,)p;(EROY%CY%OUL(PV1%,,);2LSGX%((CURX%N%));<LSGY%(CURY%);FOSGX%CX%OUL(PV1%,,);POSGY%CY%OUL(PV1%,,)LSGX%(CURX%)>"LSGY%(CURY%)6>,OSGX%CX%OUL(PV1%,,)R>6OSGY%CY%OUL(PV1%,,)>@(LSGX%,LSGY%)(EROX%,EROY%),COLORS(VA%)>J(EROX%,EROY%)(OSGX%,OSGY%),COLORS(VA%)>TD$(IN$(,I%)"_",(IN$(,I%)"_","_"))>]BGRCOLORS(): >^ b?h D$;?rCURY%CURY%9?| N% CURX%CURX%N%C? bf? "##.#!";(IN$(,I%)),"%";q? PV1%w?? COLORS() (LCX%,LCY%)(LCX%,LCY%),COLORS(),BF?CURX%LCX%?CURY%LCY%@ COLORS() BGRCOLORS():  : BGRCOLORS(): "@ b<@"Labeling Conflict";N@CURY%CURY%X@ br@"in this quadrant.";x@@:CHARTNAME@TITLE$(TITLE$,P)@CURX%(P(TITLE$))@&CURY% A/ COLORS() BGRCOLORS():  : BGRCOLORS(): A0 b4AD ()"p";TITLE$;()"q":ANIAX:PRINTATAb CURY%,CURX%: PRINT CHR$(27)"Y"CHR$(32+CURY%)CHR$(32+CURX%);AlAv"R",,"WHAT.RUN", : A  :A$: AA #,AS A$,AS B$,AS C$,AS D$A ,BA(A$)BB(B$)"BTIMLOOP1(C$)6BTIMLOOP2(D$)ABMODEARB #, AS A$eB ,B:AA$A$kBqBB"I",,AA$B:B #,TITLE$: #,DATFIL$B  #,FY$:: HData field rows obtained from .PIE fileCFY%((FY$))(C FX%:: Data field columnsUC* :: dim arrays blank out in$ etc.C4 I% FY%: #,A$:XSTEVE(A$," "): XSTEVE A$(A$,XSTEVE)C>IN$(,I%) (A$(,"_"),FL%()): I%CH  : explodesCRD\"I",,DATFIL$3Df L:: read in descriptions and amounts9Dp?DzKD:CORED:COLS 1 DESCRIPTION 2 AMOUNT 3 EXPLODE (Y OR N) 4 PERCENTAGE (INTERNALLY CALC'D)D FL%(FX%):: Array for len of fieldsE IN$(FX%,FY%):: Array for input=E OUL(FY%,,):: Array for label at outside of Pie pEFL%():: Length of 0 field "Description"EFL%() :: Length of 1 field "Amount"EFL%():: Length of 2 field "Explode"E J% FY%:: Set array to Blanks F I% FX%(F IN$(I%,J%)(FL%(I%))3F I% ";()"q";MJACK$:COUNTCOUNT M MODE JACK$() U N COUNTTIMLOOP2 MODE : "MENU"N COUNTTIMLOOP1 MODE   : JACK$( )  : : :"menu",0uN"R",,"WHAT.RUN", N& #, AS A$,AS B$N0 ,N:A(A$)NDB(B$)NNBBOX BA FL:B : FL&Ob B$(B)5Ol A$(A)?Ov ,QO #, AS C$dO ,B:CC$C$jOO FL : "MENU" : TYPE$(CC$,(CC$,"."),)O TYPE$"p" TYPE$"P" : : : TYPE$OOp COLORS() Pz(CX%XO,CY%YO),COLORS(VA%)#PcP BGR BGR BGRBGR : BGR BGR BGRBGRP FGR FGR FGRFGR : FGR FGR FGRFGRP COLORS() FGRBGR FGRCOLORS():BGRCOLORS()P FGR,BGR: QL (,),:PT(,): (,)XQV PT COLORS$"07" : yCOLORS$"01234567"Q` J :COLORS(J)((COLORS$,J,)): J:FGRCOLORS():Qx COLORS() : : : WCOLORS$"01234567"Q` J :COLORS(J)((COLORS$,J,)): J:FGRCOLCOLORS(VA%)#PcP BGR BGR BGRBGR : BGR BGR BGRBGRP FGR FGR FGRFGR : FGR FGR FGRFGRP COLORS() FGRBGR FGRCOLORS():BGRCOLORS()P FGR,BGR: QL (,),:PT(,): (,)XQV : *F SIDE Version 1.0 --> SIDE BAR CHART (c)1982 Zenith Data Systems *M  : ()"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: k #, 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: 6 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 1 VALUES(K,J)  SPX11SPX : SPX11SPX < (SPX11,SPY)(SPXPT,SPYEACHBAR),COLORS((COLR )),BF: SPYSPYNEXTBAR: CU(K)COLR: 3COLRCOLR NFILES  J LEGS$"Y"  RC,G: ;(NLEG$(K),);: P (XSCAN,(RC)YSCAN)(OXSCAN,RCYSCAN),COLORS((CU(K) )),BF: aRCRC 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$"07" : COLORtS$"01234567"a` J :COLORS(J)((COLORS$,J,)): J:FGRCOLORS():x COLORS() : : : aCOLORNU" : 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$"07" : COLORv10 days 5 15 days 8 20 days 5 25 days 12 30 days 33 35 days 12 40 days 15 45+ days 10 t CBuK<.tC(*S:tC[邍pYRHڋH9!&蚂ZrÍI GS"HS,RQTL `YZ[u0nJAN 63 FEB 65 MAR 74 APR 71 MAY 76 JUN 79 JUL 81 AUG 84 SEP 88 OCT 93 NOV 102 DEC 106 t CBuK<.tC(*S:tC[邍pYRHڋH9!&蚂ZrÍI GS"HS,RQTL `YZ[u0lJAN 13 FEB 15 MAR 23 APR 38 MAY 29 JUN 26 JUL 37 AUG 30 SEP 25 OCT 48 NOV 41 DEC 40 t CBuK<.tC(*S:tC[邍pYRHڋH9!&蚂ZrÍI GS"HS,RQTL `YZ[u0ySalaries 773.2111 Taxes 532.8745 Raw Materials 872.551 Debt Payment 944.8317 Hourly Labor 1057.76  FF$"CORP"(0J)".DAT":"O",,F$: F$P K :#,A$(K)?ZV()(): K VVXd#,V: A$(K),V: K`n Jhx"PAT":"O",,F$: F$P K :#,A$(K)?ZV()(): K VVXd#,V: A$(K$(,)"PRESS ";()"q";"";3 () MODE  : COUNTCOUNT: COUNTTIMLOOP1 MODE  : COUNTTySalaries 1235.734 Taxes 430.6981 Raw Materials 1890.643 Debt Payment 1099.358 Hourly Labor 1373.791 FF$"CORP"(0J)".DAT":"O",,F$: F$P K :#,A$(K)?ZV()(): K VVXd#,V: A$(K),V: K`n Jhx"PAT":"O",,F$: F$P K :#,A$(K)?ZV()(): K VVXd#,V: A$(K$(,)"PRESS ";()"q";"";3 () MODE  : COUNTCOUNT: COUNTTIMLOOP1 MODE  : COUNTTySalaries 1407.652 Taxes 262.6946 Raw Materials 893.1232 Debt Payment 968.8485 Hourly Labor 823.7163 FF$"CORP"(0J)".DAT":"O",,F$: F$P K :#,A$(K)?ZV()(): K VVXd#,V: A$(K),V: K`n Jhx"PAT":"O",,F$: F$P K :#,A$(K)?ZV()(): K VVXd#,V: A$(K$(,)"PRESS ";()"q";"";3 () MODE  : COUNTCOUNT: COUNTTIMLOOP1 MODE  : COUNTTySalaries 1077.584 Taxes 467.6407 Raw Materials 695.7115 Debt Payment 613.5293 Hourly Labor 418.3233 FF$"CORP"(0J)".DAT":"O",,F$: F$P K :#,A$(K)?ZV()(): K VVXd#,V: A$(K),V: K`n Jhx"PAT":"O",,F$: F$P K :#,A$(K)?ZV()(): K VVXd#,V: A$(K$(,)"PRESS ";()"q";"";3 () MODE  : COUNTCOUNT: COUNTTIMLOOP1 MODE  : COUNTTySalaries 1561.372 Taxes 315.9782 Raw Materials 1319.083 Debt Payment 1688.231 Hourly Labor 1269.841 FF$"CORP"(0J)".DAT":"O",,F$: F$P K :#,A$(K)?ZV()(): K VVXd#,V: A$(K),V: K`n Jhx"PAT":"O",,F$: F$P K :#,A$(K)?ZV()(): K VVXd#,V: A$(K$(,)"PRESS ";()"q";"";3 () MODE  : COUNTCOUNT: COUNTTIMLOOP1 MODE  : COUNTTySalaries 837.8223 Taxes 317.0401 Raw Materials 983.9877 Debt Payment 1398.445 Hourly Labor 1196.43 FF$"CORP"(0J)".DAT":"O",,F$: F$P K :#,A$(K)?ZV()(): K VVXd#,V: A$(K),V: K`n Jhx"PAT":"O",,F$: F$P K :#,A$(K)?ZV()(): K VVXd#,V: A$(K$(,)"PRESS ";()"q";"";3 () MODE  : COUNTCOUNT: COUNTTIMLOOP1 MODE  : COUNTTySalaries 989.1329 Taxes 207.0073 Raw Materials 786.0513 Debt Payment 573.561 Hourly Labor 1381.363 FF$"CORP"(0J)".DAT":"O",,F$: F$P K :#,A$(K)?ZV()(): K VVXd#,V: A$(K),V: K`n Jhx"PAT":"O",,F$: F$P K :#,A$(K)?ZV()(): K VVXd#,V: A$(K$(,)"PRESS ";()"q";"";3 () MODE  : COUNTCOUNT: COUNTTIMLOOP1 MODE  : COUNTTySalaries 333.5142 Taxes 180.09261 Raw Materials 1037.771 Debt Payment 1544.803 Hourly Labor 1274.394 t CBuK<.tC(*S:tC[邍pYRHڋH9!&蚂ZrÍI GS"HS,RQTL `YZ[u02/28 805 3/6 810 3/13 820 3/20 840 3/27 832 4/3 820.2 4/10 815 4/17 827 4/27 836.55 5/3 840.50 5/10 861.25 5/17 839.25  [u01 .4 2 1.45 3 2.8 4 4.1 5 5.4 6 6.5 7 7.55 8 8.6 9 9.5 10 10.3 11 11 12 11.9 13 12.5 14 13 15 13.1  4.1 5 5.4 6 6.5 7 7.55 8 8.6 9 9.5 10 10.3 11 11 12 11.9 13 es not exist. Try another or use F2 to create it.": J : J:  vD*v ()"USE AN EXTENSION!": J : J:  vZE4v"R",,"what.run", :#, AS A$, AS B$, AS X$: ,:X1$X$: X$X1$: A$(): B$(): ,: #, AS A$: A$F1 0 2 2.61 3 4.76 4 6.64 5 8.23 6 9.62 7 10.85 8 11.91 9 12.88 10 13.75 11 14.55 12 15.28 13 15.95 14 16.64 15 17.17  6 9.62 7 10.85 8 11.91 9 12.88 10 13.75 11 14.55 12 es not exist. Try another or use F2 to create it.": J : J:  vD*v ()"USE AN EXTENSION!": J : J:  vZE4v"R",,"what.run", :#, AS A$, AS B$, AS X$: ,:X1$X$: X$X1$: A$(): B$(): ,: #, AS A$: A$FHome Del. A.M. 25 Home Del. P.M. 43 News Stand Dawn 156 News Stand Noon 138 News Stand Dusk 312 N Stand Nextday 97 Mailed to N.Y. 53 Mailed to Chi. 76 Mailed to Tampa 59 Mailed to Phnix 103 Mailed to L.A. 32 Mailed to Gnome 3 o N.Y. 53 Mailed to Chi. 76 Mailed to Tampa 59 Mailed to Phnix 103 Mailed to L.A. 32 Mail,"what.run", :#, AS A$, AS B$: A$(): B$(): ,: #, AS A$: A$FI$: ,:HA>v FI$: (FI$,)pA}:TQuick Graphics Limited Accounts Receivable Collection Schedule ar.DAT 8 10 days 15 days 20 days 25 days 30 days 35 days 40 days 45+ days # N N N N Y N N N  20 days [u0The Daily News Distribution Center- 1981 Distributions newdistr.DAT 12 Home Del. A.M. Home Del. P.M. News Stand Dawn News Stand Noon News Stand Dusk N Stand Nextday Mailed to N.Y. Mailed to Chi. Mailed to Tampa Mailed to Phnix Mailed to L.A. Mailed to Gnome N N N N Y N N N N N N N .Y. Mailed to Chi. Mailed to Tampa Mailed to Phnix Mailed to06}lne riaanab.lne tc81.sde tc81.bar ar.pie newdistr.pieworld2.pis dow.tnd tc81.dm3 e.e ".pienewdistr.pietc81.sde tn.sde neg.sde ! );: :R*fS > ()" ;Not a valid data file";( );: :R*pS @ ()" Invalid file name";( );: :R*zS ,:  +0u:"draw": "Filename> ";FI$A+:u"O",,"what.run":#,FI$::Q+Du (FI$,6}lne riaanab.lne tc81.sde tc81.bar ar.pie newdistr.pieworld2.pis dow.tnd *tc81.dm3 INC-.BAR RANGE.BAR AR.PIE NEWDISTR.PIERAY1.PIE RAY5.PIE RAY7.PIE RAY6.PIE INC-.PIE EQUAL1.PIE TC81.SDE RAY1.SDE JACK.SDE INC-.SDE RANGE.SDE RIAANAB.LNE RAY1.LNE INC-.LNE RANGE.LNE WORLD2.PIS RAY11.PIS DOW.TND TRAY1.TND INC-.TND RANGE.TND TC81.DM3 RAY1.DM3 RAY12.DM3 RAY13.DM3 FTerminal vs Computer Sales 1981 2 term81.DAT comp81.DAT Terminal Computer 12 JAN  FEB  MAR  APR  MAY  JUN  JUL  AUG  SEP  OCT  NOV  DEC A Monthly Sales Units * 1000 10 110 6.25 N G  SEP  O0GTerminal vs. Computer Sales 1981 2 term81.DAT comp81.DAT Terminal Computer 12 JAN  FEB  MAR  APR  MAY  JUN  JUL  AUG  SEP  OCT  NOV  DEC 4 Units * 1000 Monthly Sales 10 110 6.25 0Phonograph and Recording Tape reproduction Curves 2 RIAA.DAT NAB.DAT Phono Tape 15 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 Freq. in KHz Decibels 0 20 1.25 DAT NAB.DAT Phono Tape 15 1 2 3 4 5 6 7 8 9 10 11 7  8  9  10  11  12  13  14  15    10  11  12  13 Major Corporate Expenditures 1974-1981 8 corp1.DAT corp2.DAT corp3.DAT corp4.DAT corp5.DAT corp6.DAT corp7.DAT corp8.DAT 1974  1975  1976  1977  1978  1979  1980  1981  5 Salaries  Taxes Raw Materials Debt Payment Hourly Labor 0 0 0  1981$(,)"PRESS ";()"q";"";3 () MODE  : COUNTCOUNT: COUNTTIMLOOP1 MODE  : COUNTT8Dow Jones Industrial Average 1982 1 dow.DAT dow.DAT 12 2/28  3/6  3/13  3/20  3/27  4/3  4/10  4/17  4/27  5/3  5/10  5/17 4 Weekly Average Dollars 800 875 4.6875   4/27  5/3  5/10 0G1981 Computer vs Terminals Sales 2 comp81.DAT term81.DAT Computer Terminal 12 JAN  FEB  MAR  APR  MAY  JUN  JUL  AUG  SEP  OCT  NOV  DEC 5 Monthly Sales Units * 1000 10 110 6.25   SEP