1 A$(1)="   *     *     *"
2 A$(2)="  * *   * *   * *"
3 A$(3)=" *   * *   * *   *"
4 A$(4)="*     *     *     *"
5 ?A$(1):for Z=1 to 3:for X=2 to 4:?A$(X):next:for Y=3 to 1 step -1:?A$(Y):next:next
