Select Code to Download

function roll(point : integer) : real;
begin
...
       roll := 0;
   end; { case }
end; { rolls }

sub roll{
         my $i = shift;
...
         $i = $roll{$i}/36;
         return $i;
    }