/* Warp 4 Fixpak 4 Installation from CD
   Author: Dirk Terrell
   Copyright 1997,1998, Falcon Networking
   This software may not be used outside of the OS/2 Supersite/BMT Micro
   Fixpak CD. Any other use requires the permission of Falcon Networking.
   Requests can be made by contacting Dirk Terrell at admin@os2ss.com or
   by calling 1-800-595-1974 or (352) 335-9693, or FAX at (352) 335-7734.

   Version of 8 October 1998 - fixes bug on EDM/2 CD version */

/* Ask the user where the CD drive is  */
'cls'
Say "Enter the drive letter of your CD-ROM drive (F, G, etc.):"
Parse Pull Drive
Drive=SubStr(Drive,1,1) /* Just in case they enter F:, G:, etc. */
Drive=Drive||":"
CurrentDir=Drive||"\FIXPAK\WARP4FP8"
InstallDir=Drive||"\FIXPAK\CSF"

/* Set environment variables needed by service.exe */
rc=Value('CSFCDROMDIR',CurrentDir,'OS2ENVIRONMENT')
rc=Value('CSFUTILPATH',InstallDir,'OS2ENVIRONMENT')

/* Change to the Install directory and run service.exe */
rc=Directory(InstallDir)
"service.exe"

Exit