10 rem Trabb Pardo-Knuth algorithm
20 cls
30 dim s(10)
40 print "Enter 11 numbers."
50 for i = 0 to 10
60  print i+1;
70  input "=> ";s(i)
80 next i
90 print
160 'Results
170 for i = 10 to 0 step -1
180  print "f( " s(i)") = ";
190  r = f(s(i))
200  if r > 400 then
210   print "-=< overflow >=-"
220  else
230   print r
240  endif
250 next i
260 end
270 function f(n)
280  f = sqr(abs(n))+5*n^3
290 return