engines/avalanche/scr_9.cpp


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21

#include "ptoc.h"


/*#include "Crt.h"*/

text t;
string x;
byte fv;
untyped_file f;
int main(int argc, const char* argv[])
{pio_initialize(argc, argv);
;
 assign(f,"v:paralogo.scr");
 clrscr;
 reset(f,1);
 blockread(f,mem[0xb800*0],4000);
 close(f);
 gotoxy(1,1); insline;
 gotoxy(1,23); clreol;
return EXIT_SUCCESS;
}