need help converting old style def fn functions

[madscijr]

In this function X and Y will always be 0.

---------------------------
Function FND (Q)
    FND = (64 * (Q - 1)) + (8 * (X - 1)) + Y

End Function
----------------------



not 100% sure it'll work but I'd recommend adding this line after the original source code line 1130:

Dim Shared x, y

Thanks, I think that may be it! 
It makes sense that those would be global variables with the old Def Fn.