program test_tab
C
      character*1 ia
c
      do 10 i=1,40
         ia=char(i)
         write(18,*)i,' = ',ia
   10 continue
c
      stop
      end