For(P,20+7*(X-1),25+7*(X-1),2)
For(Q,4+7*(Y-1),9+7*(Y-1),2)
Pxl-Change(int(Q),int(P))
End
End