; Heddley installation file
; version 1.05
; by and (C) Edd Dumbill
; 3/7/94

(set hdestdir
    (askdir
        (prompt "Give Heddley a home...")
        (help @askdir-help)
        (default "SYS:Tools")
    )
)
(complete 30)
(copyfiles 
    (prompt "Copying Heddley...")
    (source "Heddley")
    (dest hdestdir)
    (infos)
)
(set ddestdir
    (askdir
        (prompt "Choose where to put the documentation")
        (help @askdir-help)
        (default "SYS:Man")
        (newpath)
    )
)
(copyfiles 
    (prompt "Copying documentation...")
    (source "Heddley.guide")
    (dest ddestdir)
    (infos)
)
(complete 50)
(set rdestdir
    (askdir
        (prompt "Choose where to put the ARexx scripts")
        (help @askdir-help)
        (default "REXX:")
        (newpath)
    )
)
(copyfiles
    (prompt "Copying ARexx scripts...")
    (pattern "#?.rexx")
    (source "")
    (dest rdestdir)
)
(set @default-dest hdestdir)
(complete 100)
(exit
    ("ARexx support scripts can be found in the ")
    (rdestdir)
    (" drawer (or partition). ")
    ("Documentation can be found in the ")
    (ddestdir)
    (" drawer (or partition). Enjoy using Heddley!")
)