[Back to SCREEN SWAG index]  [Back to Main SWAG index]  [Original]


-------------------------------------------------------------------------------
Message From 
-------------------------------------------------------------------------------
Group #2 - Fidonet
Conference #9 - Pascal
Message Date: 08-22-97 19:25:00

To:      Nathan Malyon
From:    Moritz Bartl
Subject: GrabScreen
-------------------------------------------------------------------------------

Nathan has told All someting about "GrabScreen":

NM> Does anyone know a way to "Grab" the screen then restore it later
NM> (posibily from a file)

================ CUT ================
uses crt; { only needed for clrscr }
type Screen= array[1..4000] of byte;
var
  ColorScreen : Screen Absolute $B800:$0000;
  SavedScreen : Screen;
begin
 savedscreen := colorscreen;
 clrscr;writeln('Press key to restore');readkey;
 colorscreen := savedscreen;
end.
================ CUT ================

 /\/\/\/< Moritz Bartl >\/\/\/\/\

--- Lamer Mail v1.6 R
 * Origin: - just me - (2:2480/56.17)

[Back to SCREEN SWAG index]  [Back to Main SWAG index]  [Original]