10 ! INTEGRAL.800
11 NO EXTEND : INTEGER 
600 REM MERGE med V[RD. [ndra 580 p} rad280 till 650. Ber{kna R24=f(R23) p} rad 700 fram}t utan att {ndra R8,...,R23,
610 REM \%,[%. Avsluta med RETURN. Pro- grammet integrerar f fr}n a till b. f(x)kan vara odefinierad i a och b.
620 REM V{lj noggrannhet med antalet    delintervall H%. Integralen f}s p} sk{r-men och i R21. Referens : Abramowitz &
630 REM Stegun, Handbook of MathematicalFunctions, s. 887, (25.4.26).
640 DATA 460,-954,2196,-2459,2196,-954,460,945,0
650 ; "Antal intervall"; : INPUT H : ; "a"; : INPUT B$ : I=8 : GOSUB 330 : ; "b"; : INPUT B$ : I=9 : GOSUB 330
660 S=FN[(10,H)+FND(11,9,8)+FNQ(11,11,10)+FNU(45,12,11,3) : FOR I=13 TO 21 : READ B$ : GOSUB 330
670 NEXT I : FOR \=0 TO H-1 : S=FN[(23,\)+FNP(23,23,11)+FNS(23,23,8)+FN[(22,0) : FOR [=1 TO 7
680   S=FNS(23,23,12) : GOSUB 700 : S=FNP(10,[+12,24)+FNS(22,10,22) : NEXT [ : S=FNS(21,21,22)
690 NEXT \ : S=FNP(21,21,11)+FNQ(21,21,20) : I=21 : GOSUB 450 : ; CHR$(7) B$
695 END