10 FORY=-9TO9:FORX=-9TO9:B=9-ABS(Y):A=9-ABS(X):IFA<BTHENT=A:A=B:B=T
20 IF(A=BANDA>1)ORA=9ORB=9ORINSTR("GR*+JU",CHR$(A*10+B))?"*";ELSE?" ";
30 NEXT:?:NEXT
