(procedure ausgabe
    (debug "Var: 'testvar'" testvar)
(askbool (prompt 
             (cat "Dient zur Ausgabe von Variablen.\n"
             "Variable= \"" testvar "\""
             "\n\nFür weiterfahren Taste drücken\n"
             ))
             (help "")
             (default 1)
             )
)

(set @default-dest "Work:")

(set DiskE "FLM-Shareware:")

;  DiskE : Quelldisk
;  DestE : Zielpfad
;  FileE : File zum Entpacken
(procedure expand_module
    (set DestE (cat DestE "/"))
    (working
        ("Dekomprimierung der Datei \"%s\"" FileE)
    )
    (run
        ("%s x %s \"%s\"" UNPACKER FileE DestE)
        (help "")
        (prompt
            ("Entpacke \"%s\"" FileE)
        )
        (confirm)
    )
)

(set flm_pfad
    (askdir
        (prompt "Bitte eine leere Diskette ins Laufwerk einlegen\n"
                "und anschließend dieses Laufwerk auswählen."
        )
        (help "")
        (default @default-dest)
    )
)

(set @default-dest (tackon flm_pfad "FLM"))

(makedir
    (@default-dest)
    (infos)
)
(makedir (tackon @default-dest "Projekte"))
(makedir
    (tackon @default-dest "ARexx")
    (infos)
)

(copyfiles
    (prompt "")
    (help "")
    (source "lha")
    (dest "ram:")
)

;Variabler für Lha setzen
(set UNPACKER "ram:lha")

(copyfiles
    (source "light_wb.lha")
    (dest "ram:")
)
(copyfiles
    (source "unreg-verbs.lha")
    (dest "ram:")
)
(copyfiles
    (source "FLM.lha")
    (dest "ram:")
)

(set DestE @default-dest)
(set FileE "ram:light_wb.lha")
(expand_module)

(set DestE @default-dest)
(set FileE "ram:unreg-verbs.lha")
(expand_module)

(set DestE @default-dest)
(set FileE "ram:flm.lha")
(expand_module)

(delete "ram:light_wb.lha")
(delete "ram:unreg-verbs.lha")
(delete "ram:flm.lha")

(makedir "ram:Projekte")
(copyfiles
    (all)
    (source (tackon DiskE "Projekte"))
    (dest "ram:Projekte")
)
(copyfiles
    (all)
    (source "ram:Projekte")
    (dest (tackon @default-dest "Projekte"))
)
(delete "ram:Projekte/flm.txt")
(delete "ram:Projekte/flm.hdr")
(delete "ram:Projekte")

(copyfiles
    (infos)
    (source (tackon DiskE "Liesmich.txt"))
    (dest "ram:")
)
(copyfiles
    (infos)
    (source (tackon DiskE "Registration.txt"))
    (dest "ram:")
)

(copyfiles
    (infos)
    (source "ram:Liesmich.txt")
    (dest @default-dest)
)
(copyfiles
    (infos)
    (source "ram:Registration.txt")
    (dest @default-dest)
)

(delete "ram:Liesmich.txt")
(delete "ram:Liesmich.txt.info")
(delete "ram:Registration.txt")
(delete "ram:Registration.txt.info")

(makedir "ram:arexx")
(copyfiles
    (all)
    (source (tackon DiskE "Arexx"))
    (dest "ram:arexx")
)

(copyfiles
    (all)
    (source "ram:ARexx")
    (dest (tackon @default-dest "ARexx"))
)

(delete "ram:arexx/golded_look.rexx")
(delete "ram:arexx/golded_take.rexx")
(delete "ram:arexx/finalw_look.rexx")
(delete "ram:arexx/finalw_take.rexx")
(delete "ram:arexx/finalc_look.rexx")
(delete "ram:arexx/finalc_take.rexx")
(delete "ram:arexx/edward_look.rexx")
(delete "ram:arexx/edward_take.rexx")
(delete "ram:arexx/look.rexx")
(delete "ram:arexx/take.rexx")
(delete "ram:arexx")


(set vernum (getversion))
(set ver (/ vernum 65536))
;(message
;        ("Workbench-Version %ld" ver)
;)

(if (< ver 38)
       (
           (makedir "ram:hothelp")
           (copyfiles
             (all)
             (source (tackon DiskE "HotHelp"))
             (dest "ram:HotHelp")
           )
           (copyfiles
             (all)
             (source "ram:hothelp")
             (dest @default-dest)
           )
           (delete "ram:HotHelpLib.english")
           (delete "ram:HotHelpLib.deutsch")
           (delete "ram:HotHelp3.prefs")
           (delete "ram:hothelp")
       )
       (if (exists "locale:catalogs/deutsch/HotHelpLib.catalog")
           (
               (set vernum (getversion "locale:catalogs/deutsch/HotHelpLib.catalog"))
               (set ver (/ vernum 65536))
;               (message
;                    ("Catalog %ld" ver)
;               )
               (if (< ver 38)
                   (copyfiles
                       (source (tackon DiskE "locale/catalogs/deutsch/HotHelpLib.catalog"))
                       (dest "locale:catalogs/deutsch")
                   )
               )
           )
           (copyfiles
                (source (tackon DiskE "locale/catalogs/deutsch/HotHelpLib.catalog"))
                (dest "locale:catalogs/deutsch")
           )
       )
)

(if (exists "libs:hothelp.library")
    (
        (set vernum (getversion "libs:hothelp.library"))
        (set ver (/ vernum 65536))
;        (message
;            ("HotHelp.library mit Version %ld" ver)
;        )
        (if (< ver 3)
            (
                (copyfiles
                    (source (tackon DiskE "libs/HotHelp.library"))
                    (dest "ram:")
                )
                (copyfiles
                    (source "ram:hothelp.library")
                    (dest "libs:")
                )
                (delete "ram:HotHelp.library")
            )
        )
    )
    (
        (copyfiles
            (source (tackon DiskE "libs/HotHelp.library"))
            (dest "ram:")
        )
        (copyfiles
            (source "ram:hothelp.library")
            (dest "libs:")
        )
        (delete "ram:HotHelp.library")
    )
)

(if (exists "l:HotHelpHandler")
    (
        (set vernum (getversion "l:HotHelpHandler"))
        (set ver (/ vernum 65536))
        (set rev (- vernum (* ver 65536)))
;        (message
;            ("HotHelpHandler mit Version %ld.%ld" ver rev)
;        )
        (if (< ver 3)
            (copyfiles
                (source (tackon DiskE "l/HotHelpHandler"))
                (dest "l:")
            )
        )
    )
    (
        (copyfiles
            (source (tackon DiskE "l/HotHelpHandler"))
            (dest "l:")
        )
    )
)

(set flm_pfad
    (askdir
        (prompt "Bitte eine leere Diskette für das große Wörterbuch "
                "ins Laufwerk einlegen und anschließend dieses Laufwerk "                 "auswählen. Diese Diskette muß mit FastFileSystem "                 "formatiert sein, d.h. es müssen mindestens 880 KByte "
                "auf dieser Disk frei sein."
        )
        (help "")
        (default "df1:")
    )
)

(set @default-dest flm_pfad)

;großes Wörterbuch auf Extra-Diskette
(working "Entpacke big_wb.lha")
(run
    ("%s x %sbig_wb.lha \"%s\"" UNPACKER DiskE @default-dest)
    (prompt "Entpacke big_wb.lha")
    (help "")
    (confirm)
)

;LHA aus Ram Disk: löschen
(delete UNPACKER)

(exit)