// NifTerm ログインスクリプト for CompuServe AP
// by mju:  PXE00507@niftyserve.or.jp

timeout 60

:login
:login_send00
    wait elapsed 4000
    send "\r"

    wait right == "e:��"
      or right == "e:"
      or elapsed 5000
    goto send_nifty

:login_send01
    wait right == "nter Connection-ID  --->"
      or right == "e:��" goto send_nifty
      or right == "e:" goto send_nifty
      or elapsed 10000 goto login_error

    end


:send_nifty
    send "NIFTY\r"
    wait right == "\r"
    goto login_send01

:login_error
    disconnect
    abort "ログインできません"


:logout
    wait right == "e:��"
      or right == "e:"
      or elapsed 10000 goto logout_error

    send "off\r"
    disconnect
    end

:logout_error
    disconnect
    abort ""