;
;                                 Iron of TrSI
;

(complete 0)

(set @default-dest
    (askdir
        (prompt "Please select a drawer where the program will be instaled")
        (help "")
        (default "dh1:")
    )
)

(if
    (= (exists @default-dest) 0)
    (makedir @default-dest)
)

(onerror
    (exit
            "Sorry, error..."
    )
)

(message
    "\n\nWorking on instalation\n"
)

(if (= (exists "LIBS:reqtools.library") 0)
        (copylib
            (prompt "")
            (help "")
            (source "Addresser_v1.5:libs/reqtools.library")
            (dest "LIBS:")
        )
)

(complete 10)

(copyfiles
    (prompt "" )
    (help "")
    (source "Addresser_v1.5:AGView")
    (dest @default-dest)
)

(complete 20)

(copyfiles
    (prompt "" )
    (help "")
    (source "Addresser_v1.5:PPMore")
    (dest @default-dest)
)

(complete 30)

(copyfiles
    (prompt "" )
    (help "")
    (source "Addresser_v1.5:Addresser")
    (dest @default-dest)
)

(complete 40)

(copyfiles
    (prompt "" )
    (help "")
    (source "Addresser_v1.5:Addresser.info")
    (dest @default-dest)
)

(complete 50)

(copyfiles
    (prompt "" )
    (help "")
    (source "Addresser_v1.5:Addresser.gui")
    (dest @default-dest)
)

(complete 60)

(copyfiles
    (prompt "" )
    (help "")
    (source "Addresser_v1.5:Addresser.guide")
    (dest @default-dest)
)

(complete 70)

(copyfiles
    (prompt "" )
    (help "")
    (source "Addresser_v1.5:Addresser.guide.info")
    (dest @default-dest)
)

(complete 80)

(copyfiles
    (prompt "" )
    (help "")
    (source "Addresser_v1.5:Addresser.doc")
    (dest @default-dest)
)

(complete 90)

(copyfiles
    (prompt "" )
    (help "")
    (source "Addresser_v1.5:Addresser.doc.info")
    (dest @default-dest)
)

(complete 100)

(exit)