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