#       nifty-serve auto pilot script for kermit by M.Ito
#
# initialize command for modem
define initcmd ATZ
#
# dial command for modem
define callcmd ATS30=3DP
#
# dial number
define dialnum 06-***-****
#
# escape char for kermit
define DEL 127
#
# id number
define id NIFTY-ID
#
# password
define password NIFTY-PASSWORD
#
# macro command to wait prompt
define waitprompt input 3 \13, while success {input 3 \13}
#
# dial macro with redialing
define calltel define \%a 0,-
               while success {,-
                  increment \%a,-
                  xif = \%a 10 {define \%a 0},-
                  hangup,-
                  pause 2,-
                  clear input,-
                  output \%1\%a\13,-
                  input 30 BUSY,-
               }
#
# dial section
output \m(initcmd)\13
input 5 OK
if failure goto exit
#
# dial to host
calltel \m(callcmd)\m(dialnum)
#
# login section
waitprompt
if failure goto exit
output C NIF\13
#
input 5 >
if failure goto exit
output SVC\13
#
input 5 >
if failure goto exit
output \m(id)\13
#
input 5 >
if failure goto exit
output \m(password)\13
#
# auto pilot section
waitprompt
log session niflog
#
waitprompt
output go funix\13
output 3\13
output mre\13
output \13
#
# FOS9 Forever (;_;)/~~~
waitprompt
output go fos9\13
output 3\13
output mre\13
output \13
#
waitprompt
output go fsharp\13
output 3\13
output mre\13
output \13
#
output bye\13
#
# このOFFは効かない(^^;ので、モデムの無通信切断時間を30秒
# 程度に設定しておいた方が電話代が無駄にならなくて良いで
# しょう(^^;;
output OFF\13
#
connect
#
# disconnect section
#
:exit