subroutine lib$get_lun(lun)
	integer lun
	lun=33
	end

	subroutine lib$free_lun(lun)
	integer lun
	end