.rem tele-world—p
.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
.eof