COMMENT ⊗   VALID 00002 PAGES
C REC  PAGE   DESCRIPTION
C00001 00001
C00002 00002	NIORTS←←-1	TELL MRC WE WANT I/O TOO
C00003 ENDMK
C⊗;
NIORTS←←-1	;TELL MRC WE WANT I/O TOO
CNTIMO←←<BYTE (6)1,30,77,10,5>		; Tell MRC how to set ICP timeouts
TNTIMO←←<BYTE (6)1,=15,77,10,77>	; Tell MRC how to set telnet timeouts
.INSERT NETWRK.FAI[S,NET]

	MOVEM T1,HOST
	MOVEM T2,ICPSKT
	PUSHJ P,CONECT		;connect to foreign host.  Does OPEN on IMP chan.
	 JRST HSTDED		;failed, remember we lost to this host
	 JRST HSTDED
;use channel NET

put char in AC 0
	PUSHJ P,NETOCH		;output char

	PUSHJ P,NETSND		;force out buffers

	PUSHJ P,NETICH		;read a char
got char in AC 0

	PUSHJ P,CLOSER		;close connection