fpcsrc/tests/webtbs/tw6822c.pp


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17

{ %target=win32,win64,wince,darwin,linux,freebsd,solaris,beos}
uses
  SysUtils;

var
  t: text;
begin
  { see uw6822a.pp }
  assign(t,'uw6822a.txt');
{$i-}
  reset(t);
{$i+}
  if ioresult<>0 then
    halt(1);
  close(t);
  erase(t);
end.