ReadText.Mod 622 B

12345678910111213141516171819202122
  1. MODULE ReadText;
  2. IMPORT Tx := Texts, Out;
  3. VAR T: Tx.Text; S: Tx.Scanner;
  4. n: INTEGER;
  5. BEGIN
  6. NEW(T); Tx.Open(T, 'TEXT.DAT');
  7. IF T.len >= 0 THEN
  8. Tx.OpenScanner(S, T, 0);
  9. Tx.Scan(S);
  10. Out.Int(S.class, 5); Out.String(' ---> ');
  11. Out.String(S.s); Out.Ln;
  12. Tx.Scan(S);
  13. Out.Int(S.class, 5); Out.String(' ---> ');
  14. n := S.i; Out.Int(S.i, 0); Out.Ln;
  15. Tx.Scan(S); INC(n, S.i);
  16. Out.Int(S.class, 5); Out.String(' ---> ');
  17. Out.Int(S.i, 0); Out.Ln; Out.Int(n, 20); Out.Ln;
  18. Tx.Open(T, 'OUT.DAT'); Tx.Close(T)
  19. ELSE Out.String('Файл не найден.'); Out.Ln
  20. END
  21. END ReadText.