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

 
Output of file : ANSWER.MOD contained in archive : MODKIT.ZIP
;
;-------------------------------------------------------------------
;* ANSWER a message
; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
ASSIGN S1 "Msg#" ; # of message to be answered
ASSIGN S2 "\modem\ses\file.ext" ; path and filename for text
ASSIGN S3 "^M" ; security: "^M"=unchanged / "re^M"=receiver
ASSIGN S4 "^M" ; subject: "^M"=unchanged
;
; Following variable used only on PCBoard, IF BBS supports Echo Mail:
ASSIGN S7 "^M" ; ^M=echo message / n^M=no echo
; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
IF ZERO N2 ; si la session va normalement
;
;
IF EQ N0 1 ; si le prog. BBS est PCBoard
IF ZERO N5
ASSIGN S0 "Main Board Command?"
ELSE
ASSIGN S0 "Conference Command?"
ENDIF
INIT N1 0 ; set ERREUR DE MODULE … z‚ro
ISFILE S2 ; le fichier r‚ponse existe?
IF FAILURE

MESSAGE "^M"
MESSAGE "!!! Text file does not exist."
INIT N1 1 ; lever flag ERREUR DE MODULE
ENDIF
IF ZERO N1 ; si le module va bien jusqu'ici
WHEN "More?" "^M"
TRANSMIT "r "
TRANSMIT S1
TRANSMIT "^M" ; affich. message auquel r‚pondre
WAITFOR "Message Command?"
IF NOT WAITFOR
MESSAGE "^M"
MESSAGE "!!! No prompt Message Command?"
INIT N1 1 ; lever flag ERREUR DE MODULE
TRANSMIT "^X"
TRANSMIT "^M^M^M" ; retrouver prompt 1er niveau
WAITFOR "DUMMYSTRING" 5
ENDIF
ENDIF
IF ZERO N1 ; si le module va bien jusqu'ici
PAUSE 1
TRANSMIT "re^M" ; r‚ponse au message affich‚
WAITFOR "change?" 5
WHEN "Security (H)=help?" S3 ; s‚curit‚
PAUSE 1
TRANSMIT S4 ; sujet
IF NOT ZERO N3 ; si conf‚rence Echo Mail
WAITFOR "=yes?"
PAUSE 1
TRANSMIT S7
ENDIF
WAITFOR "1:" 10 ; attendre prompt 1Šre ligne
IF WAITFOR
PAUSE 1
SENDFILE ASCII S2
IF FAILURE
MESSAGE "^M"
MESSAGE "!!! Upload not successfull."
INIT N1 1 ; lever flag ERREUR DE MODULE
TRANSMIT "^X"
TRANSMIT "^M^M^M" ; retrouver prompt 1er niveau
WAITFOR "DUMMYSTRING" 5
ENDIF
IF ZERO N1 ; si le module va bien jusqu'ici
PAUSE 2
TRANSMIT "^M" ; CR indique fin du message
WAITFOR ")?" 10
IF NOT WAITFOR
MESSAGE "^M"
MESSAGE "!!! No prompt to save message."
INIT N1 1 ; lever flag ERREUR DE MODULE
TRANSMIT "^X"
TRANSMIT "a^My^M^M" ; retrouver prompt 1er niveau
WAITFOR "DUMMYSTRING" 5
ENDIF
ENDIF
IF ZERO N1 ; si le module va bien jusqu'ici
PAUSE 1
TRANSMIT "sn^M" ; sauver le message
WAITFOR "Read Command?" 10
PAUSE 1
TRANSMIT "^M" ; fin lecture des messages
ENDIF
ELSE
MESSAGE "^M"
MESSAGE "!!! No prompt for first line."
INIT N1 1 ; lever flag ERREUR DE MODULE
TRANSMIT "^X"
TRANSMIT "^M^M^M" ; retrouver prompt 1er niveau
WAITFOR "DUMMYSTRING" 5
ENDIF
ENDIF
IF ZERO N1
WAITFOR S0 10
IF NOT WAITFOR
MESSAGE "^M"
MESSAGE "!!! No first level prompt."
TRANSMIT "^X"
TRANSMIT "^M^M^M" ; retrouver prompt 1er niveau
WAITFOR "DUMMYSTRING" 5
ENDIF
PAUSE 1
ENDIF
ENDIF ; fin de la section PCBoard
;
;
IF EQ N0 2 ; si le prog BBS est Wildcat
INIT N1 0 ; set ERREUR DE MODULE … z‚ro
ISFILE S2 ; le fichier r‚ponse existe?
IF FAILURE
MESSAGE "^M"
MESSAGE "!!! File for answer does not exist."
INIT N1 1 ; lever flag ERREUR DE MODULE
ENDIF
IF ZERO N1 ; si le module va bien jusqu'ici
TRANSMIT "m"
WAITFOR "? E H D G]:" 10
TRANSMIT "r"
WAITFOR "[F], [M], [H]:" 10
WHEN "[N]onStop:" "^M"
TRANSMIT S1 ; no. du message auquel on r‚pond
TRANSMIT "^M"
WAITFOR "[T], [H], [Q]:" 10
PAUSE 1
TRANSMIT "r^M"
WAITFOR "letter [y/N]? " 10
PAUSE 1
TRANSMIT "^M"
WAITFOR "[ENTER] if None): " 10
PAUSE 1
TRANSMIT "^M"
WAITFOR "change)^M^JSubject: " 10
PAUSE 1
TRANSMIT S4
WAITFOR "Private [y/N]? " 10
PAUSE 1
STRCMP S3 "^M"
IF SUCCESS
TRANSMIT S3
ELSE
TRANSMIT "y"
ENDIF
WAITFOR "--)^M^J 1: " 10
PAUSE 1
SENDFILE ASCII S2
IF FAILURE
MESSAGE "^M"
MESSAGE "!!! Upload not successfull."
INIT N1 1 ; lever flag ERREUR DE MODULE
TRANSMIT "^X^X^X^X^X"
TRANSMIT "q^M^M^M^M" ; retrouver prompt 1er niveau
WAITFOR "DUMMYSTRING" 5
ENDIF
ENDIF
IF ZERO N1
PAUSE 2
TRANSMIT "^M"
WAITFOR "D E L I + H S]: " 10
PAUSE 1
TRANSMIT "s"
WAITFOR "for choices):" 10
TRANSMIT "^M"
WAITFOR " [T], [H], [Q]: " 10
PAUSE 1
TRANSMIT "q^M"
WAITFOR "? E H D G]: " 10
TRANSMIT "q"
WAITFOR "P I H ? G]:" 10
IF NOT WAITFOR
MESSAGE "^M"
MESSAGE "!!! No 1st level prompt."
TRANSMIT "^X^X^X^X^X"
TRANSMIT "q^M^M^M^M" ; retrouver prompt 1er niveau
WAITFOR "DUMMYSTRING" 5
ENDIF
ENDIF
ENDIF ; fin de la section Wildcat
;
;
ENDIF
;-------------------------------------------------------------------
;


  3 Responses to “Category : Communication (modem) tools and utilities
Archive   : MODKIT.ZIP
Filename : ANSWER.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/