by Richard Russell, October 2010

To find the user name for the current thread use this function:

        DEF FNusername
        LOCAL name%, size%
        size% = 255
        DIM name% LOCAL size%
        SYS "GetUserName", name%, ^size%
        = $$name%

The function can be called in the following context:

        PRINT "The user name is " FNusername