home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
High Voltage Shareware
/
high1.zip
/
high1
/
DIR9
/
UNST13.ZIP
/
FINDDISK
< prev
next >
Wrap
Text File
|
1993-08-16
|
4KB
|
136 lines
;*********************************************************************
;* This is a simpler installation script to show you how you can
;* get a lot of user interface with not much effort. This script file
;* was created with the help of Winster, the utility included in the
;* registered user Universal INSTALL package.
;*********************************************************************
;
ClearScreen
Backplane Green on Magenta =▒
BuildWindow
StartRow =3
StartColumn =6
ShadowType =Big
WindowColor =Gray
Border =Red
TopTitle =Sample Installation
BottomTitle =Press ENTER to continue...
Text Center Black =This "sample" installation doesn't
Text Center Black =really install anything, but
Text Center Black =it does show you how easy
Text Center Black =it is to create a
Text Center Black =professional look!
EndWindow
BuildWindow
StartRow =16
StartColumn =center
ShadowType =Big
WindowColor =Gray
Text Center Blue =This script showcases the "FindDisk" command, which can
Text Center Blue =be useful for locating a previous version of your software
Text Center Blue =or getting the drive letter of a network drive, for example.
EndWindow
Wait =Enter,Esc
On (Esc) Jump =Quit
; -----------------------
; Ask for Volume Label
; -----------------------
ClearPlane
BuildWindow
StartRow =6
StartColumn =center
ShadowType =Big
WindowColor =White
Border =Blue
RowMargin =4
ColumnMargin =21
EndWindow
BuildWindow
StartRow =Window+1
StartColumn =Window+2
WindowColor =Cyan
ShadowType =Small
RowMargin =0
ColumnMargin =2
Text 1,1 Black =Please enter
Text 1,2 Black =the volume
Text 1,3 Black =label of
Text 1,4 Black =a disk to
Text 1,5 Black =search for:
EndWindow
BuildWindow
StartRow =Window+3
StartColumn =Window+24
WindowColor =Blue
ShadowType =Small
RowMargin =0
ColumnMargin =0
Text 1,1 White = ÉÉ
EndWindow
Input
StartRow = Window+3
StartColumn =Window+26
Action =Enter, Esc
TextColor =White on blue
Default =GOODSOFT
Width =11
EndInput
On (Esc) Jump =Quit
; ------------------
; Search for Disk
; ------------------
ClearPlane
BuildWindow
StartRow =3
StartColumn =Center
ShadowType =None
WindowColor =Magenta
Text Center White =Depending on your system, this may take up to a few minutes.
EndWindow
BuildWindow
StartRow =8
StartColumn =Center
WindowColor =Green
ShadowType =Big
Text 1,1 White =INSTALL is now searching
Text 1,2 White =for this disk: $INPUTRESULT
Text 1,3 White =
Text 1,4 White =This is an example of using script
Text 1,5 White =variables to gather user input and
Text 1,6 White =use it in an installation.
EndWindow
FindDisk =$INPUTRESULT
BuildWindow
StartRow =20
StartColumn =Center
WindowColor =Gray
ColumnMargin =1
Text Center Black =Found! Press ENTER to continue...
EndWindow
Wait =Enter
; -----------------
; Display results
; -----------------
ClearPlane
BuildWindow
StartRow =Center
StartColumn =Center
ShadowType =Big
WindowColor =Red
Text Center White =The disk is located in drive $FINDRESULT !
Text Center White =
Text Center White =Press ESC to quit.
EndWindow
Wait =ESC
; ------
; Quit
; ------
[Quit]
ClearScreen
Text Gray on Black 1,2 =Thank you for trying out Universal INSTALL!
Text Gray on Black 1,4 =
Text Gray on Black 1,5 = The GoodSoft Co.
Text Gray on Black 1,6 = 1630 30th Street, Suite 235
Text Gray on Black 1,7 = Boulder, CO 80301 U.S.A
Text Gray on Black 1,8 =