1 REM Ins{nt av 2314
10 ; CHR$(12)"NEWTON-RAPSHON(REELA)"
20 ; 
30 DIM A(1001),B(1001)
40 FOR I%=1% TO 1001%
50 A(I%)=0
60 B(I%)=0
70 NEXT I%
80 ; "GRADEN";
90 INPUT N
100 FOR I%=1 TO N+1
110 ; "KOEFFICIENT A(";I%-1;")=";
120 INPUT A(I%)
130 NEXT I%
140 FOR I%=1 TO 10
150 B(I%)=A(I%+1)*I%
160 NEXT I%
170 ; 
180 ; "APPROXIMATION";
190 INPUT X
200 Q=0
210 S=1
220 F1=0
230 F0=0
240 Q=Q+1
250 FOR I%=1 TO N+1
260 F0=F0+A(I%)*S
270 F1=F1+B(I%)*S
280 S=S*X
290 NEXT I%
300 IF F1=0 THEN 360
310 S=X-F0/F1
320 IF X=S THEN 380
330 X=S
340 IF Q>100 THEN 490
350 GOTO 210
360 ; "DERIVATAN=0 VID X=";X
370 GOTO 180
380 ; 
390 ; "ROTEN","FEL","DERIVATA"
400 ; X,F0,F1
410 ; 
420 ; "EN ROT TILL 1=JA  0=NEJ";
430 INPUT A
440 IF A=1 THEN 170
450 ; "EN NY FUNKTION 1=JA 0=NEJ";
460 INPUT A
470 IF A=1 THEN 30
480 GOTO 550
490 ; "JAG HAR S\KT 100 ggr."
500 ; "X=";X;"F(X)=";F0
510 ; "100 ggr. TILL 1=JA 0=NEJ";
520 INPUT A
530 IF A=1 THEN 200
540 GOTO 420
550 END