home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / INFO / ALGOL / ALGOLM.ZIP / STRTST.ALG < prev    next >
Encoding:
Text File  |  1987-02-14  |  384 b   |  14 lines
  1. BEGIN
  2. STRING A,B;
  3. WHILE 1=1 DO
  4.   BEGIN
  5.      READ (A,B);
  6.      IF A<B THEN WRITE("LSS");
  7.      IF A=B THEN WRITE("EQL");
  8.      IF A>B THEN WRITE("GTR");
  9.      IF A>=B THEN WRITE("GTREQL");
  10.      IF A<=B THEN WRITE("LSSEQL");
  11.      IF A<>B THEN WRITE("NEQL");
  12.   END;
  13. END
  14.