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%()5c Jd : V1(J),V2(J),XX(J),YY(J),L(J),Z(J),P(J),V3( ),T(),F(),EP(),AN(),EP$(),LB$(),MM()ec X(J),Y(J),C(),B() : PIFIpc c  : C2X : C2Y :  : V : "ENTER" : t : LB()@ : DD d C2X : C2Y :  : "X,Y COORDINATES OF THE PIE CENTER:"2d C2X : C2Y :  : "X? ",XA[d C2X : C2Y :  : "Y? ",YAd : "ENTER RADIUS OF THE PIE? ",RAd  : : "HOW MANY PIE SECTIONS"; : "? ",F() :  *e C2X : C2Y :  : K F() : "TYPE A VALUE FOR PIE SECTOR #";K; : "? ",T(K) : Ye "RELATIVE OFFSET DISTANCE FROM CENTER?"e );"(0 - 100)" : ); : F(K) : e "SELECT SHADING OPTION..." : f :  );"1). NO SHADING" :  );"2). ARC SHADING" :  );"3). SLANT LINE SHADING"$f : ); : F$Ff (F$) EP(K) : 2f (F$) : "SPACING BETWEEN ARC ELEMENTS"; : "? ",EP(K) : 2f (F$) : "SPACING BETWEEN SLANT ELEMENTS"; : "? ",EP(K) : EP(K)EP(K)g! :  );"ANGLE OF ELEMENTS" : ?g% " 0 DEGREE SHADE LINES....TYPE 1"ig& " 30 DEGREE SHADE LINES....TYPE 2"g' " 60 DEGREE SHADE LINES....TYPE 3"g( " 90 DEGREE SHADE LINES....TYPE 4"g) "120 DEGREE SHADE LINES....TYPE 5"h* "150 DEGREE SHADE LINES....TYPE 6"Ih+ : ); : Q$ : : AN(K)((Q$))nwh- "DO YOU WANT CROSS HATCHED SHADING"; : "? ",Q1$ : Q1$"Y" Q1$"y" AN(K)AN(K)h2 : "COLOR OF THIS PIE SECTOR"; : "? ",EP$(K) : 5i3 "LABEL TEXT FOR THIS SECTOR" : ); : "...",LB$(K) : : LB(K)RA qi4 : "LABEL SIZE FOR THIS SECTOR"; : "? ",MM(K) : i5 DD DD : "COLOR OF LABEL TEXT"; : "? ",LB$()i6  : : T$i7 %i8  $j9 C2Y : C2S$"RETURNING to the Main Menu" : B :  : C2S$8j: "CURVEII",j6 : " Value is outside "; CC$;" limits..." : " Minimum = ";AV;" Maximum = ";BV : Q  : : j CC$"plotter"j FPj 9k Q  : : : C2S$"Enter distance from left edge of plotter area" : B : C2X);C2S$~k C2S$"to left side of user's area (in.)" : B : C2X)C2S$;k A : A A AV : BV : 6 : k  FP : pl Q  : : : C2S$"Enter distance from left edge of plotter area" : B : C2X);C2S$ : C2S$"to right side of user's area (in.)" : B : C2X);C2S$;l B : B B AV : BV : 6 : l  AB >m* C2Y : C2S$"* Impossible limits *" : V : B :  : C2S$ : Q  : )m4 t : ;m> FP : mH Q  : : : C2S$"Enter distance from lower edge of plotter area" : B : C2X);C2S$mR C2S$"to lower side of user's area (in.)" : B : C2X);C2S$;(n\ C : C C33# AV : BV33# : 6 : H:nf FP : np Q  : : : C2S$"Enter distance from lower edge of plotter area" : B : C2X);C2S$ : C2S$"to lower side of user's area (in.)" : B : C2X);C2S$;nz D$o D D33# AV : BV33# : 6 : p5o CD o C2Y : C2S$"* Impossible Limits *" : V : B :  : C2S$ : Q  : o t : >o : C2S$"Want to change any dimensions " : B : : C2X);C2S$;o A$p A$"y" A$"Y" ;p V%() (# :  : Fp cp V%() V%() p  : C2Y : C2S$(,"_") : B : C2XC2X :  : C2S$p FP |q Q  : C2S$"| |" : B : C2X);C2S$ : Q q FP ,,@,T'q" mq, C2S$"***********>| |" : B : C2X);C2S$q6 C2S$"|__________________|" : B : C2X);C2S$ : q@ C2S$"*****************************>|" : B : C2X);C2S$*rJ C2S$"|__________________|" : B : C2X);C2S$ : brT C2S$"| |" : B : C2X);C2S$r^ C2S$"|__________________|" : B : C2X);C2S$rh C2S$" ^ " : B : C2X);C2S$sm Q  : C2S$" * " : B : C2X);C2S$ : Q#sr [s| C2S$"| ^ |" : B : C2X);C2S$s Q  : C2S$"| * |" : B : C2X);C2S$ : Qs C2S$"|______________*___|" : B : C2X);C2S$'t Q  : C2S$" * " : B : C2X);C2S$ : Q.t t  : C2Y : C2S$"Define your minimum and maximum x and y limits in user's units" : B :  : C2S$t : TCWI%); : " xmin";X0 : (V%() V%()) X0  : yu : TCWI%); : " xmax";X1 : X1 X0 V : " * ERROR IN X LIMITS * " : Q  : : t : u : TCWI%); : " ymin";Y0 : (V%() V%()) Y0  : Pv : TCWI%); : " ymax";Y1 : Y1Y0 V : " * ERROR IN Y LIMITS * " : Q  : : t : v : TCWI%); : " Want to change any limits ";v A$v A$"y" A$"Y" v (# : v CLSCR$v Q TCCLNULL% : "" : Qv w RTCRO%TCCP%C2Y+w CLTCCO%TCCP%C2X8w DCA$;Nw RCFLAG sw TCSTR$"y" TCSTR$"Y" w R;SEPSEQ$;CL;FINSEQ$; : 8w (R);SEPSEQ$;(CL);FINSEQ$; : 8w TCSTR$"y" TCSTR$"Y" .x$ CL;SEPSEQ$;R;FINSEQ$; : 84x. (CL);SEPSEQ$;(R);FINSEQ$;;x8 WxB C2X(TCWI%(C2S$))^xL xV TCIV$"n" TCIV$"N" jx` IVSEQ$xj xt TCIV$"n" TCIV$"N" x~ OFFSEQ$x Gy(# N : SXN(BA)(X1X0) : SYN(DC)(Y1Y0) : F2() : F2() : F2() : F2() : Q9(())( )[_y)# AA(AN) : BB(BN) : CC(CN) : DD(DN)y*# NV : NV()33S : NV()G : NV()֣` : NV()E : NV()@z+# ZZ$(X$)(X$,(X$))az,# C$()"UA" : C$()"DA" : SANA : SBNBSA : SCNC : SDNDSC : G1 G1 : z-# G1 G1 : RX : RY : z/# S$( ) : C2PLTDAT$";:I21 100"S$"H"S$ :  'z0# F1 DE(Q9((Y1Y0))){1# F0 DW(Q9((X1X0))) t{3# C2PLTDAT$"OUA"(AA)","(CC)S$ :  ' : RX : RY : QQ NV(AACC) : : {A# QO$QM$ {B# ((QO$,))  # : {C# : : : );"LOAD ";QO$;" PEN - HIT RETURN TO CONTINUE"{D# F$|E# QM$QO$ : : %|# H6 M |# H6H6NSX : H6H6(H6)H6 : M1(M1)(M1)M1 : M2(M2)M(M2)M23}# QQM1 M2 : E(E1(QQ)) : EE(E2(QQ)(H2)E1(QQ)H2) : XX(QQ) : YY(QQ) : DP : # : # : "$ : YY(QQ)E : DP : # : YY1 YY1 : Y(QQ)Y1 DPx}# "$ : DP : XX(QQ) : # : XXH6 : YY1 "$ : DP}# XX(QQ) : # : XXH6 : "$ : YY(QQ)EE : DP : Y(YY1)Y1(YY1)Y : YY0 XX(QQ) : #~# # : "$ : DP(YY1 YY0) : XX(QQ) : # : XXH6 : "$ : XX(QQ) : # : DP : "$ : DP(YY1) : YY(QQ) : Y(YY1)Y1(YY1)Y : # : "$ : QQ : H6 : H2 : ~# Y(YY0)Y0(YY0)Y : F1 YY0((Y1Y0)Q9DE)(YY0)~# "# F0 XX0((X1X0)Q9DW)(XX0))# <# QO$QX$ # ((QO$,)) ((QO$,)) C2PLTDAT$"P"(QO$,)C2ENDCHR$ :  '# QX$QO$ : # CQCC : CCCC(F9) : F3 C2PLTDAT$"L"ZZ$((F3))S$ :  '# WF4 : F4(F4) : M1 M16# SESE(SE) : M2 M2Mz# # : F1 QJM1 M2 : Y(QJ)Y0 Y(QJ)Y0 : ## F1 Y(QJ)Y0(Y1Y0)Q9(Y(QJ)Y0)DE # F1 QJ# QM1 : F0 QJM1 M2 : X(QJ)X0(X1X0)Q9(X(QJ)X0)DW : QJ%# QM1 #<# XX(M1) : YY(M1)# YY1 YY0 XX1 XX0 QM1 : $ : QQQJ :  $ : QQ :  $# QQM1 :  $ : QQ : M ## Y(Q)Y1 Y(Q)Y0 X(Q)X1 X(Q)X0 $ :  $-# X((XX0)SXAA) : XQ((X(Q)X0)SXAA)# Y((YY0)SYCC) : YQ((Y(Q)Y0)SYCC) : BZ$"DA" : W BZ$"UA"Ԃ$ DP : M F4 C2PLTDAT$BZ$(X)","(Y)S$ :  ' :  $K$ F4 QQ C2PLTDAT$"M"ZZ$((SE))ZZ$((F4))S$ :  ' : QQ : QQ dSE : QQ : M  ${$ C2PLTDAT$BZ$(XQ)","(YQ)S$ :  '݃$ F4 C2PLTDAT$"M"ZZ$((SE))ZZ$((F4))S$ :  ' : QQ : QQ dSE : QQ$ RXRXXQX : RYRYYQY :  $K$ QJQ M2 : Y(QJ)Y1 Y(QJ)Y0 X(QJ)X1 X(QJ)X0 $`$ QJ : QM2 : $ XX(QJ)X(Q) : YY(QJ)Y(Q) : DP : QM1 '$ : QQ $ DP : QQJ : $ DP : XX(QQ) : YY(QQ) : "$ : DP :  $ XX(Q) : YY(Q) : QQ : QM2 #M $ $ : CCCQ CCCC(F9) : F4W : #p $ F9 CCCQ : F9 : #$ F9 : $ : C2PLTDAT$"L0"S$ :  ' : F3 : F4 : M1 : M2 : M"$ B$C$(DP) : NX((XX0)SXRX) : NY((YY0)SYRY) : F5 QHX : XY : YY1QHX0 : NY((YY0)SYRY) : XX0 XX0 : B$C$()#$ RX(XX0)SX : RY(YY0)SY : RX(RX)((RX)) : RX GA RXن$$ RY(RY)((RY)) : RY GA RY[%$ C2PLTDAT$B$((RXAA)((RXAA)))","((RYCC)((RYCC)))S$ :  ' : QO NV(NXNY) : QOb&$ Ƈ'$ BZ$"UR" : TX(XSX)((XSX)) : TY(YSY)((YSY)) : DP BZ$"DR"@($ C2PLTDAT$BZ$(TX)","(TY)S$ :  ' : RXRXTX : RYRYTY : QO (NV(F3))((XSX)(YSY)) : QOG)$ T$ ZQ : T() : H1() : J F() : T()T()T(J) : F(J)F(J)RAd : V$ J F() : T(J)T(J)T() : H2(J)H1(J)T(J)VI : H1(J)H2(J)5Y$ H1H1(J) : H2H2(J) : XBXAF(J)((H1H2)) : YBYAF(J)((H1H2))T[$ XCXB : YCYB : r$ : ^$ I F() : H1H1(I) : H2H2(I) : MMMM(I) : LB(I) j$c$ QO$LB$() : $ : RBRALB()F(I) : T  : X(T)XARB((H1H2))?d$ Y(T)YARB((H1H2)) : RBLB(I)F(I) : : M : F0 : F1 : F3 : F4e$ X()H1 : Y()H2 : H1 : H2 : # : XX()tz(MM)(X1X0)(BA) : H1X() : H2Y()f$ YY()u{(MM)(Y1Y0)(DC) : F2 : F9 : AZ$"-"LB$(I)g$ XAX i$h$ AZ$LB$(I)"-" : XXu|(MM)(AZ$)(X1X0)(BA) : XX #z(MM)(X1X0)(BA) : MM XXuy(MM)(X1X0)(BA)i$ %j$ I : ɋr$ RBRA : w$ : EP(J) s$ EP(J) $ : -t$ RBEP(J) RAEP(J) EP(J) : XCX1 : YCY1 : w$ : : [w$ NNL} : (H2H1)NN NN(H2H1)|$ X()XC : Y()YC : M : TH1 H2 NN(@RBRA) : X(M)RB(T)XB$ Y(M)RB(T)YB : MM : : X(M)XC : Y(M)YC : X(M)RB(H2)XBT$ Y(M)RB(H2)YB : F0 : F1 : F3 : F4 : QO$EP$(J) : ZQ ZQ : $ MM()J : X()H1 : Y()H2 : H1 : H2$ $ : # : JMM() : H1X() : H2Y() : $ EEP(J) : I  : V3(I) : : V3() : V3()(AN(J)) : %E$ AN(J) AN(J)ZAN(J) : T(J)T(J)T() : JJ : ZQL$ k$ ((QO$,)) A#z$ # : $ DP : C2PLTDAT$"U"S$ :  ' : Ǝ% RR N% : RR : %쎁% C2PLTDAT$"P0"C2ENDCHR$ :  'Q% M1 : M2 : F0 : F1 : F2 : F3 : F4 : F5 : F6 : F7 : F8 : F9 : RX : RY% RR C2PLTDAT$"H"S$ :  ' : QQ NV(AACC) : QQ̏% DE : DW : RR : C2PLTDAT$"@"S$ :  ' : % DZ$"S"ZZ$((F2(F2)))ZZ$((MM))"," : J9 %T% DP : GA : "$ : GA : (AZ$,)" " AZ$(AZ$,(AZ$))~% QL(MM) : ED(AZ$) (MM)͐% DZ$DZ$AZ$(_) : Q QL : C2PLTDAT$DZ$C2ENDCHR$ :  ' : %% QQ NV(MM)(AZ$) : % ES(ED) : F9 %E% F2(F2) C2PLTDAT$"UR"(ES)",0"S$ :  '}% F2(F2) C2PLTDAT$"UR""0,"(ES)S$ :  '% F2(F2) C2PLTDAT$"UR"(ES)",0"S$ :  '% F2(F2) C2PLTDAT$"UR""0,"(ES)S$ :  '% % % F2(F2) RXRXED : ;% F2(F2) RYRYED : Z% F2(F2) RXRXED : y% F2(F2) RYRYED : % % V3()((V3()N{)SXSY) : V3()((V3()N{)SXSY) : V3() : V3() : DP : I M : L(I)I : I : V3( ) /&*% V3() @&R% V3() # : V3() % P : I M : X(I)X1 X(I)X0 Y(I)Y1 Y(I)Y0 IM %% L(I)OC : X(P)X(I) : Y(P)Y(I) : L(I)L(P) : PI% I% V3() V3()IV3() : A&T% I M : Z(I)X(I) : P(I)Y(I) : I : 9&s% P M : I M% Y(I)Y(I) QY(I) : Y(I)Y(I) : Y(I)Q : QX(I) : X(I)X(I) : X(I)Q : QL(I) : L(I)L(I) : L(I)Q % I : P : XX() : YY()3% P(L(V3()))Y(V3()) *&Y% P(L(V3()))Y(V3()) +&% Y(V3())P(L(V3())) Y(V3())P(L(V3()))  &ĕ% Y(V3())Y V3()V3() : %% I V3() : Z(V1(I))Z(V2(I)) XX(I)Z(V1(I)) : %E% XX(I)(YYY(I))((P(V1(I))P(V2(I)))(Z(V1(I))Z(V2(I))))N% I% P V3() : I V3() : V3() XX(I)XX(I) QXX(I) : XX(I)XX(I) : XX(I)Q% V3() XX(I)XX(I) QXX(I) : XX(I)XX(I) : XX(I)Q%% I : P : V3() V3() : &>& V3() V3()& I V3() : XXX(I) : QY : 4& : C2PLTDAT$C$(DP)((XSXAA))","((YSYCC))S$ :  ' : YQ& DPDP& I : $ : YYE : V3()V3() : YY(M) $ : "& YY(V3()) V3()V3();& V3()V3() %T& V3()V3() : % & I V3() : PV1(I) : QV2(I) : P(P)Y(V3()) P(Q)Y(V3()) "&!& $&#"& PI V3() : V1(P)V1(P) : V2(P)V2(P) : YY(P)YY(P) : P : II : V3()V3() : IV3() 0$& I : b*& V3()V3() : V1(V3())L(V3()) : ,&+& V3()V3() : V1(V3())L(V3())ޙ,& V2(V3())L(V3()) : PV3() : IV1(P) : QV2(P) : Z(I)Z(Q) YY(P) : -& YY(P)P(I)((P(I)P(Q))(Z(I)Z(Q)))Z(I) : P/& I M : X(I)X(I)V3( ) : Y(I)Y(I)V3( ) : I : c4& V3() ͚5& PXV3() : XP(V3())(YV3( ))(V3())V3() : YP(V3())(YV3( ))(V3())V3( ) : 9& I M : L(I)OC ;&A:& PI M : X(P)X(P) : Y(P)Y(P) : L(P)L(P) : P : MMN;& I : e@& I M : B&tA& I MB& PX(I) : X(I)(X(I)V3())(V3())(Y(I)V3( ))(V3())V3()C& Y(I)(PV3())(V3())(Y(I)V3( ))(V3())V3( ) : I :  ' C2FRSTSW% '` ' C2PLTPRT% : C2STSPRT% : C2RDYFLG% : C2ENDCHR$( )q ' C2FRSTSW%' C2PLTDAT$' FRSTSW% '` ' C2PLTPRT% : C2STSPRT% : C2RDYFLG% : C2ENDCHR$( )q ' C2FRSTSW%' C2PLTDAT$'