home *** CD-ROM | disk | FTP | other *** search
/ DP Tool Club 14 / CD_ASCQ_14_0694.iso / maj / 4379 / update.fil < prev    next >
Text File  |  1994-04-18  |  8KB  |  356 lines
  1. ' NOTE:  This an example of how THE FINISHING TOUCH can also be used as
  2. '        an update program as well as an install program.  Simply rename
  3. '        INSTALL.EXE to UPDATE.EXE and put UPDATE.FIL on the disk instead
  4. '        of INSTALL.FIL.
  5.  
  6. '        This shows how PROMPT OFF / PROMPT ON can be used to create your
  7. '        own input screens and how to handle LCD screens.
  8.  
  9.  
  10. ' Tower Life 1993 Software Update Script
  11. ' Copyright 1993, ImagiSOFT, Inc.
  12. ' April 1, 1993
  13.  
  14. ' This installation is in 4 parts:
  15. '   UPDATE.FIL     (This file)
  16. '   2C.FIL         (Color configurations)
  17. '   2B.FIL         (LCD configurations)
  18. '   3.FIL          (loaded upon disk error)
  19.  
  20. BACKGROUND 0            ' black
  21. TELESCOPE OFF
  22.  
  23. WINOPEN 0 2 112         ' black on white
  24. "      Tower Life"
  25. ""
  26. "1993 ADVANCED MARKETING"
  27. "    SOFTWARE UPDATE"
  28.  
  29. SPACE 100                                ' almost no disk space needed
  30.  
  31. WINOPEN 0 13 112
  32. ""
  33. "  Can you see COLOR on your screen   Y or N?  "
  34. ""
  35. WINUPDATE +16 +2 10
  36. "C"
  37. WINUPDATE +17 +2 11
  38. "O"
  39. WINUPDATE +18 +2 12
  40. "L"
  41. WINUPDATE +19 +2 13
  42. "O"
  43. WINUPDATE +20 +2 14
  44. "R"
  45. ASK +46 +2
  46. WINCLOSE
  47.  
  48. JUMP.NO LOAD_LCD
  49. SCRIPT ~0\2C.FIL
  50.  
  51.  
  52. ' Tower Life Install Script
  53. ' PART 2:  COLOR SCRIPT
  54. ' Copyright 1992, ImagiSOFT, Inc.
  55. ' January 1, 1993
  56.  
  57. WINCLOSE
  58. BACKGROUND 48           ' cyan background
  59. TELESCOPE OFF
  60.  
  61. WINOPEN 0 2 111         ' brown w/ white letters
  62. "      Tower Life"
  63. ""
  64. "1993 ADVANCED MARKETING"
  65. "    SOFTWARE UPDATE"
  66.  
  67. SHADOW ON
  68. TELESCOPE ON
  69.  
  70. ' -----------------------------
  71. ' Introduction Window
  72. ' -----------------------------
  73.  
  74. WINOPEN 0 11 31
  75. "The purpose of this program is to update your computer to"
  76. "the 1993 Edition of Tower's Advanced Marketing Software."
  77. "This program is about to do the following:"
  78. ""
  79. "  Install 1993 Income Tax Information."
  80. ""
  81. "It will NOT erase your saved client information."
  82. ""
  83. "Would you like to do this update right now   Y or N?"
  84.  
  85. WINUPDATE +10 +7 28
  86. "NOT"
  87.  
  88. WINUPDATE +47 +9 30
  89. "Y"
  90.  
  91. WINUPDATE +52 +9 30
  92. "N"
  93.  
  94. ASK +54 +9
  95. WINCLOSE
  96. JUMP.NO EXIT
  97.  
  98. ' --------------------------------------------
  99. ' determine where their software is installed
  100. ' --------------------------------------------
  101. :WHERE
  102. WINOPEN 0 11 31
  103. "To do this update, we need to know which disk drive"
  104. "your Tower Life Software is installed to."
  105. ""
  106. "             Most people have their software on this"
  107. "             hard drive. Press [ENTER] if this is OK"
  108. "             or enter the correct drive letter."
  109. ""
  110. SHADOW OFF
  111. PROMPT OFF
  112. DRIVE C +2 +3 17 14 32 14 79
  113. WINCLOSE
  114.  
  115. PROMPT ON
  116. SHADOW ON
  117. WINOPEN 0 11 31
  118. "We also need to know the PATH where your Tower software"
  119. "is installed."
  120. "                              Most people have their"
  121. "                              software in this"
  122. "                              directory.  Press"
  123. "                              [ENTER] if this is OK"
  124. "                              or enter the name of"
  125. "the directory where your Tower Life Software installed."
  126. PROMPT OFF
  127. SHADOW OFF
  128. PATH \TLI34 +1 +3 17 14 32 14 79
  129. WINCLOSE
  130. PROMPT ON
  131. SHADOW ON
  132.  
  133. EXIST ~1~2\START.EXE
  134. JUMP.YES GYM
  135.  
  136. BEEP
  137. WINOPEN 0 12 79
  138. "Your Tower Life Advanced Marketing Software"
  139. "cannot be found in the ~1~2 Directory."
  140. "Please try another directory name."
  141. ""
  142. "Press [ENTER] to continue."
  143.  
  144. WINUPDATE +25 +2 78
  145. "~1~2"
  146.  
  147. WINUPDATE +8 +5 78
  148. "[ENTER]"
  149.  
  150. WAIT +29 +5
  151. WINCLOSE
  152. RD ~1~2
  153. JUMP WHERE
  154.  
  155.  
  156. ' ------------------------------------------
  157. ' copy the updated files to their hard drive
  158. ' ------------------------------------------
  159. :GYM            ' grow your money
  160. EXIST ~1~2\GYM\GYM.EX?
  161. JUMP.NO BONUS
  162. UNPACK GYM.PAK 0 12 31 32 14 79
  163. JUMP.FAIL INSTALL_FAILURE
  164.  
  165. :BONUS
  166. EXIST ~1~2\BONUS\BONUS.EX?
  167. JUMP.NO RSD
  168. UNPACK BONUS.PAK 0 12 31 32 14 79
  169. JUMP.FAIL INSTALL_FAILURE
  170.  
  171. :RSD
  172. EXIST ~1~2\RSD\RSD.EX?
  173. JUMP.NO DC
  174. UNPACK RSD.PAK 0 12 31 32 14 79
  175. JUMP.FAIL INSTALL_FAILURE
  176.  
  177. :DC
  178. EXIST ~1~2\DC\DC.EX?
  179. JUMP.NO FPA
  180. UNPACK DC.PAK 0 12 31 32 14 79
  181. JUMP.FAIL INSTALL_FAILURE
  182.  
  183. :FPA
  184. EXIST ~1~2\FPA.EX?
  185. JUMP.NO SPLIT
  186. UNPACK FPA.PAK 0 12 31 32 14 79
  187. JUMP.FAIL INSTALL_FAILURE
  188.  
  189. :SPLIT
  190. EXIST ~1~2\SPLIT\SPLIT.EX?
  191. JUMP.NO DONE
  192. UNPACK SPLIT.PAK 0 12 31 32 14 79
  193. JUMP.FAIL INSTALL_FAILURE
  194.  
  195. :DONE
  196. PROMPT ON
  197. WINOPEN 0 12 31
  198. "Your Tower Life Advanced Marketing Software has been"
  199. "updated for 1993."
  200. ""
  201. "  THANK YOU FOR CHOOSING OUR SOFTWARE!"
  202. ""
  203. ""
  204. "Press [ENTER] to continue."
  205.  
  206. WINUPDATE +4 +4 27
  207. "THANK YOU FOR CHOOSING OUR SOFTWARE!"
  208.  
  209. WINUPDATE +8 +7 30
  210. "[ENTER]"
  211.  
  212. WAIT +28 +7
  213. WINCLOSE
  214.  
  215. :EXIT
  216.  
  217. END
  218.  
  219. :INSTALL_FAILURE
  220. SCRIPT ~0\3.FIL
  221.  
  222.  
  223. ' PART 2:  BLACK AND WHITE SCRIPT
  224. ' --------------------------------
  225.  
  226. :LOAD_LCD
  227.  
  228.  
  229. ' -----------------------------
  230. ' Introduction Window
  231. ' -----------------------------
  232.  
  233. WINOPEN 0 11 112
  234. "The purpose of this program is to update your computer to"
  235. "the 1993 Edition of Tower's Advanced Marketing Software."
  236. "This program is about to do the following:"
  237. ""
  238. "  Install 1993 Income Tax Information."
  239. ""
  240. "It will NOT erase your saved client information."
  241. ""
  242. "Would you like to do this update right now   Y or N?"
  243.  
  244. ASK +54 +9
  245. WINCLOSE
  246. JUMP.NO EXIT
  247.  
  248. ' --------------------------------------------
  249. ' determine where their software is installed
  250. ' --------------------------------------------
  251. :WHERE
  252. WINOPEN 0 11 112
  253. "To do this update, we need to know which disk drive"
  254. "your Tower Life Software is installed to."
  255. ""
  256. "             Most people have their software on this"
  257. "             hard drive. Press [ENTER] if this is OK"
  258. "             or enter the correct drive letter."
  259. ""
  260. PROMPT OFF
  261. DRIVE C +2 +3 119 15 32 14 15
  262. WINCLOSE
  263.  
  264. PROMPT ON
  265. WINOPEN 0 11 112
  266. "We also need to know the path where your Tower Life"
  267. "software is installed."
  268. "                              Most people have their"
  269. "                              software in this"
  270. "                              directory.  Press"
  271. "                              [ENTER] if this is OK"
  272. "                              or enter the name of"
  273. "the directory where your Tower Software is installed."
  274. PROMPT OFF
  275. PATH \TLI34 +1 +3 119 15 32 14 15
  276. WINCLOSE
  277. PROMPT ON
  278.  
  279. EXIST ~1~2\START.EXE
  280. JUMP.YES GYM
  281.  
  282. BEEP
  283. WINOPEN 0 12 112
  284. "Your Tower Life Advanced Marketing Software"
  285. "cannot be found in the ~1~2 Directory."
  286. "Please try another directory name."
  287. ""
  288. "Press [ENTER] to continue."
  289.  
  290. WAIT +29 +5
  291. WINCLOSE
  292. RD ~1~2
  293. JUMP WHERE
  294.  
  295.  
  296. ' ------------------------------------------
  297. ' copy the updated files to their hard drive
  298. ' ------------------------------------------
  299. :GYM            ' grow your money
  300. EXIST ~1~2\GYM\GYM.EX?
  301. JUMP.NO BONUS
  302. UNPACK GYM.PAK 0 12 112 32 14 112
  303. JUMP.FAIL INSTALL_FAILURE
  304.  
  305. :BONUS
  306. EXIST ~1~2\BONUS\BONUS.EX?
  307. JUMP.NO RSD
  308. UNPACK BONUS.PAK 0 12 112 32 14 112
  309. JUMP.FAIL INSTALL_FAILURE
  310.  
  311. :RSD
  312. EXIST ~1~2\RSD\RSD.EX?
  313. JUMP.NO DC
  314. UNPACK RSD.PAK 0 12 112 32 14 112
  315. JUMP.FAIL INSTALL_FAILURE
  316.  
  317. :DC
  318. EXIST ~1~2\DC\DC.EX?
  319. JUMP.NO FPA
  320. UNPACK DC.PAK 0 12 112 32 14 112
  321. JUMP.FAIL INSTALL_FAILURE
  322.  
  323. :FPA
  324. EXIST ~1~2\FPA.EX?
  325. JUMP.NO SPLIT
  326. UNPACK FPA.PAK 0 12 112 32 14 112
  327. JUMP.FAIL INSTALL_FAILURE
  328.  
  329. :SPLIT
  330. EXIST ~1~2\SPLIT\SPLIT.EX?
  331. JUMP.NO DONE
  332. UNPACK SPLIT.PAK 0 12 112 32 14 112
  333. JUMP.FAIL INSTALL_FAILURE
  334.  
  335. :DONE
  336. PROMPT ON
  337. WINOPEN 0 12 112
  338. "Your Tower Life Advanced Marketing Software has been"
  339. "updated for 1993."
  340. ""
  341. "  THANK YOU FOR CHOOSING OUR SOFTWARE!"
  342. ""
  343. ""
  344. "Press [ENTER] to continue."
  345.  
  346. WAIT +28 +7
  347. WINCLOSE
  348.  
  349. :EXIT
  350.  
  351. END
  352.  
  353. :INSTALL_FAILURE
  354. SCRIPT ~0\3.FIL
  355.  
  356.