home *** CD-ROM | disk | FTP | other *** search
- /* generates the dl%P.bbs */
- arg prot com node filelist
- logoff=0
- if prot="L" then do
- logoff=1
- prot="Z"
- end
-
- dlbbs="dl"node".bbs"
- "@del "dlbbs
- rc=lineout(dlbbs,"") /*[moreoff] */
- rc=lineout(dlbbs,"P"prot) /*[key_poke]prot */
- rc=lineout(dlbbs,"rj") /*[chg_protocoll]*/
- line=linein(filelist)
- do while line<>""
- fname=word(line,1)
- rc=lineout(dlbbs,"J"fname"%") /*[download]filename%*/
- line=linein(filelist)
- end
- rc=lineout(filelist)
- if logoff=1 then rc=lineout(dlbbs,"P/G") /*[key_poke]/G */
- rc=lineout(dlbbs,"P|") /*[key_poke]| */
- rc=lineout(dlbbs,"r∙") /*[menu_cmd download]*/
- rc=lineout(dlbbs,"") /*[enter] */
- rc=lineout(dlbbs)
- exit