Algo

1. TITLE TRABB PARDO-KNUTH ALGORITHM

2. SUBSCript I,J

3. DATA A(11)

4. FORMAt FI(2DT), FLARGE(3D)

5. PROCEdure F(T=Z)

6. BEGIN


T^3


8. END



9. FOR I=0(1)10

10. A {Link without Title} =KEYBD

11. FOR J=0(1)10 BEGIN

11. I=J-10

12. F(A {Link without Title} =Y)

13. PRINT(FI)=I

14. IF Y > 400

15. GO TO LARGE

16. PRINT(FL)=Y

17. GO TO NEXT

18. LARGE: PRINT(FLARGE)=999

19. NEXT: CARR(1) END

20. END

• 1. A title is the only type of comment allowed. Line numbers were inserted by the editor.


• 2. Integer data type. The lower-case letters are not typos, but reflect the way in which ALGO code was presented in the original documentation.


• 3. Only the size of an array can be specified, lower bound is always zero.


• 4. The first format calls for a two-digit number followed by a tab, the second for a three digit number.


• 5. The syntax of ALGO's procedure implementations is slightly different from that given in the Zurich report. Functions as defined by the Zürich report are not implemented.


• 9. The syntax here is from the Zürich report and is also consistent with various 1950s-era autocodes.


• 10. KEYBD reads a numeric value from the typemanger

• ALGO manual (PDF)


• Other documents on ALGO and the G-15