Initial data commit

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

@@ -0,0 +1,18 @@
+10 REM Trabb Pardo-Knuth algorithm
+20 HOME : REM  20 CLS for Chipmunk Basic or GW-BASIC
+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
+100 REM Results
+110 FOR I = 10 TO 0 STEP -1
+120  PRINT "f( " S(I)") = ";
+130  F = S(I)
+140  R = SQR(ABS(F))+5*F^3
+150  IF R > 400 THEN PRINT "-=< overflow >=-"
+160  IF R <= 400 THEN PRINT R
+170 NEXT I
+180 END