DEFINE linie_Sp
LOCAL X
LOCAL Y
LOCAL P
LOCAL P1

INPUT 'c:/p/CAD.DAT

READ X
READ Y

LET P (PNT_XY X Y)
LET P1 P

LOOP
   READ X
   READ Y
   LET P (PNT_XY X Y)
   IF(P<>P1)
     BSPLINE P1 P
   END_IF
     LET P1 P
END_LOOP
END_DEFINE