29 lines
374 B
OpenEdge ABL
29 lines
374 B
OpenEdge ABL
#
|
|
(*$U+ -- enables underscores in identifiers *)
|
|
|
|
program pascalsets;
|
|
|
|
type
|
|
charset = set of char;
|
|
|
|
var
|
|
s : charset;
|
|
i : integer;
|
|
|
|
procedure finished;
|
|
extern;
|
|
|
|
procedure fail(line: integer);
|
|
extern;
|
|
|
|
#define ASSERT(cond) \
|
|
if (not (cond)) then fail(__LINE__)
|
|
|
|
begin
|
|
s := [];
|
|
for i := 0 to 255 do
|
|
s := s + [chr(i)];
|
|
|
|
finished
|
|
end.
|