1 data"   *  ","  * * "," *   *","*     "," *   *","  * * ":forx=0to24:ifx<6thenreada$(x)
2 a=xand7:printa$(a)a$(a)a$(a)chr$(-42*(a=3))chr$(-13*(a<6));:next
