'
' Sample head-to-head host initialization
'

PRINT "\r\nAir Warrior head-to-head host initialization...\r\n" 1 0

SEND_INIT 10 0

RECEIVE 10 "OK"
	ON 0 :INIT
	ERROR_GOTO :NOMODEM

:INIT

WAIT 2

SEND_AUTOANSWER 10 0

RECEIVE 10 "OK"
	ON 0 :DONE
	ERROR_GOTO :NOMODEM


:DONE
PRINT "\r\nHost initialization complete\r\n" 1 0
DONE


:NOMODEM

PRINT "\r\nModem is not responding!\r\n" 1 0
ERROR_END
