Program Fensterei;
Var f: text;  { prinzipiell ist jeder Filetyp möglich, aber ein
                Textfile ist wohl das einzig sinnvolle. }
Begin
  Assign(f, 'Con:40/20/560/180/Ein Window');

  Reset(f);       { Fenster öffnen }

  If eof(f) Then error('War nix.');    { Fenster konnte nicht
                                         geöffnet werden }
  Writeln(f, 'Horrido!');    { Dieser Text wird in das Fenster
                               geschrieben. }
  Delay(100);          { 2 Sekunden Pause }

  Close(f)             { Fenster wieder zumachen }
End.