home *** CD-ROM | disk | FTP | other *** search
/ Amiga ISO Collection / AmigaUtilCD2.iso / Programming / Pascal / MAXONPASCAL3.DMS / in.adf / DEMOS-OS1.3 / SysProg / Fensterei.p < prev    next >
Encoding:
Text File  |  1994-07-23  |  660 b   |  18 lines
  1. { MAXONPascal3-Anpassung / Test:  Falk Zühlsdorff (PackMAN) 1994 }
  2.  
  3. Program Fensterei;
  4. VAR f: text;        { prinzipiell ist jeder Filetyp möglich, aber ein
  5.                       Textfile ist wohl das einzig sinnvolle. }
  6. BEGIN
  7.   Assign(f, 'Con:40/20/560/180/Ein Window');
  8.   Reset(f);                            { Fenster öffnen }
  9.   If IOResult=0 
  10.    THEN
  11.     BEGIN                              
  12.      Writeln(f, 'Horrido!');{ Dieser Text wird in das Fenster geschrieben. }
  13.      Delay(100);            { 2 Sekunden Pause }
  14.      Close(f)               { Fenster wieder zumachen }
  15.     END
  16.    ELSE error('War nix.');  { Fenster konnte nicht  geöffnet werden }
  17. End.
  18.