home *** CD-ROM | disk | FTP | other *** search
/ The World of Computer Software / World_Of_Computer_Software-02-385-Vol-1of3.iso / q / qscripts.zip / QMAILPCB.SCR < prev    next >
Text File  |  1992-04-16  |  2KB  |  78 lines
  1. ;
  2. ;  QMAILPCB.SCR
  3. ;  Qmodem 4.5/5.01 script for PCBoards using QMail 4.
  4. ;  Script edited on 04/02/92
  5. ;
  6. Graphics ANSI
  7. TurnON   8_BIT
  8. TurnOFF  LINEFEED
  9. TurnOFF  XON/XOFF
  10. TurnOFF  NOISE
  11. TurnOFF  MUSIC
  12. TurnON   SCROLL
  13. TurnOFF  PRINT
  14. TurnOFF  ECHO
  15. TurnOFF  SPLIT
  16. TurnOFF  BS_DEL
  17. WHEN
  18. TimeOut  30  OUT
  19.  
  20. When     "(Enter)=no"  "N Q NS^M"
  21. WHEN     "(Enter)==>NO?"   "^M"
  22.  
  23. Waitfor  "first name?"
  24. Delay    5
  25. Send     "Xxxxx Xxxxxx^M"
  26.  
  27. Waitfor  "(Dots will echo)?"
  28. Delay    5
  29. FKey     12  ;Ensure your password is in the dialing directory entry for
  30.              ;each board, and that your F12 is defined as $PASSWORD^M
  31.  
  32. WHEN
  33. WHEN  "More?"                         "n^M"
  34. WHEN  "(Enter)?"                      "^M"
  35. WHEN  "Press any key to continue..."  "^M"
  36. WHEN  "Press (Enter) to continue"     "^M"
  37. WHEN  "'Last Read' (Enter)=yes"       "n^M"
  38. WHEN  "NO CARRIER"                    GONZO
  39.  
  40. Waitfor  "Main Board Command"
  41. Delay    5
  42. Send     "open XX^M"
  43.  
  44. Timeout  800  FINISH
  45.  
  46. Waitfor  "Qmail Command"
  47. Delay    5
  48. Exist    C:\Qmodem\Upload\<BBSName>.REP  NEXT
  49. GOTO     CONTINUE
  50. NEXT:
  51. Send     "U^M"
  52. Delay    1000
  53. Upload Z C:\Qmodem\Upload\<BBSName>.REP
  54.  
  55. Waitfor  "Qmail Command"
  56. CONTINUE:
  57. Delay    5
  58. Send     "D;Y;G^M"
  59. When     "<REPEAT>" DLAGAIN
  60. DLAGAIN:
  61. Waitfor  "<DOWNLOAD>"
  62. DOWNLOAD Z C:\Qmodem\Download\<BBSName>.QW*
  63. GOTO FINISH
  64.  
  65. LOGOFF:
  66. Delay 3000
  67. Send     "G^M"
  68.  
  69. FINISH:
  70. Waitfor  "NO CARRIER"
  71. GONZO:
  72. Return
  73.  
  74. OUT:
  75. HANGUP
  76. Waitfor  "NO CARRIER"
  77. Return
  78.