SUBROUTINE DIAL_NULL_MODEM
C
C	Null Modem
C
	INCLUDE 'COM.INC/NOLIST'

	MODEM_ONLINE = .TRUE.
	REMOTE = .TRUE.
	RETURN
	END