10FORY=-9TO9:PRINT:FORX=-9TO9:C=ABSX*ABSY:VDU9/EXPTAN(C=0ORC=49ORC<37ANDABSX>4ANDABSY>4ORC<17AND(ABSX-ABSY)MOD3=0):NEXT,
