The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.
# $File: //depot/OurNet-BBSAgent/BBSAgent/firebird2/base.inc $ $Author: autrijus $
# $Revision: #3 $ $Change: 2217 $ $DateTime: 2001/10/27 06:03:10 $
# Contributed by Smartboy <kcwu@ck.tp.edu.tw>

Firebird2 Base

setv statustail °±¯d[
setv afterlogin qqqqqq

=login
wait µù¥U½Ð¿é¤J
send $[username]\n$[password]\n\n\n
send $[afterlogin]

goto main

=main
send \e[D\e[D\e[D\e[D\e[D\e[D
wait ¥D¿ï³æ
till $[statustail]