home *** CD-ROM | disk | FTP | other *** search
/ Crawly Crypt Collection 1 / crawlyvol1.bin / bbs / callid1b / callid.dor < prev    next >
Text File  |  1993-08-14  |  1KB  |  51 lines
  1. CL *R
  2. SEND  One moment *F, checking Call-Display info.. 
  3. EXEC \QBBS\callid.ttp
  4.  
  5. IF *P = 1 THEN GOTO newuser
  6. IF *P = 10 THEN GOTO okay
  7. IF *P > 1 THEN GOTO olduser
  8.  
  9. :newuser
  10. IF *C = 1 THEN GOTO badnew
  11. IF *C < 0 THEN EXIT
  12. SEND Thanks *F, Everything is just fine.
  13. SEND Validating your account!
  14. CTIME 30
  15. DLIMIT 400
  16. LEVEL 5
  17. SETFLAG A8
  18. EXIT
  19.  
  20. :badnew
  21. SEND
  22. SEND The number you are calling from does not match your user record.
  23. SEND Sorry, but I can't validate your account. Please use the [S]ettings
  24. SEND menu to modify your phone numbers.
  25. SEND
  26. SEND Press any key.
  27. KEY
  28. EXIT
  29.  
  30. :olduser
  31. IF *C < 0 THEN EXIT
  32. IF *C = 0 THEN GOTO okay
  33. IF *C = 3 THEN GOTO okay
  34.  
  35. SEND Your phone numbers don't match. Sorry, but this system utilizes
  36. SEND the phone companies Call-Display and your account numbers to
  37. SEND provide access. Either you incorrectly entered your phone number(s)
  38. SEND or you are calling with your number blocked. Either way, we can't
  39. SEND provide full access.
  40. SEND
  41. SEND Temporarily adjusting your account.
  42. CTIME 15
  43. DLIMIT 50
  44. SEND Press any key
  45. KEY
  46. EXIT
  47.  
  48. :okay
  49. SEND Thanks *F, Everything is just fine.
  50. EXIT
  51.