[polopok]

Так ! Вот получилось ... единственно X мыши неверно определяется
код:

Graphics 800,600 
SetBuffer BackBuffer() 


While Not KeyHit(1) 
Cls 
mx# = MouseX() : my# = MouseY()

For y = 1 To 13 
	For x# = -6 To 6 
		px# = ( (x*30)+(y*x))
		py# =  y*30
		
		
		If x<6 
		Line 400 +px,py , 400 + ( (x+1)*30)+(y*(x+1)),py
		EndIf 
		If y<13
		Line 400 +px,py , 400 + ( (x)*30)+((y+1)*(x)) ,(y+1)*30
		EndIf 
	;	Plot 400 + px, py 
	;	Text px ,py , Int(x) 
	;	Text px ,py+10 , y
	Next
Next 


	xm# = Floor#( (mx/30)-((my/30)/(mx/30)))
	ym# = Floor#(my/30)

Text 20,20,Int(xm)
Text 20,40,Int(ym)
Flip 
Wend 
End