Dim(value - N)

1   Read(lr,1001,end=50)
2   Len(l20)
3   Cathode Delimiter
4   Write(l,w1001)
5   Dim(value - N)