if *O = 0 then account 5000
FEXIST EXITINFO.BBS
if *C = 1 then exit
DEL EXITINFO.BBS
if 25 ~ ON then goto amail_login
send +-----------------------------------------------------------------------------+
show message
if 24 ~ ON THEN EXIT
:back0
if 21 ~ ON THEN SHOW NEWUSER0
show logon
if 26 ~ ON THEN GOTO mailchart
:back1
if 27 ~ ON THEN goto mailcheck
:back2
send
prompt Do you wish to check for Fmail ? (y/N) 
key
if *CHR ~ N then goto end
if *ASC = 13 THEN goto end
write dorinfo1.def
cd d:\qbbs\add_ons
exec filemail.ttp QUICKSCAN
:end
send
prompt Press a key..
key
exit

:mailchart
cd d:\qbbs\add_ons
write dorinfo1.def
exec mailchrt.prg
cd d:\qbbs\
if *C = 1 then goto readm
send
send
prompt Press [RETURN]..
key
goto back1

:readm
readmarked
goto back1

:mailcheck
mailscan
send
prompt Do you wish to check for mail to ALL ? (y/N)
key
if *CHR ~ Y then goto allcheck
goto back2

:allcheck
mailscan ALL
prompt Press [RETURN]..
key
goto back2

:amail_login
FEXIST exitinfo.bbs
if *C = 1 then goto al_back
cd d:\amail
menu 15 50
exit

:al_back
send
prompt Do you want to logoff now ? (Y/n)
key
if *CHR ~ N then goto back0
send
send Goodbye!!
menu 9