include c:\cxpl\stdlib;
if not OpenMouse then Text(0, "A mouse is required")
else [ShowMouse(true);
      IntOut(0, GetMousePosition(0));  ChOut(0, ^,);
      IntOut(0, GetMousePosition(1));  CrLf(0);
     ]