1000 D2$="DK0:"
1010 A$="[1,51]"
1020 T1%=0%:
     T3%=0%
1030 E$="#### ####"
1040 P1$="PLTL":
     P2$="PLTT"
1050 OPEN D2$+"DATA7.DAT" AS FILE 1%
1060 INPUT #1%,M2,M1,L1,L2,S1,S2,S
1070 CLOSE 1%
1080 FOR X=L1 TO M1 STEP S
1090 Y=FNA(X)
1100 IF Y<L2 OR Y>M2 THEN T3%=1%
1110 NEXT X
1120 IF T3%=1% THEN &"NEW FUNCTION EXCEEDS GRAPH";:
     INPUT"SHOULD IT BE PLOTTED NO(0), YES(1)";T1%:
     IF T1%<>1% THEN 1210 
1130 &P1$
1140 FOR X=L1 TO M1 STEP S
1150 Y1=FNA(X)
1160 Y2=(((Y1-L2)/S2)*9000)+500
1170 X1=(((X-L1)/S1)*9000)+500
1180 &USING E$, X1;Y2
1190 NEXT X
1200 & P2$
1210 &"DO YOU WISH TO PLOT ANOTHER FUNCTION ON THE SAME AXIS"
1220 INPUT "NO(0), YES(1)";T1%
1230 IF T1%<>1% THEN KILL D2$+"DATA7.DAT":STOP
1240 CHAIN D2$+A$+"HPPLOT.BAS" 4000
1250 END