home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / INFO / ALGOL / ALGOL_M.ZIP / SIISTR.ALG < prev    next >
Encoding:
Text File  |  1987-01-11  |  384 b   |  18 lines
  1. BEGIN
  2. COMMENT THIS PROGRAM TESTS THE FUNCTIONING OF THE CONCATENATE
  3.         AND STORE STRING INTERMEDIATE INSTRUCTIONS.;
  4. STRING A,B,C;
  5.  
  6. READ(C);
  7. A:=B:=C;
  8. WRITE(A," ",B," ", C);
  9. A:=B:=C||" TEST";
  10. WRITE(A,B,C);
  11. A:=B:="TEST"||C||" END";
  12. WRITE(A,B,C);
  13. WRITE(A||B);
  14. WRITE(A||"TEST");
  15. IF (A:="HELLO")>= "HELLA" THEN WRITE(A);
  16. END
  17. EOF
  18.