home *** CD-ROM | disk | FTP | other *** search
/ ftp.barnyard.co.uk / 2015.02.ftp.barnyard.co.uk.tar / ftp.barnyard.co.uk / cpm / walnut-creek-CDROM / SIMTEL / CPMUG / CPMUG028.ARK / BOOLINT.ALG < prev    next >
Text File  |  1984-04-29  |  431b  |  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.