;
;Auto-BERT test. This is a sub-script to allow the callers single
;argument to be parsed into seperate substrings via the macro
;expander.
;
;	&a= "B 100:00 60"	;100:00 duration 60 min. log
;	call bert &a		;from this call expands to...
;
;	"B" "100:0" "60"
;So that we can get at the component strings (we ain't got no
;pointers in this here script language.)
;
;----------------------------------------------------------------
;         &1   &2    &3
;	"B" "100:0" "60"
;
	&s= &1			;start correct test
	if "B" bidir		;Bidir -- start bidir
	if "T" recv		;Transmit -- start receive
	if "R" transmit		;Receive -- start transmit
;
;If "L" (loopback), or garbage, abort now. It is useless for the
;remote user to invoke loopback.
;
	message "FidoTerm Auto-BERT error"
	output "\030\030\030\030\030\030\030\030\030\030"
	quiet 100			;wait til it stops!
	return 1

bidir:	fidoterm "T L &2 &3"		;execute BERT loopback
	return				;return to host script

recv:	fidoterm "T R &2 &3"
	return

transmit:
	delay 2000			;some quiet, quality time
	fidoterm "T T &2 &3\r"
	return