home *** CD-ROM | disk | FTP | other *** search
/ Crawly Crypt Collection 1 / crawlyvol1.bin / bbs / amail20 / welcome.dor < prev   
Text File  |  1992-12-22  |  1KB  |  75 lines
  1. if *O = 0 then account 5000
  2. FEXIST EXITINFO.BBS
  3. if *C = 1 then exit
  4. DEL EXITINFO.BBS
  5. if ╱25 ~ ON then goto amail_login
  6. send +-----------------------------------------------------------------------------+
  7. show message
  8. if ╱24 ~ ON THEN EXIT
  9. :back0
  10. if ╱21 ~ ON THEN SHOW NEWUSER0
  11. show logon
  12. if ╱26 ~ ON THEN GOTO mailchart
  13. :back1
  14. if ╱27 ~ ON THEN goto mailcheck
  15. :back2
  16. send
  17. prompt Do you wish to check for Fmail ? (y/N) 
  18. key
  19. if *CHR ~ N then goto end
  20. if *ASC = 13 THEN goto end
  21. write dorinfo1.def
  22. cd d:\qbbs\add_ons
  23. exec filemail.ttp QUICKSCAN
  24. :end
  25. send
  26. prompt Press a key..
  27. key
  28. exit
  29.  
  30. :mailchart
  31. cd d:\qbbs\add_ons
  32. write dorinfo1.def
  33. exec mailchrt.prg
  34. cd d:\qbbs\
  35. if *C = 1 then goto readm
  36. send
  37. send
  38. prompt Press [RETURN]..
  39. key
  40. goto back1
  41.  
  42. :readm
  43. readmarked
  44. goto back1
  45.  
  46. :mailcheck
  47. mailscan
  48. send
  49. prompt Do you wish to check for mail to ALL ? (y/N)
  50. key
  51. if *CHR ~ Y then goto allcheck
  52. goto back2
  53.  
  54. :allcheck
  55. mailscan ALL
  56. prompt Press [RETURN]..
  57. key
  58. goto back2
  59.  
  60. :amail_login
  61. FEXIST exitinfo.bbs
  62. if *C = 1 then goto al_back
  63. cd d:\amail
  64. menu 15 50
  65. exit
  66.  
  67. :al_back
  68. send
  69. prompt Do you want to logoff now ? (Y/n)
  70. key
  71. if *CHR ~ N then goto back0
  72. send
  73. send Goodbye!!
  74. menu 9
  75.