ftp.tcs3.com/ftp.tcs3.com.tar/ftp.tcs3.com/DRIVERS/Video/TSeng/ET4000PC.ZIP/PANASTN.ZIP/INSTALL.DAT

Text File | 1995-03-15 | 11KB | 345 lines

/*
 INSTALL.DAT

 Project: panaStation Classic
 Version: 1.0

*/

// To place a @pause in the center of the display page,
// space in 38 spaces and then type @pause.  To make sure
// that the @pause is at the bottom of the display, the
// @pause should be at line 21 or better of the display.

// Standard header here...

@DefineProject
    @Name = "panaStation Classic"
    @Version = "1.00"
    @Subdir = "\\USTATION\\DRIVERS"
    @OutDrive = C
    @Group = "A"
    @InDiskBell = 1
@EndProject

// Define all the vars you need here
// Init all strings with "" or a hard coded string
// Init all Integers with 0 or 1

@DefineVars
    @Integer @DDrive = 99
    @Integer @StrLens = 0
    @Integer @bannercol = 0
    @Integer @Version5Flag = 1
    @Integer @OurCol = 0
    @Integer @XX = 0
    @Dir @USTATIONDir  = "\\USTATION"
    @Drive @USTATIONDrive  = C
    @qstring @redprogram = "PANASTN.RED"
    @qstring @thisprogram = "PANASTN.EXP"
    @qstring @namethisprogram = "panaStation Classic"
    @qstring @helpcontact = " "
    @qstring @ourhomeexp = ""
    @qstring @ourhomered = ""
    @qstring @tempstring = ""
    @qstring @bannername = " p a n a S t a t i o n   C l a s s i c   I n s t a l l "
@EndVars

// setup some of the local var defs

// Used to display the banner on all screens

@xx = @strlen("@bannername")
@bannercol = (38 - @xx/2)

// get the correct string for the EXP and the RED files

@ourhomeexp = @wherearewe(@thisprogram)

@ourhomered = @wherearewe(@redprogram)

@tempstring = " utility for @namethisprogram ! "
@xx = @strlen(@tempstring)
@ourcol = (40 - @xx/2)

@movecstr(0,0,63,"╔════════════════════════════════════════════════════════════════════════════╗")
@movecstr(1,0,63,"║                                                                            ║")
@movecstr(2,0,63,"║                                                                            ║")
@movecstr(3,0,63,"║                                                                            ║")
@movecstr(3,25,48," Welcome to the installation ")
@movecstr(4,0,63,"║                                                                            ║")
@movecstr(4,@ourcol,48,@tempstring)
@movecstr(5,0,63,"║                                                                            ║")
@movecstr(6,0,63,"║                                                                            ║")
@movecstr(7,0,63,"║                                                                            ║")
@movecstr(8,0,63,"║                                                                            ║")
@movecstr(8,32,63,"Developed by:")
@movecstr(9,0,63,"║                                                                            ║")
@movecstr(10,0,63,"║                                                                            ║")
@movecstr(10,33,49,"Panacea Inc.")
@movecstr(11,0,63,"║                                                                            ║")
@movecstr(11,28,49,"24 Orchard View Drive")
@movecstr(12,0,63,"║                                                                            ║")
@movecstr(12,28,49,"Londonderry, NH 03053")
@movecstr(13,0,63,"║                                                                            ║")
@movecstr(13,37,49,"USA")
@movecstr(14,0,63,"║                                                                            ║")
@movecstr(15,0,63,"║                                                                            ║")
@movecstr(16,0,63,"║                                                                            ║")
@movecstr(17,0,63,"║                                                                            ║")
@movecstr(18,0,63,"║                                                                            ║")
@movecstr(19,0,63,"║                                                                            ║")
@movecstr(20,0,63,"║                                                                            ║")
@movecstr(21,0,63,"║                                                                            ║")
@movecstr(22,0,63,"║                                                                            ║")
@movecstr(23,0,63,"║                                                                            ║")
@movecstr(24,0,63,"║                                                                            ║")
@movecstr(25,0,63,"╚════════════════════════════════════════════════════════════════════════════╝")


