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 >
Text File  |  1984-04-29  |  421b  |  19 lines
  1. BEGIN
  2. COMMENT THIS PROGRAM TESTS THE FUNCTIONING OF THE CONCATENATE OPERATOR
  3.         AND THE STRING FUNCTION;
  4. STRING A,B,C;
  5. STRING(20) FUNCTION EQUAL(A,B);
  6.     STRING A,B;
  7.     BEGIN
  8.       EQUAL:=IF A=B THEN "TRUE" ELSE "FALSE";
  9.     END;
  10. WHILE 1=1 DO
  11.    BEGIN
  12.      WRITE("INPUT TWO STRINGS WHICH YOU WANT TO COMPARE");
  13.      WRITE("FOR EQUALITY");
  14.      READ (A,B);
  15.      WRITE(EQUAL(A,B));
  16.    END;
  17. END
  18. EOF
  19.