DIMM 15:$M="03ADefqRuUw(":M!12=&91122:FORA=-1TO1:FORB=-1TO1:FORC=0TO&E:Y=A*(M?C AND&F)+9:X=B*(M?CDIV&F)+9:PRINTTAB(X,Y)"*"TAB(Y,X)"*":NEXT,,