With some bending of the rules(?), we get a little more detail, and 117 chars

perl -Mconstant=Z,20 -l

map{$i=$_/Z,print map{$r=$;=$_/Z;$z=$i;$n=$z*$z,$m=$r*$r,$z=2*$r*$z+$i
+,$r=$m-$n+$;for a..z;$m<4?$":"+"}-46..Z}-19..Z
[download]

116 @ Wed May 8 19:50:10 EDT 2002

map{$i=$_/Z,print map{$r=$;=$_/Z;$z=$i;$n=$z*$z,$z=2*$r*$z+$i,$r=($m=$
+r*$r)-$n+$;for a..z;$m<4?$":"+"}-46..Z}-19..Z
[download]

BTW, I like the use of $; :-)

UPDATE: Changed outside range from -20..Z to -19..Z to eliminate extra lines of +.

--
perl -pew "s/\b;([mnst])/'$1/g"