home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 3 Comm / 03-Comm.zip / roboos2b.zip / OS2-NEW.RS < prev    next >
Text File  |  1994-03-12  |  1KB  |  69 lines
  1. TITLE "OS/2 Shareware New files Scan"
  2.  
  3. ENDPARAMS
  4.  
  5.     TIMEOUT 120
  6.  
  7.     IF NOT CONNECTED GOTO NotOn
  8.  
  9. ;Keep a lookout for standard prompts
  10.  
  11.     WHEN "[Y,n,t,=]?" SEND "|"
  12.     WHEN "to continue" Send "|"
  13.     WHEN "No, Continous ]" Send "|"
  14.     WHEN "More [Y,n,=]?" SEND "|"
  15.     WHEN "Located 0 matches." GOTO NoNewFiles
  16.  
  17. ; Send a bunch of <CR> to get through the other prompts
  18. ; without modifications
  19.  
  20.     SEND "||"
  21.     WAITFOR "MAIN:" FAILURE HANGUP
  22.  
  23. ;Switch to File Area
  24.     MESSAGE "Changing to Files Area"
  25.     SEND "F"
  26.  
  27.     WAITFOR "FILE:"
  28.  
  29. ;Scan for new Files
  30.     MESSAGE "Newfile Scan Began"
  31.     SEND "N"
  32.  
  33. ;Open Capture File
  34.     MESSAGE "Capture file OS2SHARE.CAP opened"
  35.     CAPTURE "%ID%.Cap" OVERWRITE
  36. ;Start scan
  37.     CLEAR
  38.     WHEN "[Y,n,t,=]?" SEND "|"
  39.     SEND "|"
  40.     WAITFOR "FILE:"
  41. ; Close Capture File
  42.     Close
  43.     Message "Capture file closed"
  44.  
  45. ; Return To Opening Menu
  46.     Message "Returning to opening menu"
  47.     SEND "M"
  48.     WAITFOR "MAIN:"
  49.  
  50.      Message "Running Qedit to Remove More prompt
  51. ;     RUN "Q %ID%.CAP -E%ID%.MAC" KEYBOARD "{Esc}"
  52.      Message "Running Dir4Robo to sort file list"
  53.      RUN "DIR4ROBO %ID%.CAP"
  54.  
  55.  
  56.         EXIT 0
  57.  
  58. :NoNewFiles
  59.      MESSAGE "No new files on board"
  60. ; Return To Opening Menu
  61.      Send "M"
  62.     WAITFOR "MAIN:"
  63.      EXIT 0
  64.  
  65. :NotOn
  66.         Message "Make Sure SCript to Execute  After Log On"
  67.         Message "is Set in BBs systems"
  68.         Exit 1
  69.