%
% stack: ctid-symbol
%
"symbol " log()
%
% store raw symbol
%
dup !symbol
%
% change out spaces in symbol with underline for lookups
%
" " "_" replall !looksym
%
% empty possible variable sets from lookup
%
empty !Pho.Name
empty !Pho.NameA
empty !Pho.NameB
empty !Pho.Code
empty !Pho.Val
empty !Pho.Cmnt
empty !Pho.Kind