(transcript "Installation 1.04-Camouflage/MIDI-System 68000-CPU! ")

(onerror
    (makeassign "Cto" (safe))
)

(complete 0)

(set @default-dest "DH0:")

(set camdest
        (askdir
            (prompt "Wohin soll Camouflage installiert werden ?\n Die Unterverzeichnisse werden selbst erzeugt\n Tragen Sie bitte danach den assign-Befehl in Ihre 's:user-startup' ein\n Bespiel: assign cam: work:musik/midi")

            (help @askdir-help)
            (default @default-dest)
        )
)

(set @default-dest camdest)

; Die Directories
(makeassign "Cto"
    (camdest)
    (safe)
)

(makedir "Cto:Camouflage"
        (infos)
        (safe)
)

(copyfiles
    (source "Camouflage.info")
    (dest "Cto:camouflage/")
)

(copyfiles
    (source "Camouflage")
    (dest "Cto:camouflage/")
)
(complete 85)


; Die Fonts
(makedir
        "Fonts:Cam"
        (safe)
)

(copyfiles
    (source "fonts/cam.font")
    (dest "Fonts:")
)

(copyfiles
    (source "fonts/cam/41")
    (dest "Fonts:cam")
)

(copyfiles
    (source "fonts/cam/11")
    (dest "Fonts:cam")
)

(copyfiles
    (source "fonts/cam/7")
    (dest "Fonts:cam")
)

(makedir "cto:camouflage/songs"
        (infos)
        (safe)
)

(makedir "cto:camouflage/tracks"

        (infos)
        (safe)
)

(makedir "cto:camouflage/blocks"

        (infos)
        (safe)
)

(makedir "cto:camouflage/midifiles"
        (infos)
        (safe)
)

(makedir "Cto:camouflage/pool"
        (infos)
        (safe)
)

(makedir "Cto:camouflage/sysex"
        (infos)
        (safe)
)

(makedir "Cto:camouflage/waves"
        (infos)
        (safe)
)

(makedir "Cto:camouflage/drums"
        (infos)
        (safe)
)

(makedir "Cto:camouflage/rythms"
        (infos)
        (safe)
)

(makedir "Cto:camouflage/mmg"
        (infos)
        (safe)
)

(makedir "Cto:camouflage/transforms"
        (infos)
        (safe)
)

(makedir "Cto:camouflage/splits"
        (infos)
        (safe)
)

(makedir "Cto:camouflage/chords"
        (infos)
        (safe)
)

(makeassign "Cto"
    (safe)
)


(exit)
