CALL CALPLT(X,Y,IPEN) -- This routine provides a means to plot to
 the screen in scale inches.  FCTR: PS
 
 X,Y - New pen location in scale inches.
 IPEN - Pen control, 2 (Draw) or 3 (Move), if negative, do as absolute
        value and set relocatable origin to that point.