1 l$="###############":
2 print"{clear}";spc(8);"{yellow}*"
3 fort=1to3:fors=2+tto0step-1:a=2*(2+t-s):b=int(a*rnd(1))
4 printspc(s+5-t);"{green}";mid$(l$,1,a-b+2);chr$(159-band(b<>2));
5 print chr$(209);"{green}";mid$(l$,1,b): next
6 printspc(s+5-t)
7 forc=1toa+4:print"#";:next:print"#":next:
8 printspc(7)"{brown}{reverse on} @ {down}{left*3}   "