
FINISH  
/CLEAR,START
/PREP7
EINLESEN
! ===== Keypoints =====
/PNUM,KP,1

*do, i, 1, 2, 1
  *do, j, 1, 72, 1
    *set, param, Spindeldaten(i, j)
    *if, param, eq, 1, then
      k,, i, j
    *endif
  *enddo
*enddo

! ===== Lines =====
/PNUM,LINE,1