@OurPause

@Display
   @cls
@EndDisplay

// clear the options first
@clearoption(1000)
@clearoption(2000)

@GetOption @cls
@LocalWindow(14,40)

@movecstr(1,8,62,"╔═══════════════════════════════════════════════════════════╗")
@movecstr(2,8,62,"║                                                           ║")
@movecstr(3,8,62,"╚═══════════════════════════════════════════════════════════╝")
@Movecstr(2, @bannercol, 48, @bannername)

@move(8,0)
       Please enter the Version of MircoStation you are running:

    @Option 1000 = "    Version 5     "
    @Option 2000 = "    Version 4     "

@EndOption

@If(2000 [= @Option)
   @Version5Flag = 0
@Else
   @Version5Flag = 1
@EndIf



Get_USTATION:

@GetOutDrive @USTATIONDrive

    Install needs to know which drive you would like to copy
    @namethisprogram files to. Please select an available
    drive from the list below.

    @LocalWindow(16,56)

    Use the [Up Arrow], [Down Arrow],
    [Pg Up], & [Pg Dn] keys to highlight
    your selection and then press the
    [Enter] key to continue.

@EndOutDrive

@GetSubDir @USTATIONDir

    @Cls
    @LocalWindow(14,40)

    @movecstr(1,8,62,"╔═══════════════════════════════════════════════════════════╗")
    @movecstr(2,8,62,"║                                                           ║")
    @movecstr(3,8,62,"╚═══════════════════════════════════════════════════════════╝")
    @Movecstr(2, @bannercol, 48, @bannername)

    @movecstr(7,5,31,"      Enter The MicroStation directory located on @USTATIONDrive:")

@EndSubDir

// Clear the options out
@clearoption(10)
@clearoption(20)

@If (@DirExists("@USTATIONDrive:\\@USTATIONDir"))
  @GoTo Report
@Else
  @GoTo NoDirExist
@Endif

// Now we display path not found message and ask the user to try again.

NoDirExist:
    @LocalWindow(14,40)
    @movecstr(1,8,62,"╔═══════════════════════════════════════════════════════════╗")
    @movecstr(2,8,62,"║                                                           ║")
    @movecstr(3,8,62,"╚═══════════════════════════════════════════════════════════╝")
    @Movecstr(2, @bannercol, 48, @bannername)


    @movecstr(7,5,31,"     @USTATIONDrive:@USTATIONDir does not exist. ")
    @movecstr(9,5,31,"     Please re-enter the information. ")

    @clearoption(10)
    @clearoption(20)

@Display
    @move(18,20)
    @pause
    @cls
@EndDisplay

@GoTo Get_USTATION



// Now we know where to install panaStation Classic, tell the user whats going on

Report:

@clearoption(10)
@clearoption(20)

@tempstring = " @USTATIONDrive:@USTATIONDir exists, do you wish to use it? "
@xx = @strlen(@tempstring)
@ourcol = (38 - @xx/2)

@Getoption
@localwindow(14,40)

@movecstr(1,8,62,"╔═══════════════════════════════════════════════════════════╗")
@movecstr(2,8,62,"║                                                           ║")
@movecstr(3,8,62,"╚═══════════════════════════════════════════════════════════╝")
@Movecstr(2, @bannercol, 48, @bannername)

@movecstr(9,@ourcol,48,@tempstring)
     @Option 10 = "Yes, Continue"
     @Option 20 = "No; re-enter the information"
@Endoption

@If(20 [= @Option)
   @Goto Get_USTATION
@Endif

// we get here from building the dir\sub-dir and not asking if they want to use it.

WeBuiltPath:

// Test the amount of free room left on the dest drive

@Display @Cls

   @if (@diskfree(@USTATIONDrive) < 600000)

      @move(7,0)
      The selected output disk drive only has @diskfree(@USTATIONDrive) bytes.

      @namethisprogram requires a minumum of 0.6mb.

      The Install program will now exit, please correct this problem

      and re-run the Install program.
      @move(21,0)
     @pause
      @exit
   @endif
@enddisplay

@tempstring = " @USTATIONDrive:@USTATIONDir "
@xx = @strlen(@tempstring)
@ourcol = (40 - @xx/2)

@movecstr(12,@ourcol,63,@tempstring)

@tempstring = " @Name will be installed in: "
@xx = @strlen(@tempstring)
@ourcol = (40 - @xx/2)

// Clear the options out
@clearoption(10)
@clearoption(20)

@GetOption

@LocalWindow(17,40)

@movecstr(1,8,62,"╔═══════════════════════════════════════════════════════════╗")
@movecstr(2,8,62,"║                                                           ║")
@movecstr(3,8,62,"╚═══════════════════════════════════════════════════════════╝")
@Movecstr(2, @bannercol, 48, @bannername)

@movecstr(8,@ourcol,63,@tempstring)
     @Option 10 = "Yes, this is the correct path"
     @Option 20 = "No; re-enter the information"
@endoption

@If(10 [= @Option)
   @Goto Start_Copy
@Else
   @Goto Get_USTATION
@Endif

Start_Copy:

@If (@DirExists("@USTATIONDrive:\\@USTATIONDir\\DRIVERS"))
  @GoTo Got_Allsubs
@Else
   @MkDir("@USTATIONDrive:@USTATIONDir\\DRIVERS")
@Endif

Got_Allsubs:

@If (@Version5Flag == 1)
// Here if Version 5 of MicroStaiton
@DefineDisk
   @Label = "Disk #1"
   @BeginLib @ourhomered
     @File PANASTN.EXP  @OUT @USTATIONDrive:\\@USTATIONDir\\DRIVERS\\panastnp.*
     @File PANASTN.MA   @OUT @USTATIONDrive:\\@USTATIONDir\\DRIVERS\\panastnp.*
     @File PANASTNp.MGL  @OUT @USTATIONDrive:\\@USTATIONDir\\DRIVERS\\*.*
     @File PANASTN.EXP  @OUT @USTATIONDrive:\\@USTATIONDir\\DRIVERS\\panastns.*
     @File PANASTN.MA   @OUT @USTATIONDrive:\\@USTATIONDir\\DRIVERS\\panastns.*
     @File PANASTNs.MGL  @OUT @USTATIONDrive:\\@USTATIONDir\\DRIVERS\\*.*
     @File PSCONFIG.EXE @OUT @USTATIONDrive:\\@USTATIONDir\\DRIVERS\\*.*
     @File READ.ME      @OUT @USTATIONDrive:\\@USTATIONDir\\DRIVERS\\*.*
     @File PSTATION.HLP @OUT @USTATIONDrive:\\@USTATIONDir\\*.*
   @EndLib
@EndDisk

@Else
// Here if Version 4 of MicroStaiton
@DefineDisk
   @Label = "Disk #1"
   @BeginLib @ourhomered
     @File PANASTN.EXP  @OUT @USTATIONDrive:\\@USTATIONDir\\DRIVERS\\panastn.*
     @File PANASTN.MA   @OUT @USTATIONDrive:\\@USTATIONDir\\DRIVERS\\panastn.*
     @File PANASTN.MGL  @OUT @USTATIONDrive:\\@USTATIONDir\\DRIVERS\\*.*
     @File PSCONFIG.EXE @OUT @USTATIONDrive:\\@USTATIONDir\\DRIVERS\\*.*
     @File READ.ME      @OUT @USTATIONDrive:\\@USTATIONDir\\DRIVERS\\*.*
     @File PSTATION.HLP @OUT @USTATIONDrive:\\@USTATIONDir\\*.*
   @EndLib
@EndDisk
@Endif

@Finish @cls

   @move(2,0)
     You have successfully installed @namethisprogram.


     Thank you again for using @namethisprogram.

 @move(21,0)
     @pause

@EndFinish

// end-of-file