home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 3 Comm / 03-Comm.zip / roboos2b.zip / OS2-ON.RS < prev    next >
Text File  |  1994-03-11  |  1KB  |  69 lines
  1. TITLE "OS2Shareware BBS Log on"
  2.  
  3. ENDPARAMS
  4.  
  5.  
  6.     TIMEOUT 60
  7.  
  8. IF CONNECTED SEND "|||"
  9.  
  10. ;Get through standard prompts
  11.  
  12.     WHEN "to continue" Send "|"
  13.     WHEN "No, Continous ]" Send "|"
  14.     WHEN "More [Y,n,=]?" SEND "|"
  15.     WHEN " wait 20 seconds." SEND ""
  16.  
  17. ;Switch to expert mode
  18.  
  19.     WHEN "Select:" GOSUB MakeXpert
  20.  
  21. :   GoingON
  22.  
  23.     MESSAGE "Logging On to OS2Share BBS"
  24. ;Send your name, password
  25.     WAITFOR "is your name:" FAILURE GOTO BadLogOn
  26.     SEND "%BBS13%|"
  27.     WAITFOR "[Y,n]?" FAILURE HANGUP
  28.     SEND "y|"
  29.     WAITFOR "Password:" FAILURE GOTO BadLogOn
  30.     SEND "%BBS07%|"
  31.  
  32. ;Turn news file Capture on
  33.     MESSAGE "Capturing Bulletins"
  34.     CAPTURE "NEWS" OVERWRITE
  35.  
  36.     WAITFOR "mail? [Y,n]" FAILURE GOTO BadLogOn
  37.     SEND "N"
  38.     WAITFOR "files? [Y,n]" FAILURE GOTO BadLogOn
  39.     SEND "N"
  40.     WAITFOR "MAIN:" FAILURE GOTO BadLogOn
  41.     SEND "||"
  42. ;Close Capture File
  43.      MESSAGE "Ending Bulletin Capture"
  44.      CLOSE
  45. Exit 0
  46.  
  47. ; Logon Failed so Hangup
  48. :BadLogOn
  49.         Message "LogOn Failed"
  50.         Hangup
  51.         Exit 1
  52.  
  53.  
  54. ;Change prompts to expert mode
  55.  
  56. :MakeXpert
  57.     SEND "||"
  58.     WAITFOR "Select:"
  59.     SEND "C"
  60.     WAITFOR "Select:"
  61.     SEND "H"
  62.     WAITFOR "Help Level:"
  63.     SEND "E"
  64.     WAITFOR "CHANGE:
  65.     SEND "|"
  66.     WAITFOR "MAIN:"
  67.     SEND "|"
  68. RETURN
  69.