#!/usr/bin/perl -w
use CGI qw(:standard);
my $limit1=uc(param('limit_1'));
my $position=uc(param('position'));
if (!$position) { $position = "after the flop"; }
my $unknown_cards = 47;
print "Content-type: text/html\n\n\n";
print " ";
if ($limit1)
{
$position = lc($position);
if ($position eq "after the turn") {
$unknown_cards = 46;
} elsif ($position eq "after the river") {
$unknown_cards = 45;
}
print "Betting Unit: \$$limit1
\n";
print "\n";
print "\t\n\t\t| Outs | Number of
\$$limit1 Bets with $unknown_cards unknown cards ($position) |
\n";
print "";
for ($k = 1; $k < 9; $k++) {
print "| $k | ";
}
print "
";
print "\n\t\n";
for ($i = 1; $i < $unknown_cards;$i++)
{
if ($i % 2 == 0) {
print "\t\n";
} else {
print "\t
\n";
}
print "\t\t| $i | ";
for ($j = 1; $j < 9; $j++) {
my $preriver = ($unknown_cards * (($limit1) * $j)) / $i;
print "";
print "\$" . sprintf("%.2f", $preriver);
print " | \n";
}
print "\t
\n";
}
print "
\n";
}
print "\n";