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