    begin
    integer  f,dict,l,i,k
    externalintegerfnspec  connect(string (127) file,
                                   integername  start,length)
    conststring (22) dictfile="DR0:[HMD.ECCE]DICT.MAP"
      f = connect("ECCE_DICT",dict,l)
      f = connect(dictfile,dict,l) if  f&1 = 0
      if  f&1 = 0 then  print string("Dictionary not available") and  stop
      select output(0)
      write(l,1);  printstring(" bytes");  newline
      select output(1)
      k = 0
      while  l > 0 cycle
        for  i = 30,-6,0 cycle
          printsymbol(integer(dict)>>i&63+'!')
        repeat
        k = k+1
        if  k < 10 then  space else  newline and  k = 0
        dict = dict+4;  l = l-4
      repeat
    endofprogram