OberonCore

(*----------------------------------------------------------------------------*)
  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;