Ob COPYRIGHT (C) 1982 - WEST COAST CONSULTANTS - TRACY - CALIFORNIAb TCWI%,CLSCR$,DCA$,RCFLAG,TCRO%,SEPSEQ$,TCCO%,FINSEQ$,TCIV$,IVSEQ$,OFFSEQ$,TCERA$,TCCLNULL%,TCCP%,TCSTR$,V$(),V%()b ,b  b c : LL() :  Ic( C2Y : C2S$"Type of Plot" : B :  : C2S$ : : : }c2 N  : C2S$ : TCWI% );C2S$ : Nc< V%() : V$()"ns"cF 1). Cartesian Eqn. y=f(x),2). Parametric Eqn. y=f(t) & x=g(t)dP 3). Polar Eqn. r=f(s),4). Data Points from Keyboard WdZ 5). Bar Graph,6). Alphanumeric Characters,7). Pie Chartnd_ 8). End Programdn : : : TCWI%); : V$()dx V%()(V$())e V%() V%() C2S$"INVALID : Please choose again" :  : C2S$ : I%  : : t : _e V$()"grid lines" : V$()"tic marks" : V$()"box frame"e V%() ,,,,,,,e "C2MAIN"e "C2MAIN"e "C2MAIN"e "C2MAIN"e "C2MAIN"e "C2MAIN"e "C2PIEC"Ff  : C2Y : C2S$"***DONE***" : V : B :  : C2S$Qf tnf : TCWI%); : A$uf |f, f1 5   6f3  : f6 "O",,"TERMINAL.WCC"g@ "INITIALIZATION AND TERMINAL CONFIGURATION" : GgJ "This program requires certain information about your terminal"gT "to work properly. Please consult your operations or terminal"g^ "manual for information about the following functions:"gh : " Screen width (characters)")hr " Clearing the screen and homing the cursor"]h| " Direct cursor addressing(x,y positioning)"h " Inverse video or highlighting"h " Clearing from the cursor to the end of screen"i : "The program will ask you a series of questions about"^i "these functions. Please enter a DECIMAL number and hit 'RETURN'."~i : "* * * " : : : i "WIDTH" : i " What is the width of your screen (in characters)";TCWI%i #,TCWI%i : : +j "CLEARING THE SCREEN AND HOMING THE CURSOR" : \j " How many characters are used";TCCH%kj #,TCCH%j I% TCCH%j " What is character ";I%;j Aj #,Aj& I%j: : : : "DIRECT CURSOR ADDRESSING" : FkD " How many characters are used in the introductory sequence ";TCCR%UkN #,TCCR%ikX I% TCCR%kb " Character ";I%;kl Bkv #,Bk I%k " Which is first, row or column (r or c) ";TCRC$l TCRC$"r" TCRC$"R" RCFLAG : !l RCFLAG1l #,RCFLAGtl " What off-set value is added to the row number ";TCRO%l #,TCRO%l " How many characters in the separator sequence ";TCSEP%l #,TCSEP%l TCSEP% *m I% TCSEP% m " Character ";I%;*m C6m  #,C@m I%m* " What off-set is added to the column number ";TCCO%m4 #,TCCO%m> " How many characters in the ending sequence ";TCES%mH #,TCES%mR TCES% n\ I% TCES%%nf " Character ";I%;/np D;nz #,DEn I%|n : : : "INVERSE VIDEO OR HIGHLIGHTING" : n " Does your terminal provide inverse video or other highlighting (y or n) ";TCIV$n #,TCIV$ o TCIV$"n" TCIV$"N" To " How many characters in the sequence to turn it on ";TCIVON%eo #,TCIVON%{o I% TCIVON%o " Character ";I%;o Eo #,Eo I%p : " How many characters in the sequence to turn off inverse video ";TCIVOFF%%p #,TCIVOFF%Hp TCIV$"n" TCIV$"N" `_p$ I% TCIVOFF%}p. " Character ";I%;p8 FpB #,FpL I%p` : : : "CLEARING FROM THE CURSOR TO THE END OF THE SCREEN" : ?qj " How many characters are required to erase to the end of screen ";TCERSQ% Pqt #,TCERSQ%fq~ I% TCERSQ%q " Character ";I%;q Gq #,Gq I%q : : : "SPECIAL TERMINAL CHARACTERISTICS" : -r " How many nulls are required after clearing the screen ";TCCLNULL%@r #,TCCLNULL%r " What is the home position of the cursor (normally 0)";TCCP%r #,TCCP%r " Are the cursor addresses (x,y) sent as strings (normally 'n')";TCSTR$r #,TCSTR$s s  "I",,"TERMINAL.WCC"-s  #,TCWI%ts #,X : CLSCR$"" : Q X : #,A : CLSCR$CLSCR$(A) : Qs #,X : DCA$"" : Q X : #,A : DCA$DCA$(A) : Qs #,RCFLAG,TCRO%t #,X : SEPSEQ$"" : Q X : #,A : SEPSEQ$SEPSEQ$(A) : Q$t #,TCCO%nt #,X : FINSEQ$"" : Q X : #,A : FINSEQ$FINSEQ$(A) : Qt #,TCIV$ : TCIV$"N" TCIV$"n" +u #,X : IVSEQ$"" : Q X : #,A : IVSEQ$IVSEQ$(A) : Q : #,X : OFFSEQ$"" : Q X : #,A : OFFSEQ$OFFSEQ$(A) : Qru #,X : TCERA$"" : Q X : #,A : TCERA$TCERA$(A) : Qu #,TCCLNULL%,TCCP%,TCSTR$u CLSCR$u( u2 Q TCNULL% : "" : u< CTCCO%TCCP%(TCWI%)uF Q  vP RTCRO%TCCP%QvZ S$4vd RCFLAG Zvn TCSTR$"y" TCSTR$"Y" ~vx DCA$;R;SEPSEQ$;C;FINSEQ$;S$v v DCA$;(R);SEPSEQ$;(C);FINSEQ$;S$ : v TCSTR$"y" TCSTR$"Y" w DCA$;C;SEPSEQ$;R;FINSEQ$;S$w @w DCA$;(C);SEPSEQ$;(R);FINSEQ$;S$Iw Qw " *** * * *** * * ****","* * * * * * * * "w "* * * * * * * ** ","* * * *** * * * "x "* * * * * * * "," *** ** * * * ****"3x Q  : Jx Q  : : x TCWI%);"c. 1981 WEST COAST CONSULTANTS"x Q  : x CLSCR$x" Q TCCLNULL% : "" : x, Q  : : y6 TCWI% );"Need an Introduction ";y@ A$/yJ A$"n" A$"N" =yT CLSCR$^y^ Q TCCLNULL% : "" : uyh Q  : : yr C2S$"Turn plotter on...position paper at" : B : C2X);C2S$ z| C2S$"lower left corner of plotter and clamp it" : B : C2X);C2S$z Q  : [z : C2S$"roll pen arm to lower left corner of plotter"uz B : C2X);C2S$z Q  : z : : C2S$"--------------------" : B : C2X);C2S$z Q { C2S$"| |" : B : C2X);C2S$ : QP{ C2S$"| * |" : B : C2X);C2S${ C2S$"|__________________|" : B : C2X);C2S${ Q  : { { { CLSCR${ Q TCCLNULL% : "" : Q{ { RTCRO%TCCP%C2Y| CLTCCO%TCCP%C2X$| DCA$;:| RCFLAG _| TCSTR$"y" TCSTR$"Y" | R;SEPSEQ$;CL;FINSEQ$; : 8| (R);SEPSEQ$;(CL);FINSEQ$; : 8| TCSTR$"y" TCSTR$"Y" .|$ CL;SEPSEQ$;R;FINSEQ$; : 8 }. (CL);SEPSEQ$;(R);FINSEQ$;'}8 C}B C2X(TCWI%(C2S$))J}L m}V TCIV$"n" TCIV$"N" j{}` IVSEQ$}j }t TCIV$"n" TCIV$"N" }~ OFFSEQ$} ))J}L m}V TCIV$"n" TCIV$"N" j{}` IVSEQ$}j }t