%begin{dicts}
%externalstring(255)%fnspec TRANSLATE ENTRY (%integer x)
%externalintegerfnspec FIRST ENTRY (%record(*)%name d)
%externalintegerfnspec NEXT ENTRY (%integer x)
%externalrecord(*)%mapspec FIND DICT (%string(255)s)
%externalroutinespec phex(%integer x)

%routine go for(%string(3)s)
%integer t,e
  printstring(s;" dictionary:"); newline; newline
  t = first entry(find dict(s))
  %while t#0 %cycle
    printstring(translateentry(t)); e = integer(t)
    printstring(" = "); phex(e)
    %if e&16_ff800003=16_00800000 %start
      %if integer(e)>>24#0 %start
        printstring(" = ";string(e))
      %else
        printstring(" -> "); phex(integer(e))
      %finish
    %finish
    newline
    t = next entry(t)
  %repeat
  newline
%end

  go for("")
  go for("ext")
  go for("mod")
  go for("log")
  go for("fil")
  go for("com")
%end