16 lines
302 B
Mathematica
16 lines
302 B
Mathematica
|
XBOFF ; IHS/ADC/GTH - SET REVERSE VIDEO OFF ; [ 02/07/97 3:02 PM ]
|
||
|
|
;;4.0;XB;;Jul 20, 2009;Build 2
|
||
|
|
;
|
||
|
|
; 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
|
||
|
|
;
|