define verb BYDISK
!	image "BAT$SYSTEM:BYDISK"
	image "SYS$DISK:[]BYDISK"
	parameter P1
		prompt="Command"
		value (required)
	qualifier DISK
                nonnegatable,
		value(required)
 	qualifier INTERACTIVE
                negatable
	qualifier BATCH
		negatable