home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 18 REXX / 18-REXX.zip / TNTFIX.CMD < prev    next >
OS/2 REXX Batch file  |  1992-10-16  |  644b  |  19 lines
  1. /* TNTFIX.CMD -- An OS/2 Rexx program (Bill Hinkle [75300,2050] */
  2. /* Fix OS2TNT.DOC so that it paginates evenly to 66 lines/page */
  3. /* Run from OS/2 cmd line in directory of OS2TNT.DOC, creates OS2TNT.TXT */
  4. infile = 'OS2TNT.DOC';
  5. outfile = 'OS2TNT.TXT';
  6. linecount = 0;
  7. lineskip = 0;
  8. DO WHILE LINES(infile) > 0;
  9.  chkline = LINEIN(infile);
  10.  linecount = linecount + 1;
  11.  IF (POS('_',chkline) > 0) & (VERIFY(chkline,' _') = 0)
  12.  THEN lineskip = lineskip + 1;
  13.  ELSE fu = LINEOUT(outfile,chkline);
  14.  fu = CHAROUT(,linecount||' lines with '||lineskip||' skipped.'||D2C(13));
  15. END;
  16. BEEP(1000,1);
  17. SAY ;
  18. SAY 'Done! ' outfile ' created.';
  19.