Read(lr,1001,end=50)

1 Electrode
2 Format(10f8.0)
3 Write(l,w1001)
4 Sumx+sumy-nsumxy)
5 Read(lr,1001,end=50)
6 Character Name(30)20
7 Len(l20)
8 F13 {n@223}
9 Dim(value - N)
10 Cathode Delimiter