home *** CD-ROM | disk | FTP | other *** search
/ Collection of Education / collectionofeducationcarat1997.iso / SCIENCE / MAPIT13A.ZIP / INSTALL2.FIL < prev    next >
Text File  |  1993-12-15  |  8KB  |  329 lines
  1. ' Install script for MAPIT,  Copyright 1992, 1993 John B. Allison
  2. BACKGROUND 63    ' display cyan colored background (see color chart in docs)
  3. LANGUAGE ENGLISH
  4. BORDER 1                                   ' single line borders. 2 = double, 0 = no border
  5. TELESCOPE ON
  6. SHADOW ON
  7.  
  8. WINOPEN 0 2 30
  9. "                 MAPIT Installation               "      ' yellow text
  10.  
  11. WINOPEN 0 0 31
  12. "Shareware MAPIT requires 1 MB of space on your hard drive."      
  13. ""
  14. "Where should this data be stored?"
  15.  
  16. WINUPDATE +12 +1 30
  17. "MAPIT"                            ' yellow text
  18.  
  19. PAUSE 200
  20. SPACE 1000                         ' 1 MB initial disk requirements.
  21.  
  22. '  Prompt for the drive to install to:
  23.  
  24. DRIVE C 0 21 31 15 0 14 79
  25. PATH \MAPIT 0 21 31 15 0 14 79
  26.  
  27. WINCLOSE
  28.  
  29. ' --------------------------------------------------------------------------
  30. '  Get load options from user.
  31.  
  32. EXIST ~1~2\DEMO.MP3          
  33. JUMP.NO LOAD_DATA1
  34.  
  35. WINOPEN 0 0 31
  36. "MAPIT data already exists on ~1~2."
  37. ""
  38. "Do you want to overwrite it?"
  39. ""
  40. ""
  41. WINUPDATE +14 +5 27            ' magenta text
  42. "(Y or N)"
  43.  
  44. ASK +22 +5
  45. WINCLOSE
  46. JUMP.YES LOAD_DATA1
  47. JUMP EARLY_OUT
  48.  
  49.  
  50. ' --------------------------------------------------------------------------
  51. '  Load data from distribution disks.
  52. :LOAD_DATA1
  53.  
  54. COPY ~0\README.DOC ~1~2\*.* 0 0 31      ' Copy from first disk.
  55. COPY ~0\*.PCX ~1~2\*.* 0 0 31
  56.  
  57. EXIST ~0\MAPITA.PAK           ' Should never fail.  Just read from drive.
  58. JUMP.YES BASEDATA1
  59.  
  60. WINOPEN 0 0 31
  61. "Insert MAPIT Disk 2 into drive ~0."
  62. ""
  63. "Enter Y to continue."
  64.  
  65. WINUPDATE +8 +3 30           ' yellow text
  66. "Y"
  67.  
  68. ASK +25 +3                    ' one method of providing a "conditional" jump
  69. WINCLOSE
  70. JUMP.YES LOAD_DATA1
  71. JUMP EARLY_OUT
  72.  
  73. :BASEDATA1
  74. UNPACK MAPITA.PAK 0 0 31 32 19 79
  75. JUMP.FAIL INSTALL_FAILURE
  76.  
  77. ' --------------------------------------------------------------------------
  78. '  Load second half from same or another disk.
  79. :LOAD_DATA2
  80.  
  81. EXIST ~0\MAPITB.PAK           ' Should never fail.  Just read from drive.
  82. JUMP.YES BASEDATA2
  83.  
  84. WINOPEN 0 0 31
  85. "Insert the Final MAPIT Disk into drive ~0."
  86. ""
  87. "Enter Y to continue."
  88.  
  89. WINUPDATE +8 +3 30           ' yellow text
  90. "Y"
  91.  
  92. ASK +25 +3                    ' one method of providing a "conditional" jump
  93. WINCLOSE
  94. JUMP.YES LOAD_DATA2            
  95. JUMP EARLY_OUT
  96.  
  97. :BASEDATA2
  98. UNPACK MAPITB.PAK 0 0 31 32 19 79
  99. JUMP.FAIL INSTALL_FAILURE
  100.  
  101. '--------------------------------------------------------------------------
  102. ' Concatinate .mp3 files.
  103.  
  104. SHELL
  105. "COPY /B ~1~2\DEMO.MP3+~1~2\DEMOB.MP3 ~1~2\DEMO.MP3"
  106. "DEL ~1~2\DEMOB.MP3"
  107.  
  108. ' -----------------------
  109. ' View the documentation?
  110. ' -----------------------
  111. :VIEW_INSTALL.TXT
  112. WINOPEN 0 0 31
  113. "README.DOC will be left in the directory ~1~2"
  114. ""
  115. "Would you like to view README.DOC on-line now?"
  116. ""
  117. ""
  118.  
  119. WINUPDATE +20 +5 27            ' magenta text
  120. "(Y or N)"
  121.  
  122. ASK +28 +5                     
  123. WINCLOSE                       
  124. JUMP.NO PRINT_INSTALL.TXT      ' again, skip the view command if the user
  125.                                ' hits the "N" key from the above ASK statement.
  126.  
  127. WINOPEN 0 0 31                ' large file takes a while from floppy ...
  128. "Loading..."
  129. VIEW ~1~2\README.DOC 113 31
  130. WINCLOSE                      ' close the above window
  131.  
  132. ' ------------------------
  133. ' Print the documentation?
  134. ' ------------------------
  135. :PRINT_INSTALL.TXT
  136. WINOPEN 0 0 31
  137. "Would you like to print README.DOC?"
  138. ""
  139. ""
  140. WINUPDATE +15 +3 27           ' magenta text
  141. "(Y or N)"
  142.  
  143. ASK +23 +3                    ' one method of providing a "conditional" jump
  144.  
  145. WINCLOSE                      ' close the above window
  146. JUMP.NO VIEW_REGISTRATION
  147.  
  148. WINOPEN 0 0 31                ' printing large file takes a while ...
  149. ""
  150. "  Printing...  "
  151. ""
  152. PRINT ~1~2\README.DOC
  153. WINCLOSE                      ' close the above window
  154. JUMP.FAIL PRINTER_ERROR       ' jump on fatal error
  155. JUMP VIEW_REGISTRATION        ' print successful, skip next
  156.  
  157. :PRINTER_ERROR                ' label for error condition
  158. WINOPEN 0 0 79                ' open the following window
  159. "Your printer is not responding.  Possible problems:"
  160. "   -- Printer is not turned on"
  161. "   -- Printer is out of paper"
  162. "   -- Printer is not attached to LPT1 (parallel port 1)"
  163. ""
  164. "Do you want to try to print again  (Y or N)?"
  165. ASK 57 18                     ' prompt for Y or N key  (fixed cursor position)
  166. WINCLOSE                      ' close this window
  167. JUMP.YES PRINT_INSTALL.TXT    ' y key pressed, print
  168.  
  169. ' ----------------------
  170. ' View the registration?
  171. ' ----------------------
  172. :VIEW_REGISTRATION
  173. WINOPEN 0 0 31
  174. "REGISTER.DOC will be left in the directory ~1~2"
  175. ""
  176. "MAPIT comes with much more detailed data.  Examine your options"
  177. "and register today."
  178. ""
  179. "Would you like to view REGISTER.DOC on-line now?"
  180. ""
  181. ""
  182. WINUPDATE +2 +3 30
  183. "MAPIT"                        ' yellow text
  184. WINUPDATE +28 +8 27            ' magenta text
  185. "(Y or N)"
  186.  
  187. ASK +36 +8                     
  188. WINCLOSE                       
  189. JUMP.NO PRINT_INSTALL_1       ' again, skip the view command if the user
  190.  
  191. WINOPEN 0 0 31                ' large file takes a while from floppy ...
  192. "Loading..."
  193. VIEW ~1~2\REGISTER.DOC 113 31
  194. WINCLOSE                      ' close the above window
  195.  
  196. ' ------------------------
  197. ' Print the registration?
  198. ' ------------------------
  199. :PRINT_INSTALL_1
  200. WINOPEN 0 0 31
  201. "Would you like to print REGISTER.DOC?"
  202. ""
  203. ""
  204. WINUPDATE +15 +3 27           ' magenta text
  205. "(Y or N)"
  206.  
  207. ASK +23 +3                    ' one method of providing a "conditional" jump
  208.  
  209. WINCLOSE                      ' close the above window
  210. JUMP.NO CHECK_HARDWARE
  211.  
  212. WINOPEN 0 0 31                ' printing large file takes a while ...
  213. ""
  214. "  Printing...  "
  215. ""
  216. PRINT ~1~2\REGISTER.DOC
  217. WINCLOSE                      ' close the above window
  218. JUMP.FAIL PRINTER_ERROR_1     ' jump on fatal error
  219. JUMP CHECK_HARDWARE           ' print successful, skip next
  220.  
  221. :PRINTER_ERROR_1              ' label for error condition
  222. WINOPEN 0 0 79                ' open the following window
  223. "Your printer is not responding.  Possible problems:"
  224. "   -- Printer is not turned on"
  225. "   -- Printer is out of paper"
  226. "   -- Printer is not attached to LPT1 (parallel port 1)"
  227. ""
  228. "Do you want to try to print again  (Y or N)?"
  229. ASK 57 18                     ' prompt for Y or N key  (fixed cursor position)
  230. WINCLOSE                      ' close this window
  231. JUMP.YES PRINT_INSTALL_1      ' y key pressed, print
  232.  
  233. '--------------
  234. :CHECK_HARDWARE
  235. '--------------
  236. VIDEO EGA
  237. JUMP.YES CK_MOUSE
  238.  
  239. WINOPEN 0, 0, 31
  240. "MAPIT requires a graphics display."
  241. ""
  242. "An EGA or better is recommended."
  243. ""
  244.  
  245. WINUPDATE +2 +1 30            ' yellow text
  246. "MAPIT"
  247.  
  248. WAIT 2 4
  249.  
  250. :CK_MOUSE
  251. MOUSE 0.0
  252. JUMP.YES EXIT
  253.  
  254. WINOPEN 0, 0, 31
  255. "MAPIT requires a MOUSE."
  256. ""
  257. "This system has no mouse enabled."
  258. ""
  259. "You must install one before running MAPIT."
  260. ""
  261.  
  262. WINUPDATE +2 +1 30            ' yellow text
  263. "MAPIT"
  264. WINUPDATE +37 +5 30           ' yellow text
  265. "MAPIT"
  266.  
  267. WAIT 2 6
  268. JUMP FINI
  269.  
  270. ' ----------------------
  271. ' display closing window
  272. ' ----------------------
  273. :EXIT
  274. WINOPEN 0 0 31
  275. "MAPIT installation is complete."
  276. ""
  277. "Would you like to run MAPIT now?"
  278. ""
  279. ""
  280.  
  281. WINUPDATE +2 +1 30            ' yellow text
  282. "MAPIT"
  283. WINUPDATE +24 +3 30            ' yellow text
  284. "MAPIT"
  285.  
  286. WINUPDATE +15 +5 27            ' magenta text
  287. "(Y or N)"
  288.  
  289. ASK +23 +5
  290. WINCLOSE
  291. JUMP.NO FINI
  292.  
  293. :GO_DEMO
  294. WINOPEN 0 0 31
  295. "Copying COLUMBUS.MP3 to EXTENDED.MP3 and"
  296. ""
  297. "running MAPIT."
  298. WINUPDATE +10 +3 30            ' yellow text
  299. "MAPIT"
  300.  
  301. PAUSE 500
  302.  
  303. PROMPT OFF      ' Turn off copy prompts.
  304. COPY ~1~2\COLUMBUS.MP3 ~1~2\EXTENDED.MP3 0 0 31
  305.  
  306. 'RUN ~1~2\MAPITDEM                   ' Never to return.
  307. RUN ~1~2\MAPIT                   ' Never to return.
  308.  
  309. ' ------------------------
  310. ' exit the system normally
  311. ' ------------------------
  312. :EARLY_OUT
  313.  
  314. :FINI
  315. END
  316.  
  317. :INSTALL_FAILURE
  318. WINOPEN 0 0 79
  319. "THE INSTALLATION PROGRAM FAILED PRIOR TO COMPLETION"
  320. ""
  321. "Possible reasons:"
  322. "   -- The floppy disk was removed prior to completion."
  323. "   -- The floppy disk was damaged during shipping."
  324. "   -- You