'CORAL' L6
   'INCLUDE' "[200,25]GENDEF.COR"
   'LIBRARY' (
 
   'COMMENT' BASIC COMPATABLE PROCEDURES;
 
 
   'INTEGER''PROCEDURE'           LEN ('VALUE''INTEGER');
   'PROCEDURE'                    COPY('VALUE''INTEGER','VALUE''INTEGER'));
   'COMMON' ('INTEGER''PROCEDURE' ADD ('VALUE''INTEGER','VALUE''INTEGER'));
   'SEGMENT' RJSSUB
   'BEGIN'
 
 
       'INTEGER''PROCEDURE' ADD ('VALUE''INTEGER' STRING1,STRING2);
       'BEGIN'
           'INTEGER' END,COUNT,S3;
           'BYTE''ARRAY' STRING3 [0:259]:=0;
           'OVERLAY' STRING3 [4] 'WITH' 'BYTE''ARRAY' STRING4 [0:255];
           'OVERLAY' STRING3 [2] 'WITH' 'INTEGER' LENGTH;
           'OVERLAY' STRING3 [0] 'WITH' 'INTEGER' LIMIT;
           'IF' STRING1 = ERROR
           'OR' STRING1 = VOID
           'OR' STRING2 = ERROR
           'OR' STRING2 = VOID
           'THEN'
           'ANSWER' ERROR;
           S3:='LOCATION'(STRING3[2]);
           LIMIT:=255;  (SET BOUNDS CHECK SIZE)
           COPY(STRING1,S3);  (ADD IN FIRST STRING)
           END:=LEN(STRING1)+LEN(STRING2)-1;
 
           'COMMENT' COPY ACROSS ANY OR ALL CHARACTERS FROM SECOND STRING;
           'FOR' COUNT:=LEN(STRING1) 'STEP' 1 'UNTIL' END 'DO'
           STRING4[COUNT]:=[STRING2 +COUNT -LEN(STRING1)+2];
           LENGTH:= 'INTEGER' (LENGTH+LEN(STRING2))'MASK' 255;
           'ANSWER' 'LOCATION' (STRING3[2]);
       'END';
   'END';
   'FINISH'