* Line from two points, (C) EMA 1997                       LM:18.11.1997
INTERNAL 
  INTEGER ER,I
  REAL    XM1(3),XM2(3)
  CHAR*40 CEMA INIT '     Line from two points, (C) Ema 1997'
  CHAR*30 MSG1 INIT 'SEL PT1 // YES:END            '
  CHAR*30 MSG2 INIT 'SEL PT2 // YES:END            '
  PT      PT1,PT2
  LN      LN
PROC
LABEL AGAIN
  SELECT MSG1//CEMA PT1,YES
  IF(KODE EQ YES) THEN EOE
  HIGHLT PT1
  SELECT MSG2//CEMA PT2,YES
  IF(KODE EQ YES) THEN EOE
  HIGHLT PT2
  LOAD GIRMAT 1,PT1,I,XM1,ER
  LOAD GIRMAT 1,PT2,I,XM2,ER
  LOAD GCWLN 1,XM1,1,XM2,1,LN,ER
  NOHIGHLT PT1,PT2
  MSGCNTL 'Line created'
  BRANCH AGAIN
LABEL EOE
  NOHIGHLT PT1,PT2
  MSGCNTL 'EOE'
END