0 a$(0)="   *  ":a$(1)="  * * ":a$(2)=" *   *":a$(3)="*     ":a$(4)=a$(2):a$(5)=a$(1)
1 fori=0to2:form=0to5:forr=1to3:printa$(m);:next:printmid$(a$(0),m+1,1):next:next
2 fori0to2:?a$(0);:next
