110 open structure rights: name 'tti_run:rightslist' 115 do line input 'User name': uname$ if _exit then exit do extract structure rights, field id : partial key uname$ group$ = encode$(rights(group), 8) exclude len(group$) >= 6 ! skip resource names member$= encode$(rights(member), 8) if member$ = '177777' then member$ = '*' print rights(id); tab(20);'[';group$;',';member$;']' end extract 200 loop