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 INPUT#1%, L4,M4
1080 CLOSE 1%
1090 FOR A=L4*PI TO M4*PI STEP S
1100 R=FNA(A) 
1110 X=R*COS(A):
     Y=R*SIN(A)
1120 IF Y<L2 OR Y>M2 OR X<L1 OR X>M1 THEN T3%=1%
1130 NEXT A
1140 IF T3%=1% THEN &"NEW FUNCTION EXCEEDS GRAPH";:
     INPUT"SHOULD IT BE PLOTTED NO(0), YES(1)";T1%:
     IF T1%<>1% THEN 1240 
1150 &P1$
1160 FOR A= L4*PI TO M4*PI STEP S
1170 R=FNA(A)
1180 X=R*COS(A):
     Y=R*SIN(A)
1190 Y1=(((Y-L2)/S2)*9000)+500
1200 X1=(((X-L1)/S1)*9000)+500
1210 & USING E$, X1;Y1
1220 NEXT A
1230 & P2$
1240 &"DO YOU WISH TO PLOT ANOTHER FUNCTION ON THE SAME AXIS"
1250 INPUT "NO(0), YES(1)";T1%
1260 IF T1%<>1% THEN KILL D2$+"DATA7.DAT":STOP
1270 CHAIN D2$+A$+"HPPLOT.BAS" 4500
1280 END