home *** CD-ROM | disk | FTP | other *** search
/ Sound, Music & MIDI Collection 2 / SMMVOL2.bin / DOS / CDPLAY / CDBOX15.ZIP / CDBOXOUT.CMD < prev    next >
Encoding:
Text File  |  1995-09-10  |  1.8 KB  |  75 lines
  1. /* This REXX script is used to remove all CD in a Box Files */
  2. /* from your Hard Disk and to remove the entry from the */
  3. /* OS2.INI File */
  4.  
  5. /* setup Rexx SysFunc */
  6. call RXFUNCADD 'SysLoadFuncs', 'REXXUTIL', 'SysLoadFuncs'
  7. call SysLoadFuncs
  8.  
  9. Program = "CDInABox"
  10. File.0 = 7
  11. File.1 = 'CDinaBox.EXE'
  12. File.2 = 'CDinaBox.INI'
  13. File.3 = 'CDinaBox.DAT'
  14. File.4 = 'CDBox.DAT'
  15. File.5 = 'CDinaBox.hlp'
  16. File.6 = 'CDBoxout.CMD'
  17. File.7 = 'CDBoxcvt.EXE'
  18. rc = 0
  19.  
  20. Call SysCls
  21.  
  22. Say ''
  23. Say ''
  24.  
  25.    /* Confirm deletion */
  26. Say 'Do You wish to remove CD in a Box from your system?'
  27. Say 'Enter Y or N '
  28. PARSE UPPER PULL Option
  29.  
  30. if Option = 'Y' then
  31.    DO
  32.  
  33.    /* Delete files */
  34. Say 'Removing Files'
  35. do index = 1 to File.0
  36.    rc = SysFileDelete( File.index )
  37.    select
  38.       when rc = 0 then
  39.          Say File.index' Removed Ok'
  40.       when rc = 2 then
  41.          Say File.index' could not be Found'
  42.       Otherwise
  43.          Say 'An Error Occured Removing 'File.index
  44.    end /* end Select rc */
  45. end /* do index = 1 to file.0 */
  46.  
  47. Say ''
  48.    /* Remove Data from OS2.INI File */
  49. Say 'Removing Entry From OS2.INI File'
  50. rc = SysIni( 'USER', Program, 'ALL:', 'Names.')
  51.  
  52. if Names.0 = 0 then
  53.       DO
  54.    Say 'No Entry Found for CD in a Box.'
  55.       END /* end if names.0 = 0 */
  56. else /* else names.0 = 0 */
  57.       DO
  58.    rc = SysIni( 'USER', Program, 'DELETE:')
  59.  
  60.    if rc = 'ERROR:' then
  61.          DO
  62.       Say 'An Error occured Removing the Entry for CD in a Box'
  63.          END /* end if rc = error */
  64.    else /* else rc = error */
  65.          DO
  66.       Say 'CD in a Box Entry Removed Ok.'
  67.          END /* end else if rc = error */
  68.       END /* end else if names.0 = 0 */
  69.  
  70. Say ''
  71. Say 'Thank You For Trying CD in a Box.   I Hope you Found it Useful.'
  72.  
  73.    END /* end if option = Y */
  74.  
  75.