option  "-low"
recordformat  dictf(integer  beg,pos,lim,alt)
@16_117c integerfn  defname(string (255)s,record (dictf)name  d,integer  size)
@16_1180 integerfn  refname(string (255)s,record (dictf)name  d)
@16_1184 routine  transname(integer  tag,string (255)name  s)
@16_3fb0 record (dictf)comdict,fildict,extdict,sysdict
!%recordformatspec dictf
!%recordformat dictcellf(%record(dictcellf)%name l,r,
!                        %integer token,%string(255)s)
!%recordformat dictf(%record(dictf)%name alt,%record(dictcellf)%name t)
!%externalintegerfnspec findentry(%string(255)s,%record(dictf)%name d)
!%externalintegerfnspec makeentry(%string(255)s,%record(dictf)%name d)
!%externalroutinespec deleteentry(%string(255)s,%record(dictf)%name d)
!%externalstring(255)%fnspec translateentry(%integer x)
!
!%externalroutinespec createlogicalname(%string(255)symbol,value)
!%externalroutinespec deletelogicalname(%string(255)symbol)
!%externalstring(255)%fnspec translatelogicalname(%string(255)symbol)