200 end;

   200 end;

   201 

   201 

   202 initialization

   202 initialization

   203 assignfile(f, 'debug.txt');

   203 assignfile(f, 'debug.txt');

   204 rewrite(f);

   204 rewrite(f);

   205 finalization

   206 finalization

   206 writeln(f, '-= halt at ',GameTicks,' ticks =-');

   207 writeln(f, '-= halt at ',GameTicks,' ticks =-');

   207 Flush(f);

   208 Flush(f);

   208 closefile(f)

   209 closefile(f)

   209 {$ENDIF}

   210 {$ENDIF}