10  COM T,K,B,J,P,A$[72],B$[72],A[22,42],A,C[1],C$[10]
20  GOTO 70
30  CHAIN "$PLOT1"
40  REM PROGRAM NAME = PLOT, BEGINS PLOTTING PROGRAM
50  REM CHAINED TO PLOT1, PLOT2
70  DIM X$[72]
80  X$=" 1. 2. 3. 4. 5. 6. 7. 8. 9.10.11.12.13.14."
85  IF C$="REPEAT" THEN 460
90  PRINT "DO YOU WANT A LIST OF THE TYPES OF RELATIONSHIPS";
100  INPUT A$
110  IF A$="NO" THEN 400
120  IF A$#"YES" THEN 90
130  PRINT 
140  PRINT "THIS PROGRAM WILL PLOT ANY OF THE FOLLOWING TYPES OF RELATIONSHIPS:"
150  PRINT 
160  PRINT "   DIRECT RELATIONSHIPS OF THIS TYPE:"
170  Z=9
180  PRINT TAB(Z+1);"1.  Y = A*X + C"
190  PRINT "   "'10"INVERSE RELATIONSHIPS OF THIS TYPE:"
200  PRINT TAB(Z+1);"2.  Y = (A/X) + C"
210  PRINT 
220  PRINT "   PARABOLIC RELATIONSHIPS OF THESE TYPES:"
230  FOR N=1 TO 5
240  PRINT TAB(Z);X$[3*N+4,3*N+6]"  Y = ";
250  J=N+2
260  GOSUB 740
270  PRINT A$
280  PRINT 
290  NEXT N
300  PRINT "   POWER RELATIONSHIPS OF THESE TYPES:"
310  FOR N=6 TO 12
320  PRINT TAB(Z);X$[3*N+4,3*N+6]" Y = ";
330  J=N+2
340  GOSUB 740
350  PRINT A$;
360  GOSUB 1380
370  PRINT "  "A$
380  PRINT 
390  NEXT N
400  PRINT '10"WHICH OF THE RELATIONSHIPS DO YOU WANT TO STUDY";
420  INPUT J
430  PRINT '10'10
440  IF J=INT(J) AND J>0 AND J<15 THEN 460
450  GOTO 400
460  PRINT 
465  Z=9
470  PRINT TAB(Z);X$[3*J-2,3*J]" Y = ";
480  GOSUB 740
490  PRINT A$;
500  GOSUB 1380
510  PRINT "  "A$
520  PRINT 
530  GOSUB J OF 690,600,690,690,690,690,660,710,710,630,710,710,710,710
540  GOSUB 1550
550  GOSUB J OF 1630,1740,1740,1630,1670,1670,1590,1740,1740,1740,1740,1740,1740,1740
560  GOSUB J OF 1740,1740,1740,1740,1740,1710,1630,1740,1740,1740,1740,1740,1740,1740
570  PRINT "- - - - - A PLOT OF  Y =";
580  GOSUB 890
590  GOTO 30
600  PRINT "     USE VALUES OF A BETWEEN 5 AND 20"
610  PRINT "     ";
620  RETURN 
630  PRINT "     USE VALUES OF A BETWEEN 1 AND 5"
640  PRINT "     ";
650  RETURN 
660  PRINT "     USE VALUES OF A AND B BETWEEN 1 AND 3, VALUES OF C BETWEEN -3 AND 3"
670  PRINT "     ";
680  RETURN 
690  PRINT "     ";
700  RETURN 
710  PRINT "     USE POSITIVE VALUES OF A"
720  PRINT "     ";
730  RETURN 
740  GOTO J OF 750,770,790,810,830,850,870,790,1260,1280,1300,1320,1340,1360
750  A$="A*X + C"
760  RETURN 
770  A$="(A/X)"
780  RETURN 
790  A$="A*X^2"
800  RETURN 
810  A$="A*X^2  +  C"
820  RETURN 
830  A$="A*(X-H)^2"
840  RETURN 
850  A$="A*(X-H)^2  +  K"
860  RETURN 
870  A$="A*X^2  +  B*X  +  C"
880  RETURN 
890  GOTO J OF 900,930,950,970,1010,1060,1110,950,1140,1160,1180,1200,1220,1240
900  PRINT K"* X   +"C[1]
910  B=C[1]
920  RETURN 
930  PRINT "("K"/X)"
940  RETURN 
950  PRINT K"* X^2"
960  RETURN 
970  PRINT K"* X^2   +"C[1]
980  A=K
990  B=0
1000  RETURN 
1010  PRINT K"* (X -"H")^2"
1020  A=K
1030  B=-2*K*H
1040  C[1]=K*H*H
1050  RETURN 
1060  PRINT K"* (X-"H")^2   +"D
1070  A=K
1080  B=-2*K*H
1090  C[1]=K*H*H+D
1100  RETURN 
1110  PRINT K"* X^2   +"B"* X   +"C[1]
1120  A=K
1130  RETURN 
1140  PRINT K"* X^3"
1150  RETURN 
1160  PRINT K"* X^(1/3)"
1170  RETURN 
1180  PRINT K"* X^(2/3)"
1190  RETURN 
1200  PRINT K"* X^(1/2)"
1210  RETURN 
1220  PRINT K"* X^(3/2)"
1230  RETURN 
1240  PRINT K"/X^2"
1250  RETURN 
1260  A$="A*X^3"
1270  RETURN 
1280  A$="A*X^(1/3)"
1290  RETURN 
1300  A$="A*X^(2/3)"
1310  RETURN 
1320  A$="A*X^(1/2)"
1330  RETURN 
1340  A$="A*X^(2/3)"
1350  RETURN 
1360  A$="A/X^2"
1370  RETURN 
1380  GOTO J-6 OF 1390,1410,1430,1450,1470,1490,1510,1530
1390  A$="  "
1400  RETURN 
1410  A$="(SQUARE)"
1420  RETURN 
1430  A$="(CUBE)"
1440  RETURN 
1450  A$="(CUBE ROOT, OR 1/3 POWER)"
1460  RETURN 
1470  A$="(2/3 POWER)"
1480  RETURN 
1490  A$="(SQUARE ROOT, OR 1/2 POWER)"
1500  RETURN 
1510  A$="(3/2 POWER)"
1520  RETURN 
1530  A$="(INVERSE SQUARE)"
1540  RETURN 
1550  PRINT "INPUT THE VALUE OF THE CONSTANT A  ";
1560  INPUT K
1570  PRINT "     "'10;
1580  RETURN 
1590  PRINT "INPUT THE VALUE OF THE CONSTANT B  ";
1600  INPUT B
1610  PRINT "     "'10;
1620  RETURN 
1630  PRINT "INPUT THE VALUE OF THE CONSTANT C  ";
1640  INPUT C[1]
1650  PRINT "     "'10;
1660  RETURN 
1670  PRINT "INPUT THE VALUE OF THE CONSTANT H  ";
1680  INPUT H
1690  PRINT "     "'10;
1700  RETURN 
1710  PRINT "INPUT THE VALUE OF THE CONSTANT K  ";
1720  INPUT D
1730  PRINT "     "'10;
1740  RETURN 
1750  END 
