RosettaCodeData/Task/Mouse-position/HicEst/mouse-position.hicest

   WINDOW(WINdowhandle=handle)
   AXIS(WINdowhandle=handle, MouSeCall=Mouse_Callback, MouSeX=X, MouSeY=Y)
 END

SUBROUTINE Mouse_Callback()
   WRITE(Messagebox, Name) X, Y
 END