{ MAXONPascal3-Anpassung / Test:  Falk Zühlsdorff (PackMAN) 1994 }

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 IOResult=0 
   THEN
    BEGIN                              
     Writeln(f, 'Horrido!');{ Dieser Text wird in das Fenster geschrieben. }
     Delay(100);            { 2 Sekunden Pause }
     Close(f)               { Fenster wieder zumachen }
    END
   ELSE error('War nix.');  { Fenster konnte nicht  geöffnet werden }
End.