home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Professional / OS2PRO194.ISO / os2 / com / bbs / offtag10 / downmult.cmd < prev    next >
OS/2 REXX Batch file  |  1993-07-17  |  846b  |  27 lines
  1. /* generates the dl%P.bbs */
  2. arg prot com node filelist
  3. logoff=0
  4. if prot="L" then do
  5.   logoff=1
  6.   prot="Z"
  7. end
  8.  
  9. dlbbs="dl"node".bbs"
  10. "@del "dlbbs
  11. rc=lineout(dlbbs," ")                       /*[moreoff]          */
  12. rc=lineout(dlbbs,"P"prot)                  /*[key_poke]prot     */
  13. rc=lineout(dlbbs,"rj")                    /*[chg_protocoll]*/
  14. line=linein(filelist)
  15. do while line<>""
  16.   fname=word(line,1)
  17.   rc=lineout(dlbbs,"J"fname"%")            /*[download]filename%*/
  18.   line=linein(filelist)
  19. end
  20. rc=lineout(filelist)
  21. if logoff=1 then rc=lineout(dlbbs,"P/G")   /*[key_poke]/G       */
  22. rc=lineout(dlbbs,"P|")                     /*[key_poke]|        */
  23. rc=lineout(dlbbs,"r∙")                    /*[menu_cmd download]*/
  24. rc=lineout(dlbbs,"")                       /*[enter]            */
  25. rc=lineout(dlbbs)
  26. exit
  27.