home *** CD-ROM | disk | FTP | other *** search
/ Oakland CPM Archive / oakcpm.iso / cpmug / cpmug028.ark / STRTST.ALG < prev    next >
Encoding:
Text File  |  1984-04-29  |  276 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.