10  COM Z7,D$[7],V6,J8,U$[72],V$[72],I[4],C1,Z[7],C9,W[7]
20  COM I,R7,N9,Q[24,8],N4,P$[72],Q$[72],D[24,4],M[4],F7,T[4,2],R[16]
30  GOTO 60
40  CHAIN "$ANAL-2"
50  CHAIN "$PIVOT"
60  DIM C$[10],L$[10],K$[9],Z$[72]
70  A=B=200
80  K$="VARIABLES"
90  Z$="INDEPENDENT FUNCTION (ALONG THE"
100  P6=P7=I
110  IF V6<3 THEN 510
120  PRINT '10'10"DOES YOUR PLAN DEPEND ON SETS OF DATA HAVING VALUES FOR ONE OR TWO"
130  PRINT "OF THE VARIABLES AT FIXED VALUES? ";
140  X=240
150  ENTER X,X,B$[I,I]
160  IF B$="Y" THEN 190
170  C1=I-I
180  GOTO 420
190  PRINT '13TAB(40)"HOW MANY";
200  INPUT C1
210  IF C1 <= V6-2 THEN 240
220  PRINT "YOU HAVE SELECTED TOO MANY CHARACTERS. TRY AGAIN."
230  GOTO 120
240  PRINT "WHICH "K$[I,8+(C1>I)]" -- ";
250  INPUT C$
260  IF LEN(C$)=2*C1-I THEN 300
270  IF C$[I,I]=C$[3,3] THEN 430
280  PRINT "REMEMBER, A SINGLE SPACE OR COMMA BETWEEN CHARACTERS."
290  GOTO 240
300  P6=P7=I
310  P8=2
320  FOR N1=I TO 4
330  IF C$[P6,P6]=D$[2*N1-I,2*N1-I] THEN 350
340  GOTO 410
350  Z[P7]=N1
360  Z[P8+N1]=I-I
370  IF P6=2*C1-I THEN 420
380  P7=I+I
390  P6=3
400  GOTO 320
410  NEXT N1
420  GOTO 500
430  PRINT '10"THIS SELECTION IS NOT CORRECT. TRY AGAIN."
440  PRINT "INPUT AND THEN LET'S TRY AGAIN."
450  MAT Z=ZER
460  FOR W=I TO 4
470  Z[W+2]=W
480  NEXT W
490  GOTO 120
500  PRINT 
510  Q7=Q8=Q9=I-I
520  IF Q8 THEN 820
530  PRINT 
540  PRINT '10"WHICH VARIABLE(S) DO YOU WANT TO USE IN FORMING THE:"
550  PRINT Z$[I,31]" X - AXIS) - ?";
560  ENTER A,B,U$
570  L$=U$
580  P7=P9=I-I
590  FOR N2=I TO LEN(L$)
600  FOR N1=3 TO 6
610  IF  NOT Z[N1] THEN 650
620  IF L$[N2,N2]="," THEN 780
630  IF L$[N2,N2]=" " THEN 780
640  IF L$[N2,N2]=D$[2*Z[N1]-I,2*Z[N1]-I] THEN 690
650  NEXT N1
660  PRINT '10"YOU HAVE NOT SELECTED VARIABLES THAT ARE CONSISTENT WITH YOUR "
670  PRINT "PLAN. TRY AGAIN."'10
680  GOTO 550
690  P7=P7+I
700  IF P7>V6-C1 THEN 720
710  GOTO 780
720  PRINT "YOU HAVE SELECTED TOO MANY CHARACTERS (VARIABLES). THIS IS NOT"
730  PRINT "CONSISTENT WITH YOUR CONDITIONS. PLEASE CHECK YOUR RESPONSE"
740  PRINT "AND TRY AGAIN."
750  Q7=I+Q7
760  IF Q7=3 THEN 430
770  GOTO 500
780  NEXT N2
790  IF P9=I THEN 910
800  Q8=P9=I
810  Q7=I-I
820  PRINT '13'10Z$[3,31]" Y - AXIS) --- ?";
830  ENTER A,B,V$
840  FOR N8=I TO LEN(V$)
850  FOR N7=I TO LEN(U$)
860  IF V$[N8,N8]=U$[N7,N7] THEN 660
870  NEXT N7
880  NEXT N8
890  L$=V$
900  GOTO 590
910  IF P7=V6-C1 THEN 960
920  PRINT '10"SOMETHING IS WRONG. YOU WANTED TO USE ("V6-C1") VARIABLES IN"
930  PRINT "THIS PLAN. TRY AGAIN."
940  N3=2
950  GOTO 110
960  PRINT '10"DO YOU WANT TO MAKE ANY CORRECTIONS IN YOUR PLAN";
970  INPUT B$[I,I]
980  IF B$="Y" THEN 500
990  PRINT TAB(5)'10"*****PAUSE FOR PROCESSING YOUR PLAN *****"'10
1000  IF Z7 THEN 50
1010  GOTO 40
1040  END 
