Это старая версия документа!
MODULE DemoFiles; IMPORT Files, Strings, Math; PROCEDURE WriteReal(wr: Files.Writer; r: REAL); VAR str: ARRAY 64 OF CHAR; i: INTEGER; BEGIN Strings.RealToString(r, str); i:=0; WHILE (i < LEN(str)) & (str[i] # 0X) DO wr.WriteByte(SHORT(SHORT(ORD(str[i])))); INC(i) END END WriteReal; PROCEDURE WriteLn(wr: Files.Writer); BEGIN wr.WriteByte(0DH); wr.WriteByte(0AH); END WriteLn; PROCEDURE Do*; VAR f: Files.File; wr: Files.Writer; res: INTEGER; BEGIN f := Files.dir.New(Files.dir.This(""), Files.dontAsk); wr := f.NewWriter(NIL); WriteReal(wr, Math.Pi()); WriteLn(wr); WriteReal(wr, Math.Pi()); WriteLn(wr); f.Register("demo", "txt", Files.dontAsk, res); f.Close END Do; END DemoFiles.