    1 fory=0to18:char,y,9,"*":char,9,y,"*":forx=0to7:ifnotasc(right$("~{CBM-B}{$75}{$f3}{CBM-E}{$6f}{CBM-*}{CBM-L}{$6d}",abs(y-9)))and2^xthenchar,x,y,"{rght}*":char,17-x,y,"*
    2 next:next
