source: IHS-VA_UTILITIES-XB/trunk/XBVIDEO.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: 2.2 KB
Line 
1XBVIDEO ; IHS/ADC/GTH - SET VIDEO ATTRIBUTES ; [ 02/07/97 3:02 PM ]
2 ;;4.0;XB;;Jul 20, 2009;Build 2
3 ;
4 ; Thanks to Don Jackson, DSD/OIRM, for the original routine.
5 ;
6 ; Set various video attributes. $X is saved and the cursor
7 ; is returned to it's original position thru X IOXY (except
8 ; certain attributes).
9 ;
10 ; In addition to the attributes supported by ENDR^%ZISS,
11 ; some color attributes are supported, and other mnemonics
12 ; to provide for backward compatibility.
13 ;
14 ;
15 Q
16 ;
17EN(XB) ;PEP - Set video attribute in XB. E.g. D EN^XBVIDEO("IOBOFF").
18 ;
19 Q:'$L($G(XB))
20 Q:$D(ZTQUEUED)
21 ;
22 NEW DX,DY,XBXY
23 S DX=$X,DY=$Y,XBXY=0
24 ;
25 I '$G(IOST(0)) D HOME^%ZIS
26 U IO(0)
27 ;
28 I $L($T(@XB)),$L($P($T(@XB),";;",6)) S XBXY=$P($T(@XB),";;",7),XB=$P($T(@XB),";;",6)
29 I $L($T(@XB^%ZISS)) S X=XB D ENDR^%ZISS W @XB X:XBXY IOXY U IO Q
30 ;
31 I '$L($T(@XB)) U IO Q
32 ;
33 S XB("LN")=$T(@XB),XB(1)=$P(XB("LN"),";;",2),XB(2)=$P(XB("LN"),";;",3),XB(3)=$P(XB("LN"),";;",4)
34 S XB=$P($G(^%ZIS(2,+IOST(0),XB(1))),"^",XB(2),XB(3))
35 I XB="" S XB="*0"
36 W @XB
37 X:XBXY IOXY
38 U IO
39 Q
40 ;
41 ; Global locations for mnenomics and colors supported by %ZISS.
42 ;
43 ;;<subscript>;;<beginning piece>;;<ending piece>;;<desc>;;<var name>;;<X IOXY flag>
44 ;
4510 ;;5;;1;;1;;TEN PITCH;;IOPTCH10;;1
4612 ;;5;;2;;2;;TWELVE PITCH;;IOPTCH12;;1
4716 ;;12.1;;1;;250;;SIXTEEN PITCH;;IOPTCH16;;1
48BLF ;;5;;9;;9;;BLINK OFF;;IOBOFF;;1
49BLN ;;5;;8;;8;;BLINK ON;;IOBON;;1
50CLR ;;6;;1;;1;;RESET;;IORESET;;1
51CUP ;;8;;1;;1;;CURSOR UP;;IOCUU;;0
52DTB ;;17;;2;;2;;DOUBLE HIGH BOTTOM HALF;;IODHLB;;0
53DTP ;;17;;1;;1;;DOUBLE HIGH TOP HALF;;IODHLT;;0
54HIF ;;7;;2;;2;;HI INTENSITY OFF;;IOINORM;;1
55HIN ;;7;;1;;1;;HI INTENSITY ON;;IOINHI;;1
56HOM ;;5;;3;;3;;HOME CURSOR;;IOHOME;;0
57IOF ;;1;;2;;2;;FORM FEED/CLEAR SCREEN;;;;0
58RVF ;;5;;5;;5;;REVERSE VIDEO OFF;;IORVOFF;;1
59RVN ;;5;;4;;4;;REVERSE VIDEO ON;;IORVON;;1
60ULF ;;6;;5;;5;;UNDERLINE OFF;;IOUOFF;;1
61ULN ;;6;;4;;4;;UNDERLINE ON;;IOUON;;1
62 ;
63 ; Global locations for mnenomics and colors UN-supported by %ZISS.
64 ;;<subscript>;;<beginning piece>;;<ending piece>;;<desc>;;<>;;<X IOXY flag>
65CYB ;;C;;3;;3;;CYAN BACKGROUND;;;;1
66GRF ;;C;;1;;1;;GREEN FOREGROUND;;;;1
67REB ;;C;;5;;5;;RED BACKGROUND;;;;1
68WHF ;;C;;4;;4;;WHITE FOREGROUND;;;;1
69YEF ;;C;;2;;2;;YELLOW FOREGROUND;;;;1
70 ;
Note: See TracBrowser for help on using the repository browser.