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

 
Output of file : ULOAD.MOD contained in archive : MODKIT.ZIP
;
;-------------------------------------------------------------------
;* ULOAD upload a file
; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
ASSIGN S4 "file.ext" ; filename
ASSIGN S7 "\modem\ul\" ; PATH where file is to be found
;
; "-----------------PCBoard:--------------------"
ASSIGN S8 "Description.... jh"
;
; "---------------Wildcat:-----------------"
ASSIGN S9 "Description.... "
ASSIGN S0 "............... jh"
; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
IF ZERO N2 ; si la session va normalement
;
;
IF EQ N0 1 ; si le prog. BBS est PCBoard
INIT N1 0 ; initialiser ERREUR DE MODULE … z‚ro
INIT N1 0 ; initialiser ERREUR DE MODULE … z‚ro
STRCAT S7 S4 ; path + nom du fichier
ISFILE S7 ; le fichier pour u/l existe?
IF FAILURE
MESSAGE "^M"
MESSAGE "!!! File to upload does not exist."
INIT N1 1 ; lever flag ERREUR DE MODULE
ENDIF
IF ZERO N1 ; si le module va bien jusqu'ici
TRANSMIT "u "
TRANSMIT S4 ; nom du fichier
TRANSMIT "^M"
WAITFOR ")^M^J? " 80 ; prompt pour description
IF NOT WAITFOR
MESSAGE "^M"
MESSAGE "!!! No prompt for description "
INIT N1 1 ; lever 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
WAITFOR "DUMMYSTRING" 1
WHEN "(N)=abort?" "C^M"
TRANSMIT S8 ; description
TRANSMIT "^M"
WAITFOR "(Ctrl-X) Aborts Transfer" ; PC Board est prˆt
IF NOT WAITFOR
MESSAGE "^M"
MESSAGE "!!! PCBoard not ready to receive."
INIT N1 1 ; lever 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
WAITFOR "DUMMYSTRING" 1
ASSIGN S8 "dsz sx "
STRCAT S8 S7
DOS S8
WAITFOR "DUMMYSTRING" 2
ENDIF
ENDIF ; fin de la section PCBoard
;
;
IF EQ N0 2 ; si le prog BBS est Wildcat
INIT N1 0 ; initialiser ERREUR DE MODULE … z‚ro
INIT N1 0 ; initialiser ERREUR DE MODULE … z‚ro
STRCAT S7 S4 ; path + nom du fichier
ISFILE S7 ; le fichier pour u/l existe?
IF FAILURE
MESSAGE "^M"
MESSAGE "!!! File to upload does not exist."
INIT N1 1 ; lever flag ERREUR DE MODULE
ENDIF
IF ZERO N1
TRANSMIT "f"
WAITFOR "R ? D G U]:" 10 ; file menu
TRANSMIT "u"
WHEN "[N]onStop: " "n"
WAITFOR "Select:" 10
TRANSMIT "c"
WAITFOR "filename >" 10
TRANSMIT S4 ; nom du fichier
TRANSMIT "^M"
WAITFOR "this file [y/n] ? " ; password protect?
IF NOT WAITFOR
MESSAGE "^M"
MESSAGE "!!! No prompt for file protection"
INIT N1 1 ; lever flag ERREUR DE MODULE
TRANSMIT "^X^X^X" ; interruption
WAITFOR "DUMMYSTRING" 5
TRANSMIT "^M^M^M" ; retrouver prompt "file menu"
WAITFOR "DUMMYSTRING" 5
TRANSMIT "q" ; retrouver prompt 1er niveau
ENDIF
ENDIF
IF ZERO N1 ; si le module va bien jusqu'ici
TRANSMIT "n"
WAITFOR "Line 1:" 10
TRANSMIT S9 ; description (ligne 1)
TRANSMIT "^M"
WAITFOR "Line 2:" 10
TRANSMIT S0 ; description (ligne 2)
TRANSMIT "^M"
WAITFOR "Control-X to abort." 10
IF NOT WAITFOR
MESSAGE "^M"
MESSAGE "!!! Wildcat not ready to receive."
INIT N1 1 ; lever 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
WAITFOR "DUMMYSTRING" 1
ASSIGN S8 "dsz sx "
STRCAT S8 S7
DOS S8
WAITFOR "about this file?" 10
TRANSMIT "n"
WAITFOR "R ? D G U]:" 10
TRANSMIT "q"
WAITFOR "P I H ? G]:" 10
ENDIF
ENDIF ; fin de la section Wildcat
;
;
ENDIF
;-------------------------------------------------------------------
;


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