home *** CD-ROM | disk | FTP | other *** search
/ Amiga MA Magazine 1998 #3 / amigamamagazinepolishissue1998.iso / bazy / tgm-demo / install-tgm_demo < prev    next >
Text File  |  1997-05-25  |  14KB  |  272 lines
  1. ;********************************************************************************
  2. ;
  3. ; Sprache für DEUTSCH
  4. ;
  5. ;********************************************************************************
  6.  
  7. (set exittxt      (cat "\nDie Installation von TGM ist nun abgeschlossen.\n"
  8.                        "\nIch wünsche Ihnen"
  9.                        "\nviel Spaß mit TGM."))
  10. (set wrongversion (cat "Achtung! Es ist eine alte Version des Programmes 'Installer' "
  11.                        "auf Ihrem Amiga!\n\nDie Installation benötigt mindestens Installer 42.9.\n\n"
  12.                        "Bitte überprüfen Sie Ihre Konfiguration!"))
  13. (set ja           "JA")
  14. (set nein         "NEIN")
  15. (set insticon     "Install-TGM_DEMO.info")
  16. (set guideicon    "def_Guide.info")
  17. (set docname      "TGM.guide")
  18. (SET prefs        "S/TGM.prefs")
  19.  
  20. ;********************************************************************************
  21. ;
  22. ; PROZEDUR "INSTALL TGM"
  23. ;
  24. ;********************************************************************************
  25. (PROCEDURE INST-TGM
  26.  
  27.    (SET tgmdir (askdir
  28.                   (prompt "Wo soll TGM installiert werden ?")
  29.                   (help " ")
  30.                   (default "SYS:")
  31.                   (disk)
  32.                )
  33.    )
  34.  
  35.    (SET tgmdoc (askdir
  36.                   (prompt "Wo soll der TGM.guide installiert werden ?")
  37.                   (help " ")
  38.                   (default "SYS:")
  39.                   (disk)
  40.                )
  41.    )
  42.  
  43.    (copyfiles
  44.       (prompt " ")
  45.       (source "TGM-DEMO")
  46.       (dest tgmdir)
  47.       (infos))
  48.    (complete 40)
  49.  
  50.    (copyfiles
  51.       (prompt " ")
  52.       (source docname)
  53.       (dest tgmdoc)
  54.       (infos))
  55.    (complete 50)
  56.  
  57.    (copyfiles
  58.       (prompt " ")
  59.       (source prefs)
  60.       (dest "S:"))
  61.    (complete 60)
  62.  
  63.  
  64.    (SET res (askchoice (prompt "Möchten Sie das mitgelieferte Guide-Icon installieren?")
  65.                (help "Dieses Icon wird dann für das TGM-Archiv verwendet und muß in der Config eingestellt werden.")
  66.                (choices ja nein)
  67.                (default 1)
  68.             )
  69.    )
  70.  
  71.    (IF (= res 0)
  72.       (
  73.          (copyfiles
  74.             (prompt " ")
  75.             (source guideicon)
  76.             (dest "ENVARC:SYS")
  77.             (infos))
  78.  
  79.          (complete 70)
  80.  
  81.          (copyfiles
  82.             (prompt " ")
  83.             (source guideicon)
  84.             (dest "ENV:SYS")
  85.             (infos))
  86.  
  87.          (complete 80)
  88.       )
  89.    )
  90.  
  91. ;********************************************************************************
  92. ;
  93. ) ; ENDE der PROCEDURE Install-MCP
  94. ;
  95. ;********************************************************************************
  96.  
  97. ;********************************************************************************
  98. ;
  99. ; BEGINN der eigentlichen Installation
  100. ;
  101. ; INTRO 1
  102. ;
  103. ;********************************************************************************
  104. (PROCEDURE WAITX (SET X 1) ( (while (< X 200)  (SET X (+ X 1)))))
  105.  
  106. (working "\nW ") (WAITX)
  107. (working "\nW e ") (WAITX)
  108. (working "\nW e l ") (WAITX)
  109. (working "\nW e l c ") (WAITX)
  110. (working "\nW e l c o ") (WAITX)
  111. (working "\nW e l c o m ") (WAITX)
  112. (working "\nW e l c o m e ") (WAITX)
  113. (working "\nW e l c o m e  ") (WAITX)
  114. (working "\nW e l c o m e   t ") (WAITX)
  115. (working "\nW e l c o m e   t o ") (WAITX)
  116. (working "\nW e l c o m e   t o  ") (WAITX)
  117. (working "\nW e l c o m e   t o   ") (WAITX)
  118. (working "\nW e l c o m e   t o   ") (WAITX)
  119. (working "\nW e l c o m e   t o   ") (WAITX)
  120.  
  121. (working "\nW e l c o m e   t o   \n\nT") (WAITX)
  122. (working "\nW e l c o m e   t o   \n\nTa") (WAITX)
  123. (working "\nW e l c o m e   t o   \n\nTan") (WAITX)
  124. (working "\nW e l c o m e   t o   \n\nTang") (WAITX)
  125. (working "\nW e l c o m e   t o   \n\nTangr") (WAITX)
  126. (working "\nW e l c o m e   t o   \n\nTangra") (WAITX)
  127. (working "\nW e l c o m e   t o   \n\nTangram") (WAITX)
  128. (working "\nW e l c o m e   t o   \n\nTangram'") (WAITX)
  129. (working "\nW e l c o m e   t o   \n\nTangram's") (WAITX)
  130. (working "\nW e l c o m e   t o   \n\nTangram's ") (WAITX)
  131. (working "\nW e l c o m e   t o   \n\nTangram's G") (WAITX)
  132. (working "\nW e l c o m e   t o   \n\nTangram's Gu") (WAITX)
  133. (working "\nW e l c o m e   t o   \n\nTangram's Gui") (WAITX)
  134. (working "\nW e l c o m e   t o   \n\nTangram's Guid") (WAITX)
  135. (working "\nW e l c o m e   t o   \n\nTangram's Guide") (WAITX)
  136. (working "\nW e l c o m e   t o   \n\nTangram's Guide-") (WAITX)
  137. (working "\nW e l c o m e   t o   \n\nTangram's Guide-M") (WAITX)
  138. (working "\nW e l c o m e   t o   \n\nTangram's Guide-Ma") (WAITX)
  139. (working "\nW e l c o m e   t o   \n\nTangram's Guide-Man") (WAITX)
  140. (working "\nW e l c o m e   t o   \n\nTangram's Guide-Mana") (WAITX)
  141. (working "\nW e l c o m e   t o   \n\nTangram's Guide-Manag") (WAITX)
  142. (working "\nW e l c o m e   t o   \n\nTangram's Guide-Manage") (WAITX)
  143. (working "\nW e l c o m e   t o   \n\nTangram's Guide-Manager") (WAITX)
  144. (working "\nW e l c o m e   t o   \n\nTangram's Guide-Manager ") (WAITX)
  145. (working "\nW e l c o m e   t o   \n\nTangram's Guide-Manager  ") (WAITX)
  146.  
  147. (message "\n\n\nW e l c o m e   t o   \n\nTangram's Guide-Manager  ") (WAITX)
  148.  
  149. (welcome)
  150.  
  151. ;********************************************************************************
  152. ;
  153. ; Feststellen, welcher Installer vorhanden ist
  154. ;
  155. ;********************************************************************************
  156.  
  157. (if (< @installer-version 2752521)
  158.    (
  159.       (message wrongversion)
  160.       (exit (quiet))
  161.    )
  162. )
  163.  
  164. (INST-TGM)
  165.  
  166.  
  167. (complete 90)
  168.  
  169. ;******************************************************************************** 
  170. ; 
  171. ; ENDE der Installation
  172. ;
  173. ; INTRO 2
  174. ;
  175. ;********************************************************************************
  176.  
  177. (working "\n\n\n\n\n\n\n\n\n\n\n\n\nInstaller Script") (WAITX)
  178. (working "\n\n\n\n\n\n\n\n\n\n\n\nInstaller Script") (WAITX)
  179. (working "\n\n\n\n\n\n\n\n\n\n\nInstaller Script") (WAITX)
  180. (working "\n\n\n\n\n\n\n\n\n\nInstaller Script") (WAITX)
  181. (working "\n\n\n\n\n\n\n\n\nInstaller Script") (WAITX)
  182. (working "\n\n\n\n\n\n\n\nInstaller Script") (WAITX)
  183. (working "\n\n\n\n\n\n\nInstaller Script") (WAITX)
  184. (working "\n\n\n\n\n\nInstaller Script") (WAITX)
  185. (working "\n\n\n\n\nInstaller Script") (WAITX)
  186. (working "\n\n\n\nInstaller Script") (WAITX)
  187. (working "\n\n\nInstaller Script") (WAITX)
  188. (working "\n\nInstaller Script") (WAITX)
  189. (working "\n\nInstaller Script") (WAITX)
  190. (working "\nInstaller Script") (WAITX)
  191.  
  192. (working "\nInstaller Script\n\n\n\n\n\n\n\n\n\nfor Tangram's Guide-Manager") (WAITX)
  193. (working "\nInstaller Script\n\n\n\n\n\n\n\n\nfor Tangram's Guide-Manager") (WAITX)
  194. (working "\nInstaller Script\n\n\n\n\n\n\n\nfor Tangram's Guide-Manager") (WAITX)
  195. (working "\nInstaller Script\n\n\n\n\n\n\nfor Tangram's Guide-Manager") (WAITX)
  196. (working "\nInstaller Script\n\n\n\n\n\nfor Tangram's Guide-Manager") (WAITX)
  197. (working "\nInstaller Script\n\n\n\n\nfor Tangram's Guide-Manager") (WAITX)
  198. (working "\nInstaller Script\n\n\n\nfor Tangram's Guide-Manager") (WAITX)
  199. (working "\nInstaller Script\n\n\nfor Tangram's Guide-Manager") (WAITX)
  200. (working "\nInstaller Script\n\nfor Tangram's Guide-Manager") (WAITX)
  201.  
  202. (working "\nInstaller Script\n\nfor Tangram's Guide-Manager\n\n\n\n\n\n\n\nw") (WAITX)
  203. (working "\nInstaller Script\n\nfor Tangram's Guide-Manager\n\n\n\n\n\n\n\nwr") (WAITX)
  204. (working "\nInstaller Script\n\nfor Tangram's Guide-Manager\n\n\n\n\n\n\n\nwri") (WAITX)
  205. (working "\nInstaller Script\n\nfor Tangram's Guide-Manager\n\n\n\n\n\n\n\nwrit") (WAITX)
  206. (working "\nInstaller Script\n\nfor Tangram's Guide-Manager\n\n\n\n\n\n\n\nwritt") (WAITX)
  207. (working "\nInstaller Script\n\nfor Tangram's Guide-Manager\n\n\n\n\n\n\n\nwritten ") (WAITX)
  208. (working "\nInstaller Script\n\nfor Tangram's Guide-Manager\n\n\n\n\n\n\n\nwritten b") (WAITX)
  209. (working "\nInstaller Script\n\nfor Tangram's Guide-Manager\n\n\n\n\n\n\n\nwritten by") (WAITX)
  210. (working "\nInstaller Script\n\nfor Tangram's Guide-Manager\n\n\n\n\n\n\n\nwritten by ") (WAITX)
  211. (working "\nInstaller Script\n\nfor Tangram's Guide-Manager\n\n\n\n\n\n\n\nwritten by C") (WAITX)
  212. (working "\nInstaller Script\n\nfor Tangram's Guide-Manager\n\n\n\n\n\n\n\nwritten by Cl") (WAITX)
  213. (working "\nInstaller Script\n\nfor Tangram's Guide-Manager\n\n\n\n\n\n\n\nwritten by Cla") (WAITX)
  214. (working "\nInstaller Script\n\nfor Tangram's Guide-Manager\n\n\n\n\n\n\n\nwritten by Clau") (WAITX)
  215. (working "\nInstaller Script\n\nfor Tangram's Guide-Manager\n\n\n\n\n\n\n\nwritten by Claus") (WAITX)
  216. (working "\nInstaller Script\n\nfor Tangram's Guide-Manager\n\n\n\n\n\n\n\nwritten by Claus ") (WAITX)
  217. (working "\nInstaller Script\n\nfor Tangram's Guide-Manager\n\n\n\n\n\n\n\nwritten by Claus D") (WAITX)
  218. (working "\nInstaller Script\n\nfor Tangram's Guide-Manager\n\n\n\n\n\n\n\nwritten by Claus Di") (WAITX)
  219. (working "\nInstaller Script\n\nfor Tangram's Guide-Manager\n\n\n\n\n\n\n\nwritten by Claus Dil") (WAITX)
  220. (working "\nInstaller Script\n\nfor Tangram's Guide-Manager\n\n\n\n\n\n\n\nwritten by Claus Dill") (WAITX)
  221. (working "\nInstaller Script\n\nfor Tangram's Guide-Manager\n\n\n\n\n\n\n\nwritten by Claus Dilly") (WAITX)
  222. (working "\nInstaller Script\n\nfor Tangram's Guide-Manager\n\n\n\n\n\n\n\nwritten by Claus Dilly") (WAITX)
  223. (working "\nInstaller Script\n\nfor Tangram's Guide-Manager\n\n\n\n\n\n\nwritten by Claus Dilly") (WAITX)
  224. (working "\nInstaller Script\n\nfor Tangram's Guide-Manager\n\n\n\n\n\nwritten by Claus Dilly") (WAITX)
  225. (working "\nInstaller Script\n\nfor Tangram's Guide-Manager\n\n\n\n\nwritten by Claus Dilly") (WAITX)
  226. (working "\nInstaller Script\n\nfor Tangram's Guide-Manager\n\n\n\nwritten by Claus Dilly") (WAITX)
  227. (working "\nInstaller Script\n\nfor Tangram's Guide-Manager\n\n\nwritten by Claus Dilly") (WAITX)
  228. (working "\nInstaller Script\n\nfor Tangram's Guide-Manager\n\nwritten by Claus Dilly") (WAITX)
  229. (working "\nInstaller Script\n\nfor Tangram's Guide-Manager\n\nwritten by Claus Dilly\n\n\n\n\n\n\nE-Mail:") (WAITX)
  230. (working "\nInstaller Script\n\nfor Tangram's Guide-Manager\n\nwritten by Claus Dilly\n\n\n\n\n\nE-Mail:") (WAITX)
  231. (working "\nInstaller Script\n\nfor Tangram's Guide-Manager\n\nwritten by Claus Dilly\n\n\n\n\nE-Mail:") (WAITX)
  232. (working "\nInstaller Script\n\nfor Tangram's Guide-Manager\n\nwritten by Claus Dilly\n\n\n\nE-Mail:") (WAITX)
  233. (working "\nInstaller Script\n\nfor Tangram's Guide-Manager\n\nwritten by Claus Dilly\n\n\nE-Mail:") (WAITX)
  234. (working "\nInstaller Script\n\nfor Tangram's Guide-Manager\n\nwritten by Claus Dilly\n\nE-Mail:") (WAITX)
  235. (working "\nInstaller Script\n\nfor Tangram's Guide-Manager\n\nwritten by Claus Dilly\n\nE-Mail: T") (WAITX)
  236. (working "\nInstaller Script\n\nfor Tangram's Guide-Manager\n\nwritten by Claus Dilly\n\nE-Mail: TA") (WAITX )
  237. (working "\nInstaller Script\n\nfor Tangram's Guide-Manager\n\nwritten by Claus Dilly\n\nE-Mail: TAN") (WAITX)
  238. (working "\nInstaller Script\n\nfor Tangram's Guide-Manager\n\nwritten by Claus Dilly\n\nE-Mail: TANG") (WAITX)
  239. (working "\nInstaller Script\n\nfor Tangram's Guide-Manager\n\nwritten by Claus Dilly\n\nE-Mail: TANGR") (WAITX)
  240. (working "\nInstaller Script\n\nfor Tangram's Guide-Manager\n\nwritten by Claus Dilly\n\nE-Mail: TANGRA") (WAITX)
  241. (working "\nInstaller Script\n\nfor Tangram's Guide-Manager\n\nwritten by Claus Dilly\n\nE-Mail: TANGRAM") (WAITX)
  242. (working "\nInstaller Script\n\nfor Tangram's Guide-Manager\n\nwritten by Claus Dilly\n\nE-Mail: TANGRAM@") (WAITX)
  243. (working "\nInstaller Script\n\nfor Tangram's Guide-Manager\n\nwritten by Claus Dilly\n\nE-Mail: TANGRAM@n") (WAITX)
  244. (working "\nInstaller Script\n\nfor Tangram's Guide-Manager\n\nwritten by Claus Dilly\n\nE-Mail: TANGRAM@nu") (WAITX)
  245. (working "\nInstaller Script\n\nfor Tangram's Guide-Manager\n\nwritten by Claus Dilly\n\nE-Mail: TANGRAM@nue") (WAITX)
  246. (working "\nInstaller Script\n\nfor Tangram's Guide-Manager\n\nwritten by Claus Dilly\n\nE-Mail: TANGRAM@nuer") (WAITX)
  247. (working "\nInstaller Script\n\nfor Tangram's Guide-Manager\n\nwritten by Claus Dilly\n\nE-Mail: TANGRAM@nuern") (WAITX)
  248. (working "\nInstaller Script\n\nfor Tangram's Guide-Manager\n\nwritten by Claus Dilly\n\nE-Mail: TANGRAM@nuernb") (WAITX)
  249. (working "\nInstaller Script\n\nfor Tangram's Guide-Manager\n\nwritten by Claus Dilly\n\nE-Mail: TANGRAM@nuernbe") (WAITX)
  250. (working "\nInstaller Script\n\nfor Tangram's Guide-Manager\n\nwritten by Claus Dilly\n\nE-Mail: TANGRAM@nuernber") (WAITX)
  251. (working "\nInstaller Script\n\nfor Tangram's Guide-Manager\n\nwritten by Claus Dilly\n\nE-Mail: TANGRAM@nuernberg") (WAITX)
  252. (working "\nInstaller Script\n\nfor Tangram's Guide-Manager\n\nwritten by Claus Dilly\n\nE-Mail: TANGRAM@nuernberg.") (WAITX)
  253. (working "\nInstaller Script\n\nfor Tangram's Guide-Manager\n\nwritten by Claus Dilly\n\nE-Mail: TANGRAM@nuernberg.n") (WAITX)
  254. (working "\nInstaller Script\n\nfor Tangram's Guide-Manager\n\nwritten by Claus Dilly\n\nE-Mail: TANGRAM@nuernberg.ne") (WAITX)
  255. (working "\nInstaller Script\n\nfor Tangram's Guide-Manager\n\nwritten by Claus Dilly\n\nE-Mail: TANGRAM@nuernberg.net") (WAITX)
  256. (working "\nInstaller Script\n\nfor Tangram's Guide-Manager\n\nwritten by Claus Dilly\n\nE-Mail: TANGRAM@nuernberg.nets") (WAITX)
  257. (working "\nInstaller Script\n\nfor Tangram's Guide-Manager\n\nwritten by Claus Dilly\n\nE-Mail: TANGRAM@nuernberg.netsu") (WAITX)
  258. (working "\nInstaller Script\n\nfor Tangram's Guide-Manager\n\nwritten by Claus Dilly\n\nE-Mail: TANGRAM@nuernberg.netsur") (WAITX)
  259. (working "\nInstaller Script\n\nfor Tangram's Guide-Manager\n\nwritten by Claus Dilly\n\nE-Mail: TANGRAM@nuernberg.netsurf") (WAITX)
  260. (working "\nInstaller Script\n\nfor Tangram's Guide-Manager\n\nwritten by Claus Dilly\n\nE-Mail: TANGRAM@nuernberg.netsurf.") (WAITX)
  261. (working "\nInstaller Script\n\nfor Tangram's Guide-Manager\n\nwritten by Claus Dilly\n\nE-Mail: TANGRAM@nuernberg.netsurf.d") (WAITX)
  262. (working "\nInstaller Script\n\nfor Tangram's Guide-Manager\n\nwritten by Claus Dilly\n\nE-Mail: TANGRAM@nuernberg.netsurf.de") (WAITX)
  263. (message "\n\n\nInstaller Script\n\nfor Tangram's Guide-Manager\n\nwritten by Claus Dilly\n\nE-Mail: TANGRAM@nuernberg.netsurf.de") (WAITX)
  264.  
  265. (complete 100)
  266.  
  267. ;********************************************************************************
  268.  
  269. (if (= upd 0)
  270.    (exit exittxt (quiet))
  271. )
  272.