home *** CD-ROM | disk | FTP | other *** search
/ Professional Soft Collection 1.02 / Professional Soft Collection 1.02.iso / communic / bitfax.300 / disk1 / answer.sc_ / answer.bin
Encoding:
Text File  |  1994-04-19  |  1.5 KB  |  55 lines
  1. trace(1)
  2. { ANSWER.ACT}
  3.  
  4. { This action file shows you how to use the new script language        }
  5. { to turn your computer into a remote PC to which people can call in.  }
  6. { This auto log file should be used in auto answer mode.           }
  7. { When the phone rings, your modem answers and connects to the caller. }
  8. { The following actions then occur:                                    }
  9. { The caller will be asked for a password.                   }
  10. { If caller types in "JONATHAN", he or she is allowed to proceed,      }
  11. { otherwise, the system hangs up.                                      }
  12. { If ok to proceed, the caller will be asked the name of the file to   }
  13. { receive.  Your PC will then send the file in ASCII mode.             }
  14.  
  15. twait(2,"sec");
  16. @c=1            {counter for number of attempts for password}
  17. :try
  18. @RETURN
  19. "ENTER PASSWORD:"       {get password}
  20. @a=getline
  21. if (substr(@a, 1, 8) <> "JONATHAN") goto :badpw
  22. goto :ok
  23.  
  24. {bad news}
  25. :badpw
  26. "$0d$0ABAD PASSWORD";@return
  27. @c = expr(@c+1);
  28. if (@c > 5) goto :kill        {if more than 5 tries, hang up the line}
  29. goto :try
  30.  
  31. { now we got a good pass word }
  32. :ok
  33. clear
  34. typecr("LOGON OK");
  35. "$0d$0a"
  36. "$0d$0a"
  37. "WELCOME TO BITCOM$0d$0a"
  38. "What file would you like?"
  39. @a=getline
  40. @b=EXIST(@a)
  41. "$0d$0a"
  42. if (@b = 0 ) goto :badfile
  43. if (sendfile(@a, "ASCII") = -1) "Cannot open file$0a$0d";
  44. exit
  45.  
  46. :kill
  47. "Too many attempts..."
  48. hangup
  49. exit
  50.  
  51. :badfile
  52. "File Not Found$0d$0a";
  53. exit
  54. 
  55.