home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 18 REXX / 18-REXX.zip / blkos207.zip / U5.CMD < prev   
OS/2 REXX Batch file  |  1993-05-15  |  1KB  |  68 lines
  1. /*UNARCHIVE.CMD*/
  2. /*copyright(c) 1992,1993 C>BLACK,B.Stone, KUTEK, all rights reserved*/
  3. '@echo off'
  4. if rxfuncquery(sysloadfuncs) then do
  5. say 'LOADING REXXUTIL'
  6. call RxFuncAdd 'SysLoadFuncs' , 'Rexxutil' , 'SysLoadFuncs'
  7. call SysLoadFuncs
  8. end
  9. xsx=directory()
  10. arg aa 
  11. say aa
  12. aa=strip(aa,'B')
  13. len=length(aa)-4
  14. parse var aa nam '.' z
  15. drvc=substr(aa,1,3)
  16. s=directory(drvc)
  17. 'md' nam
  18. if right(aa,3)='EXE' then do
  19. 'call copy' aa nam
  20. cd nam
  21. aa 
  22. end
  23. if right(aa,3)='ZIP' then do
  24. 'copy' aa nam
  25. cd nam
  26. 'un3 ' aa     /*?*****?*/
  27. end
  28. if right(aa,3)='ARJ' then do
  29. 'copy' aa nam
  30. cd nam
  31. 'arj x -jf ' aa  /*?*****?*/
  32. end
  33. if right(aa,3)='LZH' then do
  34. 'copy' aa nam
  35. 'cd' nam
  36. 'lh /a /s x' aa   /*?*****?*/
  37. end
  38. if right(aa,3)='ZOO' then do
  39. 'copy' aa nam
  40. 'cd' nam
  41. 'ZOO x' aa   /*?*****?*/
  42. end
  43. if right(aa,3)='ARC' then do
  44. 'copy' aa nam
  45. 'cd' nam
  46. 'ARC x' aa  /*?*****?*/
  47. end
  48. call syssetobjectdata nam,'open=default'
  49. 'cd\'
  50. cd nam
  51. str:
  52. do 3
  53. say nam
  54. end
  55. say 'START A DOS SESSION?(Y/N)'
  56. pull qt
  57. if qt='Y'|qt='y' then do;'start /dos ';pause;end
  58. else if qt='n'|qt='N' then 'cmd /k blkos2'
  59. else call str
  60. say nam
  61. parse var nam drv'\'na
  62. nat=drv||na
  63. say nat
  64. 'call dd' nat '/'
  65. s=directory(xsx)
  66. exit
  67.  
  68.