fpc/tests/tbs0130.pp
1998-12-02 13:05:01 +00:00

12 lines
140 B
ObjectPascal

var
c : char;
begin
c:=#91;
if c in [#64..#255] then
writeln('boe');
c:=#32;
if c in [#64..#255] then
writeln('boe');
end.