{ history_capacity.pas -- the SAN Kit's internal move-history
  capacity (sandef.h), printed straight from its own constants.
  Pascal translation of history_capacity.c.

  See SANHistPush() in sanhst.c: once hn reaches hL, the next move
  played aborts the whole process (SANFatal("SANHistPush:
  overflow")). fmpL is the *intended* threshold (SANStatus()'s
  gs_over case fires once fmvn exceeds it) -- hL is the library's
  true hard limit, fmpL*2 plies plus a small extra safety cushion
  (aL) the original 1994 code reserved on top of that.

  Unlike the other three programs in this set, this one needs no
  call into the library at all -- fmpL/aL/hL are plain constants,
  not extern variables or functions -- so it doesn't even call
  SANInit. }

program history_capacity;

uses
  SanKit;

begin
  WriteLn('fmpL = ', fmpL, '   (the intended limit: 200 full moves)');
  WriteLn('aL   = ', aL, '   (extra safety cushion beyond that)');
  WriteLn('hL   = ', hL, '   (fmpL*2 + aL = ', fmpL * 2, ' + ', aL,
          ' = ', hL, '; the true hard capacity)');
end.
