September 2017 Update

Task/Trabb-Pardo-Knuth-algorithm/FreeBASIC/trabb-pardo-knuth-algorithm.freebasic

@@ -1,16 +1,16 @@
-' version 22-10-2016
+' version 22-07-2017
 ' compile with: fbc -s console
 
 Function f(n As Double) As Double
-    return Sqr(Abs(n)) + 5 * n ^ 5
+    return Sqr(Abs(n)) + 5 * n ^ 3
 End Function
 
 ' ------=< MAIN >=------
 
-Dim As Double x, s(0 To 10)
+Dim As Double x, s(1 To 11)
 Dim As Long i
 
-For i = 0 To 10
+For i = 1 To 11
     Print Str(i);
     Input " => ", s(i)
 Next
@@ -18,15 +18,17 @@ Next
 Print
 Print String(20,"-")
 
-For  i = 10 To 0 Step -1
+i -= 1
+Do
     Print "f(" + Str(s(i)) + ") = ";
    x = f(s(i))
    If x > 400 Then
-       Print "-=< to large >=-"
+       Print "-=< overflow >=-"
    Else
        Print x
    End If
-Next
+   i -= 1
+Loop Until i < 1
 
 ' empty keyboard buffer
 While InKey <> "" : Wend