(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 das Verzeichnis auswählen, in dem die "
                "Shareware-Version von FLM installiert werden soll.\n"
                "Es wird automatisch das Verzeichnis \"FLM\" angelegt"
        )
        (help "")
        (default @default-dest)
    )
)

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

(makedir
    (@default-dest)
    (infos)
)

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

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

(set DestE @default-dest)
(set FileE "big_wb.lha")
(expand_module)

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

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

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

(makedir (tackon @default-dest "Projekte"))
(copyfiles
    (prompt "")
    (help "")
    (all)
    (source "Projekte")
    (dest (tackon @default-dest "Projekte"))
)

(copyfiles
    (infos)
    (prompt "")
    (help "")
    (source "Liesmich.txt")
    (dest @default-dest)
)

(copyfiles
    (infos)
    (prompt "")
    (help "")
    (source "Registration.txt")
    (dest @default-dest)
)


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

(copyfiles
    (infos)
    (prompt "")
    (help "")
    (all)
    (source "ARexx")
    (dest (tackon @default-dest "ARexx"))
)

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

(if (< ver 38)
       (copyfiles
            (prompt "")
            (help "")
            (all)
            (source "HotHelp")
            (dest @default-dest)
       )
       (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
                       (prompt "")
                       (help "")
                       (source "locale/catalogs/deutsch/HotHelpLib.catalog")
                       (dest "locale:catalogs/deutsch")
                   )
               )
           )
           (copyfiles
                (prompt "")
                (help "")
                (source "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
                (prompt "")
                (help "")
                (source "libs/hothelp.library")
                (dest "libs:")
            )
        )
    )
    (
        (copyfiles
            (prompt "")
            (help "")
            (source "libs/hothelp.library")
            (dest "libs:")
        )
    )
)

(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
                (prompt "")
                (help "")
                (source "l/HotHelpHandler")
                (dest "l:")
            )
        )
    )
    (
        (copyfiles
            (prompt "")
            (help "")
            (source "l/HotHelpHandler")
            (dest "l:")
        )
    )
)

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

(exit)