
BACKGROUND 63


' French, German, and Spanish are also supported.  English is the default
' so this command is used as an example only.

LANGUAGE ENGLISH


' turn off "exploding" or telescoping windows for first window
' this will make the window instantly appear

TELESCOPE ON



SHADOW ON    

WINOPEN 0 2 31
" ASHTON TECHNOLOGIES PRESENTS "
"       HOME SWEET HOME "
"             "                     
" copyright 1994 by Kevin Burk "
""
" You should have about 18 meg"
" free on the hard drive you"
"        select below."


'  Prompt for the drive to install to:

DRIVE C 0 15 31 15 32 14 79
'         C = drive C, the pre-stuffed drive letter
'         0 = center window horizontally
'        12 =              and  12  rows down
'        31 = blue background and high intensity white foreground
'        15 = input on a black background w/ high intensity white letters
'        32 = error message located at 32 characters across
'        14 =                      and 14 rows down
'        79 = any error message will appear in a red window with
'             high intensity white letters

UNPACK HSHOME.PAK 0 12 31 32 14 79


JUMP.FAIL INSTALL_FAILURE          ' just in case of a bad floppy   

WINOPEN 0 18 31
"    Installation successful!   "
""
"  Type HSHOME from the      "           
"  HSHOME Directory to run the "
"  program. Refer to Readme.doc "
"  file for more information."

PAUSE 600 

' ------------------------
' exit the system normally
' ------------------------

END


' ----------------------
' Installation Failure.
' It is a good idea to
' add a similar routine
' to the bottom of all
' script files.
' ----------------------

:INSTALL_FAILURE

' labels begin with a colon and can be up to 32 characters long.

WINOPEN 0 12 79

' the easiest way to center a message on the screen is to make
' either the x or y coordinates "0".
' 79 is a red window with emphasized white letters (good for error messages)

"THE INSTALLATION PROGRAM FAILED PRIOR TO COMPLETION"
""
"Possible reasons:"
"   -- The floppy disk was removed prior to completion."
"   -- The floppy disk was damaged during shipping."
"   -- Your disk drive is out of alignment."
""
"Press [Enter] to remove incomplete program files."

WAIT 62 20


' delete all partial files using internal variables
'   ~1 = the drive the user installed to (C: was the default)
'   ~2 = the path the user installed to (\FT was the default)

PROMPT OFF                      ' hide the message window

DELETE ~1~2\*.* 0 0 31

PROMPT ON

' now remove the directory

RD ~1~2

WINCLOSE


WINOPEN 0 12 31

"Partially Installed Files are Now Deleted."
""
"      Press [Enter] to Quit."

WAIT 47 15

END                  ' this command is optional when it is the last
                     ' statement in the file.
