home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 18 REXX / 18-REXX.zip / rexxtk12.zip / preinst.rexx < prev    next >
OS/2 REXX Batch file  |  2001-01-30  |  245b  |  11 lines
  1. /**/
  2. Parse Arg rexx_exe infile outfile
  3. line = Linein(infile)
  4. Call Stream outfile, 'C', 'OPEN WRITE REPLACE'
  5. Call Lineout outfile, "#!" || rexx_exe
  6. Do While(Lines(infile) > 0)
  7.    line = Linein(infile)
  8.    Call Lineout(outfile, line )
  9. End
  10. Return 0
  11.