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 70
40  CHAIN "$ANAL-2"
50  CHAIN "$ANAL-1"
60  MAT T=ZER
70  FILES SLITS1
80  R7=Z7
90  PRINT '10"HOW MANY VARIABLES WERE INCLUDED IN YOUR INVESTIGATION";
100  INPUT V6
110  IF V6<5 THEN 140
120  PRINT "THE MAXIMUM NUMBER OF VARIABLES IS FOUR(4). TRY AGAIN."'10
130  GOTO 90
140  FOR N=I TO V6
150  Z[2+N]=N
160  NEXT N
170  PRINT '10"INPUT AN ALPHABET LETTER AS A SYMBOL FOR EACH VARIABLE."
180  PRINT "SEPARATE EACH LETTER WITH A SPACE OR A COMMA:  ";
190  INPUT D$
200  IF LEN(D$)=2*V6-I THEN 220
210  GOTO 170
220  O8=C9=J8=Z7=C1=N4=I-I
230  C$="N"
240  GOTO 550
250  PRINT '10"IS YOUR DATA TO BE INCLUDED WITH 'CLASS DATA'";
260  INPUT E$[I,I]
270  C$=E$
280  IF E$="N" THEN 550
290  PRINT '10"DO YOU WANT TO USE DATA COLLECTED BY OTHER STUDENTS IN THIS"
300  PRINT "ANALYSIS";
310  INPUT C$[I,I]
320  IF C$="N" THEN 550
330  PRINT "OKAY, GIVE ME THE FOLLOWING INFORMATION:"
340  PRINT "   1) YOUR LABORATORY GROUP NUMBER -- ";
350  INPUT I[I]
360  PRINT "   2) HOW MANY OTHER STUDENT GROUPS ARE TO BE INCLUDED IN YOU"
370  PRINT "      ANALYSIS --";
380  INPUT C9
390  C9=INT(C9)
400  IF C9<4 THEN 430
410  PRINT '10"SORRY CHARLIE. THAT'S ONE FOR ME. REMEMBER, MAXIMUM OF THREE"
420  GOTO 380
430  IF  NOT C9 THEN 500
440  PRINT '10"WHICH STUDENT GROUPS (ONE AT A TIME):"
450  PRINT "AT A TIME): ";
460  FOR N=I+I TO C9+I
470  PRINT "GROUP - ";
480  INPUT I[N]
490  NEXT N
500  DIM A[30,30]
510  MAT A=ZER
520  MAT  READ #2;A
530  READ #2,I
540  GOTO 580
550  DIM C[4,30]
560  MAT C=ZER
570  GOTO 1180
580  PRINT '10'10"HAVE YOU ENTERED YOUR DATA";
590  INPUT B$[I,I]
600  IF B$=C$ THEN 980
610  PRINT "OKAY, YOU CAN ENTER A MAXIMUM OF SIX SETS OF DATA. HOW MANY SETS "
620  PRINT "DO YOU WISH TO INCLUDE IN THE ANALYSIS";
630  INPUT O9
640  O9=INT(O9)
650  N3=I
660  P=200
670  FOR N2=I TO N3
680  FOR N=I TO 6
690  FOR N1=I TO V6+I
700  IF N1#V6+I THEN 800
710  IF N4 THEN 750
720  N4=I
730  PRINT 
740  GOTO 690
750  IF O8 THEN 780
760  A[I[I],N*(V6+I)-N1+I]=I[I]
770  GOTO 900
780  C[I[N2],N*(V6+I)-N1+I]=I[I]
790  GOTO 900
800  IF N4 THEN 850
810  IF N1>I THEN 830
820  PRINT "DATA TABLE:"'10
830  PRINT TAB(10*N1);D$[2*(V6-N1)+I,2*(V6-N1)+I];
840  GOTO 900
850  PRINT TAB(10*N1);
860  IF O8 THEN 890
870  ENTER P,P1,A[I[N2],N*(V6+I)-N1+I]
880  GOTO 900
890  ENTER P,P1,C[I[N2],N*(V6+I)-N1+I]
900  NEXT N1
910  PRINT 
920  IF (N2-I)*6+N=O9 THEN 950
930  NEXT N
940  NEXT N2
950  IF C$="N" THEN 1120
960  MAT  PRINT #2;A
970  READ #2,I
980  DIM B[4,30]
990  MAT B=ZER
1000  FOR N1=I TO C9+I
1010  FOR N2=I TO 30
1020  IF I[N1]=N2 THEN 1050
1030  NEXT N2
1040  GOTO 1080
1050  FOR J1=I TO 6
1060  B[N1,J1*(V6+I)-N1+I]=A[N2,J1*(V6+I)-N1+I]
1070  NEXT J1
1080  NEXT N1
1090  MAT  PRINT #I;B
1100  READ #I,I
1110  GOTO 1360
1120  IF O8 THEN 1160
1130  MAT  PRINT #I;A
1140  READ #I,I
1150  GOTO 1360
1160  MAT  PRINT #I;C
1170  GOTO 1140
1180  PRINT "HOW MANY DATA SETS DO YOU WANT TO INCLUDE IN YOUR ANALYSIS";
1190  INPUT O9
1200  O8=I
1210  O9=INT(O9)
1220  IF O9<25 THEN 1250
1230  PRINT "YOU BLEW IT! MAXIMUM NUMBER IS TWENTY-FOUR (24)."
1240  GOTO 1180
1250  FOR N3=I TO 4
1260  I[N3]=N3
1270  C9=N3-I
1280  IF N3*6 >= O9 THEN 660
1290  NEXT N3
1300  IF  NOT C9 THEN 1360
1310  PRINT '10"DO YOU WANT TO EXAMINE THE DATA TO BE USED IN THIS ANALYSIS";
1320  INPUT B$[I,I]
1330  IF B$="N" THEN 1360
1340  J8=2
1350  GOTO 40
1360  R7=I-I
1370  GOTO 50
1380  END 
