home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 35 Internet / 35-Internet.zip / vsoup128.zip / rmhigh.cmd < prev    next >
OS/2 REXX Batch file  |  1996-11-11  |  378b  |  24 lines
  1. /*  rmhigh.cmd
  2.  *
  3.  *  removes the highlighting stuff in VSoup.Txt
  4.  *  invoke with 'rmhigh < vsoup.txt > vsoup.doc'
  5.  */
  6.  
  7. IF chars() \= 0 THEN
  8.     c2 = charin()
  9. ELSE DO
  10.     SAY 'need input file on stdin!'
  11.     EXIT 1
  12. END
  13.  
  14. DO WHILE chars() \= 0
  15.     c1 = c2
  16.     c2 = charin()
  17.     IF c2 \= X2C('8') THEN
  18.     rc = charout( ,c1 )
  19.     ELSE
  20.     c2 = charin()
  21. END
  22.  
  23. EXIT 0
  24.