home *** CD-ROM | disk | FTP | other *** search
/ RBBS in a Box Volume 1 #3.1 / RBBSIABOX31.cdr / reac / rbbs.xts < prev    next >
Text File  |  1984-08-29  |  896b  |  37 lines
  1. WAit Quiet 40
  2. LAbel SENDCR
  3. REply |
  4. WHen "e" JUmp CASE
  5. WAit Quiet 30
  6. JUmp SENDCR
  7. LAbel CASE
  8. WHen "the" JUmp WELCOME
  9. WAit String 'case?'
  10. WHen -
  11. REply y|
  12. WAit String 'BIT.'
  13. WHen "graphics?" WAit Delay 5 : REply y| : JUmp WELCOME
  14. WAit Prompt 40
  15. LAbel WELCOME
  16. WHen "more" WAit Delay 5 : REply n| : JUmp LOGIN
  17. LAbel LOGIN
  18. WAit String 'FIRST name?'
  19. WHen -
  20. REply First;Last|
  21. WHen "Password (" When - : JUmp SENDPW
  22. WAit String 'calling from?'
  23. WHen -
  24. REply IBM PC|
  25. WAit String 'calling from?'
  26. REply San Francisco, CA|
  27. WAit String 'correct?'
  28. REply y|
  29. WAit String 'PASSWORD'
  30. WAit Quiet 10
  31. REply YOURPW|
  32. WAit String 'PASSWORD'
  33. LAbel SENDPW
  34. WAit Quiet 10
  35. REply YOURPW|
  36. ALarm 3 Now : ALarm : ALarm : ALarm : ALarm
  37.