0 a$(0)="   *  ":a$(1)="  * * ":a$(2)=" *   *":a$(3)="*     ":a$(4)=a$(2):a$(5)=a$(1):for i=0 to 18:for r=1 to 3:?a$(i%6);:next:?mid$(a$(0),i%6+1,1):next
