home *** CD-ROM | disk | FTP | other *** search
/ norge.freeshell.org (192.94.73.8) / 192.94.73.8.tar / 192.94.73.8 / pub / computers / pcjr / comm / TELMT2-1.LZH / QBBS-A.SCR < prev    next >
Text File  |  1989-12-22  |  2KB  |  69 lines
  1. ON = 1
  2. OFF = 0
  3.  
  4. AutoDownload = ON            ; set this to OFF if you 
  5.                              ;  don't need Auto Download SEAlink
  6.  
  7. when "Press [Enter]","~^M"   ; set response strings
  8. when "Press <Enter>","~^M"
  9.  
  10. name="Winfred Hu"            ; put your name here
  11. count = 1
  12. repeat                       ; wait for log on prompt
  13.   waitfor "last name?","processing mail",2
  14.   if not found
  15.     put "^[~S"
  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,"^M",               ; put name
  30.  
  31. repeat                       ; wait for password request
  32.   waitfor "password",5
  33.   if not found
  34.     put
  35.   endif
  36. until found
  37. put "^&"                     ; put password (defined in Dial window)
  38.  
  39. delay 10                     ; try going to main menu
  40. put "S"
  41. waitfor "Sorry, no new mail to you.",5
  42. put
  43.  
  44. if AutoDownload              ; if ON then wait for download prompt
  45.    while connected           
  46.       waitfor "protocol:",15
  47.       if found
  48.          waitfor "sealink",5
  49.          if found
  50.             waitfor "send","last chance",5
  51.             if found
  52.                if found=2    ; test for FileDoor
  53.                   put "~^M",
  54.                   waitfor "receiving",5
  55.                endif 
  56.             endif
  57.             if found
  58.                delay 20
  59.                receive "s" ; receive SEAlink
  60.             endif
  61.          endif
  62.       endif
  63.    endwhile
  64. else
  65.    repeat                    ; wait until disconnected
  66.    until not connected       ; make use of the WHEN "Press ..."
  67. endif
  68.  
  69.