16 lines
299 B
Mathematica
16 lines
299 B
Mathematica
XBON ; IHS/ADC/GTH - SET REVERSE VIDEO ON ; [ 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 IORVON
|
|
Q
|
|
;
|