Directory of image this file is from
This file as a plain text file
'BEGIN' 'COMMENT' SIMPLE-MINDED DEMO; 'BOOLEAN' B1, B2; 'INTEGER' I,J; SKIP; SKIP; WRITE (1," *** THIS IS AN ALGOL DEMONSTRATION ***"); SKIP; START: SKIP; SKIP; WRITE (1,"ENTER 2 INTEGERS <A,B>: "); READ (1,I,J); B1 := I=0; B2 := J=0; 'IF' B1 'AND' B2 'THEN' 'GOTO' EXIT; 'IF' I>J 'THEN' WRITE (1,"FIRST NUMBER (",I," ) IS GREATER.") 'ELSE' 'IF' J>I 'THEN' WRITE (1,"SECOND NUMBER (",J," ) IS GREATER.") 'ELSE' WRITE (1,"THE NUMBERS ARE EQUAL."); 'GOTO' START; EXIT: SKIP; SKIP; WRITE (1,"TWO ZEROES STOPS THIS PROGRAM,"); SKIP; WRITE (1,"TYPE 'ST 400' TO RESTART."); SKIP; SKIP 'END' *** NOTICE NO SEMI-COLON NEEDED ON PREVIOUS STATEMENT *** $