PC World 1997 November/PCWorld_1997-11_cd.bin/software/sharware/grafika/supers/VISDEMO.EXE/INSTALL.DAT

Text File | 1995-11-09 | 3KB | 120 lines

/* Installation script for VIS */

@SubDir    "C:\\VISDEMO"
@User ""
@Org ""
@DName ""

@Position 1,1
@Print    "\n                        Superscape Visualiser 4.00D\n"
      "                               Installation\n"

/* Get user name and organisation */

@Position 1,8
@Print "              Please enter your name and organisation below."

@OpenWindow 4,12,72,3,0,15
:GETUSER
@Position 2,2
@Print                "Enter your organisation : "
@Position 2,1
@GetSString {User}    "Enter your name         : "
@IF (ERROR=-1)
  @Goto {GETUSER}
@ENDIF
@Position 2,1
@Print "      Y"

:GETORG
@Position 2,2
@GetSString {Org}    "Enter your organisation : "
@IF (ERROR=-1)
  @Goto {GETORG}
@ENDIF
@Position 2,2
@Print "      Y"

@Position 2,4
@GetOption [14 "  Are these correct? (Y/N)" y
            15 "" Y
            16 "" n
            17 "" N]

@IF ((Option 16) || (Option 17))
  @ClearLine 1
  @ClearLine 2
  @ClearLine 4
  @Goto {GETUSER}
@ENDIF

@CloseWindow
@ClearLine 8

:GETDIR

/* Get installation directory */

@OpenWindow 4,13,72,1,0,15
@Position 2,1
@GetString {SubDir}    "Select installation directory : "
@CloseWindow

/* Install program and drivers */

@CreateDir "{SubDir}"
@IF (ERROR=-1)
  @OpenWindow 24,15,32,3,4,15
  @Print " Cannot create directory\n {SubDir}\n\n"
         "          Press a key"
  @Pause
  @CloseWindow
  @Goto {DONE}
@ENDIF

/* Copy Visualiser files to directory */

@ClearLine 5
@ClearLine 7
@ClearLine 8
@ClearLine 9
@ClearLine 11
@Position  5,9
@Print    "Installing Visualiser 4.00D to {SubDir}"

@File   ".\\VIS.ARJ"    >    "{SubDir}\\"
@File   ".\\VISDRV.ARJ"    >    "{SubDir}\\"
@UnArj  "{SubDir}\\VIS.ARJ"
@UnArj  "{SubDir}\\VISDRV.ARJ"
@Delete "{SubDir}\\VIS.ARJ"
@Delete "{SubDir}\\VISDRV.ARJ"
@BinRep "{SubDir}\\VIS.EXE","{Sys0}","{User}",50
@BinRep "{SubDir}\\VIS.EXE","{Sys1}","{Org}",50
@File   "{SubDir}\\VIS_SVGA.CFG" > "{SubDir}\\VIS.CFG"
@File   ".\\EXAMPLE.ARJ"    >    "{SubDir}\\"
@UnArj  "{SubDir}\\EXAMPLE.ARJ"
@Delete "{SubDir}\\EXAMPLE.ARJ"

/* Tidy up screen and wait for a key before exit */

:DONE
@Beep
@ClearLine 3
@ClearLine 4
@ClearLine 5
@ClearLine 6
@ClearLine 7
@ClearLine 8
@ClearLine 9
@ClearLine 10
@ClearLine 11
@Position 1,6
@Print     "                          Finished installation\n\n"
@Print     "            Change directory to {Subdir} and enter VIS to run\n\n"
@Print     "                               Press A Key"

@Pause

/* Installation finished */