.key dir
.bra {
.ket }

IF "{dir}" EQ ""
 ECHO ""
 ECHO "Installation file for PLT: device"
 ECHO " Once installed, MOUNT PLT: and send HPGL files"
 ECHO " to PLT:"
 ECHO ""
 ECHO " To install, a directory must be created for PLT's"
 ECHO " data files for printing HPGL text."
 ECHO " Specify the parent directory (MUST END WITH ':' OR '/'"
 ECHO "  Example: EXECUTE Install-PLT Work:"
 ECHO "         or"
 ECHO "           EXECUTE Install-PLT Data:CAD/"
 ECHO ""
 QUIT
ENDIF

ECHO "Directory set to [{dir}]"

IF NOT EXISTS "{dir}"
 ECHO ""
 ECHO "Directory path {dir} doesn't exist"
 ECHO ""
 QUIT
ENDIF

MAKEDIR {dir}PlotData
COPY PlotData/#? {dir}PlotData
ECHO >PLT-assign "ASSIGN PLTdata:   {dir}PlotData"
EXECUTE PLT-assign  ; Perform the ASSIGN so PLT will work
JOIN S:User-StartUp PLT-assign as User-StartUp ; So will work on re-boot
COPY User-StartUp S:

COPY plt-handler L:

JOIN Devs:MountList MountList.PLT as MountList
COPY MountList Devs:

