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
/
STRING.ALG
< prev
next >
Wrap
Text File
|
1984-04-29
|
421b
|
19 lines
BEGIN
COMMENT THIS PROGRAM TESTS THE FUNCTIONING OF THE CONCATENATE OPERATOR
AND THE STRING FUNCTION;
STRING A,B,C;
STRING(20) FUNCTION EQUAL(A,B);
STRING A,B;
BEGIN
EQUAL:=IF A=B THEN "TRUE" ELSE "FALSE";
END;
WHILE 1=1 DO
BEGIN
WRITE("INPUT TWO STRINGS WHICH YOU WANT TO COMPARE");
WRITE("FOR EQUALITY");
READ (A,B);
WRITE(EQUAL(A,B));
END;
END
EOF