home *** CD-ROM | disk | FTP | other *** search
-
- /* 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 */
-