home *** CD-ROM | disk | FTP | other *** search
- ' --------------------
- ' This is the install script for Bingo V4.00
- ' Using THE FINISHING TOUCH installation software
- ' from ImagiSOFT, Inc.
- ' --------------------
-
- BACKGROUND be400.img ' blue background
- TELESCOPE OFF ' display 1st window "instantly"
-
- WINOPEN 0 4 63
- " The Bingo Text Editor"
- " V4.00"
- ""
- " "
-
- WINUPDATE +2 +4 58
- "The Text Editing Tool for Professionals"
-
- WINUPDATE +41 +4 190
- "!"
-
- SPACE 720 ' 720K required. Will install to a 3.5" floppy
-
- ' ----------------------------
- ' prompt for hard drive / path
- ' ----------------------------
- :PROMPT
- DRIVE C 28 11 15 112 32 14 15 ' prompt for the drive to install to
- PATH \BE400 12 11 15 112 32 14 15 ' default path = BE400
-
- ' ---------------------------------------
- ' test to see if files in directory exist
- ' ---------------------------------------
- EXIST ~1~2\*.*
- JUMP.NO UNPACK ' new directory
-
- WINOPEN 0 11 15
- "The directory ~1~2 already exists and contains other files!"
- "Are you sure you want to use this directory (Y/N)? "
- ASK +53 +2
- WINCLOSE
- JUMP.NO PROMPT ' ask drive and directory again
-
- ' ----------------
- ' unpack the files
- ' ----------------
- :UNPACK
- UNPACK BE400.BIN 23 11 15 32 14 15 ' unpack files from the floppy drive
- JUMP.FAIL INSTALL_FAILURE ' trap for fatal disk error
-
- ' -------------------------
- ' installation is complete!
- ' -------------------------
- :PATHIT
-
- WINOPEN 0 11 15
- "The Bingo Text Editor v4.00 has been successfully installed."
- ""
- "Do you want to add Bingo's directory to your PATH (Y/N)? "
- " -> This will alter your AUTOEXEC.BAT file! <-"
- ASK +58 +3
- WINCLOSE
- JUMP.NO CHECKREG
- COPY ~3\AUTOEXEC.BAT ~3\AUTOEXEC.BAK 0 10 15
- SET.PATH ~1~2
-
- :CHECKREG
- WINOPEN 0 11 15
- "Registered Users of Bingo are given personal IDs, codes, and"
- "an encoded Key which alows them to imprint their copy of Bingo"
- "with there name."
- ""
- "Are you a Registered User of Bingo (Y/N)? "
- ASK +44 +5
- WINCLOSE
- JUMP.NO DEMOME
- SHELL
- "~1"
- "CHDIR ~2"
- "~1~2\BREG.COM"
- SHELL
- "CHDIR ~0"
-
- :DEMOME
- WINOPEN 0 11 15
- "Do you wish to see a quick demo of Bingo, (Y/N)? "
- ASK +50 +1
- WINCLOSE
- JUMP.NO README
- SHELL
- "~1"
- "CHDIR ~2"
- "DEMO.BAT"
-
- :README
- WINOPEN 0 11 15
- "Do you wish to view Bingo's README.DOC file, (Y/N)? "
- ASK +54 +1
- WINCLOSE
- JUMP.NO EXIT
-
- VIEW ~1~2\README.DOC 79 7
-
- :EXIT
-
- WINOPEN 0 11 15
- "Congratulations! You now have one of the most powerful text"
- "editing systems available installed on your computer. Featuring"
- "virtual memory for large files, undo, syntax highlighting for"
- "popular languages, customizable menus, and more. Enjoy!"
- ""
- "Press [Enter] to exit installation."
- WAIT +38 +6
-
- END
-
- :INSTALL_FAILURE
-
- WINOPEN 0 11 79
-
- "THE INSTALLATION PROGRAM FAILED PRIOR TO COMPLETION"
- ""
- "Possible reasons:"
- " -- The floppy disk was damaged during shipping."
- " -- Your disk drive is out of alignment."
- " -- The floppy disk was removed prior to completion."
- ""
- "Press [Enter] to exit installation."
-
- WAIT 62 19
-
- END