/* center the window */
/* xy=VpWindow(window,'GETSCREENSIZE')
PARSE VAR xy x y
xsizeysize=VpWindow(window,'GETSIZE')
PARSE VAR xsizeysize xsize ysize
movex=x/2-(xsize/2)
movey=y/2-(ysize/2)
CALL VpWindow window,'SETPOS', movex, movey, xsize, ysize */

