I'd like to run the code below in Verison 8, It fails on this statement: m.lcPoint = 0h0000000000000000

What is the equivalent statement in Version 8? Thanks

Lparameters lcMenuName

Local lnx, lny, lnRow, lnCol, lcFontStyle

Declare Integer GetCursorPos In win32api As apiGetCursorPos_pemeditor;
	String  @lpPoint

Declare Integer ScreenToClient In win32api As apiScreenToClient_pemeditor ;
	Integer nhWnd, ;
	String  @lpPoint

m.lcPoint = 0h0000000000000000

apiGetCursorPos_pemeditor(@m.lcPoint)
apiScreenToClient_pemeditor(_Screen.HWnd, @m.lcPoint)

m.lnx = CToBin(Substr(m.lcPoint, 1, 4), "4rs")
m.lny = CToBin(Substr(m.lcPoint, 5, 4), "4rs")

m.lcFontStyle = ""

If _Screen.FontBold = .T. Then
	m.lcFontStyle = m.lcFontStyle + "B"
Endif

If _Screen.FontItalic = .T. Then
	m.lcFontStyle = m.lcFontStyle + "I"
Endif

m.lnCol = m.lnx/Fontmetric(6, _Screen.FontName, _Screen.FontSize, m.lcFontStyle)
m.lnRow = m.lny/Fontmetric(1, _Screen.FontName, _Screen.FontSize, m.lcFontStyle)

Define Popup (lcMenuName) shortcut Relative From m.lnRow, m.lnCol