!  TITLE:   tv_reverse_video.mac (MANAGEMENT)
!
!
!   TOOLBAR VERSION
!
!   This sub-macro toggles the video background between black and white.
!
!
*get,prkey_,active,0,prkey
/nopr

/color,pbak,off,blac
!
*get,vustat_,parm,vuscntr_,type
!
*if,vustat_,eq,-1,then
    vuscntr_=1
    vidtog_=0
    *set,vustat_,
*endif
!
*if,vidtog_,eq,0,then
    vidtog_=1
   /RGB,INDEX,100,100,100, 0
   /RGB,INDEX, 80, 80, 80,13
   /RGB,INDEX, 60, 60, 60,14
   /RGB,INDEX,  0,  0,  0,15
*else
    vidtog_=0
   /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
!
*set,vustat_,
!
toolbar

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