Category : OS/2 Files
Archive   : FM2.ZIP
Filename : UNINSTAL.CMD

/*
* FM/2 2.x deinstallation program copyright (c) 1994 by M. Kimes
*
* This program removes the FM/2 folder and any OS2USER.INI records
* for FM/2.
*
* For unattended use, remove the lines marked with "NOTE:" below and
* see note at bottom of program.
*/

'@Echo off'
'cls'
'echo ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿'
'echo ³ FM/2 2.x Deinstallation Program ³'
'echo ³ FM/2 is copyright (c) 1993/94 by M. Kimes ³'
'echo ³ All rights reserved ³'
'echo ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ'

/* see if we might be in the right directory... */

rc = stream('fm3.exe','c','query exists')
if rc = '' then
do
say 'Sorry, FM3.EXE not found. Must not be right directory. Terminating.'
exit
end

/* tell user what we're doing, give him a chance to hit CTRL-C */

say ''
say ' **WARNING: This program uninstalls FM/2.'
say ''


/* NOTE: remove following 3 lines for unattended use... */
say 'Press [Enter] (or CTRL-C then [Enter] to abort).'
Pull dummy .
say ''


/* load rexx utility functions */

call RxFuncAdd 'SysLoadFuncs', 'RexxUtil', 'SysLoadFuncs'
call SysLoadFuncs

say 'Working...'

/* remove FM/2 folder object */
call SysDestroyObject ""

/* remove all FM/2-related information from user ini file */
call SysIni 'USER', 'FM/2'
call SysIni 'USER', 'FM2'

/* remove fm2.cmd file if found on PATH */
fm2cmd = SysSearchPath('PATH', 'FM2.CMD')
if fm2cmd \= '' then
'del 'fm2cmd

/* done */

say ''
/* NOTE: remove following 3 lines for unattended use... */
say "Delete programs and you're done (DEL *). Press [Enter]."
Pull dummy .
say ''

/* NOTE: Add 'ECHO Y | DEL *' for unattended use... */