blob: 3c6b35e5da14b4256af6b9a49d4afc4dfd920b03 (
plain)
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;
}
|