'CORAL' L25A
   'INCLUDE' "[200,25]GENDEF.COR"
   'LIBRARY' (
 
   'COMMENT' BASIC COMPATABLE PROCEDURES;
 
 
   'INTEGER''PROCEDURE' LEN('VALUE''INTEGER');
   'INTEGER''PROCEDURE' RADASC('LOCATION''BYTE','LOCATION''BYTE','LOCATION''BYTE','VALUE''INTEGER');
   'PROCEDURE' CLEAR('VALUE''INTEGER');
   'PROCEDURE' ADD TO('VALUE''INTEGER','VALUE''INTEGER'));
   'COMMON' ('INTEGER''PROCEDURE' R50ASC ('VALUE''INTEGER'));
   'SEGMENT' RJSSUB
   'BEGIN'
 
 
       'INTEGER''PROCEDURE' R50ASC ('VALUE''INTEGER' INPUT);
       'BEGIN'
           'INTEGER' ANSWER, RESULT;
           'BYTE''ARRAY' WORKAREA [0:9]:=0,0;
           '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)
           'OVERLAY' WORK AREA [0] 'WITH' 'INTEGER' SIZE;
           SIZE:=3;  (MAX LENGTH 3 CHARS)
           ANSWER:='LOCATION'(WORK AREA[2]);  (HOLD ADDRESS OF WORK STRING)
           CLEAR(ANSWER);
           [ANSWER]:=3;  (SET LENGTH OF STRING TO 3 CHARACTERS)
           RESULT:=RADASC(X,Y,Z,INPUT);  (CONVERT RAD50 TO ASCII STRING)
           'IF' RESULT=0
           'THEN'
           'ANSWER' ANSWER
           'ELSE'
           'ANSWER' ERROR; (NOTE ERROR = CONVERT HAS FAILED)
       'END';
   'END';
   'FINISH'