СГ>>MODULE TestTest;

СГ>>  IMPORT StdLog, Files; 

СГ>>  PROCEDURE Test* ();
СГ>>  VAR  L: Files.Locator; f: Files.File; r: Files.Reader; b: BYTE;
СГ>>  BEGIN
СГ>>    L := Files.dir.This("C:\");
СГ>>    IF L # NIL THEN 
СГ>>      f := Files.dir.Old(L, "New Text Document.txt", FALSE);
СГ>>      IF f # NIL THEN
СГ>>        r := f.NewReader(NIL);
СГ>>        IF r # NIL THEN 
СГ>>          WHILE ~r.eof DO r.ReadByte(b); StdLog.Char(CHR(b)) END
СГ>>        END;
СГ>>        f.Close();
СГ>>      END
СГ>>    END
СГ>>  END Test;

СГ>>END TestTest.
СГ>>

using System;
using System.IO;
using System.Text;

class Program
{
    static void Main(string[] args)
    {
        try
        {
            string path = args[0];
            using (StreamReader reader = new StreamReader(path, Encoding.Default))
            {
                Console.WriteLine(reader.ReadToEnd());
            } // вот здесь файл будет закрыт даже если было исключение.
        }
        catch (IndexOutOfRangeException)
        { // Суда прийдем если args не содержит аргументов
            Console.WriteLine("Enter path to file, lease.");
        }
        catch (Exception ex)
        { // А сюда в случае любой ошибки. Так что если файла нет или еще что, 
            // то незабудем сказать об этом пользователю.
            Console.WriteLine(ex.Message);
        }
    }
}

using (StreamReader reader = new StreamReader(path, Encoding.Default))
{
        Console.WriteLine(reader.ReadToEnd());
} // вот здесь файл будет закрыт даже если было исключение.

Т>type "C:/New Text Document.txt"
Т>

DoAll();

MODULE A11;

  IMPORT StdLog, Files; 

  PROCEDURE AddSymbol();
  VAR  locator: Files.Locator; file: Files.File; writter: Files.Writer;
  BEGIN
    locator := Files.dir.This("C:\");
    file := Files.dir.Old(locator, "New.txt", FALSE);
    writter := file.NewWriter(NIL);
    writter.WriteByte(33);
  END AddSymbol;

  PROCEDURE T*();
  BEGIN
        StdLog.String("Cool Program started !");
        StdLog.Ln();
        AddSymbol();
  END T;

END A11.