1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17
{ %norun } {$mode macpas} unit tw7438; interface type tr = bitpacked record l1: 0..15; l2: 0..15; end; implementation end.