C      *******************************************************
C      *                                                     *
C      *      THIS SOFTWARE WAS DEVELOPED WITH SUPPORT       *
C      *      FROM THE NATIONAL INSTITUTES OF HEALTH:        *
C      *         NIH CA06927                                 *
C      *         NIH CA22780                                 *
C      *                                                     *
C      *      DIRECT INQUIRIES TO:                           *
C      *            COMPUTER CENTER                          *
C      *            THE INSTITUTE FOR CANCER RESEARCH        *
C      *            7701 BURHOLME AVENUE                     *
C      *            PHILADELPHIA, PENNSYLVANIA   19111       *
C      *                                                     *
C      *      NO WARRANTY OR REPRESENTATION, EXPRESS OR      *
C      *      IMPLIED, IS MADE WITH RESPECT TO THE           *
C      *      CORRECTNESS, COMPLETENESS, OR USEFULNESS       *
C      *      OF THIS SOFTWARE, NOR THAT USE OF THIS         *
C      *      SOFTWARE MIGHT NOT INFRINGE PRIVATELY          *
C      *      OWNED RIGHTS.                                  *
C      *                                                     *
C      *      NO LIABILITY IS ASSUMED WITH RESPECT TO        *
C      *      THE USE OF, OR FOR DAMAGES RESULTING FROM      *
C      *      THE USE OF THIS SOFTWARE                       *
C      *                                                     *
C      *******************************************************
C      *                                                     *
C      *      THIS SOFTWARE WAS DESIGNED FOR USE ON A        *
C      *      PDP-11/70 OPERATING UNDER IAS V2.0 USING       *
C      *      THE FORTRAN-IV PLUS COMPILER.                  *
C      *                                                     *
C      *******************************************************
C
C	EXPRESS FUNCTIONS
C
      PARAMETER IOKIL="12  
      PARAMETER IORDN="22  
      PARAMETER IOUNL="42  
      PARAMETER IOSET="30
C
C	NORMAL FUNCTIONS
C
      PARAMETER IOWLB="400 
      PARAMETER IORLB="1000
      PARAMETER IOATT="1400
      PARAMETER IODET="2000
C
C	DIRECTORY PRIMITIVE CODES
C
      PARAMETER IOFNA="4400
      PARAMETER IORNA="5400
      PARAMETER IOENA="6000
C
C	FILE PRIMITIVE CODES
C
      PARAMETER IOCLN="3400
      PARAMETER IOULK="5000
      PARAMETER IOACR="6400
      PARAMETER IOACW="7000
      PARAMETER IOACE="7400
      PARAMETER IODAC="10000
      PARAMETER IORVB="10400
      PARAMETER IOWVB="11000
      PARAMETER IOEXT="11400
      PARAMETER IOCRE="12000
      PARAMETER IODEL="12400
      PARAMETER IORAT="13000
      PARAMETER IOWAT="13400
      PARAMETER IOABV="14010
      PARAMETER IOAPC="14000
C
C	DEVICE DEPENDENT FUNCTIONS
C
      PARAMETER IOWAL="410                                              TTY  
      PARAMETER IOWMS="420                                              TTY  
      PARAMETER IOCCO="440                                              TTY  
      PARAMETER IOWBT="500                                              TTY  
      PARAMETER IORST="1001                                             TTY  
      PARAMETER IORAL="1010                                             TTY  
      PARAMETER IORNE="1020                                             TTY  
      PARAMETER IORNC="1040                                             TTY  
      PARAMETER IORTM="1200                                             TTY  
      PARAMETER IOATA="1410                                             TTY  
      PARAMETER IOGTS="2400                                             TTY  
      PARAMETER IORPR="4400                                             TTY  
      PARAMETER IOHNG="3000                                             TTY(RM)
      PARAMETER IOGLI="16420						!NET
      PARAMETER IOGRI="16440						!NET
      PARAMETER IORDB="1200                                             CR   
      PARAMETER IORWD="2400                                             MT/MM 
      PARAMETER IOSPB="2420                                             MT/MM 
      PARAMETER IOSPF="2440                                             MT/MM 
      PARAMETER IOSTC="2500                                             MT/MM 
      PARAMETER IOSEC="2520                                             MT/MM 
      PARAMETER IORWU="2540                                             MT/MM 
      PARAMETER IOSMO="2560                                             MT/MM 
      PARAMETER IOEOF="3000                                             MT/MM 
C
C	ERROR CODES FOR DSW
C
      PARAMETER IEULN=-5  
      PARAMETER IEHWR=-6  
C
C	ERROR CODES FOR IOSB
C
      PARAMETER IEBAD=-1  
      PARAMETER IEIFC=-2  
      PARAMETER IEDNR=-3  
      PARAMETER IEVER=-4  
      PARAMETER IEONP=-5  
      PARAMETER IESPC=-6  
      PARAMETER IEDNA=-7  
      PARAMETER IEDAA=-8  
      PARAMETER IEDUN=-9  
      PARAMETER IEEOF=-10 
      PARAMETER IEEOV=-11 
      PARAMETER IEWLK=-12 
      PARAMETER IEDAO=-13 
      PARAMETER IESRE=-14 
      PARAMETER IEABO=-15 
      PARAMETER IEPRI=-16 
      PARAMETER IERSU=-17 
      PARAMETER IEOVR=-18 
      PARAMETER IEBYT=-19 
      PARAMETER IEBLK=-20 
      PARAMETER IEMOD=-21 
      PARAMETER IECON=-22 
      PARAMETER IEBBE=-56 
      PARAMETER IESTK=-58 
      PARAMETER IEFHE=-59 
      PARAMETER IEEOT=-62 
      PARAMETER IEOFL=-65 
      PARAMETER IEBCC=-66 
      PARAMETER IECNR=-73
C
C	SUCCESS CODES
C
      PARAMETER ISPND="0   
      PARAMETER ISSUC="1   
C
C	DEVICE DEPENDENT SUCCESS CODES.
C
      PARAMETER ISCR ="6401                                             TTY  
      PARAMETER ISESC="15401                                            TTY  
      PARAMETER ISCC ="1401                                             TTY  
      PARAMETER ISESQ="115401                                           TTY  
      PARAMETER ISPES="100001                                           TTY
      PARAMETER ISEOT="2001                                             TTY  
      PARAMETER ISTAB="4401                                             TTY  
      PARAMETER ISTMO="2                                                TTY