====== Как прочитать содержимое файла? ======

Первое, что нам потребуется, это локатор файла. Можно использовать модуль ''Dialog'' для включения системного диалога выбора файла:

<code oberon2>
PROCEDURE OpenFile*;
	VAR loc: Files.Locator; name: Files.Name;
BEGIN
	Dialog.GetIntSpec('txt', loc, name);
END OpenFile;
</code>