home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 10 Tools / 10-Tools.zip / ctformat.zip / CTF.CMD next >
OS/2 REXX Batch file  |  1993-02-05  |  621b  |  31 lines
  1. @echo off
  2. if %1.==?. goto help
  3. if not %1.==. goto checkparms
  4. :help
  5. ctformat ?
  6. goto finis
  7. :checkparms
  8. copy %1 ctformat.bak >nul
  9. if x==x%3 goto oneparm
  10. if x==x%4 goto twoparms
  11. if x==x%5 goto threeparms
  12. if x==x%6 goto fourparms
  13. if x==x%7 goto fiveparms
  14. ctformat %2,%3,%4,%5,%6,%7 <ctformat.bak >%1
  15. goto finis
  16. :fiveparms
  17. ctformat %2,%3,%4,%5,%6 <ctformat.bak >%1
  18. goto finis
  19. :fourparms
  20. ctformat %2,%3,%4,%5 <ctformat.bak >%1
  21. goto finis
  22. :threeparms
  23. ctformat %2,%3,%4 <ctformat.bak >%1
  24. goto finis
  25. :twoparms
  26. ctformat %2,%3 <ctformat.bak >%1
  27. goto finis
  28. :oneparm
  29. ctformat %2 <ctformat.bak >%1
  30. :finis
  31.