10  COM Z8,J$[7],V7,J9,X$[72],Y$[72],G[4],C2,W[7],I8,Z[7]
20  COM I,R7,N9,Q[24,8],N4,P$[72],Q$[72],U[24,4],M[4],F7,A[4,2],R[16]
30  P4=P5=B8=I
40  MAT A=ZER
50  P9=H9=H8=F6=I-I
60  IF  NOT F7 THEN 100
70  PRINT '10"SELECT A NUMBER FOR THE OUTPUT--";
80  F6=F7
90  GOTO 130
100  PRINT '10"SELECT ONE OF THE FOLLOWING NUMBERS FOR THE FORM OF YOUR OUTPUT:";
110  PRINT "1) A TABL! OF VALUES, 2) A TABLE OF VALUES AND A PLOT, 3) A PLOT"
120  PRINT "WHICH NUMBER -- ";
130  INPUT F7
140  IF F7#INT(F7) THEN 170
150  PRINT 
160  GOTO F7 OF 190,190,350
170  PRINT "YOUR SELECTION WAS NOT IN THE PROPER FORMAT. TRY AGAIN!"
180  GOTO 60
190  P4=I
200  PRINT '10"TABLE OF VALUES: (THESE VALUES DO NOT REFLECT A CORRECTION"
210  PRINT TAB(17)"FOR SIGNIFICANT FIGURES.)"
220  IF  NOT C2 THEN 250
230  PRINT "COMMON VALUES"TAB(30)"CALCULATED VALUES"
240  GOTO 280
250  PRINT TAB(15)"CALCULATED VALUES"
260  P4=14
270  GOTO 340
280  FOR N3=I TO 2
290  IF  NOT W[N3] THEN 310
300  PRINT TAB(P4);J$[2*W[N3]-I,2*W[N3]-I];
310  IF  NOT W[I] THEN 340
320  P4=P4+14
330  NEXT N3
340  PRINT TAB(P4);X$;TAB(P4+14);Y$
350  B4=I
360  FOR B8=I TO N4-I
370  IF F7=3 THEN 530
380  IF  NOT W[I] OR B4#I THEN 510
390  IF  NOT Q[B8,I] THEN 590
400  P4=I-I
410  PRINT TAB(P4);Q[B8,P5];
420  IF P5=2 OR  NOT W[2] THEN 460
430  P5=I+I
440  P4=P4+14
450  GOTO 410
460  IF W[2] THEN 490
470  P4=P4+28
480  GOTO 500
490  P4=14+P4
500  B4=I+I
510  IF  NOT U[B8,I] AND  NOT U[B8,2] THEN 590
520  PRINT TAB(P4);U[B8,I];TAB(P4+14);U[B8,2]
530  U[B8,3]=Q[B8,7]
540  U[B8,4]=Q[B8,8]
550  IF  NOT U[B8,4] THEN 590
560  B4=P5=I
570  IF F7=3 THEN 590
580  PRINT 
590  NEXT B8
600  H=3
610  N8=I-I
620  FOR B7=I TO 4
630  FOR B8=I TO N4
640  IF B7=I THEN 660
650  IF U[B8,4]=H THEN 680
660  IF U[B8,4]<H THEN 750
670  IF B7=I THEN 710
680  FOR N1=I TO B7-I
690  IF A[N1,I]=B8-U[B8,4]+I THEN 750
700  NEXT N1
710  H=A[B7,2]=U[B8,4]
720  A[B7,I]=B8-U[B8,4]+I
730  IF B7=I THEN 750
740  H8=B8
750  IF B8=N4-I THEN 770
760  NEXT B8
770  N8=N8+A[B7,2]
780  IF B7=I THEN 900
790  IF  NOT H8 THEN 860
800  H9=I
810  B8=H8
820  H8=I-I
830  B7=B7+I
840  IF B7=5 THEN 910
850  GOTO 760
860  H=H-I
870  IF H<3 THEN 910
880  B7=B7-I
890  H9=I-I
900  NEXT B7
910  IF A[I,I] THEN 940
920  A[I,2]=N4-I
930  A[I,I]=I
940  IF F7 AND F6 THEN 1040
950  IF F7=I THEN 980
960  PRINT '10'10
970  CHAIN "$ANAL-5"
980  PRINT "NOW, YOU MAY WANT TO STUDY THE DATA FOR A FEW MINUTES AND THEN"
990  PRINT "TRY ANOTHER OPTION. IF YOU WANT TO CONTINUE BEFORE CONTROL IS RETURNED"
1000  PRINT "TO YOU, STROKE THE 'RETURN' KEY."
1010  X=Y=256
1020  ENTER X,Y,Z
1030  CHAIN "$ANAL-6"
1040  PRINT '10"TAKE A FEW MOMENTS TO EXAMINE BOTH THE GRAPH AND THE NUMERIC VALUES."
1050  X=Y=20
1060  ENTER X,Y,Z
1070  PRINT "USING BOTH THE TABLE OF VALUES AND THE GRAPH, CAN YOU"
1080  PRINT "DEFINE A RELATIONSHIP OR AN EQUATION.";
1090  INPUT B$[I,I]
1100  F7=4
1110  IF B$="N" THEN 1030
1120  CHAIN "$ANAL-6"
1130  END 
