# $File: //depot/OurNet-BBSAgent/BBSAgent/ntu.bbs $ $Author: autrijus $
# $Revision: #2 $ $Change: 2829 $ $DateTime: 2002/01/10 14:54:36 $
# Contributed by Annies <Annies.bbs@cvic.org>
# zh_TW.Big5: ¥x¤j­p¤¤·¦ªL­·±¡¯¸

Taiwan University Computer Center
bbs.ntu.edu.tw

setv headansi 0;47;34m
setv headansiend 44;37m

=login
wait ¥N¸¹¡G
send $[username]\n
doif $[password]
    wait ±K½X¡G
    send $[password]\nn\n
endo
send \n\n\n\n

=main
send qqqqqqee
wait ¥D¥\¯àªí
till Pager

=logoff
call main
send q\n\n\n\n
exit

=board
call main
send s\n
wait ¦WºÙ
send $[board]\n$\x20\x20
wait ªO¥D¡G
wait ¤å  ³¹  ¼Ð  ÃD

=board_list_last
call board $[board]
send 1\n\x24h\x20 # 1, $, h, space
wait ªO¥D¡G
wait \x0d>
till /
exit

=board_article_fetch_first
call board $[board]
send $[article]\n\n
wait \e[2J
till \e[0;37;44m ÂsÄý
  or \e[37;44m ¤å³¹¿ïŪ
till ¨D§U
  or ¦^À³
wait ¡ö(q)\e[30mµ²§ô\x20\e[m
  or ·j´M§@ªÌ\x20\e[0m
exit

=board_article_fetch_next
send \x20
till \e[0;37;44m ÂsÄý
  or \e[37;44m ¤å³¹¿ïŪ
till ¨D§U
  or ¦^À³
wait ¡ö(q)\e[30mµ²§ô\x20\e[m
  or ·j´M§@ªÌ\x20\e[0m
exit

=board_article_fetch_last
send c
till ªO¥D¡G
exit