If I understand your request, you are looking for a GRIP to display the coordinates of your WCS. Here is a GRIP to report selected points absolute and wcs coordinates:
ENTITY/ pt, old_wcs
DELIM/' '
MASK/ 2
A10: IDENT/'Select point', pt, resp
IFTHEN/ resp > 2
PRINT/ 'WCS coordinates are ', &POINT(pt)
old_wcs = &WCS
&WCS = &ABS
PRINT/ 'ABS coordinates are ', &POINT(pt)
&WCS = old_wcs
JUMP/ A10:
ENDIF
HALT