IMPLICIT INTEGER*4 (A-Z)
	INTEGER*2 RIOSB(4),XIOSB(4)

	PARAMETER BUFSIZE=300		! BUFFER SIZE.
	BYTE RBUFFER(BUFSIZE),XBUFFER(BUFSIZE)

	PARAMETER UYK_REC_SIZE=1024	! SIZE OF UYK RECORD IN VAX WORDS.
	BYTE VAXBUF(4*UYK_REC_SIZE)	! VAXBUF IS A BYTE ARRAY THAT LARGE.

	LOGICAL   CHANCTRLC, INCMD
C
C	MODES FOR GET/SEND.
C
	PARAMETER SYSGEN=1, ASCII=2, LISTING=3, TECO=4
	INTEGER MODE
	PARAMETER IN=1, OUT=2
	INTEGER FLOW
C
C	THE FILENAME ON THE VAX.
C
	CHARACTER*50 VAXFILE
	INTEGER VSIZE
C
C	EXIT CONTROL BLOCK
C
	INTEGER EXIT_BLOCK(4)
C
	COMMON /BUFFERS/ RBUFFER,XBUFFER,P,C
	COMMON /SCALARS/ RIOSB,XIOSB,RB,XB,LCHANIN,RCHANIN,LCHANOUT,RCHANOUT
	COMMON /CANCEL/ CANL,CANR, EXIT_BLOCK, STATUS
	COMMON /FLAGS/ CHANCTRLC, INCMD
	COMMON /MODEFLAG/ MODE, FLOW, VSIZE, BCOUNT, LINNUM
	COMMON /FILE/ VAXFILE
	COMMON /BIN_MOVE/ BUFIDX, VAXBUF
C
	EXTERNAL IO$_READPBLK,IO$_WRITEPBLK,IO$_READLBLK,IO$_WRITELBLK
	EXTERNAL IO$_SETMODE,IO$M_CTRLCAST, IO$M_PURGE, IO$M_TIMED
	EXTERNAL IO$M_NOECHO,IO$M_TRMNOECHO
	EXTERNAL SS$_NORMAL, SS$_CANCEL, SS$_TIMEOUT
C