BACKGROUND 63
TELESCOPE OFF
SHADOW ON
WINOPEN 18 2 95

"   TurboSystemsCo"
"Installation Program"
"        For"
"   Book Librarian"
DOS 2.1
JUMP.NO NO_DOS
MEMORY 512
JUMP.NO  NO_MEM
:PROMPT
SPACE 600
DRIVE C 28 10 31 15 32 14 79
PATH \BOOK 12 10 31 15 32 14 79
EXIST ~1~2\*.*
JUMP.NO UNPACK
WINOPEN 0 10 31
"The directory ~1~2 already exists and contains files!"
"Are you sure you want to risk overwriting files in this directory Y or N?"
"Overwriting an earlier version of Book Librarian is OK"
ASK 77 12
WINCLOSE
JUMP.NO PROMPT
:UNPACK
UNPACK BOOK.F01 24 10 31 32 14 79
JUMP.FAIL INSTALL_FAILURE
COPY ~0\README.DOC  ~1~2\README.DOC 24 10 31
COPY ~0\BL.DOC ~1~2\BL.DOC 24 10 31
WINOPEN 0 10 31
"Do you want to install the sample files Y or N?  The"
"sample files will aid you in learning the program if"
"you haven't used the program before."
ASK 61 11
WINCLOSE
JUMP.NO TEST_CONFIG
UNPACK BOOK.F02 24 10 31 32 14 79
JUMP.FAIL INSTALL_FAILURE
:TEST_CONFIG
WINOPEN 0 10 31
"Book Librarian requires that you have the statements FILES=16 and"
"and BUFFERS=20 or greater in your CONFIG.SYS file. Do you want the"
"program to check/modify your CONFIG.SYS file if required"
"                         Y)es or N)o"
ASK  45 14
WINCLOSE
JUMP.NO SKIPGO
:COMMAND_TEST
EXIST ~3\COMMAND.COM
JUMP.YES DOS_PROMPT
WINOPEN 0 10 15
"Please insert your boot floppy disk in drive ~3"
""
"Press the [Enter] key to continue."
WAIT 47 13
WINCLOSE
JUMP COMMAND_TEST
:DOS_PROMPT
SHADOW OFF
EXIST ~3\CONFIG.SYS
JUMP.NO MAKE_CONFIG
COPY ~3\CONFIG.SYS ~3\CONFIG.XXX 24 10 51
SET.FILES 16
JUMP.FAIL INSTALL_FAILURE
SET.BUFFERS 20
JUMP.FAIL INSTALL_FAILURE
SHADOW ON
JUMP SKIPGO
:MAKE_CONFIG
FILE ~3\CONFIG.SYS
JUMP.FAIL INSTALL_FAILURE
"FILES=16"
"BUFFERS=20"
JUMP THERE
:SKIPGO
SHADOW OFF
WINOPEN 0 12 31
"Would you like to read the README.DOC file?"
"                             (Y or N)"

ASK 57 14                     ' one method of providing a "conditional" jump
WINCLOSE                      ' close the above window
JUMP.NO PRINT_INSTALL.TXT
VIEW ~1~2\README.DOC 79 31
:PRINT_INSTALL.TXT
WINOPEN 0 12 31
"Would you like to PRINT the README.DOC file?"
"                             (Y or N)"

ASK 57 14                     ' one method of providing a "conditional" jump
WINCLOSE                      ' close the above window
JUMP.NO MANUAL
WINOPEN 0 0 31                ' printing large file takes a while ...
"Printing ..."
PRINT ~1~2\README.DOC
WINCLOSE                      ' close the above window
JUMP.FAIL PRINTER_ERROR       ' jump on fatal error
' JUMP THERE
:MANUAL
WINOPEN 0 12 31
"Would you like to review the Book Librarian manual?"
"                             (Y or N)"
ASK 57 14
WINCLOSE
JUMP.NO PRT_INSTALL.TXT
VIEW ~1~2\BL.DOC 79 31
:PRT_INSTALL.TXT
WINOPEN 0 12 31
"Would you like to PRINT the Book Librarian Manual?"
"                             (Y or N)"

ASK 57 14                     ' one method of providing a "conditional" jump
WINCLOSE                      ' close the above window
JUMP.NO THERE
WINOPEN 0 0 31                ' printing large file takes a while ...
"Printing ..."
PRINT ~1~2\BL.DOC
WINCLOSE                      ' close the above window
JUMP.FAIL PRINTER_ERROR       ' jump on fatal error
JUMP THERE                     ' print successful, skip next

:PRINTER_ERROR                ' label for error condition
WINOPEN 0 12 31                ' open the following window
"Your printer is not responding.  Possible problems:"
"   -- Printer is not turned on"
"   -- Printer is out of paper"
"   -- Printer is not attached to LPT1 (parallel port 1)"
""
"Do you want to try to print again  (Y or N)?"
ASK 57 18                     ' prompt for Y or N key
WINCLOSE                      ' close this window
JUMP.YES PRINT_INSTALL.TXT    ' y key pressed, print

:THERE
DOS 3.3
JUMP.NO OLD_DOS
EXIST ~3\BL.BAT
JUMP.YES DONE
FILE ~3\BL.BAT
"@~1"
"@cd ~2"
"@BL"
"@cd \"
"@~3"
JUMP DONE
:OLD_DOS
EXIST ~3\BL.BAT
JUMP.YES DONE
FILE ~3\BL.BAT
"~1"
"cd ~2"
"BL"
"cd \"
"~3"
:DONE
WINCLOSE
WINOPEN 0 0 95
"Book Librarian has been successfully installed.  If you"
"let the program check/modify your  CONFIG.SYS  file, you"
"should  re-boot  your  computer  prior to running  Book"
"Librarian to  allow  the modifications  to  take  effect."
"Also the program made a backup copy of your old CONFIG.SYS"
"called CONFIG.XXX prior to making any changes."
""
"     To run the program type BL and press the ENTER "
"     key from the root directory of drive ~3."
""
" Press [Enter] key to exit this installation program"
WAIT 67 17
WINCLOSE
:EXIT
END
:NO_DOS
WINOPEN 0 10 31
"      This program requires DOS version 2.1 or greater to run!      "
"               The installation is terminated"
"Contact TurboSystemsCo at 404-516-8575 if your DOS is 2.1 or greater"
"               Press the [Enter] key to exit"
WAIT 47 17
WINCLOSE
JUMP EXIT

:NO_MEM
WINOPEN 0 10 31
"Your system does not have at least 512K memory required to run the program"
"                      The installation is terminated!"
"   If your system has 512K or more contact TurboSystemsCo at 404-516-8575"
"                       Press the [Enter] key to exit"
WAIT 47 13
WINCLOSE
JUMP EXIT

:INSTALL_FAILURE
WINOPEN 0 11 79
"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 exit"
WAIT 62 19
JUMP EXIT