XBOFF ; IHS/ADC/GTH - SET REVERSE VIDEO OFF ; [ 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 IORVOFF
Q
;
XBOFF ; IHS/ADC/GTH - SET REVERSE VIDEO OFF ; [ 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 IORVOFF
+6 QUIT
+7 ;