integer ids, p(6), CRE, WVB, iosb(2), i, n, j
	logical*1 name(16), pass(16), buf(100)
C
	common /cxxxxx/ desc
	integer desc
	external nmlast, intast, vaast
C
	data CRE/"12000/, WVB/"11000/
	data name/1hA,1hE,1hT,1hH,1hE,1hR,10*0/
	data pass/1hp,1ha,1hs,1hs,1hw,1ho,1hr,1hd,8*0/
C
	call asnlun(1, 2hVA, 0, ids)
	if (ids .le. 0) call error('Error assigning lun to VA0:')
	call getadr(p, name, pass, nmlast, intast, vaast)
	p(6) = 1		!  access aether if already created
	call wtqio(CRE, 1, 1,, iosb, p, ids)
	if (ids .le. 0) call error('Error issuing create qiow.')
	if (iosb(1) .lt. 0) call error('Error creating aether.')
	desc = iosb(2)
	call mark(2, 30000, 2)	! wait for 30000 seconds
	call stopfr(2)		! ...
	call exit
	end
C
C
C
	subroutine error(buf)
C
	logical*1 buf(1)
	integer i, n
C
	n = 1
1	continue
	if (buf(n) .eq. 0) goto 2
	n = n + 1
	goto 1
2	continue
	type 100, (buf(i), i=1,n)
100	format(1x,100a1)
	call exit
	end
C
C
C
	subroutine nmlast
C
	integer iosb(2), p(6), n, i, RVB
	logical*1 buf(100)
C
	common /cxxxxx/ desc
	integer desc
C
	data RVB/"10400/
C
	call getadr(p, desc, buf)
	p(1) = desc
	p(3) = 100
	call wtqio(RVB, 1, 1,, iosb, p, n)
	if (n.le.0.or.iosb(1).lt.0)
	1call error('Error reading message.')
	n = iosb(1)
	type 100, (buf(i),i=1,n)
100	format(1x,100a1)
	return
	end
C
C
C
	subroutine intast
C
	type 100
100	format(' Interrupt AST routine called.')
	return
	end