home *** CD-ROM | disk | FTP | other *** search
/ Collection of Education / collectionofeducationcarat1997.iso / COMPUSCI / TOT11.ZIP / TOTDEM11.ZIP / DEMFS1.PAS < prev    next >
Pascal/Delphi Source File  |  1991-02-11  |  782b  |  30 lines
  1. Program DemoFastOne;
  2. {DEMFS1}
  3.  
  4. USES DOS,CRT, totFAST;
  5.  
  6. var 
  7.   WasOn: boolean;
  8. begin
  9.    Clrscr;
  10.    with Screen do
  11.    begin
  12.       WriteAt(1,1,white,'* 1,1 (original)');
  13.       WriteAt(5,5,white,'* 5,5 (original)');
  14.       SetWindow(20,8,60,15);
  15.       Clear(31,' ');
  16.       WriteAt(1,1,lightcyan,'* 1,1 (in window)');
  17.       WriteAt(5,5,lightcyan,'* 5,5 (in window)');
  18.       WriteAt(20,7,Lightcyan,'This text is too long to fit!');
  19.       GotoXY(1,2);
  20.       TextColor(Lightcyan);
  21.       System.Writeln('Written with Turbo''s Writeln');
  22.       WasOn := WindowOff;   {disbale the window}
  23.       WriteRight(80,23,white,'Written with WindowOff');
  24.       WindowOn;
  25.       WriteAt(1,8,lightcyan,'Window enabled again');
  26.       ResetWindow;
  27.       GotoXY(1,24);
  28.    end;
  29. end.
  30.