1000 D$="#### ####^":
     E$="#### ####":
     P1$="PLTL":
     P2$="PLTT"
1010 D2$="DK0:"
1020 A$="[1,51]"
1030 OPEN "KB:" AS FILE 2%
1040 INPUT "LOWER BOUND OF T(TO BE MULT. TIMES PI)";L4
1050 INPUT "UPPER BOUND OF T(TO BE MULT. TIMES PI)"; M4
1060 &"INPUT ONE OF THE FOLLOWING X INCREMENTS"
1070 INPUT"(.5,.25,.125,.0625,.015625,.78125E-2)";S
1080 IF S=.5 OR S=.25 OR S=.125 OR S=.0625 OR S=.015625
        OR S=.78125E-2 THEN 1090 ELSE 1060 
1090 R=FNA(L4*PI):
     X=R*COS(L4*PI):
     Y=R*SIN(L4*PI)
1100 M1,L1=X
1110 M2,L2=Y
1120 FOR A=L4*PI TO M4*PI STEP S
1130 R=FNA(A)
1140 X=R*COS(A)
1150 Y=R*SIN(A)
1160 IF M2<Y THEN M2=Y
1170 IF M1<X THEN M1=X
1180 IF L2>Y THEN L2=Y
1190 IF L1>X THEN L1=X
1200 NEXT A
1210 &"THE MININUM X VALUE IS ";L1"
1220 &"DO YOU WISH A DIFFERENT LOWER LIMIT NO(0), YES (1)?";
1230 INPUT#2%,T1%
1240 IF T1%=1% THEN INPUT "NEW LOWER LIMIT(X)";L1
1250 &"THE MAXIMUM X VALUE IS";M1
1260 &"DO YOU WISH A DIFFERENT UPPER LIMIT NO(0), YES(1)?";
1270 INPUT #2%,T1%
1280 IF T1%=1% THEN INPUT"NEW UPPER LIMIT(X)";M1
1290 &"THE MINIMUM Y VALUE IS";L2
1300 &"DO YOU WISH A DIFFERENT LOWER LIMIT NO(0), YES(1)?";
1310 INPUT #2%,T1%
1320 IF T1%=1% THEN INPUT"NEW LOWER LIMIT (Y)";L2
1330 &"THE MAXIMUM Y VALUE IS";M2
1340 &"DO YOU WISH A DIFFERENT UPPER LIMITN0(0), YES(1)?";
1350 INPUT #2%, T1%
1360 IF T1%=1% THEN INPUT "NEW UPPER LIMIT (Y)";M2
1370 S1=(M1-L1):
     S2=(M2-L2)
1380 &"DO YOU WISH TO HAVE AXIS ON YOUR GRAPH;(ONLY VALID IF YOU HAVE A"
1390 INPUT "ZERO X OR Y VALUE NO(0); YES(1)";T1%
1400 IF T1%<>1% THEN 1780 
1410 INPUT "WHAT STEP OF MARKS ON X AXIS";E1
1420 INPUT "STARTING POINT FOR MARKS ON X AXIS";L
1430 INPUT "WHAT STEP OF MARKS ON Y AXIS";E2
1440 INPUT "STARTING POINT OF MARKS ON Y AXIS";L3
1450 & P1$
1460 FOR X=500 TO 9500 STEP 9000
1470 Y=((-L2/S2)*9000)+500
1480 &USING E$,X;Y
1490 NEXT X
1500 & P2$
1510 & P1$
1520 FOR Y=500 TO 9500 STEP 9000
1530 X=((-L1/S1)*9000)+500
1540 & USINGE$,X;Y
1550 NEXT Y
1560 &P2$
1570 &P1$
1580 FOR W=L TO M1 STEP E1
1590 X=(((W-L1)/S1)*9000)+500
1600 FOR Q=-50 TO 50 STEP 100
1610 Y=((-L2/S2)*9000)+500+(Q)
1620 IF Q=50 THEN &USING E$, X;Y : GOTO 1640 
1630 & USING D$,X;Y
1640 NEXT Q
1650 NEXT W
1660 &P2$
1670 &P1$
1680 FOR J=L3 TO M2 STEP E2
1690 Y=(((J-L2)/S2)*9000)+500
1700 FOR G=-50 TO 50 STEP 100
1710 X=((-L1/S1)*9000)+500+G
1720 IF G=50 THEN &USING E$, X;Y : GOTO 1740 
1730 & USING D$,X;Y
1740 NEXT G
1750 NEXT J
1760 &P2$
1770 INPUT "IF YOU WANT TO CHANGE PENS YOU MAY DO IT NOW TYPE A <CR> TO CONTINUE"; R7%
1780 GO SUB 1880 
1790 &" DO YOU WISH TO PLOT ANOTHER FUNCTION  ON THE SAME AXIS"
1800 INPUT"NO(0), YES(1)";T1%
1810 IF T1%<>1% THEN STOP
1820 OPEN D2$+" DATA7.DAT<00>" AS FILE 1%
1830 V$=","
1840 &#1%,M2,V$,M1,V$,L1,V$,L2,V$,S1,V$,S2,V$,S
1850 &#1%, L4,V$,M4
1860 &#1%,CHR$(26):CLOSE 1%
1870 CHAIN D2$+A$+"HPPLOT.BAS" 4500
1880 &P1$
1890 FOR A=L4*PI TO M4*PI STEP S
1900 R=FNA(A)
1910 X=R*COS(A):
     Y=R*SIN(A)
1920 Y1=(((Y-L2)/S2)*9000)+500
1930 X1=(((X-L1)/S1)*9000)+500
1940 & USING E$, X1;Y1
1950 NEXT A
1960 &P2$
1970 RETURN
1980 END