home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / PROGRAMS / UTILS / COMMUNIC / TM211_1.ZIP / QBBS-A.SCR < prev    next >
Encoding:
Text File  |  1990-05-25  |  1.9 KB  |  76 lines
  1. ;
  2. ; QBBS-A.SCR, this is an advance version of QBBS.SCR
  3. ;
  4. ; It bypasses the 'Press [Enter] to continue' prompt and
  5. ; perform SEAlink auto download
  6. ;
  7.  
  8. ON = 1
  9. OFF = 0
  10.  
  11. AutoDownload = ON            ; set this to OFF if you 
  12.                              ;  don't need Auto Download SEAlink
  13.  
  14. when "Press [Enter]","~^M"   ; set response strings
  15. when "Press <Enter>","~^M"
  16.  
  17. name="first last"            ; put your name here
  18. count = 1
  19. repeat                       ; wait for log on prompt
  20.   waitfor "last name?","processing mail",2
  21.   if not found
  22.     put "^[~S"
  23.   endif
  24.   if found=2                 ; if BBS is processing mail
  25.     alarm "Processing mail"  ; then alarm, hangup and stop
  26.     hangup
  27.     stop
  28.   endif
  29.   if count=20                ; quit if no response in 60 seconds
  30.      alarm "No response in 60 seconds"
  31.      hangup
  32.      stop
  33.   endif
  34.   count = count+1
  35. until found
  36. put name,"^M",               ; put name
  37.  
  38. repeat                       ; wait for password request
  39.   waitfor "password",5
  40.   if not found
  41.     put
  42.   endif
  43. until found
  44. put "^&"                     ; put password (defined in Dial window)
  45.  
  46. delay 10                     ; try going to main menu
  47. put "S"
  48. waitfor "Sorry, no new mail to you.",5
  49. put
  50.  
  51. if AutoDownload              ; if ON then wait for download prompt
  52.    while connected           
  53.       waitfor "protocol:",15
  54.       if found
  55.          waitfor "sealink",5
  56.          if found
  57.             waitfor "send","last chance",5
  58.             if found
  59.                if found=2    ; test for FileDoor
  60.                   put "~^M",
  61.                   waitfor "receiving",5
  62.                endif 
  63.             endif
  64.             if found
  65.                delay 20
  66.                receive "s" ; receive SEAlink
  67.             endif
  68.          endif
  69.       endif
  70.    endwhile
  71. else
  72.    repeat                    ; wait until disconnected
  73.    until not connected       ; make use of the WHEN "Press ..."
  74. endif
  75.  
  76.