100 ' progr.11  GRAFIEK VAN EEN WILLEKEURIGE FUNCTIE
110 CLEAR ,19202 : SCREEN 105,,3,3
120 DEF FNX(X)=INT(1.55*(50+X)+.5)
130 CLS: KEY OFF
140 INPUT "LINKER  GRENS VOOR X " ; A : PRINT
150 INPUT "RECHTER GRENS VOOR X " ; B : PRINT
160 INPUT "BOVEN   GRENS VOOR Y " ; HP: PRINT
170 INPUT "ONDER   GRENS VOOR Y " ; LP
180 IF A > B THEN C=A : A=B : B=C
190 KX=320/(B-A) : KY=320/(HP-LP) : H=.5
200 DX=(B-A)/256
210 CLS
220 FA=1
230 FOR X=A TO B STEP DX
240	   X2=INT(KX*(X-A)+H) : GOSUB 1000
250	   IF FZ=1 THEN FA=1 : GOTO 310
260	   IF FA=1 THEN 300
270	   Y2=INT(KY*(HP-Y)+H)
280	   LINE (FNX(X1),Y1)  (FNX(X2),Y2),1
290	   X1=X2 : Y1=Y2 : GOTO 310
300	   X1=X2 : Y1=INT(KY*(HP-Y)+H) : FA=0
310 NEXT X
320 X=INT(KX*(-A)+H): Y=INT(KY*HP+H)
330 IF Y<0  OR  Y>320  THEN GOTO 350
340     LINE (FNX(0),Y)  (FNX(320),Y),1
350 IF X<0  OR  X>320  THEN GOTO 370
360     LINE (FNX(X),0)  (FNX(X),320),1
370 LINE (FNX(0),0)  (FNX(320),320),1,B
380 A$=INKEY$: IF A$="" THEN 380
390 CLS: KEY ON: END
1000 N=X*X-X-6: IF N=0 THEN FZ=1: RETURN
1010 Y=(X*X+3)/N
1020 IF Y<LP OR Y>HP   THEN FZ=1: RETURN
1030 FZ=0: RETURN
