150 "F" CLEAR : CLS : DEFDBL : INPUT "n=";N: CLS : DIM A#(N+1),B#(N+1),C#(N+1): WAIT 0
  151 FOR I=N TO 0 STEP -1: PRINT "x^"; STR$ I;"=";: INPUT A#(I): CLS : NEXT I: WAIT :G#=0:X#=1:B#(N)=A#(N)
  152 C#(N)=A#(N): FOR J=0 TO N-1:C=0
  153 FOR I=N TO J STEP -1:B#(I)=A#(I)+B#(I+1)*X#:C#(I)=B#(I)+C#(I+1)*X#: NEXT I
  154 IF  ABS B#(J)<1E-10 THEN 162
  155 IF  ABS C#(J+1)>1E-10 THEN 157
  156 PRINT X#: PRINT "=Nullst.d.Abl.": END 
  157 D#=-B#(J)/C#(J+1):C=C+1: IF C<=30 THEN 161
  158 IF  ABS (D#/X#)<1E-3 THEN 160
  159 CLS : PRINT "C Nullst,letzte Iterat.": PRINT "x=";X#: PRINT "f(x)=";B#(J): END 
  160 IF  ABS D#>= ABS G# THEN 162
  161 X#=X#+D#:G#=D#: GOTO 153
  162 CLS : PRINT "x("; STR$ (J+1);")=";X#: PRINT "f(x"; STR$ (J+1);")=";B#(J)
  163 FOR I=N-1 TO J STEP -1:A#(I)=B#(I): NEXT I: NEXT J: END