qxy2gr.gsf

function qxy2gr( x, y )
  rc = gsfallow( 'on' )
  'q xy2gr 'x' 'y
  gx = subwrd( result, 3 )
  gy = subwrd( result, 6 )
  if( valnum(gx) = 0 | valnum(gy) = 0 )
    say 'error in qxy2gr.gsf: fail to get (gx,gy) from (x,y)'
    return ''
  endif
  ret = gx % ' ' % gy
  return ret
end function