source: IHS-VA_UTILITIES-XB/trunk/XBOFF.m@ 830

Last change on this file since 830 was 642, checked in by Sam Habiel, 15 years ago

Modified directory structure; moved routines.

File size: 302 bytes
RevLine 
[641]1XBOFF ; IHS/ADC/GTH - SET REVERSE VIDEO OFF ; [ 02/07/97 3:02 PM ]
2 ;;4.0;XB;;Jul 20, 2009;Build 2
3 ;
4 ; Original routine from IHS/OHPRD/EDE. 08-25-95
5 ;
6 ; See also routine XBVIDEO.
7 ;
8START ;
9 NEW %,X,IORVON,IORVOFF
10 I '$G(IOST(0)) D HOME^%ZIS
11 S X="IORVON;IORVOFF"
12 D ENDR^%ZISS
13 W IORVOFF
14 Q
15 ;
Note: See TracBrowser for help on using the repository browser.