'CORAL' P3 PLT MODULE
 
 
   'LIBRARY' ('PROCEDURE' PLOT ('LOCATION''FLOATING','LOCATION''FLOATING','LOCATION''INTEGER');
   'PROCEDURE' WHERE ('LOCATION''FLOATING','LOCATION''FLOATING','LOCATION''FLOATING');
   'PROCEDURE' RTH ('LOCATION''FLOATING','LOCATION''FLOATING'));
   'COMMON' ('PROCEDURE' PLT ('VALUE''FLOATING','VALUE''FLOATING'));
   'COMMON' DATPLT ('FLOATING' XSPAC,YSPAC,XOR,YOR,XI,YI,FACR);
   'SEGMENT' RJSSUB
   'BEGIN'
 
 
       'PROCEDURE' PLT ('VALUE''FLOATING' X,Y);
       'BEGIN'
           'INTEGER' ACTION:=2;   (LOWER PEN CODE)
           'FLOATING' XX,YY,FF;
 
           'COMMENT' GET X AND Y POSITIONS AND SCALING FACTOR
                     NOTE ONLY SCALING FACTOR REQUIRED;
           WHERE (XX,YY,FF);
           XX:=X;   (HOLD X AND Y COIRDINATES)
           YY:=Y;
           RTH(XX,YY);  (CHECK AND CONVERT R THETA IF REQD)
 
           'COMMENT' ENSURE PEN DOES NOT LEAVE PAPER LIMITS;
           'IF' XX < XOR/FF
           'THEN' XX:=XOR;
           'IF' XX > XSPAC/FF
           'THEN' XX:=XSPAC;
           'IF' YY < YOR/FF   
           'THEN' YY:=YOR;
           'IF' YY > YSPAC/FF 
           'THEN' YY:=YSPAC;
           PLOT(XX,YY,ACTION);
       'END'OF PROCEDURE PLT;
   'END';
   'FINISH'