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
35
36
37
38
39
40
41
42
43
44
45
46
47
|
struct sezheader {
array<1,2,char> initials; /* should be "TT" */
word gamecode;
word revision; /* as 3- or 4-digit code (eg v1.00 = 100) */
longint chains; /* number of scroll chains */
longint size; /* total size of all scroll chains */
};
const string crlf = string('\15')+'\12';
const string tabs = string('\11')+'\11'+'\11'+'\11'+'\11'+'\11'+'\11';
const char eof_ = '\32';
untyped_file sez;
sezheader header;
string x;
char check;
int main(int argc, const char* argv[])
{pio_initialize(argc, argv);
;
fillchar(x,sizeof(x),'\261');
x=string("This is a Sez file for an Avvy game, and its contents are subject")+crlf+
"to copyright. Have fun with the game!"+crlf+crlf+tabs+"tt"+crlf+crlf+
"[Lord Avalot D'Argent]"+crlf+crlf+eof_+
crlf+crlf+"Thomas was here!";
{;
header.initials="TT";
header.gamecode=2; /* code for Avalot */
header.revision=100; /* version 1.00 */
header.chains=0; /* no chains */
header.size=0; /* empty! */
}
check='\261';
assign(sez,"avalot.sez");
rewrite(sez,1);
blockwrite(sez,x[1],255);
blockwrite(sez,header,sizeof(header));
blockwrite(sez,check,1);
x=string('\0')+'\0'+'\0'+"Thomas was here, too!"+crlf+crlf+"Good luck...";
blockwrite(sez,x[1],39); /* footer */
close(sez);
return EXIT_SUCCESS;
}
|
