TITLE TRABB PARDO-KNUTH ALGORITHM
SUBSCript I,J
DATA A(11)
FORMAt FI(2DT), FLARGE(3D)
PROCEDURE F(T=Z)
BEGIN
Z=SQRT(ABS(T))+5*T^3
END
FOR I=0(1)10
A[I]=KEYBD
FOR J=0(1)10 BEGIN
I=J-10
F(A[I]=Y)
PRINT(FI)=I
IF Y > 400
GO TO LARGE
PRINT(FL)=Y
GO TO NEXT
LARGE: PRINT(FLARGE)=999
NEXT: CARR(1) END
2END