home *** CD-ROM | disk | FTP | other *** search
/ POINT Software Programming / PPROG1.ISO / pascal / swag / screen.swg / 0003_CLRSCR3.PAS.pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  1993-05-28  |  752 b   |  38 lines
  1. {
  2. MICHAEL NICOLAI
  3.  
  4. You want to clear the entire screen? Then just Write 00 in every Byte!
  5. You have to save the screen first, of course. :-)
  6.  
  7. This Procedure saves the screen, clears it, waits For a keystroke and
  8. then restores the screen:
  9. }
  10.  
  11. Uses
  12.   Crt;
  13.  
  14. Procedure ClearScreen;
  15. Const
  16.   lines = 50;   { number of lines }
  17.   length = 160 * lines - 1;
  18. Var
  19.   i      : Word;
  20.   screen : Array [0..length] of Byte;
  21. begin
  22.  { save the screen }
  23.  For i := 0 to length do
  24.   screen[i] := mem[$B800 : i];
  25.  { blank screen }
  26.  For i := 0 to length do
  27.   mem[$B800 : i] := 0;
  28.  { wait For keystroke }
  29.  While (NOT KeyPressed) do;
  30.  { restore screen }
  31.  For i := 0 to length do
  32.   mem[$B800 : i] := screen[i];
  33. end;
  34.  
  35. begin
  36.   ClearScreen;
  37. end.
  38.