' MS-DOS QBasic, version 1.0
DECLARE FUNCTION f! (x!)
DIM a(0 to 10)
FOR i=0 TO 10
   INPUT a(i)
NEXT

FOR i=10 TO 0 STEP -1
   y = f(a(i))
   IF y > 400! THEN
      PRINT i, "TOO LARGE"
   ELSE
      PRINT i, y
   END IF
NEXT

FUNCTION f (x!)
  f = SQR(ABS(x!)) + 5*x^3
END FUNCTION