Sub Pset(x,y)
Draws a pixel