!  TITLE:  reverse_video.mac (MANAGEMENT)
!
!
!   OBJECTIVE:
!
!   This sub-macro reverses the graphics window background from black/white
!   to white/black.
!
!
!   COMMAND SYNTAX:
!
!       REVERSE_VIDEO, on_off
!
!
!   ARGUMENTS:
!
!       on_off = background color.
!
!               1 = white background
!
!               0 = black background
!
!
!   DESCRIPTION:
!
!   The graphics window background becomes white when 'ON' (on_off = 1) and
!   black when 'OFF' (on_off = 0).
!
!
!
!
*get,prkey_,active,0,prkey
/nopr

*if,arg1,eq,1,then
   /RGB,INDEX,100,100,100, 0
   /RGB,INDEX, 80, 80, 80,13
   /RGB,INDEX, 60, 60, 60,14
   /RGB,INDEX,  0,  0,  0,15
*elseif,arg1,eq,0,then
   /RGB,INDEX,  0,  0,  0, 0
   /RGB,INDEX, 60, 60, 60,13
   /RGB,INDEX, 80, 80, 80,14
   /RGB,INDEX,100,100,100,15
*endif
!
/REPLOT


*if,prkey_,eq,1,then
    /go
*endif