Window, 0, XSize=256, YSize=256
TvScl, scan
x1 = 0.5  &  y1 = 0.5  &  x2 = 0.5  &  y2 = 0.5
!Err = 0
Device, Set_Graphics_Function=6
WShow, 0 
Cursor, x1, y1, /Normal, /Down
XYOuts, x1, y1, /Normal, 'HELLO', CharSize=3, Align=0.5
WHILE (!Err NE 4) DO BEGIN
  Cursor, x2, y2, /Normal, /NoWait
  XYOuts, x1, y1, /Normal, 'HELLO', CharSize=3, Align=0.5
  XYOuts, x2, y2, /Normal, 'HELLO', CharSize=3, Align=0.5
  x1 = x2  &  y1 = y2
ENDWHILE
Device, Set_Graphics_Function=3
END