1FORy=-9TO9:FORx=-9TO9:VDU32OR10ANDINSTR(" $'*0>C",CHR$(ABSx*ABSy+32))>(ABSxMOD9MOD8=ABSy):NEXT:PRINT:NEXT
