; A-UA Installer

(set @default-dest "bbs:")
(set #DestFiles "bbs:A-UA_Userabrechnung")


(if (not (exists @default-dest))
    (abort "Ambos nicht Installiert!"))


(Welcome)
(complete 0)

(Message
"\n\nA-UA1.3 Ambos-UserAbrechnung v 1.3\n\n"
"© by N. Tastowe 1996\n\n\n"
"A-UA1.3 wird ins Verzeichnis\n\n< " @default-dest  " >\n\nkopiert!")

(complete 30)


(copyfiles
    (prompt "kopiere Fonts!")
    (source "AUA-Fonts")
    (dest "sys:fonts")
    (all)
)

(complete 30)




(if (Exists "sys:libs/cando.library")
    (rename
    "sys:libs/cando.library"
    "sys:libs/cando.library.alt"
    )
)

(complete 45)

(copyfiles
    (prompt "kopiere Libs!")
    (source "AUA-libs/cando.library")
    (dest "sys:libs")
)


(complete 60)


(copyfiles
    (prompt "kopiere A-UA Files!")
    (source "AUA-Files")
    (dest "BBS:")
    (all)
)


(copyfiles
    (prompt "kopiere A-UA Modulstart!")
    (source "AUA-Modul")
    (dest "BBS:Externe")
    (all)
)


(complete 75)



(startup "A-UA1.3"
    (help "Muss leider sein ;)!")
    (prompt "Es wird ein Assign in die \"S:user-startup\" eingefügt!")
    (command
             "ASSIGN Userabrechnung: \"" #DestFiles "\"\n")

)


(makeassign "Userabrechnung" #DestFiles)