Return to DIIS.m CVS log

Up to [Coherent Logic Development] / freem_fileman / USER

Restructure repository

    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