home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
OS/2 Shareware BBS: 3 Comm
/
03-Comm.zip
/
scrmod.zip
/
1.SCR
< prev
next >
Wrap
Text File
|
1991-12-06
|
551b
|
19 lines
> logdir = 'c:\log\'
> logfile = 'send.log'
> mkdir(logdir)
> log(logdir + logfile)
> windowpos(0,0)
> windowsize(24,80)
> windowprms(OFF,200,201)
> watch(ON,ON,3)
> windowshow()
> pcfn = 'c:\3m\exe\en\os2\ok*.dll'
> send('Kermit Server',pcfn,'ok*.km1','del ok*.km1[CR]',ON,OFF)
> send('Kermit Server',pcfn,'ok*.km2','del ok*.km2[CR]',ON,OFF)
> send('Kermit Server',pcfn,'ok*.km3','del ok*.km3[CR]',OFF,ON)
> send('Kermit Server',pcfn,'ok*.km4','del ok*.km4[CR]',ON,ON)
> message('Press any key to terminate script')
> wait()
> end