OakFiles, added WriteByte to be more compatible with PO 2013 -- noch

src/lib/v4/OakFiles.Mod

@@ -427,6 +427,18 @@ BEGIN
   buf.data[offset] := x; r.offset := offset + 1; buf.chg := TRUE
 END Write;
 
+PROCEDURE WriteByte* (VAR r: Rider; x: SYSTEM.BYTE); (* added for compatibility with PO 2013, -- noch *)
+  VAR buf: Buffer; offset: LONGINT;
+BEGIN
+  buf := r.buf; offset := r.offset;
+  IF (offset >= bufsize) OR (r.org # buf.org) THEN 
+    Set(r, buf.f, r.org + offset); buf := r.buf; offset := r.offset;
+  END ;
+  buf.data[offset] := x; r.offset := offset + 1; buf.chg := TRUE
+END Write;
+
+
+
 PROCEDURE WriteBytes ...
 
 PROCEDURE Read* (VAR r: Rider; VAR x: SYSTEM.BYTE);