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