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 / SIISTR.ALG < prev    next >
Text File  |  1999-03-13  |  384b  |  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.