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 CLSCR$""j I% TCCH%j " What is character ";I%;j Aj CLSCR$CLSCR$(A)j& I%j0 #,CLSCR$k: : : : "DIRECT CURSOR ADDRESSING" : dkD " How many characters are used in the introductory sequence ";TCCR%qkN DCA$""kX I% TCCR%kb " Character ";I%;kl Bkv DCA$DCA$(B) k I%k #,DCA$l " Which is first, row or column (r or c) ";TCRC$Hl TCRC$"r" TCRC$"R" RCFLAG : Vl RCFLAGfl #,RCFLAGl " What off-set value is added to the row number ";TCRO%l #,TCRO%l " How many characters in the separator sequence ";TCSEP% m SEPSEQ$"""m TCSEP%  7m I% TCSEP%Um " Character ";I%;_m C{m  SEPSEQ$SEPSEQ$(C)m I%m  #,SEPSEQ$m* " What off-set is added to the column number ";TCCO%m4 #,TCCO%%n> " How many characters in the ending sequence ";TCES%5nH FINSEQ$""JnR TCES% ^n\ I% TCES%|nf " Character ";I%;np Dnz FINSEQ$FINSEQ$(D)n I%n #, FINSEQ$n : : : "INVERSE VIDEO OR HIGHLIGHTING" : Ro " Does your terminal provide inverse video or other highlighting (y or n) ";TCIV$ao #,TCIV$po IVSEQ$""o TCIV$"n" TCIV$"N" #,IVSEQ$ : o " How many characters in the sequence to turn it on ";TCIVON%p I% TCIVON%p " Character ";I%;)p ECp IVSEQ$IVSEQ$(E)Mp I%]p #,IVSEQ$p : " How many characters in the sequence to turn off inverse video ";TCIVOFF%p OFFSEQ$"" : TCIV$"n" TCIV$"N" Vp$ I% TCIVOFF%q. " Character ";I%;&q8 FBqB OFFSEQ$OFFSEQ$(F)LqL I%]qV #,OFFSEQ$q` : : : "CLEARING FROM THE CURSOR TO THE END OF THE SCREEN" : qj " How many characters are required to erase to the end of screen ";TCERSQ% rt TCERA$""$r~ I% TCERSQ%Br " Character ";I%;Lr Gfr TCERA$TCERA$(G)pr I%r #,TCERA$r : : : "SPECIAL TERMINAL CHARACTERISTICS" : s " How many nulls are required after clearing the screen ";TCCLNULL%s #,TCCLNULL%es " What is the home position of the cursor (normally 0)";TCCP%ts #,TCCP%s " Are the cursor addresses (x,y) sent as strings (normally 'n')";TCSTR$s #,TCSTR$s s  "I",,"TERMINAL.WCC"kt #,TCWI%,CLSCR$,DCA$,RCFLAG,TCRO%,SEPSEQ$,TCCO%,FINSEQ$,TCIV$,IVSEQ$,OFFSEQ$,TCERA$,TCCLNULL%,TCCP%,TCSTR$yt CLSCR$t( t2 Q TCNULL% : "" : t< CTCCO%TCCP%(TCWI%)tF Q  tP RTCRO%TCCP%QtZ S$ ud RCFLAG 3un TCSTR$"y" TCSTR$"Y" Wux DCA$;R;SEPSEQ$;C;FINSEQ$;S$cu u DCA$;(R);SEPSEQ$;(C);FINSEQ$;S$ : u TCSTR$"y" TCSTR$"Y" u DCA$;C;SEPSEQ$;R;FINSEQ$;S$u v DCA$;(C);SEPSEQ$;(R);FINSEQ$;S$"v Qiv " *** * * *** * * ****","* * * * * * * * "v "* * * * * * * ** ","* * * *** * * * "v "* * * * * * * "," *** ** * * * ****" w Q  : #w Q  : : Xw TCWI%);"c. 1981 WEST COAST CONSULTANTS"mw Q  : {w CLSCR$w" Q TCCLNULL% : "" : w, Q  : : w6 TCWI% );"Need an Introduction ";w@ A$xJ A$"n" A$"N" xT CLSCR$7x^ Q TCCLNULL% : "" : Nxh Q  : : xr C2S$"Turn plotter on...position paper at" : B : C2X);C2S$x| C2S$"lower left corner of plotter and clamp it" : B : C2X);C2S$x Q  : 4y : C2S$"roll pen arm to lower left corner of plotter"Ny B : C2X);C2S$cy Q  : y : : C2S$"--------------------" : B : C2X);C2S$y Q y C2S$"| |" : B : C2X);C2S$ : Q)z C2S$"| * |" : B : C2X);C2S$az C2S$"|__________________|" : B : C2X);C2S$vz Q  : z z z CLSCR$z Q TCCLNULL% : "" : Qz z RTCRO%TCCP%C2Yz CLTCCO%TCCP%C2X{ DCA$;{ RCFLAG @{ TCSTR$"y" TCSTR$"Y" e{ R;SEPSEQ$;CL;FINSEQ$; : 8{ (R);SEPSEQ$;(CL);FINSEQ$; : 8{ TCSTR$"y" TCSTR$"Y" .{$ CL;SEPSEQ$;R;FINSEQ$; : 8|. (CL);SEPSEQ$;(R);FINSEQ$;|8 $|B C2X(TCWI%(C2S$))+|L N|V TCIV$"n" TCIV$"N" j\|` IVSEQ$c|j |t TCIV$"n" TCIV$"N" |~ OFFSEQ$| ))+|L N|V TCIV$"n" TCIV$"N" j\|` IVSEQ$c|j |t TCIV$"n" TCIV$"N"