Initial data commit

Task/Trabb-Pardo-Knuth-algorithm/True-BASIC/trabb-pardo-knuth-algorithm.basic

@@ -0,0 +1,26 @@
+FUNCTION f (n)
+    LET f = SQR(ABS(n)) + 5 * n ^ 3
+END FUNCTION
+
+DIM s(1 TO 11)
+PRINT "enter 11 numbers"
+FOR i = 1 TO 11
+    PRINT STR$(i); " => ";
+    INPUT s(i)
+NEXT i
+
+PRINT
+PRINT "--------------------"
+
+LET i = i - 1
+DO
+   PRINT "f("; STR$(s(i)); ") = ";
+   LET x = f(s(i))
+   IF x > 400 THEN
+      PRINT "-=< overflow >=-"
+   ELSE
+      PRINT x
+   END IF
+   LET i = i - 1
+LOOP UNTIL i < 1
+END