\ syncname 98.6.8 NAB

module syncname

create NameBuf 41 chars allot

public:

: UserName ( -- c-addr u )
  0.  0.  NameBuf >abs  0.  0.  0.
  DlkGetSyncInfo drop
  NameBuf dup >abs StrLen ;

end-module