	real x(5),y(5)
	real z(13)
	character*3 no
        integer ch(11),ch0(4),ch1(10)

	character*6 ca
	integer name(3,400)
	byte a(6)
	equivalence (a,ca)
        data ch/1717,4408,4219,4435,5135,1845,2139,2839,308,316,309/
	data ch0/5234,101,101,4053/
        data ch1/4882,2637,101,4853,3591,101,101,3909,101,5554/
	data z/0,2,5,10,12,15,20,22,25,30,32,35,40/

	open(1,file='fan.txt',status='old')
	i=0
98      i=i+1
	read(1,'(a)',end=99)ca          
	name(1,i)=101
	if(a(1).lt.0) name(1,i)=(a(1)+96)*100+a(2)+96
	name(2,i)=101
	if(a(3).lt.0) name(2,i)=(a(3)+96)*100+a(4)+96
	name(3,i)=101
	if(a(5).lt.0) name(3,i)=(a(5)+96)*100+a(6)+96
c	write(*,*)name(1,i),name(2,i),name(3,i)
	goto 98
99	close(1)
	n=i-1

	call unlink('pgplot.hp')
	call pgbegin(0,'?',1,1)
	k=0
       do 200 l=1,3	
	call pgsch(0.)
	call pgsci(0)
	call pgenv(0.,40.,26.,-1.25,0,-2)
	call pgsci(1)
	call pgsch(0.8)
	call pgslw(2)
	x(1)=0
	x(2)=40
        do 10 i=0,26
	y(1)=i
	y(2)=y(1)
10	call pgline(2,x,y)
	y(1)=0
	y(2)=26
        do 20 i=1,13
	x(1)=z(i)
	x(2)=x(1)
20	call pgline(2,x,y)
	do 30 j=0,3
	xx=j*10+0.2
        do 30 i=1,25
	k=k+1
	write(no(1:),'(i3)')k
	call pgtext(xx,i+0.7,no)	
30	continue
c30      if(k.le.n)call pgxchinese(xx+2.,i+0.7,name(1,k),3,0,0)
	ch(10)=ch(10)+1
c	call pgxchinese(8.,-0.5,ch,11,3,0)
c	call pgxchinese(32.,-0.5,ch0,4,0,0)
c	call pgxchinese( 0.2,.7,ch1,10,0,0)
c	call pgxchinese(10.2,.7,ch1,10,0,0)
c	call pgxchinese(20.2,.7,ch1,10,0,0)
c	call pgxchinese(30.2,.7,ch1,10,0,0)
200    continue
	call pgend
	end
