81! You had a good idea Gloom, I just enhanced it...
:-p

for($n=36,$i=1;$n-=4;$i*=-1){map{print"\e[$a;${b}H@";${$n/2>$_?*b:*a}+
+=$i}1..$n}
[download]

"Trying to be a SMART lamer" (thanx to Merlyn ;-)