fpcsrc/tests/webtbs/tw7975a.pp


1
2
3
4
5
6
7
8
9
10
11

{$inline on}
{$mode objfpc}
uses tw7975;

var
  c: tc;
begin
  c := tc.create;
  writeln(test(c));
  c.free;
end.