/* Delete installed version.                                          */
/* Copyright 1996 Lotus Development Corporation. All rights reserved. */
'@Echo Off'

/* Get source of call. */
PARSE SOURCE os2 type invocation
/* "invocation" holds complete path, i.e. C:\LOTUSOS2\...\UNINST.CMD */

/* Find last occurrence of the backslash. */
lastslash = LASTPOS('\',invocation)

/* Remove the program name, keeping the final backslash. */
path = SUBSTR(invocation,1,lastslash)

/* Prepend the "path" to the Install command, and issue */
/* it specifying the delete action.                     */
path'product\install.exe /a:d'
