home *** CD-ROM | disk | FTP | other *** search
/ Crawly Crypt Collection 1 / crawlyvol1.bin / bbs / hqwk52dm / hqwk52 / examples / welcome.dor < prev   
Text File  |  1994-02-26  |  528b  |  42 lines
  1. SEND
  2. PROMPT                     Checking for waiting QWK mail ...
  3.  
  4. WRITE DORINFO1.DEF
  5. CD G:\QWK\
  6. EXEC HQWKDOOR.PRG
  7. SEND
  8. FEXIST HQWK.DLD
  9.  
  10. if *C = 1 THEN GOTO QEXIT
  11.  
  12. :NORMAL
  13. SEND   Press [Space] to abort mail scan
  14. MENU 22
  15. SEND
  16. EXIT
  17.  
  18. :QEXIT
  19.  
  20. SEND
  21. SEND
  22. PROMPT Do you wish to Logoff now ? y/N >
  23.  
  24. KEY
  25.  
  26. SEND *CHR
  27.  
  28. IF *CHR = Y THEN GOTO BYE
  29. IF *CHR = y THEN GOTO BYE
  30.  
  31. SEND Super ! - Welcome to the main board.
  32.  
  33. EXIT
  34.  
  35. :BYE
  36.  
  37. SEND Okay, see yah next time !
  38.  
  39. LOG Quick Logoff after QWK Mail
  40.  
  41. MENU 9
  42.