100	'August 18, 1985
110	'
120	'Short demonstration program to show the use of BDOS.ASM
130	'in conjunction with any of the versions of BYE that
140	'are set up as a CP/M RSX with extended BDOS calls for
150	'controlling the communications environment.
160	'
170	'Bill Bolton, Software Tools RCPM, Brisbane, Australia
180	'Phone +61-7-378-9530     1200/2400 bps
190	'
200	DEFINT A-Z
210	FUNC = 32:

	VALUE = 241:

	RESULT = 0
220	CALL BDOS(FUNC,VALUE,RESULT)	'<---- ask BYE if its there?
230	IF RESULT = 77 THEN

		PRINT "BYE337/501 present"

	ELSE

		PRINT "Can't find BYE"
240	IF (RESULT = 77) THEN

		FUNC = 65:

		VALUE = 0:

		RESULT = 0:

		CALL BDOS(FUNC,VALUE,RESULT):

		ONLINE = RESULT

	ELSE

		ONLINE = 1:

		PRINT "Simulating Carrier Detect"
250	IF (ONLINE = 0) THEN

		PRINT "Not On Line"

	ELSE

		PRINT "On Line"
260	END