Под словом посимвольно я имел ввиду чтение без флагов форматирования. Вот таким способом я записываю одц файл

tOdc*=POINTER TO RECORD
f: TextMappers.Formatter;
t*: TextModels.Model; v: TextViews.View;
loc: Files.Locator;
res: INTEGER;
conv: Converters.Converter;
fileName:Files.Name;
END;

PROCEDURE  (odc:tOdc  ) OpenAt*(folderName:ARRAY OF CHAR),NEW;
BEGIN
odc.loc := Files.dir.This(folderName);
odc.t := TextModels.dir.New();	(* ñîçäàíèå ïóñòîãî íîñèòåëÿ òåêñòà *)
odc.f.ConnectTo(odc.t)
END OpenAt;

PROCEDURE (odc:tOdc  ) Save * (fileName:ARRAY OF CHAR  ),NEW;
VAR res:INTEGER;
BEGIN
odc.v := TextViews.dir.New(odc.t);	(* ñîçäàíèå îòîáðàæåíèÿ òåêñòà äëÿ ñîçäàííîãî âûøå òåêñòà *)
odc.fileName:=fileName$;
odc.conv:=NIL;
Views.Register (odc.v,FALSE,odc.loc,odc.fileName,odc.conv,odc.res)
END Save;

PROCEDURE (odc:tOdc)  String*(str:ARRAY OF CHAR),NEW;
VAR i:INTEGER;
BEGIN
i:=0;
WHILE  str[i]#0X  DO
IF  str[i]=09X  THEN
odc.f.WriteTab
ELSE
odc.f.WriteChar(str[i])
END;
INC(i)
END
END  String;

PROCEDURE  (odc:tOdc) Ln*(),NEW ;
BEGIN
odc.f.WriteLn
END Ln;

PROCEDURE  (odc:tOdc) Tab*(),NEW ;
BEGIN
odc.f.WriteTab
END Tab;

PROCEDURE (odc:tOdc)  Int*(int:INTEGER),NEW;
VAR str:ARRAY 256 OF CHAR;
BEGIN
Strings.IntToString(int,str);
odc.String(str)
END  Int;

PROCEDURE (odc:tOdc)  Real*(real:REAL),NEW;
VAR str:ARRAY 256 OF CHAR;
BEGIN
Strings.RealToString(real,str);
odc.String(str)
END  Real;


и теперь хотел считать odc файлы или хотя бы получить view на
файл с диска.