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

 
Output of file : LOGON.MOD contained in archive : MODKIT.ZIP
;
;-------------------------------------------------------------------
;* LOGON auto dial and log on
; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
INIT N2 0 ; initialiser ERREUR DE SESSION
DATE S3
TIME S4 0
SET ALARM OFF ; d‚sactiver haut-parleur du PC
TRANSMIT "ATZ^M" ; initialiser modem
WAITFOR "OK"
PAUSE 1
TRANSMIT "ATM0^M" ; d‚sactiver haut-parleur du modem
WAITFOR "OK"
EMULATE ANSI
LOG OPEN S5 ; ouverture du fichier log
MESSAGE "^M"
MESSAGE "^M"
MESSAGE "^M" ; quelques lignes vides
MESSAGE "^M"
MESSAGE "^M"
MESSAGE "***********"
MESSAGE S3 ; imprimer date au log
MESSAGE S4 ; imprimer heure au log
MESSAGE "***********"
;
IF EQ N0 1 ; si le logiciel du BBS est PCBoard
DIAL S1
WHEN "Escape key" "~"
WAITFOR "?" 40
WHEN "ontinue" "~^M" ; initialisation
TRANSMIT S9 ; use english (il FAUT choisir l'anglais)
WAITFOR "?" 2 ; (CR = no graphics)
IF WAITFOR
TRANSMIT "n^M"
ENDIF
WAITFOR "first name?"
IF NOT WAITFOR
MESSAGE "^M"
MESSAGE "!!! First CONNECT aborted."
HANGUP
PAUSE 10
DIAL S1
WHEN "Escape key" "~"
WAITFOR "?" 40
WHEN "ontinue" "~^M" ; initialisation
TRANSMIT S9 ; use english (il FAUT choisir l'anglais)
WAITFOR "?" 2 ; (CR = no graphics)
IF WAITFOR
TRANSMIT "n^M"
ENDIF
WAITFOR "first name?"
IF NOT WAITFOR
MESSAGE "^M"
MESSAGE "!!! Second CONNECT aborted."
INIT N2 1 ; lever flag ERREUR DE SESSION
TRANSMIT "^X"
TRANSMIT "^M^M^M" ; retrouver Main Board Command?
WAITFOR "DUMMYSTRING" 5
ENDIF
ENDIF
IF ZERO N2 ; si tout va bien jusqu'ici
TRANSMIT S7 ; pr‚nom
TRANSMIT "^M"
WAITFOR "last name?"
TRANSMIT S8 ; nom
TRANSMIT "^M"
WAITFOR "(Dots will echo)?"
WHEN "More?" "^M"
TRANSMIT S6 ; mot de passe
TRANSMIT "^M"
WAITFOR "Last Read' (Enter)=yes?" 150
WHEN "(Enter) to continue? " "^M" ; initialisation
IF WAITFOR
TRANSMIT "^M"
ENDIF
ENDIF
IF ZERO N2 ; si tout va bien jusqu'ici
WAITFOR "Board Command?" 200
IF NOT WAITFOR
MESSAGE "^M"
MESSAGE "!!! No prompt: Board Command? (end LOGON)"
INIT N2 1 ; lever flag ERREUR DE SESSION
TRANSMIT "^X"
TRANSMIT "^M^M^M" ; retrouver Main Board Command?
WAITFOR "DUMMYSTRING" 5
ENDIF
ENDIF
ENDIF ; fin de la section PCBoard
;
IF EQ N0 2 ; si le logiciel du BBS est Wildcat
DIAL S1
WHEN "ontinue" "~^M"
WAITFOR "First Name?"
TRANSMIT S7
TRANSMIT "^M"
WAITFOR "Last Name?"
IF NOT WAITFOR
MESSAGE "^M"
MESSAGE "!!! First CONNECT aborted."
HANGUP
PAUSE 30
DIAL S1
WHEN "ontinue" "~^M"
WAITFOR "First Name?"
TRANSMIT S7
TRANSMIT "^M"
WAITFOR "Last Name?"
IF NOT WAITFOR
MESSAGE "^M"
MESSAGE "!!! Second CONNECT aborted."
INIT N2 1 ; lever flag ERREUR DE SESSION
TRANSMIT "^X"
TRANSMIT "^M^M^M" ; retrouver prompt 1er niveau
WAITFOR "DUMMYSTRING" 5
ENDIF
ENDIF
IF ZERO N2 ; si tout va bien jusqu'ici
TRANSMIT S8 ; nom de famille
TRANSMIT "^M"
WAITFOR "Password:"
TRANSMIT S6 ; mot de passe
TRANSMIT "^M"
;
WAITFOR "a Moment" 5 ; v‚rification?
RGET S7 60 3
RGET S8 60 3
IF WAITFOR
PAUSE 1
FIND S8 "VOICE Phone"
IF FOUND
WHEN "[y/n] ?" "y^M"
TRANSMIT S0
ELSE
FIND S8 "BIRTH DATE"
IF FOUND
WHEN "[y/n] ?" "y^M"
TRANSMIT S2
ELSE
MESSAGE "^M"
MESSAGE "!!! Verification no.1 aborted."
MESSAGE "Contenu de S7:"
MESSAGE S7
MESSAGE "Contenu de S8:"
MESSAGE S8
MESSAGE "^M"
WAITFOR "DUMMYSTRING" 10
HANGUP
ENDIF
ENDIF
;
WAITFOR "a Moment" 5 ; v‚rification?
RGET S7 60 3
RGET S8 60 3
IF WAITFOR
PAUSE 1
FIND S8 "VOICE Phone"
IF FOUND
WHEN "[y/n] ?" "y^M"
TRANSMIT S0
ELSE
FIND S8 "BIRTH DATE"
IF FOUND
WHEN "[y/n] ?" "y^M"
TRANSMIT S2
ELSE
MESSAGE "^M"
MESSAGE "!!! Verification no.2 aborted."
MESSAGE "Contenu de S7:"
MESSAGE S7
MESSAGE "Contenu de S8:"
MESSAGE S8
MESSAGE "^M"
WAITFOR "DUMMYSTRING" 10
HANGUP
ENDIF
ENDIF
;
;
ENDIF
;
ENDIF
PAUSE 1
WHEN "ontinue" "~^M"
TRANSMIT "^M"
WAITFOR "menu [y/n]?" 60
TRANSMIT "n^M"
WAITFOR "P I H ? G]:"
IF NOT WAITFOR
MESSAGE "^M"
MESSAGE "!!! No prompt: P I H ? G]: (end Logon)"
MESSAGE "^M"
INIT N2 1 ; lever flag ERREUR DE SESSION
TRANSMIT "^X^X^X"
TRANSMIT "^M^M^M" ; retrouver prompt 1er niveau
WAITFOR "DUMMYSTRING" 5
ENDIF
ENDIF
ENDIF ; fin de la section Wildcat
;
IF ZERO N0
INIT N2 1 ; lever flag ERREUR DE SESSION
MESSAGE "^M"
MESSAGE "!!! No header module"
MESSAGE "!!! or header module defective."
MESSAGE "^M"
ENDIF
INIT N6 0 ; mode: BBS (par opposition … SmlNet)
INIT N5 0 ; mode: Main Board (par opp. … conf‚rence)
INIT N3 0 ; mode: non Echo Mail
MESSAGE "^M"
MESSAGE "^M"
MESSAGE "-----------------End of LOGON module-----------------"
MESSAGE "^M"
;-------------------------------------------------------------------
;


  3 Responses to “Category : Communication (modem) tools and utilities
Archive   : MODKIT.ZIP
Filename : LOGON.MOD

  1. Very nice! Thank you for this wonderful archive. I wonder why I found it only now. Long live the BBS file archives!

  2. This is so awesome! 😀 I’d be cool if you could download an entire archive of this at once, though.

  3. But one thing that puzzles me is the “mtswslnkmcjklsdlsbdmMICROSOFT” string. There is an article about it here. It is definitely worth a read: http://www.os2museum.com/wp/mtswslnk/