home *** CD-ROM | disk | FTP | other *** search
/ Turbo Toolbox / Turbo_Toolbox.iso / 1991 / 06 / praxis / testcrt.pas < prev   
Pascal/Delphi Source File  |  1991-03-12  |  1KB  |  37 lines
  1. (* ------------------------------------------------------ *)
  2. (*                     TESTCRT.PAS                        *)
  3. (*        (c) 1991 Andreas Schallmaier & TOOLBOX          *)
  4. (* ------------------------------------------------------ *)
  5. PROGRAM TestCRT;
  6.  
  7. USES WinTypes, Strings, WinCrt;
  8.  
  9. VAR
  10.   Source         : Text;
  11.   FileName, Line : STRING;
  12.  
  13. BEGIN
  14.   { Mit TRUE wird das Fenster gescrollt, wenn
  15.      Ausgabeoperationen es nötig machen }
  16.   AutoTracking  := TRUE;
  17.   InactiveTitle := 'Programmausführung beendet : %s';
  18.   ScreenSize.X  := 80;
  19.   ScreenSize.Y  := 512;
  20.   StrCopy(WindowTitle, 'Test für WinCRT');
  21.   Assign (Source, 'TESTCRT.PAS');
  22.   Reset  (Source);
  23.   WriteLn(Output, 'Hier ist der Quelltext dieses ',
  24.                   'Programms...');
  25.   WHILE NOT EOF(Source) DO BEGIN
  26.     ReadLn (Source, Line);
  27.     WriteLn(Output, Line);
  28.   END;
  29.   Close(Source);
  30.   WriteLn(Output, '<Enter> zum beenden...');
  31.   ReadLn (Input);
  32.   Close(Output);
  33. END.
  34. (* ------------------------------------------------------ *)
  35. (*                Ende von TESTCRT.PAS                    *)
  36.  
  37.