Считать концы строк, как, например, это сделано в POW!

## Код:
```
(*----------------------------------------------------------------------------*)
  PROCEDURE Get*(VAR ch: CHAR);    (* read next character from source text, Eot if no more *)
  BEGIN 
    IF srcPos < srcLen THEN
      ch:=srcBuf[srcPos]; INC(srcPos)
    ELSE
      srcLen:=maxSrcLen;
      ReadBytes(srcFileNum, srcBuf, srcLen);
      IF srcLen > 0 THEN 
        ch:=srcBuf[0]; 
        srcPos:=1
      ELSE 
        ch:=Eot; 
        srcPos:=srcLen;
      END
    END;
    IF ch = 0AX (* LF *) THEN
      INC(curpos.line);
      curpos.column:=1;
    ELSE (* 0DX CR and other *)
      INC(curpos.column);
    END
  END Get;
```
