home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Dr. CD ROM (Annual Premium Edition)
/
premium.zip
/
premium
/
IBMOS2_1
/
ALRMPR14.ZIP
/
APUNINST.CMD
< prev
next >
Wrap
OS/2 REXX Batch file
|
1993-07-04
|
1KB
|
40 lines
/* */
call RxFuncAdd 'SysLoadFuncs', 'RexxUtil', 'SysLoadFuncs'
call SysLoadFuncs
call SysCls
say ' '
say '┌───────────────────────────────────────────┐'
say '│ │'
say '│ Alarm Pro Uninstall │'
say '│ │'
say '│ This utility will remove all AlarmPro │'
say '│ information from your OS2.INI file. │'
say '│ │'
say '└───────────────────────────────────────────┘'
call KILLAPP
exit
KILLAPP:
do I = 1 to 5 by 1
say ' '
say ' '
say 'Press Y to continue or N to abort.'
rc = SysGetKey()
select
when rc = 'Y' then do
result = SysIni('USER', 'AlrmPro', 'DELETE:')
return
end /* Do */
when rc = 'y' then do
result = SysIni('USER', 'AlrmPro', 'DELETE:')
return
end /* Do */
when rc = 'N' then return
when rc = 'n' then return
otherwise beep(454, 100)
end /* select */
end /* do */
return