home *** CD-ROM | disk | FTP | other *** search
/ Informática Multimedia Fácil 56 / INF1297.iso / SOFCAS / EDUCA / INGDOS.ZIP / INSTALL.FIL < prev    next >
Text File  |  1997-01-22  |  6KB  |  233 lines
  1. '' Install Script for INGLÉS-INGLES Mayo del 96 ***SWV FIL***
  2. ' restore the following:
  3. ' space command
  4. ' pauses in startup
  5. BACKGROUND 63
  6. LANGUAGE ENGLISH
  7. BORDER 1
  8. TELESCOPE OFF
  9. WINOPEN 18 2 95
  10. "Pik A Program "
  11. ""
  12. "presenta"
  13. ""
  14. "INGLES-INGLES"
  15. ""
  16. ""
  17. WINUPDATE +11 +5 222
  18. "INGLES-INGLES "
  19. PAUSE 100
  20.  
  21. TELESCOPE ON
  22. SHADOW ON
  23. :which_drive
  24. SPACE 800                         ' Checking for 3.3 meg required.
  25. DRIVE C 0 12 31 15 32 14 79
  26. PATH \INGLES 0 12 31 15 32 14 79
  27.  
  28. exist ENG.1
  29. JUMP.YES DOES_EXIST1
  30. JUMP.NO NOT_EXIST1
  31. :NOT_EXIST1
  32. WINOPEN 0 50 79
  33. ""
  34. " El fichero Eng.1 no se encuentra"
  35. " en el disquete de instalación"
  36. ""
  37. " ¿Desea seguir intentando instalar "
  38. " el programa? (Y/N)? "
  39. ASK 49 31
  40. pause 150
  41. JUMP.NO STOP_INSTALL
  42. WINCLOSE
  43. DISK 0 Eng.1 0 0 31
  44. :DOES_EXIST1
  45. unpack Eng.1 12 10 31 32 14 79
  46. JUMP.FAIL INSTALAR_FALLA
  47.  
  48. WINOPEN 0 12 79
  49. ""
  50. "Inglés-Inglés ha sido instalado en su disco duro"
  51. ""
  52. "                     Para empezar a usarlo..."
  53. "Cambiar al directorio que ha elegido para la instalación (normalmente"
  54. "C:\INGLES)."
  55. "                     Teclear "GO" y pulsar ENTRAR   "
  56. "   Esperamos que disfrute del programa y que sirva de aperitivo para"
  57. "   que quiera ver el contenido de los niveles 2 y 3. "
  58. ""
  59. "                Pulsar [ENTRAR] para continuar."
  60. ""
  61. ""
  62. WINUPDATE +30 +3 30                       ' display text in yellow
  63. "~1~2"
  64.  
  65. WINUPDATE +30 +12 27                       ' cyan
  66. "GRACIAS"
  67.  
  68. ""
  69. WAIT +36 +12
  70.  
  71. WINCLOSE
  72.  
  73. '-------------------------
  74. WINOPEN 0 12 31
  75. "¿Quiere VER la hoja de pedidos en ESPAÑOL de Inglés-Inglés?"
  76. ""
  77.  
  78. WINUPDATE +31 +2 30           ' yellow text
  79. "(Y or N)"
  80.  
  81. ASK +39 +2
  82. WINCLOSE                      ' close the above window
  83. JUMP.NO PRINT_INSTALAR.TXT
  84. VIEW ~1~2\orderdoc.spn 79 31
  85.  
  86. :PRINT_INSTALAR.TXT
  87.  
  88. WINOPEN 0 12 31
  89. "¿Quiere IMPRIMIR la hoja de pedidos de Inglés-Inglés?"
  90. ""
  91.  
  92. WINUPDATE +31 +2 30           ' yellow text
  93. "(Y or N)"
  94.  
  95. ASK +39 +2
  96. WINCLOSE                      ' close the above window
  97. JUMP.NO USA
  98.  
  99. WINOPEN 0 0 31
  100. ""
  101. "  Imprimiendo ...............  "
  102. ""
  103. PRINT ~1~2\orderdoc.spn
  104. WINCLOSE                      ' close the above window
  105. JUMP.FAIL ERROR_IMPRESORA       ' jump on fatal error
  106. JUMP EXIT                     ' print successful, skip next
  107.  
  108.  
  109. '-------------------------------------------------
  110. :ERROR_IMPRESORA               ' label for error condition
  111. WINOPEN 0 12 79                ' open the following window
  112. "La impresora no responde. Posibles causas:"
  113. "   -- No ha encendido la impresora"
  114. "   -- No tiene papel"
  115. "   -- La impresora no está en LPT1 (parallel port 1)"
  116. ""
  117. "¿Quiere intentar imprimir de nuevo (Y o N)?"
  118. ASK 57 18                     ' prompt for Y or N key  (fixed cursor position)
  119. WINCLOSE                      ' close this window
  120. JUMP.YES PRINT_INSTALAR.TXT    ' y key pressed, print
  121.  
  122. :USA
  123. '-------------------------
  124. WINOPEN 0 12 31
  125. "Would you like to SEE the order form for Inglés-Inglés in ENGLISH?"
  126. ""
  127.  
  128. WINUPDATE +31 +2 30           ' yellow text
  129. "(Y or N)"
  130.  
  131. ASK +39 +2
  132. WINCLOSE                      ' close the above window
  133. JUMP.NO PRINT_INSTALL.TXT
  134. VIEW ~1~2\orderdoc.eng 79 31
  135.  
  136. :PRINT_INSTALL.TXT
  137.  
  138. WINOPEN 0 12 31
  139. "Would you like to PRINT the ENGLISH order form for Inglés-Inglés?"
  140. ""
  141.  
  142. WINUPDATE +31 +2 30           ' yellow text
  143. "(Y or N)"
  144.  
  145. ASK +39 +2
  146. WINCLOSE                      ' close the above window
  147. JUMP.NO EXIT
  148.  
  149. WINOPEN 0 0 31
  150. ""
  151. "  Printing the order form ...  "
  152. ""
  153. PRINT ~1~2\orderdoc.eng
  154. WINCLOSE                      ' close the above window
  155. JUMP.FAIL PRINTER_ERROR       ' jump on fatal error
  156. JUMP EXIT                     ' print successful, skip next
  157.  
  158. '-------------------------------------------------
  159. :PRINTER_ERROR               ' label for error condition
  160. WINOPEN 0 12 79                ' open the following window
  161. "The printer does not repond. Possible causes:"
  162. "   -- The printer is not turned on"
  163. "   -- It does not have paper "
  164. "   -- The printer is not connected to LPT1 (parallel port 1)"
  165. ""
  166. "Would you like to try again? (Y o N)?"
  167. ASK 57 18                     ' prompt for Y or N key  (fixed cursor position)
  168. WINCLOSE                      ' close this window
  169. JUMP.YES PRINT_INSTALAR.TXT    ' y key pressed, print
  170.  
  171. :EXIT
  172.  
  173.  
  174. WINOPEN 0 12 31                ' window is centered on screen
  175. "                 Gracias por utilizar "
  176. ""
  177. "                   Inglés-Inglés"
  178. ""
  179. "La versión que Ud. tiene contiene todos los apartados para"
  180. "        que pueda evaluarla correctamente."
  181. ""
  182. ""
  183. ""
  184. WINUPDATE +15 +8 30
  185. "Por favor ¡registre su Shareware!"
  186. WINUPDATE +14 +10 30                     ' write on top of bottom border
  187. "┤ Pulsar [ENTRAR] para continuar ├"  ' (good when space is tight)
  188. WINUPDATE +24 +11 30
  189. "[Enter]"
  190. WAIT +47 +11
  191. WINCLOSE
  192.  
  193. shell
  194. "~1"
  195. "cd ~2"
  196.  
  197. BORDER 2
  198. WINOPEN 0 12 47
  199. "Para tener la seguridad de tener la versión Sharware más actual de"
  200. "Inglés-Inglés, puede ud. bajarlo en una de estas direcciones:"
  201. "              
  202. "             INTERNET: www.pik.com"
  203. "             INTERNET: http://ourworld.compuserve.com/homepages/gbb"
  204. "             Compuserve: GO PIKAPRO"
  205. ""
  206. "        Pulsar [ENTRAR] para empezar a utilizar Inglés-Inglés."
  207.  
  208.  
  209. WAIT +36 +10                                  ' wait for the enter key
  210.  
  211. RUN ~1\~2\go
  212. END            ' exit the system normally
  213. '-------------------------------------------
  214. :INSTALAR_FALLA
  215. WINOPEN 0 12 79
  216. "HUBO UN FALLO EN LA INSTALACION ANTES DE TERMINAR"
  217. ""
  218. "Posibles causas:"
  219. "   -- Se quitó el disquete antes de terminar."
  220. "   -- El disquete sufrió daños en Correos."
  221. "   -- Su disquetera no funciona correctamente."
  222. "   -- Los ficheros están corrompidos por alguna razón."
  223. ""
  224. WINCLOSE
  225. WINOPEN 0 12 31
  226. ""
  227. "      Pulsar [ENTRAR] para Terminar."
  228. WAIT 47 15
  229.  
  230. :STOP_INSTALL
  231. winclose
  232. END
  233.