home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Shareware Overload
/
ShartewareOverload.cdr
/
comm
/
qmqmpc31.zip
/
CONFER.SCR
next >
Wrap
Text File
|
1989-10-06
|
2KB
|
52 lines
;---------------------------------------------------------------------
; Filename: CONFER.SCR
; Auxiliary conference selection script file for
; Qmodem's Generic PCBoard Qmail PCBud Fully Automatic Script
; QMODEM SCRIPT FOR GENERIC PCBoard LOGONS
;
; -> Brad Berson 10/05/89
;---------------------------------------------------------------------
;
TIMEOUT 120 ERRORHA
WHEN "Main Board Command?" SELECT ; If join fails try again
WHEN "NS)?" "^~N^M" ; Quit all the bulletin screens
WHEN "(Enter)" "N^M" ; Quit all information screens
WHEN ", More" "^~N^M" ; and for PCBoard 14.0 beta
WHEN "not registered" NOPE ; Were you registered?
;
SELECT:
IF "$board" = "Sound of Music" SOM
GOTO NOPE
;
SOM: ; This is where Paul keeps all
SEND "J 8 Q^M" ; his carrot-on-a-stick files
GOTO FINI ; to encourage paying!
;
FINI:
WAITFOR "Conference Command?"
;
NOPE:
WHEN
RETURN ; return control to operator
;
; Error handler...
;
ERRORHA:
BEEP 1500 ; Alert operator to console
BEEP 1600
BEEP 1500
BEEP 1600
BEEP 1500
BEEP 1600
BEEP 1500
BEEP 1600
NOTE
NOTE Timeout or execution error occurred in script
NOTE $script!
NOTE Attempting to continue...
NOTE press [Esc], [Y] to abort
NOTE
PAUSE 10000
GOTO NOPE
;