Path: utzoo!utgpu!news-server.csri.toronto.edu!cs.utexas.edu!swrinde!zaphod.mps.ohio-state.edu!menudo.uh.edu!nuchat!lobster!urchin!f1999.n106.z1.fidonet.org!Harold.Ruby
From: Harold.Ruby@f1999.n106.z1.fidonet.org (Harold Ruby)
Newsgroups: comp.lang.pascal
Subject: Re: Saving dynamic structures to disk & recalling revisited....
Message-ID: <11816.281458D5@urchin.fidonet.org>
Date: 24 Apr 91 02:55:27 GMT
Sender: ufgate@urchin.fidonet.org (newsout1.26)
Organization: FidoNet node 1:106/1999 - The Instrument MEGA, Deer Park TX
Lines: 22


    Try this:

procedure savescreen;
var image:file;
begin
  assign (image,'FILENAME.EXT');
  rewrite (image,1);
  blockwrite (image,mem[$A000,0],$FA00);
end;

procedure restorescreen;
var image:file;
begin
  assign (image,'FILENAME.EXT');
  reset (image,1);
  blockread (image,mem[$A000,0],$FA00);
end;

Note - I've left out error correction / file exist checking / etc.. 

Harold