!*** MODULE $ERADEF ***
!DEC$ OPTIONS/ALIGN=(RECORDS=PACKED,COMMONS=PACKED)/NOWARN
 ! 
 ! 
 !  Define erase type codes.  The codes LODUMMY and HIDUMMY are
 !  used as placeholders, to make the definition of the upper and
 !  lower bound erase type symbols automatic.  New erase type codes
 !  should be added at the end of the list, but before HIDUMMY.
 ! 
 ! 
	PARAMETER ERA$K_LODUMMY = '00000000'X	 !  
	PARAMETER ERA$K_MEMORY = '00000001'X	 !  Erase main memory
	PARAMETER ERA$K_DISK = '00000002'X	 !  Erase disk mass storage
	PARAMETER ERA$K_TAPE = '00000003'X	 !  Erase magnetic tape mass storage
	PARAMETER ERA$K_HIDUMMY = '00000004'X	 ! 
	PARAMETER ERA$K_MINTYPE = '00000001'X	 !  Lower bound of erase type codes
	PARAMETER ERA$K_MAXTYPE = '00000003'X	 !  Upper bound of erase type codes
!DEC$ END OPTIONS