;; if (!D.name EQ "X") then device,RETAIN=2

if (!D.name EQ "SUN") then window,COL=248

if (!D.name EQ "SUN") then begin device,/cursor_cross & loadct,12