Test19.obn

   1 MODULE Test19;
   2
   3 IMPORT Files, Out;
   4
   5 VAR
   6   f : Files.File;
   7   r : Files.Rider;
   8   i, len : LONGINT;
   9   g : SHORTINT;
  10   x : POINTER TO ARRAY OF CHAR;
  11
  12 BEGIN
  13   f := Files.Old("Test19.obn");
  14   ASSERT(f # NIL);
  15   Files.Set(r, f, 0);
  16   len := Files.Length(f);
  17   NEW(x, len + 1);
  18   FOR i := 0 TO len - 1 DO Files.Read(r, g); x[i] := CHR(g) END;
  19   Out.String(x^); Out.Ln;
  20 END Test19.
  21
  22 Тест модуля Files. Должно выводить содержимое файла Test19.obn.