Path: utzoo!utgpu!news-server.csri.toronto.edu!cs.utexas.edu!usc!zaphod.mps.ohio-state.edu!uakari.primate.wisc.edu!aplcen!haven!adm!news
From: S89405079%HSEPM1.HSE.NL@uga.cc.uga.edu
Newsgroups: comp.lang.pascal
Subject: Graphic-screen to disk
Message-ID: <25017@adm.brl.mil>
Date: 16 Nov 90 05:59:48 GMT
Sender: news@adm.brl.mil
Lines: 27

Hi,

I have a little problem dumping the graphics-screen to disk. The problem is
that when I dump such a screen, all the colors disappear. Does anyone
know what I'm doing wrong?

Edwin Groothuis
S89405079@hsepm1.hse.nl

============================ PROGRAM ==========================
uses       crt,dos,graph;
type       screen_type:array[0..$FFFF] of byte;
var        fil:file of screen_type;
           screen:^screen_type;
           driver,mode:integer;
           i:integer;

begin
  detectgraph(driver,mode);
  initgraph(driver,mode,'');
  for i:=1 to 100 do
    circle(100,100,i);                (* Make something on the screen *)
  screen:=ptr($A000,0000)
  assign(fil,'test');rewrite(fil);write(fil,screen);close(fil);
  clearviewport;
  assign(fil,'test');reset(fil);read(fil,screen);close(fil);
end.