home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / CLIPPER / MISC / FINISH24.ZIP / INSTALL.FIL < prev    next >
Encoding:
Text File  |  1993-04-01  |  13.6 KB  |  393 lines
  1. ' Sample Install Script for
  2. ' The Finishing Touch
  3. ' Professional Software Installer
  4. ' Copyright 1993, ImagiSOFT, Inc.
  5. ' April 1, 1993
  6.  
  7. ' NOTE:  This script file takes a LONG TIME to load because INSTALL.EXE
  8. '        does a CRC check of the documentation files before proceeding.
  9. '        The registered version does NOT do this.
  10.  
  11. '        There is a 400 line maximum for any one script file.  However,
  12. '        this limitation can be overcome by using the SCRIPT command.
  13.  
  14. '        This script file doesn't use all the possible commands.
  15. '        See the documentation for the commands to check hardware,
  16. '        perform conditional jumps, view ASCII files, run or shell
  17. '        to DOS programs, change AUTOEXEC.BAT and CONFIG.SYS,
  18. '        invoke other script files, and more!
  19.  
  20. BACKGROUND 63    ' display cyan colored background (see color chart in docs)
  21.  
  22. LANGUAGE ENGLISH
  23. ' French, German, and Spanish are also supported.  English is the default
  24.  
  25. BORDER 1            ' single line borders. 2 = double, 0 = no border
  26.  
  27. TELESCOPE OFF       ' turn off "exploding" or telescoping windows
  28.                     ' this will make the window instantly appear
  29.  
  30.  
  31. WINOPEN 18 2 95     ' display the heading in a window
  32.                     '   located at 18 characters across
  33.                     '               2 rows down  with a
  34.                     '   magenta background and high intensity white letters
  35.                     '   (see color chart)
  36.  
  37. "            ImagiSOFT, Inc."
  38. "Where Imagination Brings Software to Life "
  39. ""
  40. ""
  41. ""
  42. ""
  43. ""
  44.  
  45. ' WINOPEN 0 2 95             ' use this command instead to make sure the
  46.                              ' window is centered horizontally on the screen
  47.  
  48. ' another nice feature is the ability to write text in a different color
  49. ' within a window.  Most commands can use relative cursor positions, as
  50. ' shown in this example:
  51. PAUSE 100
  52. WINUPDATE +13 +4 94
  53. "THE FINISHING TOUCH"        ' yellow text
  54.                              ' 13 characters across
  55.                              ' and 4 rows down
  56.                              ' from the upper left hand corner of the window
  57. PAUSE 50                     ' 1/2 second delay between words
  58. WINUPDATE +2 +5 95
  59. "Professional Software Installation Program"
  60. PAUSE 50
  61. WINUPDATE +17 +6 95
  62. "Version 2.4"
  63. PAUSE 50
  64. WINUPDATE +16 +7 95
  65. "April 1, 1993"
  66. PAUSE 300                     ' 3 second delay
  67.  
  68. TELESCOPE ON       ' turn on telescoping windows for the rest of the messages
  69.  
  70. SHADOW ON
  71. ' display all messages from this point on in a "shadowed" window
  72. ' the default is "OFF".  This feature can be turned on and off as many
  73. ' times as you want
  74.  
  75. WINOPEN 0 12 31
  76. "THE FINISHING TOUCH WILL SAVE YOU MONEY BY . . .       "
  77. ""
  78. ""
  79. ""
  80. ""
  81. ""
  82. ""
  83. ""
  84. WINUPDATE +36 +1 26
  85. "MONEY"
  86. PAUSE 300                                   ' 3 seconds
  87. WINUPDATE +2 +3 30
  88. "■ Cutting the number of disks in your program in half."
  89. "  (see the UNPACK command and PACKER utility)"
  90. BEEP
  91. PAUSE 200
  92. WINUPDATE +2 +3 31
  93. "■ Cutting the number of disks in your program in half."
  94. "  (see the UNPACK command and PACKER utility)"
  95. WINUPDATE +2 +6 30
  96. "■ Reducing your installation support problems."
  97. BEEP
  98. PAUSE 200
  99. WINUPDATE +2 +6 31
  100. "■ Reducing your installation support problems."
  101. WINUPDATE +2 +8 30
  102. "Press the [Enter] key to continue."
  103. WAIT +36 +8                                ' wait for the enter key
  104. WINCLOSE                                   ' close the window
  105.  
  106. BORDER 2                                   ' double line border
  107. ' window = blue with green border
  108. WINOPEN 0 12 18
  109. "                                           "  ' widest message determines
  110. ""                                             ' the width of the window
  111. ""                                             ' this window is nine lines
  112. ""                                             ' long.
  113. ""
  114. ""
  115. ""
  116. ""
  117.  
  118. ' white letters inside window
  119. WINUPDATE +2 +2 31
  120. "■ Is Rich with Powerful Features"
  121. ""
  122. "■ Is Easy to Learn"
  123. "  (Look at INSTALL.FIL for this script)"
  124. ""
  125. "■ Can be as simple or complex as you want"
  126.  
  127. ' heading = yellow text on green
  128. WINUPDATE +14 +0 46               ' +0 = top border
  129. " THE FINISHING TOUCH "
  130.  
  131. ' bottom of window green / blue letters
  132. WINUPDATE +16 +9 33               ' +9 = bottom border
  133. " Press [Enter] "                 ' (good when space is tight)
  134. WAIT +30 +9                       ' wait for enter key, cursor location
  135. WINCLOSE                          ' close window
  136.  
  137. BORDER 1                          ' personally, I like single borders
  138. WINOPEN 0 12 31
  139. "This sample installation file will demonstrate some of"
  140. "THE FINISHING TOUCH'S features by installing a FREE"
  141. "file date and time stamping utility."
  142. ""
  143.  
  144. WINUPDATE +49 +2 27                        ' change the color of
  145. "FREE"                                     ' the word "free" to cyan
  146.  
  147. WINUPDATE +15 +5 31                         ' write on top of bottom border
  148. " Press [Enter] to continue "              ' (good when space is tight)
  149.  
  150. WINUPDATE +22 +5 30                        ' yellow text
  151. "[Enter]"
  152.  
  153. WAIT +41 +5                                ' wait for the enter key
  154. WINCLOSE                                   ' close the window
  155.  
  156. ' Tell INSTALL the minimum amount of required disk space
  157. SPACE 7                          ' This sample is tiny, only 7K required.
  158.  
  159. '  Prompt for the drive to install to:
  160. DRIVE C 0 12 31 15 32 14 79
  161. '         C = drive C, the pre-stuffed drive letter
  162. '         0 = center window horizontally
  163. '        12 =              and  12  rows down
  164. '        31 = blue background and high intensity white foreground
  165. '        15 = input on a black background w/ high intensity white letters
  166. '        32 = error message located at 32 characters across
  167. '        14 =                      and 14 rows down
  168. '        79 = any error message will appear in a red window with
  169. '             high intensity white letters
  170.  
  171. ' After  the user selects a drive and presses [Enter], the first  thing
  172. ' the  DRIVE command does is make sure the drive exists.  Next it  will
  173. ' check  for the required disk space.  If the drive does not exist,  or
  174. ' there is not enough space, an error message appears, and the user  is
  175. ' required to pick a different drive, or quit.
  176.  
  177. ' Prompt with default path \SAMPLE
  178. ' INSTALL.EXE  will work the same way whether the user enters SAMPLE,
  179. ' \SAMPLE\, or \SAMPLE.  Mutiple directories such as \SAMPLE\UTIL\FREE
  180. ' are also supported.
  181. PATH \SAMPLE 0 12 31 15 32 14 79
  182.  
  183. ' the numbers above represent window locations and colors.  See the
  184. ' documentation for more details
  185.  
  186. '  Unpack the files from the floppy drive.
  187.  
  188. UNPACK SAMPLE.PAK 0 12 31 32 14 79
  189. ' SAMPLE.PAK was compressed using the enclosed PACKER utility.  This
  190. ' utility will compress files 50% or more depending on the file type.
  191. ' you should get compression results close to that of PKZIP.
  192. ' the numbers above represent window locations and colors.  See the
  193. ' documentation for more details
  194.  
  195. ' just for fun, open the disk drive right in the middle of the installation
  196. ' and see what happens.  This is only one of four "jump" commands supported.
  197. ' see the documentation for JUMP, JUMP.NO, and JUMP.YES commands.
  198.  
  199. JUMP.FAIL INSTALL_FAILURE
  200.  
  201. WINOPEN 0 12 31
  202.  
  203. "A FREE file stamping utility has been installed on your"
  204. "computer in the directory"
  205. ""
  206. "This is our way of saying THANKS for taking the time to"
  207. "review the THE FINISHING TOUCH!"
  208. ""
  209. "Press the [Enter] key to continue."
  210.  
  211. WINUPDATE +28 +2 30                       ' display text in yellow
  212. "~1~2."
  213.  
  214. WINUPDATE +28 +4 27                       ' cyan
  215. "THANKS"
  216.  
  217. WAIT +36 +7
  218. ' Wait for the user to press the [Enter] key so they can
  219. ' read the above window.
  220. ' The plus signs denote that you want the cursor located relative to
  221. ' the upper left hand corner of the window (position 0, 0) 7 rows down
  222. ' and 36 characters across.
  223.  
  224. WINCLOSE                         ' close the above window
  225.  
  226. ' ------------------------------------------------------
  227. ' Ask user if they would like to view the utility's docs
  228. ' ------------------------------------------------------
  229. WINOPEN 0 12 31
  230. "Would you like to see the new utility's documentation?"
  231. ""                            ' this is necessary so that the winupdate
  232.                               ' command will have some place to display the
  233.                               ' (Y or N)
  234.  
  235. WINUPDATE +25 +2 30           ' yellow text
  236. "(Y or N)"
  237.  
  238. ASK +33 +2                    ' one method of providing a "conditional" jump
  239.                               ' note relative cursor positioning
  240.  
  241. WINCLOSE                      ' close the above window
  242.  
  243. JUMP.NO VIEW_INSTALL.TXT      ' skip the view command if the user
  244.                               ' hits the "N" key from the above
  245.                               ' ASK statement.
  246.  
  247. VIEW ~1~2\STAMP.TXT 79 31     ' as you can see, The Finishing Touch
  248.                               ' has a built-in file viewer
  249.  
  250. ' -----------------------------------------------------
  251. ' Ask user if they would like to view the documentation
  252. ' -----------------------------------------------------
  253. :VIEW_INSTALL.TXT
  254. WINOPEN 0 12 31
  255. "Would you like to SEE the documentation for THE FINISHING TOUCH?"
  256. ""
  257.  
  258. WINUPDATE +31 +2 30            ' yellow text
  259. "(Y or N)"
  260.  
  261. ASK +39 +2                     ' one method of providing a "conditional" jump
  262.                                ' again, relative cursors are easier
  263.  
  264. WINCLOSE                       ' close the above window
  265.  
  266. JUMP.NO PRINT_INSTALL.TXT      ' again, skip the view command if the user
  267.                                ' hits the "N" key from the above ASK statement.
  268.  
  269. WINOPEN 0 0 31                ' large file takes a while from floppy ...
  270. "Loading 67 Pages ..."
  271. VIEW ~0\INSTALL.TXT 79 31
  272. WINCLOSE                      ' close the above window
  273.  
  274. ' -------------------------------------------------------
  275. ' Ask user if they would like to print the documentation
  276. ' -------------------------------------------------------
  277. :PRINT_INSTALL.TXT
  278. WINOPEN 0 12 31
  279. "Would you like to PRINT the documentation for THE FINISHING TOUCH?"
  280. ""
  281.  
  282. WINUPDATE +31 +2 30           ' yellow text
  283. "(Y or N)"
  284.  
  285. ASK +39 +2                    ' one method of providing a "conditional" jump
  286.  
  287. WINCLOSE                      ' close the above window
  288. JUMP.NO EXIT
  289.  
  290. WINOPEN 0 0 31                ' printing large file takes a while ...
  291. ""
  292. "  Printing 67 Pages ...  "
  293. ""
  294. PRINT ~0\INSTALL.TXT
  295. WINCLOSE                      ' close the above window
  296. JUMP.FAIL PRINTER_ERROR       ' jump on fatal error
  297. JUMP EXIT                     ' print successful, skip next
  298.  
  299. :PRINTER_ERROR                ' label for error condition
  300. WINOPEN 0 12 79                ' open the following window
  301. "Your printer is not responding.  Possible problems:"
  302. "   -- Printer is not turned on"
  303. "   -- Printer is out of paper"
  304. "   -- Printer is not attached to LPT1 (parallel port 1)"
  305. ""
  306. "Do you want to try to print again  (Y or N)?"
  307. ASK 57 18                     ' prompt for Y or N key  (fixed cursor position)
  308. WINCLOSE                      ' close this window
  309. JUMP.YES PRINT_INSTALL.TXT    ' y key pressed, print
  310.  
  311. ' ----------------------
  312. ' display closing window
  313. ' ----------------------
  314. :EXIT
  315.  
  316. WINOPEN 0 12 31                ' window is centered on screen
  317. "Thank you for running the installation demonstration for the"
  318. ""
  319. "                   THE FINISHING TOUCH"
  320. "          The Professional Installation Program"
  321. ""
  322. "You have a fully working shareware evaluation copy.  We hope"
  323. "that you will find THE FINISHING TOUCH is the most powerful,"
  324. "smallest, easiest to use, software installer with the best"
  325. "file compression available anywhere.  ENJOY!"
  326. ""
  327.  
  328. WINUPDATE +21 +3 30
  329. "THE FINISHING TOUCH"                    ' yellow text
  330. WINUPDATE +40 +9 27
  331. "ENJOY!"                                 ' cyan text
  332. WINUPDATE +12 +11 31                     ' write on top of bottom border
  333. "┤ Press the [Enter] key to continue ├"  ' (good when space is tight)
  334. WINUPDATE +24 +11 30
  335. "[Enter]"
  336. WAIT +47 +11
  337. WINCLOSE
  338.  
  339. ' display our bbs phone number
  340. BORDER 2                                ' double line borders supported
  341.                                         ' for no border, use BORDER 0
  342. WINOPEN 0 12 110
  343. "If you're not sure you have the latest shareware copy of"
  344. "THE FINISHING TOUCH, call the Software Creations BBS:"
  345. ""
  346. ""
  347. ""
  348. ""
  349. ""
  350. ""
  351. ""
  352. "Press the [Enter] key to continue."
  353.  
  354. WINUPDATE +28 +2 107
  355. "Software Creations BBS"
  356. WINUPDATE +13 +4 106
  357. "33 Lines to Serve You 24 Hours per Day!"
  358. WINUPDATE +14 +5 111                         ' you can winupdate more than
  359. "(508) 365-2359        2400 baud"            ' one line at a time
  360. "(508) 368-4137        2400-14.4K USR"
  361. "(508) 368-7036        2400-14.4K V.32"
  362. WAIT +36 +10                                  ' wait for the enter key
  363.  
  364. END            ' exit the system normally
  365.  
  366. ' ---------------------------------------------------
  367. ' Installation Failure. It is a good idea to add a
  368. ' similar routine to the bottom of all script files.
  369. ' ---------------------------------------------------
  370. :INSTALL_FAILURE
  371. WINOPEN 0 12 79
  372. "THE INSTALLATION PROGRAM FAILED PRIOR TO COMPLETION"
  373. ""
  374. "Possible reasons:"
  375. "   -- The floppy disk was removed prior to completion."
  376. "   -- The floppy disk was damaged during shipping."
  377. "   -- Your disk drive is out of alignment."
  378. ""
  379. "Press [Enter] to remove incomplete program files."
  380. WAIT 62 20
  381. ' delete all partial files using internal variables
  382. '   ~1 = the drive the user installed to (C: was the default)
  383. '   ~2 = the path the user installed to (\SAMPLE was the default)
  384. DELETE ~1~2\*.* 0 0 31
  385. ' now remove the directory
  386. RD ~1~2
  387. WINCLOSE
  388. WINOPEN 0 12 31
  389. "Partially Installed Files are Now Deleted."
  390. ""
  391. "      Press [Enter] to Quit."
  392. WAIT 47 15
  393.