MODULE ReadText;
IMPORT Tx := Texts, Out;
VAR T: Tx.Text; S: Tx.Scanner;
  n: INTEGER;
BEGIN
  NEW(T); Tx.Open(T, 'TEXT.DAT');
  IF T.len >= 0 THEN
    Tx.OpenScanner(S, T, 0);
    Tx.Scan(S);
    Out.Int(S.class, 5); Out.String('   ---> ');
    Out.String(S.s); Out.Ln;
    Tx.Scan(S);
    Out.Int(S.class, 5); Out.String('   ---> ');
    n := S.i; Out.Int(S.i, 0); Out.Ln;
    Tx.Scan(S); INC(n, S.i);
    Out.Int(S.class, 5); Out.String('   ---> ');
    Out.Int(S.i, 0); Out.Ln; Out.Int(n, 20); Out.Ln;

    Tx.Open(T, 'OUT.DAT'); Tx.Close(T)
  ELSE Out.String('Файл не найден.'); Out.Ln
  END
END ReadText.