ð#Syntax10.Scn.FntmmMODULE statTest; IMPORT Oberon, Texts, Stat; VAR w: Texts.Writer; PROCEDURE test*; VAR dc, i: SHORTINT; d0, d1: ARRAY 3 OF LONGREAL; x: Stat.stat; BEGIN x.n := 3; d0[0] := 1; d0[1] := 2; d0[2] := 3; d1[0] := 2; d1[1] := 3; d1[2] := 4; Stat.DoStat(x, d0, d1); Texts.WriteString(w, "mean: "); Texts.WriteRealFix(w, SHORT(x.mx), 5, 2); Texts.WriteRealFix(w, SHORT(x.my), 5, 2); Texts.WriteString(w, " bx +c, b, c: "); Texts.WriteRealFix(w, SHORT(x.b), 5, 2); Texts.WriteRealFix(w, SHORT(x.c), 5, 2); Texts.WriteLn(w); Texts.Append(Oberon.Log, w.buf) END test; BEGIN Texts.OpenWriter(w); END statTest.test