'CORAL' P1 TXT MODULE
 
 
   'LIBRARY' ('PROCEDURE' WHERE ('LOCATION''FLOATING','LOCATION''FLOATING','LOCATION''FLOATING');
   'PROCEDURE' SYMBOL ('LOCATION''FLOATING','LOCATION''FLOATING','LOCATION''FLOATING','LOCATION''INTEGER',
   'LOCATION''FLOATING','LOCATION''INTEGER'));
   'COMMON' ('PROCEDURE' TXT ('VALUE''FLOATING','VALUE''INTEGER','VALUE''INTEGER'));
   'SEGMENT' RJSSUB
   'BEGIN'
 
 
       'PROCEDURE' TXT('VALUE''FLOATING' ANGLE;
       'VALUE''INTEGER' SZ,TEXT);
       'BEGIN'
           'INTEGER' CHARACTERS,LENGTH;
           'FLOATING' X, Y, F, SIZE, THETA;
           THETA:=SZ;  (HOLD INPUT INTEGER VALUE AS FLOATING)
           'IF' THETA<=0 
           'THEN' SIZE:=0.07 
           'ELSE' SIZE:=THETA*0.07;
           THETA:=ANGLE;
           LENGTH:=[TEXT];
           WHERE(X,Y,F);
           SYMBOL(X,Y,SIZE,[TEXT+2],THETA,LENGTH);
       'END'OF PROCEDURE TXT;
   'END';
   'FINISH'