|
|
@ -57,7 +57,7 @@ my @X01 = ( |
|
|
|
[ 10, |
|
|
|
[ 10, |
|
|
|
1, 1, "F", 2, 2, "F", 3, 3, "FS", 4, 4, "", 5, 5, "T", 6, 6, "FT", 7, 7, "FT", 9, 9, "", 10, 10, "" ], |
|
|
|
1, 1, "F", 2, 2, "F", 3, 3, "FS", 4, 4, "", 5, 5, "T", 6, 6, "FT", 7, 7, "FT", 9, 9, "", 10, 10, "" ], |
|
|
|
[ 10, |
|
|
|
[ 10, |
|
|
|
1, 1, "F", 2, 2, "F", 3, 3, "FS", 4, 4, "", 5, 5, "T", 7, 7, "FT", 8, 8, "T", 9, 10, "", 10, 9, "" ], |
|
|
|
1, 1, "F", 2, 2, "F", 3, 3, "FS", 4, 4, "", 5, 5, "T", 7, 7, "FT", 8, 8, "T", 10, 9, "", 9, 10, "" ], |
|
|
|
[ 9, 0, 9, |
|
|
|
[ 9, 0, 9, |
|
|
|
1, 1, "F", 2, 2, "F", 3, 3, "FS", 4, 4, "", 5, 5, "T", 6, 0, "", 7, 7, "FT", 0, 8, "", 10, 9, "", 9, 10, "" ], |
|
|
|
1, 1, "F", 2, 2, "F", 3, 3, "FS", 4, 4, "", 5, 5, "T", 6, 0, "", 7, 7, "FT", 0, 8, "", 10, 9, "", 9, 10, "" ], |
|
|
|
); |
|
|
|
); |
|
|
@ -69,7 +69,7 @@ my @X02 = ( |
|
|
|
[ 10, |
|
|
|
[ 10, |
|
|
|
1, 1, "F", 2, 2, "F", 3, 3, "FS", 4, 4, "", 9, 9, "", 10, 10, "" ], |
|
|
|
1, 1, "F", 2, 2, "F", 3, 3, "FS", 4, 4, "", 9, 9, "", 10, 10, "" ], |
|
|
|
[ 10, |
|
|
|
[ 10, |
|
|
|
1, 1, "F", 2, 2, "F", 3, 3, "FS", 4, 4, "", 9, 10, "", 10, 9, "" ], |
|
|
|
1, 1, "F", 2, 2, "F", 3, 3, "FS", 4, 4, "", 10, 9, "", 9, 10, "" ], |
|
|
|
[ 9, 0, 9, |
|
|
|
[ 9, 0, 9, |
|
|
|
1, 1, "F", 2, 2, "F", 3, 3, "FS", 4, 4, "", 10, 9, "", 9, 10, "" ], |
|
|
|
1, 1, "F", 2, 2, "F", 3, 3, "FS", 4, 4, "", 10, 9, "", 9, 10, "" ], |
|
|
|
); |
|
|
|
); |
|
|
@ -81,7 +81,7 @@ my @X03 = ( |
|
|
|
[ 10, |
|
|
|
[ 10, |
|
|
|
1, 1, "F", 2, 2, "F", 3, 3, "FS", 4, 4, "", 5, 5, "T", 6, 6, "FT", 7, 7, "FT", 9, 9, "", 10, 10, "" ], |
|
|
|
1, 1, "F", 2, 2, "F", 3, 3, "FS", 4, 4, "", 5, 5, "T", 6, 6, "FT", 7, 7, "FT", 9, 9, "", 10, 10, "" ], |
|
|
|
[ 10, |
|
|
|
[ 10, |
|
|
|
1, 1, "F", 2, 2, "F", 3, 3, "FS", 4, 4, "", 9, 10, "", 10, 9, "" ], |
|
|
|
1, 1, "F", 2, 2, "F", 3, 3, "FS", 4, 4, "", 10, 9, "", 9, 10, "" ], |
|
|
|
[ 9, 0, 9, |
|
|
|
[ 9, 0, 9, |
|
|
|
1, 1, "F", 2, 2, "F", 3, 3, "FS", 4, 4, "", 5, 0, "T", 6, 0, "", 7, 0, "T", 10, 9, "", 9, 10, "" ], |
|
|
|
1, 1, "F", 2, 2, "F", 3, 3, "FS", 4, 4, "", 5, 0, "T", 6, 0, "", 7, 0, "T", 10, 9, "", 9, 10, "" ], |
|
|
|
); |
|
|
|
); |
|
|
@ -93,7 +93,7 @@ my @X04 = ( |
|
|
|
[ 9, |
|
|
|
[ 9, |
|
|
|
1, 1, "F", 2, 2, "", 3, 3, "FS", 4, 4, "", 5, 5, "T", 6, 6, "F", 7, 7, "FT", 9, 9, "" ], |
|
|
|
1, 1, "F", 2, 2, "", 3, 3, "FS", 4, 4, "", 5, 5, "T", 6, 6, "F", 7, 7, "FT", 9, 9, "" ], |
|
|
|
[ 10, |
|
|
|
[ 10, |
|
|
|
1, 1, "F", 2, 2, "F", 3, 3, "FS", 4, 4, "", 5, 5, "T", 7, 7, "FT", 8, 8, "T", 9, 10, "", 10, 9, "" ], |
|
|
|
1, 1, "F", 2, 2, "F", 3, 3, "FS", 4, 4, "", 5, 5, "T", 7, 7, "FT", 8, 8, "T", 10, 9, "", 9, 10, "" ], |
|
|
|
[ 9, 0, 0, |
|
|
|
[ 9, 0, 0, |
|
|
|
1, 1, "F", 2, 2, "", 3, 3, "FS", 4, 4, "", 5, 5, "T", 6, 6, "", 7, 7, "FT", 0, 8, "", 9, 10, "" ], |
|
|
|
1, 1, "F", 2, 2, "", 3, 3, "FS", 4, 4, "", 5, 5, "T", 6, 6, "", 7, 7, "FT", 0, 8, "", 9, 10, "" ], |
|
|
|
); |
|
|
|
); |
|
|
@ -129,7 +129,7 @@ my @X07 = ( |
|
|
|
[ 10, |
|
|
|
[ 10, |
|
|
|
1, 1, "F", 2, 2, "", 3, 3, "FS", 4, 4, "", 5, 5, "T", 6, 6, "F", 7, 7, "FT", 9, 9, "", 10, 10, "" ], |
|
|
|
1, 1, "F", 2, 2, "", 3, 3, "FS", 4, 4, "", 5, 5, "T", 6, 6, "F", 7, 7, "FT", 9, 9, "", 10, 10, "" ], |
|
|
|
[ 10, |
|
|
|
[ 10, |
|
|
|
1, 1, "", 2, 2, "F", 3, 3, "F", 4, 4, "", 5, 5, "", 7, 7, "", 8, 8, "", 9, 10, "", 10, 9, "" ], |
|
|
|
1, 1, "", 2, 2, "F", 3, 3, "F", 4, 4, "", 5, 5, "", 7, 7, "", 8, 8, "", 10, 9, "", 9, 10, "" ], |
|
|
|
[ 9, 0, 9, |
|
|
|
[ 9, 0, 9, |
|
|
|
1, 1, "", 2, 2, "", 3, 3, "", 4, 4, "", 5, 5, "", 6, 6, "", 7, 7, "", 8, 8, "", 10, 9, "", 9, 10, "" ], |
|
|
|
1, 1, "", 2, 2, "", 3, 3, "", 4, 4, "", 5, 5, "", 6, 6, "", 7, 7, "", 8, 8, "", 10, 9, "", 9, 10, "" ], |
|
|
|
); |
|
|
|
); |
|
|
@ -360,7 +360,7 @@ sub showbox($) |
|
|
|
|
|
|
|
|
|
|
|
my ($mu, %ms) = readbox($bn); |
|
|
|
my ($mu, %ms) = readbox($bn); |
|
|
|
my @MS = ($mu); |
|
|
|
my @MS = ($mu); |
|
|
|
for my $uid (sort { $ms{$a}[0] <=> $ms{$b}[0] } keys %ms) { |
|
|
|
for my $uid (sort { $a <=> $b } keys %ms) { |
|
|
|
push @MS, $ms{$uid}[0], $uid, $ms{$uid}[1]; |
|
|
|
push @MS, $ms{$uid}[0], $uid, $ms{$uid}[1]; |
|
|
|
} |
|
|
|
} |
|
|
|
printbox($bn, @MS); |
|
|
|
printbox($bn, @MS); |
|
|
|