home *** CD-ROM | disk | FTP | other *** search
/ Beijing Paradise BBS Backup / PARADISE.ISO / software / BBSDOORW / BE400B.ZIP / INSTALL.FIL < prev   
Encoding:
Text File  |  1994-11-01  |  3.2 KB  |  133 lines

  1. ' --------------------
  2. ' This is the install script for Bingo V4.00
  3. ' Using THE FINISHING TOUCH installation software
  4. ' from ImagiSOFT, Inc.
  5. ' --------------------
  6.  
  7. BACKGROUND be400.img                     ' blue background
  8. TELESCOPE OFF                            ' display 1st window "instantly"
  9.  
  10. WINOPEN 0 4 63
  11. "         The Bingo Text Editor"
  12. "                 V4.00"
  13. ""           
  14. "                                        "
  15.  
  16. WINUPDATE +2 +4 58                    
  17. "The Text Editing Tool for Professionals"
  18.  
  19. WINUPDATE +41 +4 190
  20. "!"
  21.  
  22. SPACE 720          ' 720K required.  Will install to a 3.5" floppy
  23.  
  24. ' ----------------------------
  25. ' prompt for hard drive / path
  26. ' ----------------------------
  27. :PROMPT
  28. DRIVE C 28 11 15 112 32 14 15       ' prompt for the drive to install to
  29. PATH \BE400 12 11 15 112 32 14 15    ' default path = BE400
  30.  
  31. ' ---------------------------------------
  32. ' test to see if files in directory exist
  33. ' ---------------------------------------
  34. EXIST ~1~2\*.*
  35. JUMP.NO UNPACK                     ' new directory
  36.  
  37. WINOPEN 0 11 15
  38. "The directory ~1~2 already exists and contains other files!"
  39. "Are you sure you want to use this directory (Y/N)? "
  40. ASK +53 +2
  41. WINCLOSE
  42. JUMP.NO PROMPT                    ' ask drive and directory again
  43.  
  44. ' ----------------
  45. ' unpack the files
  46. ' ----------------
  47. :UNPACK
  48. UNPACK BE400.BIN 23 11 15 32 14 15   ' unpack files from the floppy drive
  49. JUMP.FAIL INSTALL_FAILURE            ' trap for fatal disk error
  50.  
  51. ' -------------------------
  52. ' installation is complete!
  53. ' -------------------------
  54. :PATHIT
  55.  
  56. WINOPEN 0 11 15
  57. "The Bingo Text Editor v4.00 has been successfully installed."
  58. ""
  59. "Do you want to add Bingo's directory to your PATH (Y/N)? "
  60. "     -> This will alter your AUTOEXEC.BAT file! <-"
  61. ASK +58 +3
  62. WINCLOSE
  63. JUMP.NO CHECKREG                                   
  64. COPY ~3\AUTOEXEC.BAT ~3\AUTOEXEC.BAK 0 10 15
  65. SET.PATH ~1~2
  66.  
  67. :CHECKREG
  68. WINOPEN 0 11 15
  69. "Registered Users of Bingo are given personal IDs, codes, and"
  70. "an encoded Key which alows them to imprint their copy of Bingo"
  71. "with there name."
  72. ""
  73. "Are you a Registered User of Bingo (Y/N)? "
  74. ASK +44 +5
  75. WINCLOSE
  76. JUMP.NO DEMOME                                   
  77. SHELL 
  78. "~1"
  79. "CHDIR ~2"
  80. "~1~2\BREG.COM"
  81. SHELL 
  82. "CHDIR ~0"
  83.  
  84. :DEMOME
  85. WINOPEN 0 11 15
  86. "Do you wish to see a quick demo of Bingo, (Y/N)? "
  87. ASK +50 +1
  88. WINCLOSE
  89. JUMP.NO README
  90. SHELL 
  91. "~1"
  92. "CHDIR ~2"
  93. "DEMO.BAT"
  94.  
  95. :README
  96. WINOPEN 0 11 15
  97. "Do you wish to view Bingo's README.DOC file, (Y/N)? "
  98. ASK +54 +1
  99. WINCLOSE
  100. JUMP.NO EXIT
  101.  
  102. VIEW ~1~2\README.DOC 79 7
  103.             
  104. :EXIT
  105.  
  106. WINOPEN 0 11 15
  107. "Congratulations!  You now have one of the most powerful text"
  108. "editing systems available installed on your computer.  Featuring"
  109. "virtual memory for large files, undo, syntax highlighting for"
  110. "popular languages, customizable menus, and more.  Enjoy!"
  111. ""
  112. "Press [Enter] to exit installation."
  113. WAIT +38 +6
  114.  
  115. END
  116.  
  117. :INSTALL_FAILURE
  118.  
  119. WINOPEN 0 11 79
  120.  
  121. "THE INSTALLATION PROGRAM FAILED PRIOR TO COMPLETION"
  122. ""
  123. "Possible reasons:"
  124. "   -- The floppy disk was damaged during shipping."
  125. "   -- Your disk drive is out of alignment."
  126. "   -- The floppy disk was removed prior to completion."
  127. ""
  128. "Press [Enter] to exit installation."
  129.  
  130. WAIT 62 19
  131.  
  132. END
  133.