mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-07 10:48:30 +02:00
25 lines
336 B
ObjectPascal
25 lines
336 B
ObjectPascal
unit uw6822a;
|
|
{$mode objfpc}{$H+}
|
|
|
|
interface
|
|
|
|
implementation
|
|
|
|
var
|
|
t: text;
|
|
|
|
initialization
|
|
{$ifndef wince}
|
|
writeln('Unit 1');
|
|
writeln('initialization');
|
|
{$endif wince}
|
|
finalization
|
|
{$ifndef wince}
|
|
writeln('Unit 1'); // problem
|
|
writeln('finalization');
|
|
{$endif wince}
|
|
assign(t,'uw6822a.txt');
|
|
rewrite(t);
|
|
close(t);
|
|
end.
|