|
a/Streams.ISO.mi |
|
b/Streams.ISO.mi |
|
... |
|
... |
258 |
ELSIF (res = IOConsts.endOfLine) THEN
|
258 |
ELSIF (res = IOConsts.endOfLine) THEN
|
259 |
Char := CommonIO.EoL;
|
259 |
Char := CommonIO.EoL;
|
260 |
IOChan.Skip(Datei);
|
260 |
IOChan.Skip(Datei);
|
261 |
ELSIF (res = IOConsts.endOfInput) THEN
|
261 |
ELSIF (res = IOConsts.endOfInput) THEN
|
262 |
Char := CommonIO.EoF;
|
262 |
Char := CommonIO.EoF;
|
263 |
IOChan.SetReadResult(Datei,IOConsts.endOfInput); END;
|
263 |
IOChan.SetReadResult(Datei,IOConsts.endOfInput);
|
|
|
264 |
END;
|
264 |
END GetChar;
|
265 |
END GetChar;
|
265 |
|
266 |
|
266 |
PROCEDURE PutChar(VAR Datei : Stream;
|
267 |
PROCEDURE PutChar(VAR Datei : Stream;
|
267 |
Char : CHAR);
|
268 |
Char : CHAR);
|
268 |
|
269 |
|