{Join Lines v1.1 - Developed by Julian Carr}

Procedure JoinLines;
VAR
	h1,h2 : HANDLE;
	x1,y1,x2,y2 : REAL;

BEGIN
    Message('Click once on each line. Double click in space to exit.');
    h1:=NIL;
    h2:=NIL;
    DSelectAll;
    REPEAT
        GetLine(x1,y1,x2,y2);
        h1:=PickObject(x1,y1);
        IF h1<>NIL THEN BEGIN
            SetSelect(h1);
            h2:=PickObject(x2,y2);
            IF h2<>NIL THEN BEGIN
                SetSelect(h2);
                DoMenuText('Join');
            END;
        END;
        ReDrawAll;
        DSelectAll;
    UNTIL h1=NIL;
    ClrMessage;
END;
RUN(JoinLines);