home *** CD-ROM | disk | FTP | other *** search
/ Turbo Toolbox / Turbo_Toolbox.iso / 1991 / 06 / praxis / hellocrt.pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  1991-03-12  |  1.1 KB  |  31 lines
  1. (* ------------------------------------------------------ *)
  2. (*                    HELLOCRT.PAS                        *)
  3. (*        (c) 1991 Andreas Schallmaier & TOOLBOX          *)
  4. (* ------------------------------------------------------ *)
  5. PROGRAM HalloWinCRT;
  6.  
  7. USES Strings, WinCrt;
  8.  
  9. BEGIN
  10.   AutoTracking  := TRUE;
  11.   { Damit taucht nur "WindowTitle" in der "WindowBar" auf  }
  12.   InactiveTitle := '%s';
  13.   ScreenSize.X  := 64;
  14.   ScreenSize.Y  := 256;
  15.                           { Wir geben dem Kind einen Namen }
  16.   StrCopy(WindowTitle, 'Hallo WinCRT');
  17.   WriteLn(Output, ' Nahezu jedes neue Programmiersprache, ',
  18.                   'jede neue Oberfläche ');
  19.   WriteLn(Output, ' wird mit diesem Programm vorgestellt!');
  20.   WriteLn(Output, ' So auch diese (K&R sei Dank) ...');
  21.   WriteLn(Output);
  22.   WriteLn(Output);
  23.   WriteLn(Output, ' Alternativ hierzu : ');
  24.   WriteLn(Output, ' The quick brown fox jumps over the ',
  25.                   'lazy dog by the banks of the river');
  26.   WriteLn(Output);
  27.   Close(Output);
  28. END.
  29. (* ------------------------------------------------------ *)
  30. (*             Ende von HELLOCRT.PAS                      *)
  31.