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

 
Output of file : ENTER.MOD contained in archive : MODKIT.ZIP
;
;-------------------------------------------------------------------
;* ENTER a message
; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
; (-------------------------)
ASSIGN S1 "^M" ; Adressee^M (^M=ALL)
ASSIGN S2 "sujet"
ASSIGN S3 "\modem\ses\file.ext" ; path and name of text file
ASSIGN S4 "^M" ; security: ^M=ALL, re^M=RECEIVER
;
; 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 N6 ; si on est dans PCBoard
IF ZERO N5
ASSIGN S0 "Main Board Command?"
ELSE
ASSIGN S0 "Conference Command?"
ENDIF
INIT N1 0 ; init ERREUR DE MODULE … z‚ro
ISFILE S3 ; le fichier message existe?
IF FAILURE
MESSAGE "^M"
MESSAGE "!!! Message file does not exist."
INIT N1 1 ; lever flag ERREUR DE MODULE
ENDIF
IF ZERO N1 ; si le module va bien jusqu'ici
TRANSMIT "e^M"
WAITFOR "ALL" 10
IF NOT WAITFOR
MESSAGE "^M"
MESSAGE "!!! No prompt: ALL ."
INIT N1 1 ; set flag ERREUR DE MODULE
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 S1 ; destinataire
WAITFOR "(Enter)=abort?"
IF NOT WAITFOR
MESSAGE "^M"
MESSAGE "!!! No prompt: (Enter)=abort?"
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 S2 ; sujet
TRANSMIT "^M"
WAITFOR "Security (H)=help? "
PAUSE 1
TRANSMIT S4 ; s‚curit‚
IF NOT ZERO N3 ; si conf‚rence Echo Mail
WAITFOR "(Enter)=yes?"
PAUSE 1
TRANSMIT S7
ENDIF
WAITFOR "^M^J 1: " ; prompt pour le texte
IF NOT WAITFOR
MESSAGE "^M"
MESSAGE "!!! No prompt for text."
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
SENDFILE ASCII S3 ; envoyer le texte
PAUSE 2
TRANSMIT "^M" ; CR pour 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 "s^M" ; sauver le message
WAITFOR S0 10
IF NOT WAITFOR
MESSAGE "^M"
MESSAGE "!!! No 1st 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 NOT ZERO N6 ; si on est dans SmlNet
INIT N1 0 ; init ERREUR DE MODULE … z‚ro
ISFILE S3 ; le fichier message existe?
IF FAILURE
MESSAGE "^M"
MESSAGE "!!! Message file does not exist."
INIT N1 1 ; lever flag ERREUR DE MODULE
ENDIF
IF ZERO N1 ; si le module va bien jusqu'ici
TRANSMIT "e^M"
WAITFOR "TO ? -> "
IF NOT WAITFOR
MESSAGE "^M"
MESSAGE "!!! No prompt: TO ? "
INIT N1 1 ; set flag ERREUR DE MODULE
TRANSMIT "^X^X^X^X^X^X^X^X^X^X^X^X"
WAITFOR "DUMMYSTRING" 5
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 S1 ; destinataire
TRANSMIT "^M"
WAITFOR "Topic? -> "
PAUSE 1
TRANSMIT S2 ; sujet
TRANSMIT "^M"
WAITFOR "1: " ; prompt pour le texte
IF NOT WAITFOR
MESSAGE "^M"
MESSAGE "!!! No prompt for text."
INIT N1 1 ; lever flag ERREUR DE MODULE
TRANSMIT "^X^X^X^X^X^X^X^X^X^X^X^X"
WAITFOR "DUMMYSTRING" 5
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
SENDFILE ASCII S3 ; envoyer le texte
PAUSE 2
TRANSMIT "^M"
WAITFOR "S)ave -> " 10
IF NOT WAITFOR
MESSAGE "^M"
MESSAGE "!!! No prompt to save message."
INIT N1 1 ; lever flag ERREUR DE MODULE
TRANSMIT "^X^X^X^X^X^X^X^X^X^X^X^X"
WAITFOR "DUMMYSTRING" 5
TRANSMIT "^M^M^M" ; retrouver prompt 1er niveau
WAITFOR "DUMMYSTRING" 5
ENDIF
ENDIF
IF ZERO N1
PAUSE 1
TRANSMIT "s^M"
WAITFOR "Type -> "
IF NOT WAITFOR
MESSAGE "^M"
MESSAGE "!!! No prompt: Type -> (end Enter-Fido)"
TRANSMIT "^X^X^X^X^X^X^X^X^X^X^X^X"
WAITFOR "DUMMYSTRING" 5
TRANSMIT "^M^M^M" ; retrouver prompt 1er niveau
WAITFOR "DUMMYSTRING" 5
ENDIF
ENDIF
ENDIF ; fin de la section SmlNet
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 S3 ; le fichier r‚ponse existe?
IF FAILURE
MESSAGE "^M"
MESSAGE "!!! Message file 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 ; message menu
TRANSMIT "e"
WAITFOR "[C/R = ALL] :" 10
WHEN "letter [y/N]?" "^M"
TRANSMIT S1
WAITFOR "([ENTER] if None):" 10
TRANSMIT "^M"
WAITFOR "Subject: " 10
TRANSMIT S2
STRCMP S1 "^M" ; S1=^M -> message pour tous
TRANSMIT "^M"
IF FAILURE ; si pas pour tous
WAITFOR "Private [y/N]?" 10
STRCMP S4 "^M"
IF SUCCESS ; si public
TRANSMIT "n"
ELSE
TRANSMIT "y" ; si priv‚
ENDIF
ENDIF
WAITFOR "1:" 10
PAUSE 1
SENDFILE ASCII S3
IF FAILURE
MESSAGE "^M"
MESSAGE "!!! ASCII 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 list: " 10
PAUSE 1
TRANSMIT "a"
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 : ENTER.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/