home *** CD-ROM | disk | FTP | other *** search
/ RBBS in a Box Volume 1 #2 / RBBS_vol1_no2.iso / add2 / tm110_1.zip / OPUS.SCR < prev    next >
Text File  |  1989-04-06  |  2KB  |  74 lines
  1. ON = 1
  2. OFF = 0
  3.  
  4. AutoDownload = ON            ; set this to OFF if you don't need
  5.                              ;  Auto Download SEAlink, Telink and Modem7
  6.  
  7. when "Press ENTER to continue","^M"
  8. when "try again","q^M"       ; set response strings
  9.  
  10. name = "Winfred Hu"          ; put your name here
  11. count = 1
  12. repeat                       ; wait for log on prompt
  13.   waitfor "first name","processing mail",2
  14.   if not found
  15.     put "^C~^["              ; put ^C, Esc, Enter
  16.   endif
  17.   if found=2                 ; if BBS is processing mail
  18.     alarm "Processing mail"  ; then alarm, hangup and stop
  19.     hangup
  20.     stop
  21.   endif
  22.   if count=20                 ; quit if no response in 60 seconds
  23.      alarm "No response in 60 seconds"
  24.      hangup
  25.      stop
  26.   endif
  27.   count = count+1
  28. until found
  29. put name," y"                ; put name and confirm
  30.  
  31. repeat                       ; wait for password request
  32.   waitfor "password",2
  33.   if not found
  34.     put "^C"
  35.   endif
  36. until found
  37. put "^&"                     ; put password (defined in Dial window)
  38.  
  39. repeat                       ; wait for main menu
  40.   waitfor "main menu:",2
  41.   if not found
  42.     put "^C"
  43.   endif
  44. until found
  45. put "m"                      ; select message section
  46. waitfor "select",5
  47. put "="                      ; read messages
  48.  
  49. when "try again",""          ; cancel this WHEN statement
  50.  
  51.  
  52. if AutoDownload              ; if ON then wait for download prompt
  53.    while connected
  54.       waitfor "mode:  sealink","mode:  telink","mode:  modem7",15
  55.       if found
  56.          switch found
  57.             case 1: protocol="s"
  58.             case 2: protocol="t"
  59.             case 3: protocol="m"
  60.          endswitch
  61.          delay 20
  62.          receive protocol
  63.       endif
  64.    endwhile
  65. else
  66.    repeat                    ; wait until disconnected
  67.    until not connected       ; make use of WHEN "Press ENTER ..."
  68. endif
  69.  
  70. ; logon
  71. ; waitfor "NO CARRIER","thanks for calling","hang up now",0
  72. ; logoff
  73.  
  74.