home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / INFO / ALGOL / ALGOLM.ZIP / BOOLINT.ALG < prev    next >
Encoding:
Text File  |  1987-02-14  |  512 b   |  16 lines
  1. BEGIN
  2. COMMENT THIS PROGRAM TESTS THE ALGOL-M BOOLEAN TESTS FOR INTEGER
  3.         VALUES;
  4.  
  5. INTEGER X,Y,Z;
  6. WHILE 1=1 DO
  7.   BEGIN
  8.     READ(X,Y);
  9.     IF X>5 AND X<100 THEN WRITE("5-100");
  10.     IF NOT X<5 OR X>100 THEN WRITE("NOT 5-100");
  11.     IF X>Y AND Y>5 AND X>10 THEN WRITE("5-10-X>Y");
  12.     IF X=5 OR X=10 OR X<Y OR Y=5 OR Y=10 THEN WRITE("5-10-X<Y-5-10");
  13.     IF X=5 AND Y=7 OR X=7 AND Y=5 THEN WRITE("5-7");
  14.   END;
  15. END
  16.