Return to %ZIS.m CVS log

Up to [Coherent Logic Development] / freem_fileman

Annotation of freem_fileman/%ZIS.m, revision 1.1

1.1     ! snw         1: DIIS   ;SFISC/GFT-DELETE THIS LINE AND SAVE AS '%ZIS' IF YOU DON'T HAVE A '%ZIS' ROUTINE ;11:04 AM  18 Aug 1994
        !             2:        ;;21.0;VA FileMan;;Dec 28, 1994
        !             3:        ;Per VHA Directive 10-93-142, this routine should not be modified.
        !             4: %ZIS   ;
        !             5:        I $D(IOP)#2 S IO=$I G PARAMS
        !             6:        S IO=$I ;READ "DEVICE: ",IO ;INSERT DEVICE SELECTION HERE
        !             7: PARAMS S IOM=80,IOSL=24,IOF="#",IOPAR="",POP=0,ION=$P(IO,";"),IOT="TRM"
        !             8:        ;
        !             9:        ; DIISS uses the variable IOST to determine what to set the screen
        !            10:        ; handling variables to.  (See routine DIISS.)  DIISS currently
        !            11:        ; looks for values of IOST equal to C-VT220 and C-VT320.  If it
        !            12:        ; equals anything else, the IO variables default to the codes for
        !            13:        ; C-VT100 terminals.
        !            14:        ;
        !            15:        ; The variable IOXY contains the code to position the cursor at
        !            16:        ; column position DX and row position DY.  Unmodified, this
        !            17:        ; routine sets IOXY to the code for VT100, VT220, and VT320
        !            18:        ; terminals.
        !            19:        ;
        !            20:        S IOST="C-VT100"
        !            21:        S IOXY="W $C(27,91)_(DY+1)_$C(59)_(DX+1)_$C(72)"
        !            22:        Q