
C	THIS TASK WILL RECEIVED THE REFERENCE SENT BY TASK A, PRINT THE
C	MESSAGE ON THE ISSUING TERMINAL, AND THEN EXIT. NOTE THAT THIS
C	TASK MUST BE INSTALLED WHEN TASK A IS RUN IN ORDER THAT THE EXECUTIVE
C	WILL QUEUE THE SEND BY REFERENCE.
C	TASK BUILDING INSTRUCTIONS ARE:
C		TKB>TASKB=TASKB<C.R.>
C		TKB>/<C.R.>
C		ENTER OPTIONS:
C		TKB>WNDWS=1			!ALLOCATE WINDOW SPACE
C		TKB>VSECT=IPLAS:160000:100	!NOTE:NO PHYSICAL SIZE PARAMTER
C		TKB>TASK=TASKB
C		TKB>/<C.R.>
	COMMON /IPLAS/ IPLAS(32)		
C	ALLOCATE SPACE FOR WDB
	DIMENSION IWDB(11)
C	DEFINE WDB TO USE APR7, WINDOW SIZE 32. WORDS (100 OCTAL BYTES).
C	WINDOW STATUS QORD IS WS.64B (400)
	DATA IWDB/"3400,0,1,0,0,0,"400,0,0,0,0/
C	DEFINE WINDOW STATUS FOR MAP OPTION, TO BE USED AFTER WINDOW IS
C	CREATED.
	DATA IWSTS/"200/
C	CREATE ADDRESS WINDOW. THIS STEP IS NECESSARY SO THAT THE WINDOW CAN BE
C	AUTOMATICALLY MAPPED WHENTHE REFERENCE IS RECEIVED.
	CALL CRAW(IWDB,IDS)
C	SET WINDOW STATUS TO MAP WHEN REFERENCE IS RECEIVED
	IWDB(7)=IWSTS
C	NOW ISSUE RECEIVE BY REFERENCE
	CALL RREF (IWDB,,IDS)
C	TEST FOR SUCCESS. IF NOT SUCCESSFUL,SEE IF REFERENCE RECEIVED.
	IF (IDS-1) 10,30,10
C	DIRECTIVE STATUS OF -8. MEANS NO REFERENCE WAS RECEIVED
10	IF (IDS+8)100,20,100
20	WRITE(5,25)
25	FORMAT (' NO REFERENCE TO RECEIVE')
100	CALL EXIT
C	SUCCESS. PRINT OUT MESSAGE.
30	WRITE (5,35) (IPLAS(I),I=1,14)
35	FORMAT (' ',14A2)
C	DETACH REGION
	CALL DTRG(IWDB(4))
	GO TO 100
	END
