[unix-history] / usr / src / usr.bin / pascal / tstpx / src / gencard.p

program gencard(output);
var
cvt :record
	case boolean of
	true:(int :0..255);
	false:(st :set of 0..15);
	end;
i :integer;

begin
for i:=0 to 255 do begin
	cvt.int:=i;
	write((card(cvt.st)):1,', ');
	if (i+1) mod 16 = 0 then
		writeln;
	end;
end.
Commit	Line	Data
7dbf621a C	1	program gencard(output);
	2	var
	3	cvt :record
	4	case boolean of
	5	true:(int :0..255);
	6	false:(st :set of 0..15);
	7	end;
	8	i :integer;
	9
	10	begin
	11	for i:=0 to 255 do begin
	12	cvt.int:=i;
	13	write((card(cvt.st)):1,', ');
	14	if (i+1) mod 16 = 0 then
	15	writeln;
	16	end;
	17	end.