.rem tele-world用
.baud 1200
.dial 03-3393-3747
.dlst tew ""
.chk 20 "ID "
.put "GUEST\n"
.rem put "TEWxxxxx\n"
.rem chk 20 "Password "
.rem put "xxxx"
.mailr
.put "N@\n"
.chr 600 ?,G)> Message
.put "fN\n"
.chk 20 ([RET]:news)>
.put "\n"
.chk 600 ?,G)>
.put "l\n"
.chk 600 ?,G)>
.put "q\n"

.chk 600 "NO CARRIER\n:"
.dlend

.rem 清ねっと用
.pot 1
.dial 40-1071
.dlst kyo ""
.chk 20 "ID :"
.put "GUEST\n"
.rem put "kiyxxxxx\n"
.rem chk 20 "Password "
.rem put "xxxx"
.mailr
.put "talk\n"
.chk 20 TALK)
.put "N\n"
.nr 600 TALK "復帰します --" /l
.put "Q\n"
.chk 20 "\nMAIN>>"
.put "readnews -n\n"
.chr 600 "\nMAIN>>" Subject
.put "N -n\n"
.chr 600 "\nMAIN>>" Note

.put "off\n"

.chk 600 "NO CARRIER\n:"
.dlend
.eof