gencard.p

来自「早期freebsd实现」· P 代码 · 共 18 行

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.