CALL WHERE(X,Y,IPEN) -- This routine returns the present location of
 pen or the lower left hand corner of the alpha cursor.  FCTR: WH
 
 X,Y - Location of the pen in scale inches.
 IPEN - Status of the pen, 2 if down, 3 if up.