home *** CD-ROM | disk | FTP | other *** search
/ norge.freeshell.org (192.94.73.8) / 192.94.73.8.tar / 192.94.73.8 / pub / computers / cpm / alphatronic / ALGOL-M.ZIP / BOOLINT.ALG < prev    next >
Text File  |  1999-03-13  |  512b  |  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.