home *** CD-ROM | disk | FTP | other *** search
/ ftp.ee.lbl.gov / 2014.05.ftp.ee.lbl.gov.tar / ftp.ee.lbl.gov / mtrek.shar.Z / mtrek.shar / delete.cmd < prev    next >
OS/2 REXX Batch file  |  1990-04-02  |  319b  |  23 lines
  1. .ENABLE SUBSTITUTION
  2. .10:
  3. .ASKS G G
  4. .ASKS M M
  5. PIP ['G','M']/LI
  6. .;IF <EXSTAT> <> 1 .GOTO 10
  7. .ASK FLAG Delete
  8. .IFF FLAG .GOTO 10
  9. PIP ['G','M']*.*;*/DE
  10. .100:
  11. .TEST G
  12. .IF <STRLEN> > 2 .GOTO 200
  13. .SETS G "0"+G
  14. .GOTO 100
  15. .200:
  16. .TEST M
  17. .IF <STRLEN> > 2 .GOTO 300
  18. .SETS M "0"+M
  19. .GOTO 200
  20. .300:
  21. PIP [0,0]'G''M'.DIR;*/DE
  22. .GOTO 10
  23.