#include "ptoc.h"



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;
}