'CORAL' L30
   'INCLUDE' "[200,25]GENDEF.COR"
   'LIBRARY' (
 
   'COMMENT' BASIC COMPATABLE PROCEDURES;
 
 
   'INTEGER''PROCEDURE' ADD TO('VALUE''INTEGER','VALUE''INTEGER');
   'PROCEDURE' CLEAR);
   'COMMON' ('INTEGER''PROCEDURE' MULS ('VALUE''INTEGER','VALUE''INTEGER'));
   'SEGMENT' RJSSUB
   'BEGIN'
 
 
       'INTEGER''PROCEDURE' MULS('VALUE''INTEGER' STRING,REPEATS);
       'BEGIN'
           'BYTE''ARRAY' DATA [0:259]:=0;
           'OVERLAY' DATA [0] 'WITH' 'INTEGER' SIZE;
           'OVERLAY' DATA [2] 'WITH' 'INTEGER' LENGTH;
           'INTEGER' LOCAL, COUNT;
           'IF' REPEATS<1
           'OR' STRING=ERROR
           'OR' STRING=VOID
           'THEN'
           'ANSWER' ERROR;  (INVALID NUMBER OF REPEATS)
           SIZE:=255;  (PRESET MAX SIZE OF LOCAL INTERNAL BUFFER)
           LENGTH:=0;  (CLEAR LOCAL BUFFER)
           LOCAL:= 'LOCATION' (LENGTH);  (HOLD REFERENCE ADDRESS OF LOCAL WORKSPACE)
           'FOR' COUNT:=1 'STEP' 1 'UNTIL' REPEATS 'DO'
           ADD TO(LOCAL,STRING);  (BUILD UP MULS STRING)
           'ANSWER' LOCAL;  (REPLY WITH ADDRESS OF LOCAL STRING)
       'END' OF PROCEDURE MULS;
   'END';
   'FINISH'