home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 18 REXX / 18-REXX.zip / I265.ZIP / reverse.cmd < prev    next >
OS/2 REXX Batch file  |  1992-08-05  |  204b  |  10 lines
  1. /* REVERSE.CMD */
  2. arg filein fileout .
  3. call LINEIN filein,,0
  4. do while lines(filein)
  5.      text = linein(filein)
  6.      call LINEOUT fileout,reverse(text)
  7. end
  8. call LINEOUT fileout
  9. call LINEIN filein
  10.