10  COM Z6,H$[7],V6,J7,W$[72],U$[72],I[4],C3,S[7],I6,P[7]
20  COM I,R7,N9,L[24,8],N7,P$[72],Q$[72],N[24,4],M[4],F9,D[4,2],R[16]
30  GOTO 50
40  CHAIN "$ANAL-6"
50  DIM U[25],V[25],C$[10],Z$[72],Y$[72],K$[4]
60  MAT R=ZER
70  IF F9=4 THEN 2400
80  J=I
90  FOR N=I TO 61
100  Z$[N,N]=" "
110  NEXT N
120  Y$=Z$
130  D=C1=C2=C4=Q1=Q2=I-I
140  Q7=4
150  Z9=8
160  M6=M[2]
170  M8=M[4]
180  FOR Y=I TO 2
190  IF  NOT J7 THEN 230
200  P=I
210  Y=2
220  GOTO 240
230  IF Y=I THEN 310
240  FOR N=I TO 3 STEP 2
250  W=ABS(INT(M[N+I]+.5)*SGN(M[N+I])-INT(M[N]+.5)*SGN(M[N]))
260  IF N=I THEN 290
270  M8=W
280  GOTO 300
290  M6=W
300  NEXT N
310  FOR P=I TO I+I
320  IF P=I+I THEN 400
330  IF M6<I THEN 620
340  M6=INT(M6+.5)
350  IF M6>60 THEN 740
360  X=60
370  D9=6
380  W=M6
390  GOTO 490
400  IF M8<I THEN 620
410  IF M8>10 THEN 440
420  M8=INT(M8+1.5)
430  GOTO 460
440  M8=INT(M8+.5)
450  IF M8>50 THEN 740
460  X=50
470  D9=5
480  W=M8
490  FOR N=I TO X
500  IF W >= X/(N+I) THEN 520
510  NEXT N
520  B4=N
530  D2=INT((100*X/N/D9)+.5)/100
540  IF P=2 THEN 580
550  B1=B4
560  D7=D2
570  GOTO 810
580  B2=B4
590  V7=D2
600  Y8=V8=INT((100*X/B2)+.5)/100
610  GOTO 810
620  H=-I
630  C4=I
640  IF P=2 THEN 670
650  IF M6 >= 10^H THEN 700
660  GOTO 680
670  IF M8 >= 10^H THEN 720
680  H=H-I
690  GOTO 640
700  Q1=H-(M6>I)
710  GOTO 2410
720  Q2=H-(M8>50)
730  GOTO 2630
740  H=I+I
750  IF P=2 THEN 780
760  IF M6 <= 10^H THEN 700
770  GOTO 790
780  IF M8 <= 10^H THEN 720
790  H=H+I
800  GOTO 750
810  NEXT P
820  N8=I-I
830  IF Y#I+I THEN 860
840  Z9=INT(B1*M[I]+SGN(M[I])*.5)-I
850  V8=Y8-INT(B2*M[3]+SGN(M[3]*.5))
860  FOR Q8=I TO Q7
870  IF  NOT D[Q8,I] THEN 1240
880  W[Q8]=N8=N8+D[Q8,2]
900  IF Q8#I THEN 930
910  N5=I
920  GOTO 940
930  N5=C
940  B9=B8=B7=B6=B5=G1=G2=G6=G9=I-I
950  FOR C=N5 TO W[Q8]
960  IF  NOT D[Q8,I] THEN 1060
970  U[C]=INT(B1*N[(D[Q8,I]+B9),I]+.5)
980  V[C]=INT(B2*N[(D[Q8,I]+B9),2]+.5)
990  B5=B5+(N[D[Q8,I]+B9,2]*N[D[Q8,I]+B9,I])
1000  B8=B8+N[D[Q8,I]+B9,I+I]
1010  G6=G6+(N[D[Q8,I]+B9,2]^2)
1020  B6=B6+(N[D[Q8,I]+B9,I]^2)
1030  B7=B7+N[D[Q8,I]+B9,I]
1040  B9=B9+I
1060  NEXT C
1070  IF B8 AND B9 THEN 1100
1080  R[Q8]=I-I
1090  GOTO 1250
1100  R[Q8]=B8/B7
1110  R[8+2*Q8-I]=B8/B9
1120  R[8+2*Q8]=B7/B9
1130  FOR C=N5 TO W[Q8]
1140  IF  NOT D[Q8,I] THEN 1200
1150  G1=G1+((N[D[Q8,I]+G9,2]-B8/B9)^2)
1160  G2=G2+((N[D[Q8,I]+G9,I]-B7/B9)^2)
1180  G9=G9+I
1200  NEXT C
1210  IF (B6-B7^2/B9)<I-I OR (G6-B8^2/B9)<I-I THEN 1250
1220  R[4+Q8]=(B5-B7*B8/B9)/(SQR((B6-B7^2/B9)*((G6-B8^2/B9))))*SQR(G1/G2)
1230  GOTO 1250
1240  Q7=Q7-I
1250  NEXT Q8
1260  B=50
1270  S=I
1280  PRINT TAB(15)"A GRAPHICAL PLOT OF THE RELATIONSHIP BETWEEN"
1290  PRINT TAB(INT((62-LEN(U$)-LEN(W$))/2));U$" AND "W$'10'10
1300  C$="        "
1310  IF LEN(U$)<9 THEN 1370
1320  P$[I,3]="F("
1330  P$[3,7]=Q$[I,5]
1340  P$[8,8]=")"
1350  C$[I,8]=P$[I,8]
1360  GOTO 1380
1370  C$[1,LEN(U$)]=U$
1380  FOR R=I TO 51
1390  P=I-I
1400  G=Z5=I
1410  FOR E=I TO Q7
1420  FOR C=G TO W[E]
1430  IF V[C]#B THEN 1520
1440  K$="*@#."
1450  IF U[C] THEN 1470
1460  U[C]=I
1470  IF U[C]>60 THEN 1520
1480  Y$[U[C],U[C]]=K$[E,E]
1490  IF U[C]<Z5 THEN 1510
1500  Z5=U[C]
1510  P=I
1520  NEXT C
1530  G=C
1540  NEXT E
1550  IF R#25 THEN 1610
1560  IF P THEN 1590
1570  PRINT C$"1"
1580  GOTO 1830
1590  PRINT C$"1"Y$[I,Z5]
1600  GOTO 1830
1610  IF R#27 THEN 1670
1620  IF P THEN 1650
1630  PRINT "*10^"-Q2'13TAB(Z9)"1"
1640  GOTO 1830
1650  PRINT "*10^"-Q2'13TAB(Z9)"1"Y$[I,Z5]
1660  GOTO 1830
1670  IF S#I THEN 1730
1680  IF P THEN 1710
1690  PRINT TAB(Z9-6);V8'13TAB(Z9)"+"
1700  GOTO 1830
1710  PRINT TAB(Z9-6);V8'13TAB(Z9)"+"Y$[I,Z5]
1720  GOTO 1830
1730  IF S#6 THEN 1790
1740  IF P THEN 1770
1750  PRINT TAB(Z9)"+"
1760  GOTO 1830
1770  PRINT TAB(Z9)"+"Y$[I,Z5]
1780  GOTO 1830
1790  IF P THEN 1820
1800  PRINT TAB(Z9)"1"
1810  GOTO 1830
1820  PRINT TAB(Z9)"1"Y$[I,Z5]
1830  Y$=Z$
1840  IF R=50 OR  NOT V8 THEN 1970
1850  GOTO J OF 1860,2130,2200
1860  IF S=10 THEN 1900
1870  S=S+I
1880  B=B-I
1890  GOTO 1960
1900  S=I
1910  B=B-I
1920  V8=INT(1000*(V8-V7))/1000
1930  IF V8<.1 THEN 1950
1940  GOTO 1960
1950  V8=I-I
1960  NEXT R
1970  PRINT TAB(Z9-5)"0"TAB(Z9)"+"'13;
1980  FOR C=8 TO 70
1990  PRINT TAB(C)"-";
2000  NEXT C
2010  PRINT '13;
2020  FOR C=8 TO 68 STEP 5
2030  PRINT TAB(C)"'";
2040  NEXT C
2050  IF R=50 THEN 2090
2060  J=J+I
2070  PRINT '13;
2080  GOTO 1860
2090  IF P=I+I THEN 2120
2100  B=I-I
2110  GOTO 2130
2120  B=M[I]
2130  DIM A$[20]
2140  A$="#,2D.2D5X#,D.2D6X"
2150  PRINT '10'13TAB(7);
2160  FOR B=0 TO 5*D7 STEP D7
2170  IF B/10<I THEN 2200
2180  PRINT  USING A$[I,9];B
2190  GOTO 2210
2200  PRINT  USING A$[10,17];B
2210  NEXT B
2220  IF R=50 THEN 2240
2230  GOTO 2060
2240  PRINT '10'13TAB(36-(LEN(W$)+8)/2);W$" *10^"-Q1
2250  IF R=50 THEN 2280
2260  J=I
2270  GOTO 2070
2280  PRINT '10"------------------------- TEAR HERE --------------------------"'10'10'10'10'10'10'10'10
2290  PRINT "CONNECT COMMON CHARACTERS WITH A SMOOTH LINE AND THEN EXAMINE"
2300  PRINT "THE RESULT CAREFULLY."
2310  X=20
2320  ENTER X,Y,Z
2330  GOTO 2400
2340  IF M[2]-M[I]>M[2]/2 THEN 2400
2350  PRINT "WOULD A DIFFERENT 'SCALING FACTOR' FOR THE PLOT BE OF VALUE"
2360  PRINT "TO YOU AS YOU ATTEMPT TO FORMULATE A PARAMETRIC RELATIONSHIP";
2370  INPUT C$[I,I]
2380  IF C$#"N" THEN 2400
2390  NEXT Y
2400  GOTO 40
2410  FOR C6=I TO 10
2420  IF M6 <= C6*10^Q1 THEN 2440
2430  NEXT C6
2440  FOR C9=3 TO 9 STEP 3
2450  IF C6=C9 THEN 2480
2460  NEXT C9
2470  GOTO 2510
2480  IF C4 THEN 2540
2490  D7=C6/6*10
2500  GOTO 2550
2510  IF C4 THEN 2580
2520  D7=C6*2
2530  GOTO 2590
2540  D7=C6/6
2550  B1=6/(C6*10^(Q1-I))
2560  IF C4 THEN 810
2570  GOTO 2600
2580  D7=C6*.2
2590  B1=5/(C6*10^(Q1-I))
2600  IF C4 THEN 810
2610  Q1=Q1-I
2620  GOTO 810
2630  FOR V8=I TO 10
2640  IF M8 <= V8*10^Q2 THEN 2660
2650  NEXT V8
2660  V7=V8*.2
2670  Y8=V8
2680  B2=I/V7/10^(Q2-I)
2690  GOTO 820
2700  END 
