engines/avalanche/magidraw.cpp


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34

#include "graph.h"
/*#include "Crt.h"*/


const word nextcode = 17717;

integer gd,gm;
untyped_file magic; /* of word;*/
word next;
array<1,16401,word> buffer;

int main(int argc, const char* argv[])
{pio_initialize(argc, argv);
;
 gd=3; gm=0; initgraph(gd,gm,"c:\\bp\\bgi");
 assign(magic,"v:magic2.avd"); reset(magic,1);
 blockread(magic,buffer,sizeof(buffer));
 close(magic);
/* while not eof(magic) do*/
 for( gd=1; gd <= 16401; gd ++)
 {;
/*  read(magic,next);
  if next<>nextcode then*/
  if (buffer[gd]!=nextcode) 
   mem[0xa000*buffer[gd]]=255;
  else
   delay(1);
 }
/* close(magic);*/
return EXIT_SUCCESS;
}