c     例題　文字の頻度
      character alfa*26,bun(80)*1
      integer hindo(26),i,j,k
      data    alfa/'abcdefghijklmnopqrstuvwxyz'/
      data    hindo/26*0/
      write(6,*)'----input data----'
      open(5,file='eiji.txt',status='old')
  100 read(5,500,end=90)bun
      write(6,*)bun
  500 format(80a1)
      do 10 i=1,80
       do 10 j=1,26
        if(bun(i).eq.alfa(j:j))hindo(j)=hindo(j)+1
   10 continue
      go to 100
   90 write(6,600)
  600 format(/'0','---- moji no hindo ----')
      do 20 i=1,26
        write(6,610)alfa(i:i),hindo(i),('*',k=1,hindo(i))
   20 continue
  610 format(' ',a1,i4,'  i',50a1)
      stop
      end