home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: InfoMgt / InfoMgt.zip / alrm30d.zip / ACUNINST.CMD < prev    next >
OS/2 REXX Batch file  |  1993-07-25  |  1KB  |  40 lines
  1. /* */
  2. call RxFuncAdd 'SysLoadFuncs', 'RexxUtil', 'SysLoadFuncs'
  3. call SysLoadFuncs
  4. call SysCls
  5. say ' '
  6. say '┌───────────────────────────────────────────┐'
  7. say '│                                           │'
  8. say '│         Alarm Clock Uninstall             │'
  9. say '│                                           │'
  10. say '│ This utility will remove all Alarm Clock  │'
  11. say '│ information from your OS2.INI file.       │'
  12. say '│                                           │'
  13. say '└───────────────────────────────────────────┘'
  14.  
  15. call KILLAPP
  16.    
  17. exit
  18.  
  19. KILLAPP:
  20.    do I = 1 to 5 by 1
  21.       say ' '
  22.       say ' '
  23.       say 'Press Y to continue or N to abort.'
  24.       rc = SysGetKey()
  25.       select
  26.           when rc = 'Y' then do
  27.              result = SysIni('USER', 'AlrmClk2', 'DELETE:')
  28.              return
  29.              end  /* Do */
  30.           when rc = 'y' then do
  31.              result = SysIni('USER', 'AlrmClk2', 'DELETE:')
  32.              return
  33.              end  /* Do */
  34.           when rc = 'N' then return
  35.           when rc = 'n' then return
  36.           otherwise beep(454, 100)
  37.       end  /* select */
  38.    end /* do */
  39. return
  40.