1FORY=-8TO8:y=ABS(Y):FORX=-8TO8:x=ABS(X):VDU42+10*(x>4ANDy>4ORx<y-4ORy<x-4):NEXT:PRINT:NEXT
