home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 3 Comm / 03-Comm.zip / roboos2b.zip / OS2-QWK.RS < prev    next >
Text File  |  1994-03-12  |  3KB  |  124 lines
  1. TITLE "OS2Shareware Get Qwk Packet"
  2.  
  3. PARAMETER 1 "Enter # of QWKs  to keep (1 to 9)"
  4. ENDPARAMS
  5.  
  6. ; Timeout may need to be increased if packet very large
  7.     TIMEOUT 150
  8.  
  9.     IF NOT CONNECTED GOTO NotOn
  10.  
  11. ;Get through Standard prompts
  12.     WHEN "to continue" Send "|"
  13.     WHEN "More [Y,n,=]?" SEND "|"
  14.     WHEN "MESSAGE:" SEND "M"
  15.  
  16. ; Send a bunch of <CR> to get through the other prompts
  17. ; without modifications
  18.  
  19.     SEND "||"
  20.     WAITFOR "MAIN:" FAILURE HANGUP
  21. ; Switch to Offline Reader
  22.     MESSAGE "Changing to Offline Reader Area"
  23.     SEND "O"
  24.     WAITFOR "READER:"
  25.  
  26. ;Start Download Procedure
  27.     MESSAGE "Requesting Mail Packet"
  28.     CLEAR
  29. ;Watch if no mail
  30.     WHEN "READER:"  GOTO NoMail
  31.     WHEN "to your SysOp."  GOTO NoMail1
  32. :Start Download procedure
  33.     SEND "D"
  34.     WAITFOR "QWK format [Y,n]?"
  35.     SEND "y"
  36.     Message "Yes Sent to Prepare Packages"
  37.     WAITFOR "<esc> to abort:" FAILURE GOTO BADTRY
  38.     SEND "|"
  39.     WAITFOR "times to cancel."
  40. ;Clear watches
  41.     CLEAR
  42.     WHEN "MESSAGE:" GOTO QuitAtMain
  43.  
  44. :Zstart
  45.  
  46. ; Rename Packets
  47.    Message "Renumbering QWK packets"
  48.     Send "|"
  49.  
  50.     IF EXIST "%QWKDIR%%ID%.QW9" ERASE "%QWKDIR%%ID%.QW9"
  51.     IF EXIST "%QWKDIR%%ID%.QW8" RENAME "%QWKDIR%%ID%.QW8" TO "%QWKDIR%%ID%.QW9"
  52.     IF EXIST "%QWKDIR%%ID%.QW7" RENAME "%QWKDIR%%ID%.QW7" TO "%QWKDIR%%ID%.QW8"
  53.     IF EXIST "%QWKDIR%%ID%.QW6" RENAME "%QWKDIR%%ID%.QW6" TO "%QWKDIR%%ID%.QW7"
  54.     IF EXIST "%QWKDIR%%ID%.QW5" RENAME "%QWKDIR%%ID%.QW5" TO "%QWKDIR%%ID%.QW6"
  55.     IF EXIST "%QWKDIR%%ID%.QW4" RENAME "%QWKDIR%%ID%.QW4" TO "%QWKDIR%%ID%.QW5"
  56.     IF EXIST "%QWKDIR%%ID%.QW3" RENAME "%QWKDIR%%ID%.QW3" TO "%QWKDIR%%ID%.QW4"
  57.     IF EXIST "%QWKDIR%%ID%.QW2" RENAME "%QWKDIR%%ID%.QW2" TO "%QWKDIR%%ID%.QW3"
  58.     IF EXIST "%QWKDIR%%ID%.QW1" RENAME "%QWKDIR%%ID%.QW1" TO "%QWKDIR%%ID%.QW2"
  59.     IF EXIST "%QWKDIR%%ID%.QWK" RENAME "%QWKDIR%%ID%.QWK" TO "%QWKDIR%%ID%.QW1"
  60.  
  61.  
  62. ;   IF NOT EMPTY "%P1%" GOTO RENUM1
  63. ;   IF EXIST "%QWKDIR%%ID%.QWK" RENUMBER "%QWKDIR%%ID%.QWK" 9
  64. ;   GOTO RENUM2
  65.   :RENUM1
  66. ;   IF EXIST "%QWKDIR%%ID%.QWK" RENUMBER "%QWKDIR%%ID%.QWK %P1%"
  67.   :RENUM2
  68.     DOWNLOAD "%QWKDIR%%ID%.QWK"  USING "%BBS22%"
  69.  
  70.     WAITFOR "MAIN:"
  71.  
  72. ; Placing New files scan and news into QWK packet
  73.     MESSAGE "Placing News and Newfiles in QWK packet"
  74.     IF EXIST "%ID%.CAP" COPY "%ID%.CAP" TO "NEWFILES.DAT"
  75.     IF EXIST "%QWKDIR%%ID%.QWK" RUN "PKZIP %QWKDIR%%ID%.QWK NEWS NEWFILES.DAT"
  76.     IF EXIST "NEWFILES.DAT" ERASE "NEWFILES.DAT"
  77.     IF EXIST "NEWS" ERASE "NEWS"
  78.  
  79.     MESSAGE "Ending Mail Routine"
  80.  
  81.     EXIT 0
  82.  
  83. :QuitAtMain
  84.     SEND "M"
  85.     WAITFOR "MAIN:"
  86.     MESSAGE "Ending Mail Routine"
  87.     EXIT 0
  88.  
  89. :NoMail
  90.     Message "No new Mail"
  91.     SEND "M"
  92.     Waitfor "MAIN:"
  93.     MESSAGE "Ending Mail Routine"
  94.     EXIT 0
  95.  
  96. :NoMail1
  97.     Message "Problem with Zip on Board"
  98.     SEND "|"
  99.     WAITFOR "READER:"
  100.     SEND "M"
  101.     Waitfor "MAIN:"
  102.     MESSAGE "Ending Mail Routine"
  103.     EXIT 0
  104.  
  105.  
  106. :BadTry
  107.     Message "File Transfer Failed"
  108.     SEND "||||"
  109.     WAITFOR "READER:"
  110.     SEND "M"
  111.     Waitfor "MAIN:"
  112.  
  113.     WHEN "[Y,n,?=help]?" SEND "|"
  114.     WHEN "[y,N,?=help]?" SEND "|"
  115.     MESSAGE "Logging Off"
  116.     SEND "G"
  117.     EXIT 1
  118.  
  119. :NotOn
  120.         Message "Make Sure SCript to Execute  After Log On"
  121.         Message "is Set in BBs systems"
  122.         Exit 1
  123.  
  124.