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 / SIISTR.ALG < prev    next >
Text File  |  1984-04-29  |  345b  |  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.