#!/usr/bin/perl -l
($h, $f) = @ARGV;
#234567891234567892234567893234567894234567895
#        0        0        0        0        0
@a=qw<0 @ * +>;
for(1..$h){print$"x($h-$_),($j++?map{rand()<$f?$a[
rand@a]:'='}1..($_*2-1):'*'),$"x($h-$_)}
[download]

105 code characters, +3 for the option -l, for a total of 108 characters.