home *** CD-ROM | disk | FTP | other *** search
/ Amiga ISO Collection / AmigaUtilCD2.iso / Scala / SCALAMM300_A1200MP.lzx / ScalaInstall / Deutsch < prev    next >
Encoding:
Text File  |  1996-01-11  |  18.8 KB  |  660 lines
  1. ; $VER: Scala Install Program Version 3.02 (31Aug95)
  2.  
  3. ;----------------------------- Text Strings -------------------------------
  4.  
  5. (set msg_Utils    "Scala-Utilities")
  6. (set msg_Palettes    "Scala-Paletten")
  7. (set msg_Symbols  "Scala-Symbole")
  8. (set msg_ARexx       "Scala-Arexx-Beispiel")
  9. (set msg_EX    "Scala-EX")
  10. (set msg_Fonts    "Scala-Fonts")
  11. (set msg_Back     "Scala-Hintergründe")
  12. (set msg_Demos    "Scala-Demo-Scripts")
  13. (set msg_Resize      "Scala-Hintergründe anpassen")
  14. (set msg_ScalaFont   "Scala.font")
  15. (set msg_NoFastMem1     "Kein FAST-RAM vorhanden oder verfügbar.\n\n")
  16. (set msg_NoFastMem2     "Scala MM300 benötigt FAST-RAM zum Arbeiten.\n\n")
  17. (set msg_NoFastMem3  "Um Scala zu installieren, müssen Sie Ihren Amiga zuerst um FAST-RAM erweitern, über den PCMCIA-Steckplatz (A1200) oder Einbau einer Speichererweiterungs- und/oder Turbo-Karte im Erweiterungssteckplatz (A1200/A4000).")
  18. (set msg_NoSelect "Sie haben gar nichts ausgewählt. Bitte noch einmal.")
  19. (set msg_NoDrawer ("Sie müssen eine Schublade zur Installation von %s auswählen. Bitte legen Sie eine neue Schublade an oder wählen Sie eine existierende." @app-name))
  20. (set msg_ChooseWhat  ("Bitte wählen Sie, welche Teile von %s Sie installieren wollen:" @app-name))
  21. (set msg_ChooseDest  ("Bitte wählen Sie, wo Sie %s installiert haben möchten:" @app-name))
  22. (set msg_Overscan1   "Sie können die Größe der Scala-Hintergründe (Backgrounds) an Overscan anpassen lassen. Bitte beachten Sie, daß die Wahl von %s oder %s mehr Platz auf Ihrer Festplatte braucht und die Qualität der Scala-Wipes vermindern kann.\n\n")
  23. (set msg_Overscan2   "Sie möchten die Größe der Scala-Hintergründe an Overscan anpassen lassen. Bitte beachten Sie, daß dies mehr Platz auf Ihrer Festplatte braucht und die Qualität der Scala-Wipes vermindern kann.\n\n")
  24. (set msg_ChooseSize  "Please select which size you want the Scala Background pictures:")
  25. (set msg_OldWorkbench   ("Sie benötigen mindestens Workbench 2.04, um %s zu installieren." @app-name))
  26. (set msg_Nor      "Normal")
  27. (set msg_Std      "Standard")
  28. (set msg_Max      "Max")
  29. (set msg_Startup  ("Möchten Sie, daß %s automatisch jedesmal startet, wenn Sie Ihren Amiga einschalten?" @app-name))
  30. (set msg_ErrorRam "Fehler beim Kopieren von Dateien in die Ram-Disk.")
  31. (set msg_Insert      "Bitte legen Sie Disk %ld in ein beliebiges Laufwerk.")
  32. (set msg_Installing  "Installieren von %s...")
  33. (set msg_MoveLingua  "Pfad anpassen in %s...")
  34. (set msg_ConvertNTSC "Hintergrund %s nach NTSC konvertieren...")
  35. (set msg_ConvertOverscan "Hintergrund %s für Overscan konvertieren...")
  36. (set msg_DeleteOldFiles ("Sie haben schon eine ältere Version von %s auf Ihrer Festplatte installiert. Wollen Sie alte Dateien löschen, die nicht mehr gebraucht werden?" @app-name))
  37.  
  38.  
  39. ;------------------------------ Constants ---------------------------------
  40.  
  41. (if (= @app-name "Scala InfoChannel")
  42.     (set IC 1)
  43.     (set IC 0)
  44. )
  45.  
  46. (if (= @app-name "InfoChannel Player")
  47.     (set PL 1)
  48.     (set PL 0)
  49. )
  50.  
  51. (if (= @app-name "Scala Multimedia")
  52.     (set MM 1)
  53.     (set MM 0)
  54. )
  55.  
  56. (if (= @app-name "Scala Multimedia Upgrade")
  57.     (set UPGR 1)
  58.     (set UPGR 0)
  59. )
  60.  
  61. (if (or IC MM)
  62.     (
  63.    (set opt_Scala    %000000001)
  64.    (set opt_Utils    %000000010)
  65.    (set opt_Palettes %000000100)
  66.    (set opt_Symbols  %000001000)
  67.    (set opt_ARexx    %000010000)
  68.    (set opt_EX    %000100000)
  69.    (set opt_Fonts    %001000000)
  70.    (set opt_Back     %010000000)
  71.    (set opt_Demos    %100000000)
  72.     )
  73. )
  74.  
  75. (if MM
  76.     (
  77.    (set lha_Scala    "Work:ScalaInstall/Versions/PAL/German/Scala.lha")
  78.    (set num_Scala    1)
  79.    (set lha_ScalaFont   "Work:ScalaInstall/Versions/PAL/German/ScalaFont.lha")
  80.    (set num_ScalaFont   1)
  81.    (set lha_Utils    "Work:ScalaInstall/Versions/PAL/German/Utilities.lha")
  82.    (set num_Utils    1)
  83.    (set lha_EX    "Work:ScalaInstall/Versions/PAL/German/EX.lha")
  84.    (set num_EX    1)
  85.    (set lha_ARexx    "Work:ScalaInstall/Versions/PAL/German/ARexx.lha")
  86.    (set num_ARexx    1)
  87.    (set lha_Scripts  "Work:ScalaInstall/Versions/PAL/German/Scripts.lha")
  88.    (set num_Scripts  1)
  89.    (set lha_Fonts    "Work:ScalaInstall/Data/Fonts.lha")
  90.    (set num_Fonts    2)
  91.    (set lha_Palettes "Work:ScalaInstall/Data/Palettes.lha")
  92.    (set num_Palettes 2)
  93.    (set lha_Symbols  "Work:ScalaInstall/Data/Symbols.lha")
  94.    (set num_Symbols  2)
  95.    (set lha_Back1    "Work:ScalaInstall/Data/Backgrounds1.lha")
  96.    (set num_Back1    2)
  97.    (set lha_Back2    "Work:ScalaInstall/Data/Backgrounds2.lha")
  98.    (set num_Back2    3)
  99.    (set lha_Back3    "Work:ScalaInstall/Data/Backgrounds3.lha")
  100.    (set num_Back3    4)
  101.    (set lha_Back4    "Work:ScalaInstall/Data/Backgrounds4.lha")
  102.    (set num_Back4    5)
  103.    (set lha_Back5    "Work:ScalaInstall/Data/Backgrounds5.lha")
  104.    (set num_Back5    6)
  105.    (set lha_Demos1      "Work:ScalaInstall/Data/Demos1.lha")
  106.    (set num_Demos1      6)
  107.    (set lha_Demos2      "Work:ScalaInstall/Data/Demos2.lha")
  108.    (set num_Demos2      7)
  109.    (set lha_Demos3      "Work:ScalaInstall/Data/Demos3.lha")
  110.    (set num_Demos3      8)
  111.    (set lha_Demos4      "Work:ScalaInstall/Data/Demos4.lha")
  112.    (set num_Demos4      9)
  113.     )
  114. )
  115.  
  116.  
  117.  
  118. ;-------------------------- Utility procedures ----------------------------
  119.  
  120. (Procedure CheckConfig
  121.     (set OS_Version (/ (getversion) 65536))
  122.     (if (< OS_Version 37)
  123.    (abort msg_OldWorkbench)
  124.     )
  125.     (if (= (database "vblank") 50)
  126.         (   (SET VideoMode "PAL")
  127.             (SET NOR ("640 x 512 (%s)" msg_Nor))
  128.             (SET STD ("704 x 566 (%s)" msg_Std))
  129.             (SET MAX ("736 x 566 (%s)" msg_Max))
  130.    )
  131.         (   (SET VideoMode "NTSC")
  132.             (SET NOR ("640 x 400 (%s)" msg_Nor))
  133.             (SET STD ("704 x 480 (%s)" msg_Std))
  134.             (SET MAX ("736 x 482 (%s)" msg_Max))
  135.    )
  136.     )
  137. )
  138.  
  139. (Procedure CheckFastMem
  140.    (run "AVAIL >ENV:FastMem FAST" (Safe))
  141.    (if (= ("%.1s" (getenv "FastMem")) 0)
  142.        (abort msg_NoFastMem1 msg_NoFastMem2 msg_NoFastMem3)
  143.    )
  144.    (Delete "ENV:FastMem")
  145. )
  146.  
  147. (Procedure CopyTools
  148.     (copyfiles
  149.    (prompt "")
  150.    (help @copyfiles-help)
  151.    (source "Work:ScalaInstall/Tools")
  152.    (all)
  153.    (dest "RAM:")
  154.     )
  155.     (if (not (and (exists "RAM:LHa") 
  156.         (exists "RAM:MakeOverscan") 
  157.         (exists "RAM:MoveLingua")))
  158.    (abort msg_ErrorRam)
  159.     )
  160. )
  161.  
  162.  
  163. (Procedure InstallFile
  164.     (working (msg_Installing Installing))
  165.     (run ("RAM:LHa -N x %s \"%s/\"" LhaFile @Dest))
  166. )
  167.  
  168.  
  169. (Procedure InstallFontFiles
  170.     (working (msg_Installing Installing))
  171.     (run ("RAM:LHa -N x %s \"%s\"" LhaFile "Fonts:"))
  172. )
  173.  
  174.  
  175. (Procedure MoveLingua
  176.     (set i 0)
  177.     (while 
  178.    (set ScriptName 
  179.        (if IC
  180.            (select i
  181.              "InfoChannelIC400.script"
  182.              "LoScalatore.script"
  183.              "ScalaAGA.script"
  184.              "ScalaAirport.script"
  185.              "ScalaCableTV.script"
  186.              "ScalaComms.script"
  187.              "ScalaFeatures.script"
  188.              "ScalaFonts.script"
  189.              "ScalaHotel.script"
  190.              "ScalaQuiz.script"
  191.              "ScalaShopping.script"
  192.              "ScalaTime.script"
  193.              "ScalaTravel.script"
  194.              "ScalaVoice.script"
  195.              "ScalaWipes.script"
  196.              "ScalaWorld.script"
  197.              "ScaliniMotor.script"
  198.              ""
  199.            )
  200.            (select i
  201.              "!ScalaMain.script"
  202.              "LoScalatore.script"
  203.              "ScalaFeatures.script"
  204.              "ScalaFonts.script"
  205.              "ScalaMM300.script"
  206.              "ScalaProducts.script"
  207.              "ScalaQuiz.script"
  208.              "ScalaRave.script"
  209.              "ScalaVideo.script"
  210.              "ScalaVoice.script"
  211.              "ScalaWipes.script"
  212.              "ScalaWorld.script"
  213.              ""
  214.            )
  215.        )
  216.       )
  217.    (set ScriptName (tackon (tackon @dest "Scripts") ScriptName))
  218.       (if (exists ScriptName)
  219.        (
  220.            (working (msg_MoveLingua ScriptName))
  221.            (run ("RAM:MoveLingua \"%s\" Work:Scala \"%s\" \"%s\"" ScriptName @dest (tackon @dest "Scripts")))
  222.        )
  223.    )
  224.    (set i (+ i 1))
  225.     )
  226. )
  227.  
  228. (Procedure MakeOverscan
  229.     (set i 0)
  230.     (while 
  231.    (set PictureName 
  232.        (if UPGR
  233.            (select i
  234.           "Fabrics004"  "Nature001" "Nature002"
  235.           "Stones012"      "Stones013" "Texture014"
  236.           "Texture015"  "Texture016"   "Theme005"
  237.           ""
  238.       )
  239.            (select i
  240.           "Fabrics001"  "Fabrics002"   "Fabrics003"
  241.           "Fabrics004"  "Fantasy001"   "Grass001"
  242.           "NaiveBook"      "NaiveClock"   "NaiveCoffee"
  243.           "NaiveDisk"      "NaivePencil"  "NaivePhone"
  244.           "NaivePiano"  "NaivePlate"   "Nature001"
  245.           "Nature002"      "Number001" "Number002"
  246.           "Number003"      "Number004" "Number005"
  247.           "Number006"      "Number007" "Number008"
  248.           "Number009"      "Painting001"  "Painting002"
  249.           "Painting003" "Painting004"  "Paper001"
  250.           "Paper002"    "Paper003"  "Paper004"
  251.           "Paper005"    "Sky001" "Stones001"
  252.           "Stones002"      "Stones003" "Stones004"
  253.           "Stones005"      "Stones006" "Stones007"
  254.           "Stones008"      "Stones009" "Stones010"
  255.           "Stones011"      "Stones012" "Stones013"
  256.           "Tech001"     "Tech002"   "Tech003"
  257.           "Tech004"     "Tech005"   "Tech006"
  258.           "Tech007"     "Texture001"   "Texture002"
  259.           "Texture003"  "Texture004"   "Texture005"
  260.           "Texture006"  "Texture007"   "Texture008"
  261.           "Texture009"  "Texture010"   "Texture011"
  262.           "Texture012"  "Texture013"   "Texture014"
  263.           "Texture015"  "Texture016"   "Theme001"
  264.           "Theme002"    "Theme003"  "Theme004"
  265.           "Theme005"    "Water001"  "Window001"
  266.           ""
  267.            )
  268.        )
  269.       )
  270.       (if (and (= VideoMode "NTSC") (= BackSize 0))
  271.        (working (msg_ConvertNTSC PictureName))
  272.        (working (msg_ConvertOverscan PictureName))
  273.    )
  274.    (set PictureName (tackon (tackon @dest "Backgrounds") PictureName))
  275.    (run ("RAM:MakeOverscan \"%s\" \"%s\" %s %s" PictureName PictureName
  276.       VideoMode (select BackSize "NOR" "STD" "MAX")))
  277.    (set i (+ i 1))
  278.     )
  279.     (if (= VideoMode "NTSC")
  280.    (
  281.             (set PictureName (tackon (tackon @dest "Backgrounds") "World001"))
  282.           (run ("RAM:MakeOverscan \"%s\" \"%s\" NTSC NOR" PictureName PictureName))
  283.    )
  284.     )
  285. )
  286.  
  287. ;-------------------------- Cleanup procedures ----------------------------
  288.  
  289. (Procedure DeleteTools
  290.     (delete "RAM:MakeOverscan" "RAM:MoveLingua" "RAM:Lha")
  291. )
  292.  
  293. (onerror (DeleteTools))
  294.  
  295.  
  296. (Procedure DeleteOldFiles
  297.     (if (or IC PL)
  298.    (
  299.        (if (exists "libs:infochannel.library")
  300.       (if (askbool (prompt msg_DeleteOldFiles) (help @askbool-help))
  301.           (
  302.               (delete "libs:infochannel.library")
  303.               (delete "devs:infochannel.device")
  304.               (delete "s:infochannel.config")
  305.               (delete "s:infochannel.layout")
  306.               (delete "s:infochannel.layout.info")
  307.               (delete "s:startup-script")
  308.               (delete "fonts:Info.font")
  309.               (delete "fonts:Info/11")
  310.               (delete "fonts:Info/8")
  311.               (delete "fonts:Info")
  312.               (delete (tackon @dest "InfoPrint"))
  313.               (delete (tackon @dest "InfoPrint.info"))
  314.               (delete (tackon @dest "InfoNet"))
  315.               (delete (tackon @dest "InfoNet.info"))
  316.           )
  317.       )
  318.        )
  319.    )
  320.    (
  321.        (if (exists "libs:scalamm.library")
  322.       (if (askbool (prompt msg_DeleteOldFiles) (help @askbool-help))
  323.           (
  324.               (delete "libs:scalamm.library")
  325.               (delete "devs:scalamm.device")
  326.               (delete "s:scalamm.config")
  327.               (delete "s:scalamm.layout")
  328.               (delete "s:scalamm.layout.info")
  329.               (delete "s:startup-script")
  330.               (set utils (tackon @dest "Utilities"))
  331.               (delete (tackon utils "ScalaMMPrint"))
  332.               (delete (tackon utils "ScalaMMPrint.info"))
  333.           )
  334.       )
  335.        )
  336.    )
  337.     )
  338. )
  339.  
  340. ;-------------------------- Menu procedures -------------------------------
  341.  
  342. (Procedure InstallMenu
  343.     (until (<> Selection 0)
  344.       (
  345.             (if (or IC MM)
  346.            (set Selection
  347.                (askoptions
  348.                    (prompt msg_ChooseWhat)
  349.                    (help @askoptions-help)
  350.                         (choices @app-name
  351.                              msg_Utils
  352.                              msg_Palettes
  353.                              msg_Symbols
  354.                              msg_ARexx
  355.                              msg_EX
  356.                              msg_Fonts
  357.                              msg_Back
  358.                              msg_Demos
  359.                         )
  360.           )
  361.       )
  362.        )
  363.        (if PL
  364.            (set Selection
  365.                (askoptions
  366.                    (prompt msg_ChooseWhat)
  367.                    (help @askoptions-help)
  368.               (choices @app-name
  369.                       msg_Symbols
  370.                       msg_EX
  371.                       msg_Fonts
  372.                       msg_Back
  373.                      )
  374.           )
  375.       )
  376.             )
  377.        (if UPGR
  378.       (set Selection
  379.                (askoptions
  380.                    (prompt msg_ChooseWhat)
  381.                    (help @askoptions-help)
  382.                    (default %11111)
  383.                         (choices @app-name
  384.                              msg_Utils
  385.                              msg_EX
  386.                              msg_Back
  387.                              msg_Demos
  388.                         )
  389.           )
  390.                 )
  391.             )
  392.  
  393.    )
  394.         (if (= Selection 0)    
  395.             (message msg_NoSelect)
  396.         )
  397.     )
  398. )
  399.  
  400.  
  401. (Procedure BackMenu
  402.     (set BackSize
  403.         (askchoice
  404.             (prompt (msg_Overscan1 STD MAX) msg_ChooseSize)
  405.             (help @askchoice-help)
  406.             (choices NOR STD MAX)
  407.    )
  408.     )
  409. )
  410.  
  411.  
  412. (Procedure DestMenu
  413.     (set @dest "")
  414.     (while (= @dest (pathonly @dest))
  415.         (set @dest
  416.             (askdir
  417.                 (prompt msg_ChooseDest)
  418.                 (help @askdir-help)
  419.                 (newpath)
  420.                 (default @default-dest)
  421.        )
  422.         )
  423.         (if (= @dest (pathonly @dest))
  424.        (message msg_NoDrawer)
  425.    )
  426.     )
  427.     (if (not (exists @dest))
  428.       (
  429.        (makedir @dest (infos))
  430.             (tooltype (dest @dest) (noposition))
  431.    )
  432.     )
  433.     (set @default-dest @dest)
  434. )
  435.  
  436.  
  437.  
  438. ;------------------------- Installation procedures ------------------------
  439.  
  440. (Procedure InstallScala
  441.     (set System (tackon @dest "System"))
  442.     (makedir System (infos))
  443.     (tooltype (dest System) (noposition))
  444.  
  445.     (set Installing @app-name)
  446.     (set LhaFile lha_Scala)
  447.     (set DiskNum num_Scala)
  448.     (InstallFile)
  449.  
  450.     (set Installing msg_ScalaFont)
  451.     (set LhaFile lha_ScalaFont)
  452.     (set DiskNum num_ScalaFont)
  453.     (InstallFontFiles)
  454.  
  455.     (copyfiles
  456.    (prompt "")
  457.    (help @copyfiles-help)
  458.    (pattern "EX_De#?")
  459.    (source "Work:ScalaInstall/Versions/PAL/German/")
  460.    (dest @Dest)
  461.     )
  462.  
  463.  
  464. )
  465.  
  466. (Procedure InstallUtils
  467.     (set Utilities (tackon @dest "Utilities"))
  468.     (makedir Utilities (infos))
  469.     (tooltype (dest Utilities) (noposition))
  470.  
  471.     (set Installing msg_Utils)
  472.     (set LhaFile lha_Utils)
  473.     (set DiskNum num_Utils)
  474.     (InstallFile) 
  475. )
  476.  
  477. (Procedure InstallPalettes
  478.     (set Palettes (tackon @dest "Palettes"))
  479.     (makedir Palettes (infos))
  480.     (tooltype (dest Palettes) (noposition))
  481.  
  482.     (set Installing msg_Palettes)
  483.     (set LhaFile lha_Palettes)
  484.     (set DiskNum num_Palettes)
  485.     (InstallFile)
  486. )
  487.  
  488. (Procedure InstallSymbols
  489.     (set Symbols (tackon @dest "Symbols"))
  490.     (makedir Symbols (infos))
  491.     (tooltype (dest Symbols) (noposition))
  492.  
  493.     (set Installing msg_Symbols)
  494.     (set LhaFile lha_Symbols)
  495.     (set DiskNum num_Symbols)
  496.     (InstallFile)
  497. )
  498.  
  499. (Procedure InstallArexx
  500.     (set ARexx (tackon @dest "ARexx"))
  501.     (makedir ARexx (infos))
  502.     (tooltype (dest ARexx) (noposition))
  503.  
  504.     (set Installing msg_ARexx)
  505.     (set LhaFile lha_ARexx)
  506.     (set DiskNum num_ARexx)
  507.     (InstallFile)
  508. )
  509.  
  510. (Procedure InstallScripts
  511.     (set Scripts (tackon @dest "Scripts"))
  512.     (makedir Scripts (infos))
  513.     (tooltype (dest Scripts) (noposition))
  514.  
  515.     (set Installing msg_Demos)
  516.     (set LhaFile lha_Scripts)
  517.     (set DiskNum num_Scripts)
  518.     (InstallFile)
  519.  
  520.     (MoveLingua)
  521. )
  522.  
  523. (Procedure InstallEX
  524.     (set EX (tackon @dest "EX"))
  525.     (makedir EX (infos))
  526.     (tooltype (dest EX) (noposition))
  527.     (set StartupDrawer (tackon @dest "Startup"))
  528.     (makedir StartupDrawer (infos))
  529.     (tooltype (dest StartupDrawer) (noposition))
  530.  
  531.     (set Installing msg_EX)
  532.     (set LhaFile lha_EX)
  533.     (set DiskNum num_EX)
  534.     (InstallFile)
  535. )
  536.  
  537. (Procedure InstallFonts
  538.     (set Installing msg_Fonts)
  539.     (set LhaFile lha_Fonts)
  540.     (set DiskNum num_Fonts)
  541.     (InstallFontFiles)
  542. )
  543.  
  544. (Procedure InstallBack
  545.     (set Back (tackon @dest "Backgrounds"))
  546.     (makedir Back (infos))
  547.     (tooltype (dest Back) (noposition))
  548.     (set Installing msg_Back)
  549.  
  550.     (set LhaFile lha_Back1)
  551.     (set DiskNum num_Back1)
  552.     (InstallFile)
  553.     (if (not UPGR)
  554.       (
  555.        (set LhaFile lha_Back2)
  556.        (set DiskNum num_Back2)
  557.        (InstallFile)
  558.    
  559.        (set LhaFile lha_Back3)
  560.        (set DiskNum num_Back3)
  561.        (InstallFile)
  562.    
  563.        (set LhaFile lha_Back4)
  564.        (set DiskNum num_Back4)
  565.        (InstallFile)
  566.    
  567.        (set LhaFile lha_Back5)
  568.        (set DiskNum num_Back5)
  569.        (InstallFile)
  570.    )
  571.     )
  572.     (if (or (= VideoMode "NTSC") BackSize)
  573.       (MakeOverscan)
  574.     )
  575. )
  576.  
  577. (Procedure InstallDemos
  578.     (set Anim (tackon @dest "Animations"))
  579.     (makedir Anim (infos))
  580.     (tooltype (dest Anim) (noposition))
  581.  
  582.     (set Sounds (tackon @dest "Sounds"))
  583.     (makedir Sounds (infos))
  584.     (tooltype (dest Sounds) (noposition))
  585.  
  586.     (set Music (tackon @dest "Music"))
  587.     (makedir Music (infos))
  588.     (tooltype (dest Music) (noposition))
  589.  
  590.     (set Text (tackon @dest "Text"))
  591.     (makedir Text (infos))
  592.     (tooltype (dest Text) (noposition))
  593.  
  594.     (set Back (tackon @dest "Backgrounds"))
  595.     (makedir Back (infos))
  596.     (tooltype (dest Back) (noposition))
  597.  
  598.     (set Installing msg_Demos)
  599.  
  600.     (set LhaFile lha_Demos1)
  601.     (set DiskNum num_Demos1)
  602.     (InstallFile)
  603.  
  604.     (set LhaFile lha_Demos2)
  605.     (set DiskNum num_Demos2)
  606.     (InstallFile)
  607.  
  608.     (if (not UPGR)
  609.       (
  610.        (set LhaFile lha_Demos3)
  611.        (set DiskNum num_Demos3)
  612.        (InstallFile)
  613.  
  614.        (set LhaFile lha_Demos4)
  615.        (set DiskNum num_Demos4)
  616.        (InstallFile)
  617.    )
  618.     )
  619.  
  620. )
  621.  
  622.  
  623. (Procedure ResizeBack
  624.     (set BackSize
  625.       (+ 1 (askchoice
  626.                (prompt msg_Overscan2 msg_ChooseSize)
  627.                (help @askchoice-help)
  628.                (choices STD MAX)
  629.         )
  630.    )
  631.     )
  632.     (MakeOverscan)
  633. )
  634.  
  635. ;------------------------------- Main program -----------------------------
  636. (CheckFastMem)
  637. (CheckConfig)
  638. (InstallMenu)
  639. (if (<> Selection opt_Fonts)     (DestMenu))
  640. (if (bitand Selection opt_Back)        (BackMenu))
  641. (CopyTools)
  642. (if (bitand Selection opt_Scala) (InstallScala))
  643. (if (bitand Selection opt_Utils) (InstallUtils))
  644. (if (bitand Selection opt_ARexx) (InstallARexx))
  645. (if (bitand Selection opt_Demos) (InstallScripts))
  646. (if (bitand Selection opt_EX)    (InstallEX))
  647. (if (bitand Selection opt_Palettes) (InstallPalettes))
  648. (if (bitand Selection opt_Symbols)  (InstallSymbols))
  649. (if (bitand Selection opt_Fonts) (InstallFonts))
  650. (if (bitand Selection opt_Back)     (InstallBack))
  651. (if (bitand Selection opt_Demos) (InstallDemos))
  652.  
  653.  
  654. (DeleteTools)
  655.  
  656. (if (bitand Selection opt_Scala) (DeleteOldFiles))
  657.  
  658. (exit)
  659. (welcome)
  660.