home *** CD-ROM | disk | FTP | other *** search
/ norge.freeshell.org (192.94.73.8) / 192.94.73.8.tar / 192.94.73.8 / pub / computers / cpm / alphatronic / ALGOL-M.ZIP / STRING.ALG < prev    next >
Text File  |  1999-03-13  |  512b  |  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.