    1 FOR Y=.TO18
    2 FOR X=.TO18
    3 IF (ASCMID$(" ,:Y:,",1+X MOD 6,1)-24AND2^(Y MOD 6)) PRINT TAB(X,Y)"*"
    4 NEXT:NEXT