@define @field b0;
@define @field b1;
@define @field b2;
@define @field b3;
@define @field gr;
@define @field hh;
@define @field int;
@define @field lh;
@define @field qqqq;
@define @field rh;
@define	procedure vgetc();
@define function abs();
@define function aopenin();
@define function aopenout();
@define function bopenin();
@define function bopenout();
@define function chr();
@define function ord();
@define function feof();
@define function eoln();
@define function fabs();
@define function getc();
@define function makefraction();
@define function odd();
@define function round();
@define function takefraction();
@define function testaccess();
@define function toint();
@define function trunc();
@define function wopenin();
@define function wopenout();
@define procedure aclose();
@define procedure argv();
@define procedure bclose();
@define procedure bgetname();
@define procedure bwrite2bytes();
@define procedure bwrite4bytes();
@define procedure bwritebuf();
@define procedure bwritebyte();
@define procedure calledit();
@define procedure clearterminal;
@define procedure close();
@define procedure dateandtime();
@define procedure decr();
@define procedure dumpcore;
@define procedure dumpthings();
@define procedure exit();
@define procedure fflush();
@define procedure flush();
@define procedure fwrite();
@define procedure getfmthh();
@define procedure getfmtint();
@define procedure getfmtqqqq();
@define procedure getfmtword();
@define procedure incr();
@define procedure lineread();
@define procedure linewrite();
@define procedure putfmthh();
@define procedure putfmtint();
@define procedure putfmtqqqq();
@define procedure putfmtword();
@define procedure read();
@define procedure readln();
@define procedure reset();
@define procedure rewrite();
@define procedure setpaths;
@define procedure termflush();
@define procedure topenin;
@define procedure uexit();
@define procedure undumpthings();
@define procedure vstrcpy();
@define procedure wakeupterminal;
@define procedure wclose();
@define procedure write();
@define procedure writedvi();
@define procedure writeln();
@define type boolean = 0..1;
@define type ccharpointer;
@define type char = 0..127;
@define type integer;
@define type real;
@define type text;
@define var argc;
@define var false;
@define var fmtpathspec;
@define var fontpathspec;
@define var stdin;
@define var inputpathspec;
@define var stdout;
@define var poolpathspec;
@define var readpathspec;
@define var true;
@define function testeof();
@define procedure zfseek();
@define function ftell();
@define function eof();
@define procedure printreal();
@define procedure putbyte();
@define function inputint();
@define procedure input3ints();
