home *** CD-ROM | disk | FTP | other *** search
/ Shareware Overload / ShartewareOverload.cdr / comm / qmqmpc31.zip / CONFER.SCR next >
Text File  |  1989-10-06  |  2KB  |  52 lines

  1. ;---------------------------------------------------------------------
  2. ; Filename: CONFER.SCR
  3. ; Auxiliary conference selection script file for
  4. ; Qmodem's Generic PCBoard Qmail PCBud Fully Automatic Script
  5. ; QMODEM SCRIPT FOR GENERIC PCBoard LOGONS
  6. ;
  7. ; -> Brad Berson 10/05/89
  8. ;---------------------------------------------------------------------
  9. ;
  10. TIMEOUT 120 ERRORHA
  11. WHEN    "Main Board Command?" SELECT   ; If join fails try again
  12. WHEN    "NS)?" "^~N^M"                 ; Quit all the bulletin screens
  13. WHEN    "(Enter)" "N^M"                ; Quit all information screens
  14. WHEN    ", More" "^~N^M"               ; and for PCBoard 14.0 beta
  15. WHEN    "not registered" NOPE          ; Were you registered?
  16. ;
  17. SELECT:
  18. IF "$board" = "Sound of Music" SOM
  19. GOTO    NOPE
  20. ;
  21. SOM:                                   ; This is where Paul keeps all
  22. SEND    "J 8 Q^M"                      ; his carrot-on-a-stick files
  23. GOTO    FINI                           ; to encourage paying!
  24. ;
  25. FINI:
  26. WAITFOR "Conference Command?"
  27. ;
  28. NOPE:
  29. WHEN
  30. RETURN                                 ; return control to operator
  31. ;
  32. ; Error handler...
  33. ;
  34. ERRORHA:
  35. BEEP    1500                           ; Alert operator to console
  36. BEEP    1600
  37. BEEP    1500
  38. BEEP    1600
  39. BEEP    1500
  40. BEEP    1600
  41. BEEP    1500
  42. BEEP    1600
  43. NOTE
  44. NOTE            Timeout or execution error occurred in script
  45. NOTE                             $script!
  46. NOTE                      Attempting to continue...
  47. NOTE                      press [Esc], [Y] to abort
  48. NOTE
  49. PAUSE   10000
  50. GOTO    NOPE
  51. ;
  52.