! Command Definition File
! Created by Richard DeJordy, American Mathematical Society
!
DEFINE VERB SPACEDIR
	IMAGE SITE$SYSTEM:SPACEDIR
	PARAMETER P1
		LABEL=DEVICE
		PROMPT="Device"
		VALUE(REQUIRED, TYPE=$FILE)
	QUALIFIER OUTPUT
		LABEL=Output
		DEFAULT
		VALUE(DEFAULT=SYS$OUTPUT, TYPE=$FILE)
!
!