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 >
Wrap
Text File
|
1984-04-29
|
276b
|
14 lines
BEGIN
STRING A,B;
WHILE 1=1 DO
BEGIN
READ (A,B);
IF A<B THEN WRITE("LSS");
IF A=B THEN WRITE("EQL");
IF A>B THEN WRITE("GTR");
IF A>=B THEN WRITE("GTREQL");
IF A<=B THEN WRITE("LSSEQL");
IF A<>B THEN WRITE("NEQL");
END;
END