[comp.lang.pascal] Saving dynamic structures

Marco_Schluenss@sl.maus.de (Marco Schluenss) (05/05/91)

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