! Vadic 3451 script modified from Hayes by Belonis 
! (J.James Belonis II, MANAGER@gibbs.phys.washington.edu)
! 17-may-1990

        zero
        flush
        ifblind blindwake

wakemodem:
        count
        ifgtr   cantwake        4
        send                    \005\r
        timeout wakemodem       2000
        expect  dialnumber      *

cantwake:
        logerr  Can't wake modem
        failed

blindwake:
        count
        ifgtr   dialnumber      4
        send                    \005\r
        goto    blindwake

dialnumber:
        send                    D\r
        dial
        flush
        send                    \r
        sleep                   1000    ! not necessary
! confirm ok
        send                    \r
        timeout timeout         20000
        ifcarr  connected
        expect  connected       ogin:
        expect  connected       ONLINE
        expect  nocarrier       NO CARRIER
        expect  busy            BUSY

connected:
        log     Vadic dialed ok
        success

timeout:
        logerr  Timeout awtg response or carr after dial string
        failed

nocarrier:
        logerr  Modem reported NO CARRIER
        failed

busy:
        logerr  Modem reported BUSY
        failed