home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 5 Edit / 05-Edit.zip / draftit.zip / Install.cmd < prev    next >
OS/2 REXX Batch file  |  1996-07-02  |  1KB  |  43 lines
  1. /**/
  2. CALL RxFuncAdd 'SysLoadFuncs','Rexxutil','SysLoadFuncs'
  3. CALL SysLoadFuncs
  4.  
  5.    place = directory()
  6.    
  7.    
  8. Liste = sysdrivemap('c:', 'used')
  9. x = words(liste)
  10. stnumb = 1
  11.  
  12. DO until stnumb = x+1
  13. s = word(liste, stnumb)
  14. call sysfiletree s'\os2', 'entdeckt', 'do'
  15. if entdeckt.0 > 0 then do
  16. entdeckt.2 = entdeckt.1'\dll'   
  17. befehl = copy place'\rxextras.dll' entdeckt.2
  18. befehl
  19. say 'Is the shareware dll RexxBase already installed on your machine? y/n'   
  20. pull answer
  21. if answer = y then nop
  22. if answer = n then do
  23. befehl = copy place'\rexxbase.dll' entdeckt.2
  24. befehl
  25. end             
  26. say 'Is the ReXX debugger RxD already installed on your machine? y/n'
  27. pull answer      
  28. if answer = y then nop
  29. if answer = n then do
  30. befehl = copy place'\DEBUG\eqkedctl.dll' entdeckt.2
  31. befehl   
  32. befehl = copy place'\DEBUG\RXD.EXE' entdeckt.1'\apps'   
  33. befehl
  34. befehl = copy place'\DEBUG\RXD.HLP' entdeckt.1'\help'   
  35. befehl      
  36. end         
  37. leave
  38. end
  39. else nop
  40. stnumb = stnumb+1
  41. end
  42. rc = SysCreateObject('WPProgram', 'DraftIT', '<WP_DESKTOP>','EXENAME='place'\DraftIT.exe;STARTUPDIR='place';PROGTYPE=PM;', 'U')
  43.