Category : Communication (modem) tools and utilities
Archive   : MODKIT.ZIP
Filename : JOIN35.MOD

 
Output of file : JOIN35.MOD contained in archive : MODKIT.ZIP

;
;--------------------------------------------------------------
;* JOIN35 join conference no. 35
;--------------------------------------------------------------
ASSIGN S4 "35" ; no. of conference
INIT N4 1 ; N4=1 if conf. is Echo Mail, otherwise N4=0
;--------------------------------------------------------------
IF ZERO N2 ; si la session va normalement
WHEN "(Enter) to continue?" "^M"
TRANSMIT "j "
TRANSMIT S4
TRANSMIT "^M"
WAITFOR "(Enter)=yes?" 10
IF NOT WAITFOR
MESSAGE "^M"
MESSAGE "!!! No prompt: 'Last Read' (Enter)=yes?"
INIT N1 1 ; lever flag ERREUR DE MODULE
INIT N2 1 ; lever flag ERREUR DE SESSION
TRANSMIT "^X"
WAITFOR "DUMMYSTRING" 5
TRANSMIT "^X"
TRANSMIT "^M^Ma^M"
WAITFOR "DUMMYSTRING" 5
ENDIF
IF ZERO N1 ; si le module va bien jusqu'ici
PAUSE 1
TRANSMIT "^M"
WAITFOR "Conference Command?"
IF NOT WAITFOR
MESSAGE "^M"
MESSAGE "!!! No prompt: Conference Command?"
TRANSMIT "^X"
TRANSMIT "^Ma^M^M"
WAITFOR "DUMMYSTRING" 5
ELSE
INIT N5 1 ; mode: Conference
INIT N3 N4 ; mode: Echo ou non Echo
ENDIF
ENDIF
ENDIF
;-------------------------------------------------------------------
;