	integer ch(10),ch1(4)
	integer*2 map(479,512),smap(300,300)
	data ch/2722,5113,4225,5135,348,339,348,344,347,352/
	data ch1/1153,1147,1158,1670/
	  call readxfile('/vega2/pgplot/goldhill.am',1,map,479*512*2)
	  call swap2(map,479*512*2)
	  call turnx2(map,479,512,180)
	call pgbegin(0,'/xw',1,1)	
	call pgpap(6.,1.)
	call pgsci(0)
	call pgenv(0.,480.,1.,512.,0,0)
	call pgsci(13)
	call pgximage0(map,479,512,180.,0.)
	write(*,*)' number '
	do 10 i=1,300
	do 10 j=1,300
10	smap(i,j)=map(i+100,j+100)
	read(*,*)n
	do 20 i=1,n
	call pgximage2(smap,300,103,103,0.,180.)
20	call pgximage2(smap,300,103,103,180.,0.)
	call pgxchinese(2.,525.,ch,10,0,0)
	call pgxchinese(20.,484.,ch1,4,0,0)
	call pgtext(80.,440.,"2000.7")
	call pgend
	end
