Character Name(30)20

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