fpc/tests/webtbs/tw6822c.pp
2016-08-14 14:09:24 +00:00

18 lines
257 B
ObjectPascal

{ %target=win32,win64,wince,darwin,linux,freebsd,solaris,beos,aix,android,haiku }
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.