home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / INFO / TURBOPAS / TUR6_102.ZIP / ARCIT.BAT < prev    next >
Encoding:
DOS Batch File  |  1986-02-02  |  768 b   |  37 lines
  1. REM  *** Written by Jeff Strickler and Modified by Karson W. Morrison ***
  2. filefac /no
  3. MD TEMP 
  4. :START
  5. COPY %1.L?R TEMP
  6. CD TEMP
  7. IF EXIST %1.LQR ALUSQ11 %1.LQR
  8. IF EXIST %1.LQR DEL %1.LQR
  9. IF NOT EXIST %1.LBR GOTO OTHERLBR
  10. LU A %1.LBR
  11. :NOLBR
  12. DEL %1.LBR
  13. IF EXIST *.?Q? GOTO UNSQ
  14. IF EXIST *.LBR GOTO OTHERLBR
  15. :ARCNOW
  16. ARC U %1.ARC *.*
  17. DEL ..\%1.L?R
  18. COPY %1.ARC ..
  19. KEY-FAKE "Y" 13
  20. DEL *.* 
  21. CD ..
  22. SHIFT
  23. IF NOT EXIST %1.L?R GOTO FINISH
  24. GOTO START
  25. :UNSQ
  26. ALUSQ11 *.?Q?
  27. DEL *.?Q?
  28. :OTHERLBR
  29. IF EXIST *.LBR ARCITLBR
  30. IF EXIST *.LBR GOTO NOLBR
  31. GOTO ARCNOW
  32. :FINISH
  33. CLS
  34. REM  *** ALL SPECIFIED FILES ARCED ***
  35. RD TEMP
  36. Filefac /o
  37.