XBON.m

XBON ; IHS/ADC/GTH - SET REVERSE VIDEO ON ; [ 02/07/97   3:02 PM ]

 ;;3.0;IHS/VA UTILITIES;;FEB 07, 1997

 ;

 ; Original routine from IHS/OHPRD/EDE.  08-25-95

 ;

 ; See also routine XBVIDEO.

 ;

START ;

 NEW %,X,IORVON,IORVOFF

 I '$G(IOST(0)) D HOME^%ZIS

 S X="IORVON;IORVOFF"

 D ENDR^%ZISS

 W IORVON

 Q

 ;

XBON      ; IHS/ADC/GTH - SET REVERSE VIDEO ON ; [ 02/07/97   3:02 PM ]

 +1       ;;3.0;IHS/VA UTILITIES;;FEB 07, 1997

 +2       ;

 +3       ; Original routine from IHS/OHPRD/EDE.  08-25-95

 +4       ;

 +5       ; See also routine XBVIDEO.

 +6       ;

START     ;

 +1        NEW %,X,IORVON,IORVOFF

 +2        IF '$GET(IOST(0))

               DO HOME^%ZIS

 +3        SET X="IORVON;IORVOFF"

 +4        DO ENDR^%ZISS

 +5        WRITE IORVON

 +6        QUIT 

 +7       ;