Initial data commit

Task/Trabb-Pardo-Knuth-algorithm/Chipmunk-Basic/trabb-pardo-knuth-algorithm.basic

@@ -0,0 +1,23 @@
+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