home *** CD-ROM | disk | FTP | other *** search
/ DP Tool Club 8 / CDASC08.ISO / VRAC / WCLAW893.ZIP / WCLAWNET.SCR < prev   
Encoding:
Text File  |  1993-08-26  |  3.1 KB  |  108 lines
  1. ;
  2. ;
  3. ;                 <<<<<    WCLAWNET QMODEM SCRIPT    >>>>>
  4. ;
  5. ;
  6. ;     ****  Script to Download Mail using TNET/QModem combination.  ****
  7. ;
  8. ;
  9. ;  NOTE:  This script uses the directory C:\MAILBOX\ as the .QWK
  10. ;         destination directory and .REP source directory during 
  11. ;         the packet transfers.  If your PATH\DIRECTORY is different
  12. ;         you will have to edit this script accordingly
  13. ;
  14. ;
  15. TurnON   8_BIT
  16. TurnOFF  LINEFEED
  17. TurnOFF  XON/XOFF
  18. TurnON   NOISE
  19. TurnON   SCROLL
  20. TurnOFF  PRINT
  21. TurnOFF  SPLIT
  22. TurnON   STATUSLN
  23. TurnOFF  DOORWAY
  24.  
  25. TIMEOUT 120 ERROREND ; Set Waitfor for 120 seconds
  26.  
  27. LOG C:\WC30\LOGS\MAILRUN.LOG  ; Tells QModem to LOG all activity
  28.  
  29. SEND "ATZ^M" ; Sends RESET string to Modem
  30.  
  31. WAITFOR "OK"
  32.  
  33. Dial "TWCLAWNET" ; Dials the entry named "WCLAWNET" in the phone directory.
  34.                  ; Place WCLAWNET and 1-510-799-2921 in your dialing
  35.                  ; directory.  The HUB supports up to 14400 baud.
  36.  
  37. Waitfor "CONNECT"
  38.  
  39. WAITFOR "name?"
  40. DELAY   20
  41. SEND    "!BBS NAME PASSWORD^M"   ; Sends First & Last name and password.
  42.                                  ; Enter your net name and pw here. Be
  43.                                  ; sure you already have an account as a
  44.                                  ; Network Sysop on the hub you are calling.
  45.  
  46. EXIST C:\MAILBOX\CTOBBS.REP DL/UL    ; If.REP packet exists go to DL/UL.
  47.                                      ; If not, continue.
  48.  
  49. DL:             ; Routine for Downloading the QWK packet with incoming mail
  50. Waitfor  ":"    ; when there is no REP packet with outgoing mail.
  51. Delay    100
  52. Send     "D"
  53.  
  54. If "messages found: $0" = "messages found: 0" GOODBYE
  55.  
  56. WHEN "download!" END
  57. Waitfor  "done"
  58. Delay    100
  59. Send     "G"
  60. Delay    2000
  61. Download Z C:\MAILBOX\   ; Change to where you want the .QWK sent
  62.  
  63. Waitfor  "before disconnect: 10^H^H10^H^H 9^H^H 8"
  64. Delay    10
  65. Send     "H"
  66. SYSTEM Y
  67.  
  68. DL/UL:                  ; Routine for Downloading the QWK packet with
  69. Waitfor  ":"            ; incoming mail with a subsequent REP packet 
  70. Delay    100            ; outgoing mail upload.
  71. Send     "D"
  72.  
  73. WHEN "download!" UL
  74. Waitfor  "done"
  75. Delay    100
  76. Send     "Y"
  77. Delay    2000
  78. Download Z C:\MAILBOX\       ; Change to where you want the .QWK sent
  79.  
  80. UL:
  81. Waitfor  ":"
  82. Delay    100
  83. Send     "U"
  84. Delay    100
  85. UPLOAD  Z C:\MAILBOX\CTOBBS.REP         ; .REP name to UpLoad
  86. DOS    "DEL C:\MAILBOX\CTOBBS.REP"      ; .REP name to DELete
  87.  
  88. Waitfor  "before disconnect: 10^H^H10^H^H 9^H^H 8"
  89. Delay    10
  90. Send     "H"
  91. SYSTEM Y
  92.  
  93. GOODBYE:              ; Routine for logging off quickly if there are no
  94. Waitfor  "[Q]uit"     ; new messages (will not download useless packet
  95. Send  "G"             ; with the BBS opening and closing screens only).
  96. SYSTEM Y
  97.  
  98. END:                  ; Normal routine for shutting down the QModem and
  99. Waitfor  "Q]:"        ; returning to TNET.
  100. Delay 100
  101. Send  "G"
  102.  
  103. ERROREND:             ; Fault routine to shut down the QModem if something
  104. Send "ATH"            ; happens during the session that causes the HUB to
  105. Turnoff Capture       ; lockup or the connection gets disturbed.
  106. Turnoff LOG
  107. SYSTEM Y
  108.