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 / STRTST.ALG < prev    next >
Text File  |  1984-04-29  |  276b  |  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.