'CORAL' L11C
   'LIBRARY' (
 
   'COMMENT' BASIC COMPATABLE PROCEDURES;
 
 
   'PROCEDURE' RBLOCK('VALUE''BYTE','LOCATION''INTEGER','VALUE''INTEGER','LOCATION''INTEGER','VALUE''INTEGER',
   'LABEL',
   'LABEL'));
   'COMMON' ('INTEGER''PROCEDURE' LBLOCKIN ('VALUE''BYTE','VALUE''INTEGER'));
 
   'COMMENT' GENERAL CORAL DEFINITTIONS;
   'INCLUDE' "[200,25]GENDEF.COR"
   'SEGMENT' RJSSUB
   'BEGIN'
 
 
       'INTEGER''PROCEDURE' LBLOCKIN ('VALUE''BYTE' FILE;
       'VALUE''INTEGER' STRING);
       'BEGIN'
           'INTEGER' ADDRESS,LENGTH,SIZE;
           ADDRESS:=STRING+2;  (HOLD ADDRESS OF DATA AREA)
           SIZE:=[STRING-2];   (HOLD MAX SIZE OF BUFFER)
           'IF' SIZE<512
           'THEN' 'GOTO' ERRL;
           RBLOCK(FILE,ADDRESS,512,LENGTH,0,ERRL,EOFL);
           [STRING]:=LENGTH;   (LOAD NUMBER OF CHARACTER READ)
           'ANSWER' SUCCESS;  (INDICATE TRANSFER OK)
 EOFL:     'ANSWER' EOF;
 ERRL:     'ANSWER' ERROR;
       'END';
   'END';
   'FINISH'