procedure qWrite(x,y: integer; s: string);