Procedure linesect1;


VAR
    startPunkt1, endPunkt1, startPunkt2, endPunkt2	: POINT;

    l1start,l1end,l2start,l2end,sectpt : POINT;  
    pX,pY,moveDX,moveDY,sctX,sctY      : REAL;
    parallel, intOnLines               : BOOLEAN;

BEGIN;

	startPunkt1.x :=0;
	startPunkt1.y :=0;

	endPunkt1.x := 4;
	endPunkt1.y := 8;

	startPunkt2.x :=-3;
	startPunkt2.y :=5;

	endPunkt2.x := 8;
	endPunkt2.y := -8;


moveTo(startPunkt1.x,startPunkt1.y);
LineTo(endPunkt1.x,endPunkt1.y);

moveTo(startPunkt2.x,startPunkt2.y);
LineTo(endPunkt2.x,endPunkt2.y);

{LineLineIntersection(l1start, l1end, l2start, l2end: POINT; VAR parallel, intOnLines: BOOLEAN; VAR sectpt: POINT);}

LineLineIntersection(startPunkt1,endPunkt1,startPunkt2,endPunkt2,parallel,intOnLines,sectpt);

   
	
	Locus(sectpt.x,sectpt.y);
	
	
	

    
END;
RUN(linesect1);