'CORAL' L26A
   'INCLUDE' "[200,25]GENDEF.COR"
   'LIBRARY' (
 
   'COMMENT' BASIC COMPATABLE PROCEDURES;
 
 
   'INTEGER''PROCEDURE' LEN('VALUE''INTEGER');
   'INTEGER''PROCEDURE' ASCRAD('VALUE''BYTE','VALUE''BYTE','VALUE''BYTE','LOCATION''INTEGER');
   'PROCEDURE' CLEAR('VALUE''INTEGER');
   'PROCEDURE' ADD TO('VALUE''INTEGER','VALUE''INTEGER'));
   'COMMON' ('INTEGER''PROCEDURE' ASCR50 ('VALUE''INTEGER'));
   'SEGMENT' RJSSUB
   'BEGIN'
 
 
       'INTEGER''PROCEDURE' ASCR50 ('VALUE''INTEGER' INPUT);
       'BEGIN'
           'INTEGER' ANSWER, RESULT;
           'BYTE''ARRAY' WORKAREA [0:9]:=3,0;  (PRESET STRING TO MAX LENGTH 3 CHARS)
           'OVERLAY' WORK AREA [4] 'WITH' 'BYTE' X;
           'OVERLAY' WORK AREA [5] 'WITH' 'BYTE' Y;
           'OVERLAY' WORK AREA [6] 'WITH' 'BYTE' Z; (XYZ = POSITION OF CHARACTERS TO CONVERT)
           ANSWER:='LOCATION'(WORK AREA[2]);  (HOLD ADDRESS OF WORK STRING)
           CLEAR(ANSWER);
           ADD TO(ANSWER,INPUT);  (LOAD STRING TO CONVERT)
           ADD TO(ANSWER,"  ");  (FILL IN ANY UNUSED SPACES WITH SPACE CHARACTERS)
           ANSWER:=ASCRAD(X,Y,Z,RESULT);  (CONVERT STRING TO RAD50)
           'IF' ANSWER=0
           'THEN'
           'ANSWER' RESULT
           'ELSE'
           'ANSWER' ERROR; (NOTE ERROR = CONVERT HAS FAILED)
       'END';
   'END';
   'FINISH'