home *** CD-ROM | disk | FTP | other *** search
/ PC World 1998 June / PCWorld_1998-06_cd.bin / software / sharware / komunik / QMODEM / ALLSCRPT.ZIP / BUSY.SCR < prev    next >
Text File  |  1986-05-10  |  3KB  |  120 lines
  1. Note      Qmodem BBS now Active!
  2. Note
  3.  
  4. TopOfFile:
  5. Note      Qmodem ready for Phone Calls!
  6. Send      "AT{"
  7. Beep      250
  8. Beep      300
  9. WaitForRing:
  10. Beep      6000
  11. Timeout   60      WaitForRing          Error trap set
  12. WaitFor   "RING"                       Wait for the RING indicator
  13. Note      Ring detected, answering...
  14. Send      "ATA{"                       Answer the Phone
  15. Timeout   30      TopOfFile            Error trap for CONNECT
  16. Beep      200
  17. Beep      200
  18.  
  19. Timeout   1    baud1200
  20. Waitfor   "connect 2400"
  21. Goto       connect2400
  22.  
  23. baud1200:
  24. Timeout   1    baud300
  25. Waitfor   "Connect 1200"
  26. Goto       connect1200
  27.  
  28. baud300:
  29. Timeout   1    tryagain
  30. Waitfor   "connect"
  31. setcomm   c
  32. Goto      Hello
  33.  
  34. connect1200:
  35. Setcomm   f
  36. goto      Hello
  37.  
  38. Connect2400:
  39. Setcomm   I
  40.  
  41. Hello:
  42. .              Send welcome screen
  43. Send     "             Welcome to The Forbin Project Inc.{{{{"
  44. Send     "This board is not actually a BBS program as many of you have{"
  45. Send     "come to know.  This is actually a Script File running under{"
  46. Send     "Qmodem!!  You will be able to Download the latest version of{"
  47. Send     "Qmodem which is 2.0.  This is basically a DEMO of what the{"
  48. Send     "script language in Qmodem can do.{{{{"
  49.  
  50. Send     "Press 'Q' to continue...."
  51.  
  52. Timeout  300  CycleCall                Wait 5 minutes befor cycling
  53. Waitfor  "q"
  54.  
  55. Send     " I am now ready to Upload QMODEM20.ARC to you.{"
  56. Send     "{"
  57. Send     "Choose your favorite Protocol:{"
  58. Send     "        1) Xmodem{"
  59. Send     "        2) Xmodem CRC{"
  60. Send     "        3) Ymodem{"
  61. Send     "        4) Exit{{"
  62. Send     "Choice ?"
  63.  
  64. Protocol:
  65. Timeout  1  XmodemCRC
  66. Waitfor  "1"
  67. Goto     SendXmodem
  68.  
  69. XmodemCRC:
  70. Timeout  1 Ymodem
  71. Waitfor  "2"
  72. Goto     SendXmodemCRC
  73.  
  74. Ymodem:
  75. Timeout  1 Leave
  76. Waitfor  "3"
  77. Goto     SendYmodem
  78.  
  79. Leave:
  80. Timeout  1 Protocol
  81. Waitfor  "4"
  82. Goto     GoodBye
  83.  
  84. SendXmodem:
  85. Send     "1{{"
  86. Send     "Send Ready.. Start your Download{"
  87. Upload   Qmodem20.arc  2                     Send the file Xmodem
  88. Goto     GoodBye
  89.  
  90. SendXmodemCRC:
  91.  
  92. Send     "2{{"
  93. Send     "Send Ready.. Start your Download{"
  94. Upload   Qmodem20.arc 3
  95. Goto     GoodBye
  96.  
  97. SendYmodem:
  98.  
  99. Send     "3{{"
  100. Send     "Send Ready.. Start your Download{"
  101. Upload   Qmodem20.arc 6
  102.  
  103.  
  104. GoodBye:
  105.  
  106. Send    " Thank you for calling The Forbin Project.{{"
  107. Send    " Give our PCBoard BBS a try at 319-277-0044 {"
  108. Send    " Its up 24 hrs a day, 7 days a week.{"
  109. Send    "{{{ Hope you enjoy the new Qmodem!!{{"
  110. Send    " Bye!{{~~~~~~"
  111.  
  112. CycleCall:
  113.  
  114. Send    "(click){"
  115. HangUp
  116. Goto    TopOfFile
  117.  
  118. Note    HAHAHAHA!!
  119. Return
  120.