51 lines
1.6 KiB
Mathematica
51 lines
1.6 KiB
Mathematica
XBVDF ; IHS/ASDST/DMJ - VIDEO DISPLAY FEATURES ; [ 10/07/2004 3:00 PM ]
|
|
;;4.0;XB;;Jul 20, 2009;Build 2
|
|
EN(X) ;EP
|
|
I X="" Q X
|
|
I '$L($T(@X)) S X="" Q X
|
|
S XB1("X")=$X
|
|
I '$G(IOST(0)) S IOP=0 D ^%ZIS
|
|
I '$D(XBVDF(+IOST(0),X)) D
|
|
.S XB1("LN")=$T(@X),XB1(1)=$P(XB1("LN"),";;",2),XB1(2)=$P(XB1("LN"),";;",3),XB1(3)=$P(XB1("LN"),";;",4)
|
|
.S XBVDF(+IOST(0),X)=$P($G(^%ZIS(2,+IOST(0),XB1(1))),"^",XB1(2),XB1(3))
|
|
.I XBVDF(+IOST(0),X)="" S XBVDF(+IOST(0),X)="*0"
|
|
W @XBVDF(+IOST(0),X)
|
|
S $X=XB1("X")
|
|
S X=""
|
|
K XB1
|
|
Q X
|
|
;GLOBAL LOCATIONS TO FOLLOW
|
|
HIN ;;7;;1;;1;;HI INTENSITY ON
|
|
HIX ;;7;;2;;2;;HI INTENSITY OFF
|
|
RVN ;;5;;4;;4;;REVERSE VIDEO ON
|
|
RVX ;;5;;5;;5;;REVERSE VIDEO OFF
|
|
ULN ;;6;;4;;4;;UNDERLINE ON
|
|
ULX ;;6;;5;;5;;UNDERLINE OFF
|
|
DTP ;;17;;1;;1;;DOUBLE HIGH TOP HALF
|
|
DTB ;;17;;2;;2;;DOUBLE HIGH BOTTOM HALF
|
|
BLN ;;5;;8;;8;;BLINK ON
|
|
BLX ;;5;;9;;9;;BLINK OFF
|
|
CUP ;;8;;1;;1;;CURSOR UP
|
|
IOF ;;1;;2;;2;;FORM FEED/CLEAR SCREEN
|
|
10 ;;5;;1;;1;;TEN PITCH
|
|
12 ;;5;;2;;2;;TWELVE PITCH
|
|
16 ;;12.1;;1;;250;;SIXTEEN PITCH
|
|
BKF ;;CLRBKF;;1;;1;;BLACK FOREGROUND
|
|
BKB ;;CLRBKB;;1;;1;;BLACK BACKGROUND
|
|
REF ;;CLRREF;;1;;1;;RED FOREGROUND
|
|
REB ;;CLRREB;;1;;1;;RED BACKGROUND
|
|
GRF ;;CLRGRF;;1;;1;;GREEN FOREGROUND
|
|
GRB ;;CLRGRB;;1;;1;;GREEN BACKGROUND
|
|
YEF ;;CLRYEF;;1;;1;;YELLOW FOREGROUND
|
|
YEB ;;CLRYEB;;1;;1;;YELLOW BACKGROUND
|
|
BLF ;;CLRBLF;;1;;1;;BLUE FOREGROUND
|
|
BLB ;;CLRBLB;;1;;1;;BLUE BACKGROUND
|
|
MGF ;;CLRMGF;;1;;1;;MAGENTA FOREGROUND
|
|
MGB ;;CLRMGB;;1;;1;;MAGENTA BACKGROUND
|
|
CYF ;;CLRCYF;;1;;1;;CYAN FOREGROUND
|
|
CYB ;;CLRCYB;;1;;1;;CYAN BACKGROUND
|
|
WHF ;;CLRWHF;;1;;1;;WHITE FOREGROUND
|
|
WHB ;;CLRWHB;;1;;1;;WHITE BACKGROUND
|
|
CLR ;;6;;1;;1;;RESET
|
|
HOM ;;5;;3;;3;;HOME CURSOR
|