home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 11 Util / 11-Util.zip / qikv2.zip / qv2instal.CMD < prev    next >
OS/2 REXX Batch file  |  2000-02-15  |  843b  |  40 lines
  1. /* QikView/2 Install Program */
  2. /* Created by Daniel Goggia  */
  3. /* Date: 2/15/2000 */
  4. /* Does: Install QikView/2 On Drive & Directory You Wish */
  5. '@ECHO OFF'
  6. call RxFuncAdd 'SysLoadFuncs', 'RexxUtil', 'sysLoadFuncs'
  7. call SysLoadFuncs
  8. 'mode co80,25'
  9.  
  10. parse source w1 w2 floc
  11. fdr=filespec('drive',floc)
  12. fpath=filespec('path', floc)
  13. loc=fdr||fpath
  14.  
  15. call SysFileTree loc'*.*', flist, 'FO'
  16.  
  17.  
  18. say 'Enter the drive and path location for QikView/2.'
  19. say 'About 4 to 5MB of space is needed & Directory must have 5 or more characters.'
  20. say:say'  e.g.  d:\QikV2 '
  21. pull toloc
  22.  
  23. rc=1000
  24. do until rc=0 | rc=5
  25. rc=sysMKDir(toloc)
  26. 'copy *.* 'toloc
  27.  
  28.  
  29. 'cls'
  30. say ''
  31. say ''
  32. say ''
  33. say ''
  34. say 'QikView/2 Installation Has Ended'
  35. say 'To Add QikView/2 To Desktop See Read1st txt or OS/2 Help Add to Desktop'
  36. /* pull */
  37.  
  38.  
  39. return
  40.