* PLOT.BAS * Created for CodeWorks magazine * Copyright 1985 - CodeWorks% Tandy 600 version Copyright 1986 - David Dunn Thomas, Timonium, MD/  : ,!:"The CodeWorks": ,:"T R E N D A N A L Y S I S P L O T T E R": (,!)(,"),,BF: ,,: ,<: :"Press any key ";()" "();: :P$$(): : : "LPT1:" OUTPUT AS 1:  " A utility plotter with a three-period projection for use with either an 80 or 132 character line printer." :" The data for this program must be entered as DATA lines at the end of the program. The form of these DATA statements is:"U "DATA LABEL,#### where LABEL is a name and #### is a numeric value." :" The very last DATA statement should contain a dummy label":"and a numeric value of -1, like this: DATA ,-1"  : :"Is your printer 80 or 132 columns? ighty/ne32 ";b A$$(): A$"e" A$"E" TS : A$"o" A$"O" TS :  "": "What will you name this graph";Z$  #,Z$: #,TS);"0";TS);"1";TS);"2";TS);"3";TS);"4";TS);"5"TS);"6";TS);"7";TS );"8";TS );"9";TS );"1"9  TS TITS : TITSS  ITS TS TIh #,I);(|);p " I} $ #," " &D2 ( J  * A$,D: D 2 , DD2 D2D) . D2e D1 : D2 D1 : D2' D1d : D2F D1 : D2G D1'1 0 J7 2G 4 J R 6 A$,Dc 8 D Dm :CC| <L(DD1) > TS L(L) @ #,A$;TS);: I L: #,"X";: I: #,TS );(D) B J D F J C HQJJ A$,D'LRRD:SSQ:UU(QD):TT(QQ)/N J_PY(TRSU)(CTSS):X(CUSR)(CTSS)qR FC CTF1YXF: F1 "Can't print negative #'s": dVL(F1D1)X TS L(L)Z #,"PROJ";TS);: I L: #,"o";: I: #,TS );(F1)\ F,^ #," "_` #,"The values for the regression line are:"yb #,"Y=";Y;"+";X;"X"df: The necessary DATA lines may be prepared for this program using theh: MAKER.BAS program, or other means, and if the lines always start withij: line 200 with increments of 10, then the DATA file will MERGE properly.x JAN,3200 FEB,3850 MAR,4329 APR,5560 MAY,6430 JUN,6028 JUL,6500 AUG,6345 SEP,6208" OCT,7325, NOV,80056 DEC,7685'@ ,-1