360 "N" CLEAR : CLS : DIM A#(8),B#(8): INPUT "Grenzen:";A#,B#,"Anf.=";Y#: CLS :E=1E-6,X#=A#,O#=Y#
  361 FOR K=1 TO 8:L=2^K
  362 H#=(B#-A#)/L:C#=O#:X#=A#:Y#=O#: GOSUB 1:D#=O#+H#*F#: FOR I=1 TO L-1:X#=A#+I*H#:Y#=D#
  363 GOSUB 1:G#=C#+2*H#*F#:C#=D#:D#=G#
  364 NEXT I:X#=B#:Y#=D#: GOSUB 1:A#(K)=(C#+D#+H#*F#)/2: IF K=1 THEN 368
  365 M=1: FOR J=K TO 2 STEP -1:M=M*4:B#(J)=(M*A#(J)-A#(J-1))/(M-1): NEXT J: IF K=2 THEN 368
  366 IF  ABS (B#(K)-N#)<E* ABS B#(K) THEN 369
  367 N#=B#(K)
  368 NEXT K: PRINT "too slow": END 
  369 PRINT "x=";B#: PRINT "y(x)=";B#(K): END