Path: utzoo!utgpu!news-server.csri.toronto.edu!rpi!dali.cs.montana.edu!caen!sol.ctr.columbia.edu!ira.uka.de!smurf!artcom0!hb.maus.de!sl.maus.de!Marco_Schluenss
From: Marco_Schluenss@sl.maus.de (Marco Schluenss)
Newsgroups: comp.lang.pascal
Subject: Re: Saving dynamic structures
Message-ID: <34776@sl.maus.de>
Date: 5 May 91 13:04:00 GMT
Distribution: world,comp
Organization: Maus Mailbox Netz - UUCP-Gateway Bremen
Lines: 29


Harold Ruby Harold.Ruby @ f1999.n106.z1.fidonet.org:

HR>Aus: .comp.lang.pascal
HR>MId: <11816.281458D5@urchin.fidonet.org>
HR>
HR>    Try this:
HR>
HR>procedure savescreen;
HR>var image:file;
HR>begin
HR>  assign (image,'FILENAME.EXT');
HR>  rewrite (image,1);
HR>  blockwrite (image,mem[$A000,0],$FA00);
    <------->   Close(Image);
HR>end;
HR>
HR>procedure restorescreen;
HR>var image:file;
HR>begin
HR>  assign (image,'FILENAME.EXT');
HR>  reset (image,1);
HR>  blockread (image,mem[$A000,0],$FA00);
    <------->  Close(Image);
HR>end;

How about closing the files after working with them?

 Tschau, Marco