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 ***
$