home *** CD-ROM | disk | FTP | other *** search
/ PC Online 1998 September / PCO_0998.ISO / filesbbs / dos / sbbs230b.exe / EXEC.LZH / SBBSQNET.RS < prev    next >
Encoding:
Text File  |  1993-06-02  |  1.2 KB  |  37 lines
  1. ; Synchronet QWK Network Robocom Script
  2. ;
  3. ; User account must have 'Q' restriction on host system
  4. ;
  5. ; If path to Synchronet data dir is incorrect, change it
  6.  
  7. TITLE "Synchronet QWK Network Packet Exchange"
  8.  
  9. WHEN "Hit a key" SEND "^M"                      ; if pause, hit enter
  10. WHEN "No new messages" GOTO END            ; if no new messages
  11.  
  12. WAITFOR "NN:" FAILURE GOTO END                  ; wait for NN: prompt
  13. SEND "%BBS13%^M"                                ; send login name
  14. WAITFOR "PW:" FAILURE GOTO END                  ; wait for PW: prompt
  15. SEND "%BBS7%^M"                                 ; send password
  16. IF NOT EXIST "%REPDIR%%ID%.REP" GOTO DOWNLOAD
  17. WAITFOR "QWK: " FAILURE GOTO END                ; QWK prompt
  18. SEND "U"                                        ; Upload
  19. WAITFOR "Protocol" FAILURE GOTO END
  20. SEND "ZN"                    ; Zmodem, don't hang up
  21. UPLOAD "%REPDIR%%ID%.REP"
  22. ERASE "%REPDIR%%ID%.REP"
  23. :DOWNLOAD
  24. WAITFOR "QWK: " FAILURE GOTO END                ; QWK prompt
  25. SEND "DL"                                          ; Download, leave codes in
  26. TIMEOUT 300
  27. WAITFOR "Protocol" FAILURE GOTO END
  28. SEND "ZN"                    ; Zmodem, don't hang up
  29. DOWNLOAD "%QWKDIR%%ID%.QWK"
  30.  
  31. :END
  32. SEND "Q"                                        ; Logoff
  33. DELAY 5
  34. HANGUP
  35. EXIT
  36.  
  37.