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

 
Output of file : GETMAIL.MOD contained in archive : MODKIT.ZIP
;
;-------------------------------------------------------------------
;* GETMAIL get new messages and list of new files
; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
ASSIGN S3 "\modem\dl\sil-mail.arc" ; For SmlNet only: path and name
; of extract file
; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
IF ZERO N2 ; si la session va normalement
IF ZERO N6 ; si on est dans le progr. BBS
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 ; initialiser ERREUR DE MODULE … z‚ro
WHEN "Read Command?" "^M"
TRANSMIT "r s ns^M"
WAITFOR S0 600
IF NOT WAITFOR
MESSAGE "^M"
MESSAGE "!!! No 1st level prompt after 10 min."
INIT N1 1 ; lever flag ERREUR DE MODULE
INIT N2 1 ; lever flag ERREUR DE SESSION
TRANSMIT "^X"
TRANSMIT "^M^M^M" ; retrouver prompt 1er niveau
PAUSE 5
ENDIF
;
; * Jusqu'au prochain ast‚risque, section qui va chercher la liste
; des nouveaux fichiers
;
IF ZERO N5 ; Si on est dans le Main Board
IF ZERO N1 ; si le module va bien jusqu'ici
STRCMP S5 "\MODEM\SES\CARE.GET"
IF FAILURE ; chercher nouveaux fichiers *SI* ce BBS
; n'est pas Micro-Care
PAUSE 1
TRANSMIT "n a ns^M" ; demande liste nouveaux fichiers
WAITFOR "to search from (Enter)=" 5
IF NOT WAITFOR
MESSAGE "^M"
MESSAGE "!!! No prompt: search from (Enter)="
INIT N1 1 ; lever flag ERREUR DE MODULE
TRANSMIT "^X"
TRANSMIT "^M^M^M" ; retrouver prompt 1er niveau
WAITFOR "DUMMYSTRING" 5
ENDIF
ENDIF ; fin de l'exception Micro-Care
ENDIF
IF ZERO N1 ; si le module va bien jusqu'ici
PAUSE 1
WHEN "(Enter) to continue?" "^M"
TRANSMIT "^M" ; go
WAITFOR S0 200 ; attend fin de la recherche
IF NOT WAITFOR
MESSAGE "^M"
MESSAGE "!!! No 1st level prompt (end getmail)"
TRANSMIT "^X"
TRANSMIT "^M^M^M" ; retrouver prompt 1er niveau
WAITFOR "DUMMYSTRING" 5
ENDIF
PAUSE 1
ENDIF
ENDIF
;
; * Fin de la section nouveaux fichiers (PCBoard)
;
ENDIF ; fin de la section PCBoard
;
;
IF EQ N0 2 ; si le prog BBS est Wildcat
TRANSMIT "M" ; aller … la base de messages
WAITFOR "E H D G]:" 5
TRANSMIT "R" ; lecture des messages
WAITFOR "[F], [M], [H]:" 5
WHEN "[N]" "^M"
TRANSMIT "S^M" ; depuis derniŠre lecture
WAITFOR "? E H D G]:" 600 ; message menu
TRANSMIT "Q" ; QUIT
WAITFOR "P I H ? G]:" 5 ; main menu
TRANSMIT "f"
WAITFOR "R ? D G U]:" 5 ; file menu
TRANSMIT "n"
WAITFOR "MM-DD-YY" 5
WHEN "[N]onStop:" "n"
TRANSMIT "^M"
WAITFOR "R ? D G U]:" ; file menu
TRANSMIT "q"
WAITFOR "P I H ? G]:" 5 ; main menu
IF NOT WAITFOR
MESSAGE "^M"
MESSAGE "!!! No prompt: P I H ? G]: (end Getmail)"
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 ; fin de la section Wildcat
;
;
ENDIF ; fin de la section programme BBS
;
;
IF NOT ZERO N6 ; d‚but de la section SmlNet
TRANSMIT "n^M"
WAITFOR "All conferences (Y/[N]) ?"
PAUSE 1
TRANSMIT "n^M" ; seulement conf‚rences de la liste
WAITFOR "(A,Y,[N]) ? " ; extraire nouveaux messages?
PAUSE 1
WHEN "(Y/[N]) ?" "y^M"
TRANSMIT "y^M" ; oui, extraire
WAITFOR "to Continue ]]]" 800
CWHEN
PAUSE 1
TRANSMIT "^M"
WAITFOR "Type ->"
PAUSE 1
TRANSMIT "d^M" ; download du fichier d'extraction
WAITFOR "file ([Y]/N) ?" ; compresser fichier?
IF NOT WAITFOR
MESSAGE "^M"
MESSAGE "!!! No prompt for file compression."
INIT N1 1 ; lever flag ERREUR DE MODULE
WHEN "?" "y^M"
TRANSMIT "^X^X^X^X^X^X^X^X^X^X^X^X"
TRANSMIT "^M^M^M"
WAITFOR "Type ->" 15
IF NOT WAITFOR
INIT N2 1
MESSAGE "^M"
MESSAGE "!!! ...SESSION ABORTED..."
ENDIF
ENDIF
IF ZERO N1
PAUSE 1
TRANSMIT "y^M" ; oui, compresser
WAITFOR "Type> " 60
IF NOT WAITFOR
MESSAGE "^M"
MESSAGE "!!! No prompt 'Type>' after compression."
MESSAGE "^M"
INIT N1 1 ; avorter le module
INIT N2 1 ; annuler la session
INIT N6 0 ; on considŠre qu'on n'est plus dans SmlNet
TRANSMIT "^X^X^X^X^X^X^X^X^X^X^X^X"
TRANSMIT "^M^M^M"
MESSAGE "^M"
MESSAGE "!!! ...SESSION ABORTED..."
MESSAGE "^M"
ENDIF
ENDIF
IF ZERO N1
PAUSE 1
TRANSMIT "z^M" ; s‚lectionner Zmodem
WAITFOR "CTRL-X to Abort!" 10
WHEN "Extract File (Y/[N]) ?" "Y^M"
ASSIGN S8 "dsz rz "
STRCAT S8 S3
DOS S8
ENDIF
IF ZERO N1 ; si le module va normalement
WAITFOR "Type ->"
IF NOT WAITFOR
MESSAGE "^M"
MESSAGE "!!! (Fido) No prompt: Type -> (end Fmail)"
WHEN "?" "y^M"
TRANSMIT "^X^X^X^X^X^X^X^X^X^X^X^X"
TRANSMIT "^M^M^M"
WAITFOR "Type ->" 15
TRANSMIT "g^M"
WAITFOR "Main Board Command?"
IF NOT WAITFOR
MESSAGE "^M"
MESSAGE "!!! SESSION ABORTED..."
INIT N2 1
ENDIF
ENDIF
ENDIF
ENDIF ; fin de la section SmlNet
;
;
ENDIF
;-------------------------------------------------------------------
;


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