10 REM     BASIC PROGRAM FOR TPK ALGORITHM
 20 DIM A(11)
 30 FOR I = 1 TO 11
 40 INPUT A(I)
 50 NEXT I
 60 FOR J = 1 TO 11
 70 LET I = 11 - J
 80 LET Y = SQR(ABS(A(I+1))) + 5 ** A(I+1)
 90 IF Y > 400.0 THEN 120
100 PRINT I+1, Y
110 GO TO 130
120 PRINT I, "TOO LARGE"
130 NEXT J
140 STOP
150 END