- DIISS ;SFISC/MKO-SAVE AS %ZISS IF STANDALONE FILEMAN ;01:39 PM 21 Dec 1994
- ;;22.0;VA FileMan;;Mar 30, 1999
- ;Per VHA Directive 10-93-142, this routine should not be modified.
- %ZISS ;SFISC/MKO-RETURN SCREEN HANDLING IO VARIABLES ;
- ;
- ; This routine is for standalone FileMan sites that want to use
- ; FileMan's screen-oriented utilities. It must be saved as %ZISS
- ; in the manager account. There are four entry points:
- ;
- ; ENDR - returns the IO variables required for screen handling
- ; KILL - kills the IO variables set by ENDR
- ; GSET - returns the IO variables required to draw lines
- ; GKILL - kills the IO variables set by GSET
- ;
- ; The input variable to all of these entry points is
- ;
- ; IOST - the terminal type name (e.g., C-VT100)
- ;
- ; The terminal types supported by this routine are C-VT100,
- ; C-VT220, and C-VT320. To support another terminal
- ; type, modify the highlighted line in subroutine GETT, and create
- ; new subroutines that sets the IO variables appropriately.
- ;
- ; Also note that %ZIS must return in IOXY the code to position the
- ; cursor at column DX and row DY.
- ;
- GETT ;Based on value of IOST, returns DITT with values:
- ; 1 = C-VT100 (default)
- ; 2 = C-VT220 or C-VT320
- ; 3 = C-DATATREE
- S U="^",DIIOST=$TR(IOST," ","")
- ;
- ;******
- ;** To recognize other terminal types, modify the following line of
- ;** code and add new subroutines (e.g., 4 and G4 for C-QUME) that
- ;** set the IO variables equal to the codes for that terminal type.
- ;******
- ;
- S DITT=$S("^C-VT220^C-VT320^"[(U_DIIOST_U):2,DIIOST="C-DATATREE":3,1:1)
- ;*****
- K DIIOST
- Q
- ENDR ;Set screen handler IO variables
- N DITT
- D GETT,@DITT
- Q
- GSET ;Set graphics variables
- N DITT
- D GETT,@("G"_DITT)
- Q
- KILL ;Kill screen handler IO variables
- K IOCUU,IOCUD,IOCUF,IOCUB,IOPF1,IOPF2,IOPF3,IOPF4
- K IOFIND,IOINSERT,IOREMOVE,IOSELECT,IOPREVSC,IONEXTSC,IOHELP,IODO
- K IOKPAM,IOKPNM
- K IOKP0,IOKP1,IOKP2,IOKP3,IOKP4,IOKP5,IOKP6,IOKP7,IOKP8,IOKP9
- K IOMINUS,IOCOMMA,IOPERIOD,IOENTER
- K IOEDALL,IOEDEOP,IOELEOL,IOELALL
- K IOINHI,IOINLOW,IOINORM,IORVON,IORVOFF,IOUON,IOUOFF,IOSGR0
- K IORI,IOSTBM,IOIL,IODL,IOICH,IODCH
- K IOIRM1,IOIRM0,IOAWM0,IOAWM1
- Q
- GKILL ;Kill graphics variables
- K IOG0,IOG1,IOBLC,IOBRC,IOTLC,IOTRC,IOHL,IOVL,IOLT,IOTT,IORT,IOBT,IOMT
- Q
- 1 ;VT100 codes
- S IOCUU=$C(27)_"[A"
- S IOCUD=$C(27)_"[B"
- S IOCUF=$C(27)_"[C"
- S IOCUB=$C(27)_"[D"
- S IOPF1=$C(27)_"OP"
- S IOPF2=$C(27)_"OQ"
- S IOPF3=$C(27)_"OR"
- S IOPF4=$C(27)_"OS"
- S IOFIND=$C(27)_"[1~"
- S IOINSERT=$C(27)_"[2~"
- S IOREMOVE=$C(27)_"[3~"
- S IOSELECT=$C(27)_"[4~"
- S IOPREVSC=$C(27)_"[5~"
- S IONEXTSC=$C(27)_"[6~"
- S IOHELP=$C(27)_"[28~"
- S IODO=$C(27)_"[29~"
- S IOKP0=$C(27)_"Op"
- S IOKP1=$C(27)_"Oq"
- S IOKP2=$C(27)_"Or"
- S IOKP3=$C(27)_"Os"
- S IOKP4=$C(27)_"Ot"
- S IOKP5=$C(27)_"Ou"
- S IOKP6=$C(27)_"Ov"
- S IOKP7=$C(27)_"Ow"
- S IOKP8=$C(27)_"Ox"
- S IOKP9=$C(27)_"Oy"
- S IOMINUS=$C(27)_"Om"
- S IOCOMMA=$C(27)_"Ol"
- S IOPERIOD=$C(27)_"On"
- S IOENTER=$C(27)_"OM"
- S IOEDEOP=$C(27)_"[J"
- S IOEDALL=$C(27)_"[2J"
- S IOELEOL=$C(27)_"[K"
- S IOELALL=$C(27)_"[2K"
- S IOAWM0=$C(27)_"[?7l"
- S IOAWM1=$C(27)_"[?7h"
- S IOINHI=$C(27)_"[1m"
- S IOINLOW=$C(27)_"[m"
- S IOINORM=$C(27)_"[m"
- S IOUON=$C(27)_"[4m"
- S IOUOFF=$C(27)_"[m"
- S IORVON=$C(27)_"[7m"
- S IORVOFF=$C(27)_"[m"
- S IOSGR0=$C(27)_"[m"
- S IORI=$C(27)_"M"
- S IOSTBM="$C(27,91)_+IOTM_"";""_+IOBM_""r"""
- S IOIL=$C(27)_"[L"
- S IODL=$C(27)_"[M"
- S IOICH=$C(27)_"[@"
- S IODCH=$C(27)_"[P"
- S IOIRM1=$C(27)_"[4h"
- S IOIRM0=$C(27)_"[4l"
- S IOKPAM=$C(27)_"="
- S IOKPNM=$C(27)_">"
- Q
- G1 ;VT100 line drawing codes
- S IOG0=$C(27)_"(B"
- S IOG1=$C(27)_"(0"
- S IOBLC="m"
- S IOBRC="j"
- S IOTLC="l"
- S IOTRC="k"
- S IOHL="q"
- S IOVL="x"
- S IOLT="t"
- S IOTT="w"
- S IORT="u"
- S IOBT="v"
- S IOMT="n"
- Q
- 2 ;VT220 and VT320 codes
- ;The codes are the same as VT100 except for a few
- D 1
- S IOINLOW=$C(27)_"[22m"
- S IOUOFF=$C(27)_"[24m"
- S IORVOFF=$C(27)_"[27m"
- Q
- G2 ;VT220 and VT320 line drawing codes
- ;The codes are the same as those for VT100s
- D G1
- Q
- 3 ;C-DATATREE codes
- S IOXY="W /C(DX,DY)"
- S IOCUU=$C(1)
- S IOCUD=$C(11)
- S IOCUF=$C(18)
- S IOCUB=$C(14)
- S IOPF1=$C(21)
- S IOPF2=$C(22)
- S IOPF3=$C(23)
- S IOPF4=$C(24)
- S IOEDALL=$C(12)
- S IOEDEOP=$C(255)_"EF"
- S IOELEOL=$C(255)_"EL"
- S IOELALL=""
- S IOAWM0=""
- S IOAWM1=""
- S IOINHI=$C(255)_"AB"
- S IOINLOW=$C(255)_"AA"
- S IOUON=$C(255)_"AC"
- S IOUOFF=$C(255)_"AA"
- S IORVON=$C(255)_"AE"
- S IORVOFF=$C(255)_"AA"
- S IOINORM=$C(255)_"AA"
- S IOSGR0=$C(255)_"AA"
- S IORI=""
- S IOSTBM=""
- S IOIL=""
- S IODL=""
- S IOICH=""
- S IODCH=""
- S IOIRM1=""
- S IOIRM0=""
- Q
- G3 ;C-DATATREE line drawing codes
- S IOG0=""
- S IOG1=""
- S IOBLC=$C(192)
- S IOBRC=$C(217)
- S IOTLC=$C(218)
- S IOTRC=$C(191)
- S IOHL=$C(196)
- S IOVL=$C(179)
- S IOLT=$C(195)
- S IOTT=$C(194)
- S IORT=$C(180)
- S IOBT=$C(193)
- S IOMT=$C(197)
- Q
- DIISS ;SFISC/MKO-SAVE AS %ZISS IF STANDALONE FILEMAN ;01:39 PM 21 Dec 1994
- +1 ;;22.0;VA FileMan;;Mar 30, 1999
- +2 ;Per VHA Directive 10-93-142, this routine should not be modified.
- %ZISS ;SFISC/MKO-RETURN SCREEN HANDLING IO VARIABLES ;
- +1 ;
- +2 ; This routine is for standalone FileMan sites that want to use
- +3 ; FileMan's screen-oriented utilities. It must be saved as %ZISS
- +4 ; in the manager account. There are four entry points:
- +5 ;
- +6 ; ENDR - returns the IO variables required for screen handling
- +7 ; KILL - kills the IO variables set by ENDR
- +8 ; GSET - returns the IO variables required to draw lines
- +9 ; GKILL - kills the IO variables set by GSET
- +10 ;
- +11 ; The input variable to all of these entry points is
- +12 ;
- +13 ; IOST - the terminal type name (e.g., C-VT100)
- +14 ;
- +15 ; The terminal types supported by this routine are C-VT100,
- +16 ; C-VT220, and C-VT320. To support another terminal
- +17 ; type, modify the highlighted line in subroutine GETT, and create
- +18 ; new subroutines that sets the IO variables appropriately.
- +19 ;
- +20 ; Also note that %ZIS must return in IOXY the code to position the
- +21 ; cursor at column DX and row DY.
- +22 ;
- GETT ;Based on value of IOST, returns DITT with values:
- +1 ; 1 = C-VT100 (default)
- +2 ; 2 = C-VT220 or C-VT320
- +3 ; 3 = C-DATATREE
- +4 SET U="^"
- SET DIIOST=$TRANSLATE(IOST," ","")
- +5 ;
- +6 ;******
- +7 ;** To recognize other terminal types, modify the following line of
- +8 ;** code and add new subroutines (e.g., 4 and G4 for C-QUME) that
- +9 ;** set the IO variables equal to the codes for that terminal type.
- +10 ;******
- +11 ;
- +12 SET DITT=$SELECT("^C-VT220^C-VT320^"[(U_DIIOST_U):2,DIIOST="C-DATATREE":3,1:1)
- +13 ;*****
- +14 KILL DIIOST
- +15 QUIT
- ENDR ;Set screen handler IO variables
- +1 NEW DITT
- +2 DO GETT
- DO @DITT
- +3 QUIT
- GSET ;Set graphics variables
- +1 NEW DITT
- +2 DO GETT
- DO @("G"_DITT)
- +3 QUIT
- KILL ;Kill screen handler IO variables
- +1 KILL IOCUU,IOCUD,IOCUF,IOCUB,IOPF1,IOPF2,IOPF3,IOPF4
- +2 KILL IOFIND,IOINSERT,IOREMOVE,IOSELECT,IOPREVSC,IONEXTSC,IOHELP,IODO
- +3 KILL IOKPAM,IOKPNM
- +4 KILL IOKP0,IOKP1,IOKP2,IOKP3,IOKP4,IOKP5,IOKP6,IOKP7,IOKP8,IOKP9
- +5 KILL IOMINUS,IOCOMMA,IOPERIOD,IOENTER
- +6 KILL IOEDALL,IOEDEOP,IOELEOL,IOELALL
- +7 KILL IOINHI,IOINLOW,IOINORM,IORVON,IORVOFF,IOUON,IOUOFF,IOSGR0
- +8 KILL IORI,IOSTBM,IOIL,IODL,IOICH,IODCH
- +9 KILL IOIRM1,IOIRM0,IOAWM0,IOAWM1
- +10 QUIT
- GKILL ;Kill graphics variables
- +1 KILL IOG0,IOG1,IOBLC,IOBRC,IOTLC,IOTRC,IOHL,IOVL,IOLT,IOTT,IORT,IOBT,IOMT
- +2 QUIT
- 1 ;VT100 codes
- +1 SET IOCUU=$CHAR(27)_"[A"
- +2 SET IOCUD=$CHAR(27)_"[B"
- +3 SET IOCUF=$CHAR(27)_"[C"
- +4 SET IOCUB=$CHAR(27)_"[D"
- +5 SET IOPF1=$CHAR(27)_"OP"
- +6 SET IOPF2=$CHAR(27)_"OQ"
- +7 SET IOPF3=$CHAR(27)_"OR"
- +8 SET IOPF4=$CHAR(27)_"OS"
- +9 SET IOFIND=$CHAR(27)_"[1~"
- +10 SET IOINSERT=$CHAR(27)_"[2~"
- +11 SET IOREMOVE=$CHAR(27)_"[3~"
- +12 SET IOSELECT=$CHAR(27)_"[4~"
- +13 SET IOPREVSC=$CHAR(27)_"[5~"
- +14 SET IONEXTSC=$CHAR(27)_"[6~"
- +15 SET IOHELP=$CHAR(27)_"[28~"
- +16 SET IODO=$CHAR(27)_"[29~"
- +17 SET IOKP0=$CHAR(27)_"Op"
- +18 SET IOKP1=$CHAR(27)_"Oq"
- +19 SET IOKP2=$CHAR(27)_"Or"
- +20 SET IOKP3=$CHAR(27)_"Os"
- +21 SET IOKP4=$CHAR(27)_"Ot"
- +22 SET IOKP5=$CHAR(27)_"Ou"
- +23 SET IOKP6=$CHAR(27)_"Ov"
- +24 SET IOKP7=$CHAR(27)_"Ow"
- +25 SET IOKP8=$CHAR(27)_"Ox"
- +26 SET IOKP9=$CHAR(27)_"Oy"
- +27 SET IOMINUS=$CHAR(27)_"Om"
- +28 SET IOCOMMA=$CHAR(27)_"Ol"
- +29 SET IOPERIOD=$CHAR(27)_"On"
- +30 SET IOENTER=$CHAR(27)_"OM"
- +31 SET IOEDEOP=$CHAR(27)_"[J"
- +32 SET IOEDALL=$CHAR(27)_"[2J"
- +33 SET IOELEOL=$CHAR(27)_"[K"
- +34 SET IOELALL=$CHAR(27)_"[2K"
- +35 SET IOAWM0=$CHAR(27)_"[?7l"
- +36 SET IOAWM1=$CHAR(27)_"[?7h"
- +37 SET IOINHI=$CHAR(27)_"[1m"
- +38 SET IOINLOW=$CHAR(27)_"[m"
- +39 SET IOINORM=$CHAR(27)_"[m"
- +40 SET IOUON=$CHAR(27)_"[4m"
- +41 SET IOUOFF=$CHAR(27)_"[m"
- +42 SET IORVON=$CHAR(27)_"[7m"
- +43 SET IORVOFF=$CHAR(27)_"[m"
- +44 SET IOSGR0=$CHAR(27)_"[m"
- +45 SET IORI=$CHAR(27)_"M"
- +46 SET IOSTBM="$C(27,91)_+IOTM_"";""_+IOBM_""r"""
- +47 SET IOIL=$CHAR(27)_"[L"
- +48 SET IODL=$CHAR(27)_"[M"
- +49 SET IOICH=$CHAR(27)_"[@"
- +50 SET IODCH=$CHAR(27)_"[P"
- +51 SET IOIRM1=$CHAR(27)_"[4h"
- +52 SET IOIRM0=$CHAR(27)_"[4l"
- +53 SET IOKPAM=$CHAR(27)_"="
- +54 SET IOKPNM=$CHAR(27)_">"
- +55 QUIT
- G1 ;VT100 line drawing codes
- +1 SET IOG0=$CHAR(27)_"(B"
- +2 SET IOG1=$CHAR(27)_"(0"
- +3 SET IOBLC="m"
- +4 SET IOBRC="j"
- +5 SET IOTLC="l"
- +6 SET IOTRC="k"
- +7 SET IOHL="q"
- +8 SET IOVL="x"
- +9 SET IOLT="t"
- +10 SET IOTT="w"
- +11 SET IORT="u"
- +12 SET IOBT="v"
- +13 SET IOMT="n"
- +14 QUIT
- 2 ;VT220 and VT320 codes
- +1 ;The codes are the same as VT100 except for a few
- +2 DO 1
- +3 SET IOINLOW=$CHAR(27)_"[22m"
- +4 SET IOUOFF=$CHAR(27)_"[24m"
- +5 SET IORVOFF=$CHAR(27)_"[27m"
- +6 QUIT
- G2 ;VT220 and VT320 line drawing codes
- +1 ;The codes are the same as those for VT100s
- +2 DO G1
- +3 QUIT
- 3 ;C-DATATREE codes
- +1 SET IOXY="W /C(DX,DY)"
- +2 SET IOCUU=$CHAR(1)
- +3 SET IOCUD=$CHAR(11)
- +4 SET IOCUF=$CHAR(18)
- +5 SET IOCUB=$CHAR(14)
- +6 SET IOPF1=$CHAR(21)
- +7 SET IOPF2=$CHAR(22)
- +8 SET IOPF3=$CHAR(23)
- +9 SET IOPF4=$CHAR(24)
- +10 SET IOEDALL=$CHAR(12)
- +11 SET IOEDEOP=$CHAR(255)_"EF"
- +12 SET IOELEOL=$CHAR(255)_"EL"
- +13 SET IOELALL=""
- +14 SET IOAWM0=""
- +15 SET IOAWM1=""
- +16 SET IOINHI=$CHAR(255)_"AB"
- +17 SET IOINLOW=$CHAR(255)_"AA"
- +18 SET IOUON=$CHAR(255)_"AC"
- +19 SET IOUOFF=$CHAR(255)_"AA"
- +20 SET IORVON=$CHAR(255)_"AE"
- +21 SET IORVOFF=$CHAR(255)_"AA"
- +22 SET IOINORM=$CHAR(255)_"AA"
- +23 SET IOSGR0=$CHAR(255)_"AA"
- +24 SET IORI=""
- +25 SET IOSTBM=""
- +26 SET IOIL=""
- +27 SET IODL=""
- +28 SET IOICH=""
- +29 SET IODCH=""
- +30 SET IOIRM1=""
- +31 SET IOIRM0=""
- +32 QUIT
- G3 ;C-DATATREE line drawing codes
- +1 SET IOG0=""
- +2 SET IOG1=""
- +3 SET IOBLC=$CHAR(192)
- +4 SET IOBRC=$CHAR(217)
- +5 SET IOTLC=$CHAR(218)
- +6 SET IOTRC=$CHAR(191)
- +7 SET IOHL=$CHAR(196)
- +8 SET IOVL=$CHAR(179)
- +9 SET IOLT=$CHAR(195)
- +10 SET IOTT=$CHAR(194)
- +11 SET IORT=$CHAR(180)
- +12 SET IOBT=$CHAR(193)
- +13 SET IOMT=$CHAR(197)
- +14 QUIT
