PARAMETER(MD=69)
real X1(MD),Y1(MD),X2(MD),Y2(MD)
OPEN(1,FILE='27.txt',STATUS='OLD')
DO 192 I=1,MD
READ(1,*)x1(I),y1(I),X2(I),Y2(I)
192 CONTINUE
CLOSE(1)
OPEN(2,FILE='270.TXT')
DO 193 I=1,MD
write(2,*)'2 1'
write(2,100)x1(I),y1(I)
write(2,100)X2(I),Y2(I)
100 FORMAT(F15.2,2x,F15.2)
193 CONTINUE
CLOSE(2)
END
