home *** CD-ROM | disk | FTP | other *** search
/ RBBS in a Box Volume 1 #2 / RBBS_vol1_no2.iso / add2 / tm110_1.zip / FIDO.SCR < prev    next >
Text File  |  1989-04-06  |  973b  |  42 lines
  1. name = "Winfred Hu"          ; put your name here
  2. count = 1
  3. repeat                       ; wait for log on prompt
  4.   waitfor "first name","processing mail",2
  5.   if not found
  6.     put "^C~^["
  7.   endif
  8.   if found=2                 ; if BBS is processing mail
  9.     alarm "Processing mail"  ; then alarm, hangup and stop
  10.     hangup
  11.     stop
  12.   endif
  13.   if count=20                ; quit if no response in 60 seconds
  14.      alarm "No response in 60 seconds"
  15.      hangup
  16.      stop
  17.   endif
  18.   count = count+1
  19. until found
  20. put name," y"                ; put name and confirm
  21.  
  22. repeat                       ; wait for password request
  23.   waitfor "password",2
  24.   if not found
  25.     put "^C"
  26.   endif
  27. until found
  28. put "^&"
  29.  
  30. repeat                       ; wait for main menu
  31.   waitfor "main command:",2
  32.   if not found
  33.     put "^C"
  34.   endif
  35. until found
  36. put "m^M~n^M"                ; goto message section
  37.  
  38. ; logon
  39. ; waitfor "NO CARRIER","hang up now",0
  40. ; logoff
  41.  
  42.