parameter (nlon=30,nlat=20)
	integer mat(nlon,nlat) ; real s(nlon,nlat)
	do i=1,nlon ; do j=1,nlat
	   mat(i,j)=acaso(1.0)*8 
	enddo ; enddo
	call mvsetflags('palette di colori',7.0)
	call mvsetflags('stile freccette',0.0)
	call mvsetflags('colore freccette',7.0)
	call boxarrow(mat,s,nlon,nlat,1)
	call displayexample('example30','How to use the subroutine boxarrow',' ')

	s=mat
	call mvsetflags('size delle scritte',11.0)
	call boxnumber(s,nlon,nlat,-0.5,8.5,'i1')
	call displayexample('example30','How to use boxnumber',' ')

	i1=10 ; i2=30 ; j1=11 ; j2=20
	call mvsetflags('palette di colori',1.0)
	call mvsetflags('colore freccette',13.0)
	call mvsetflags('stile freccette',1.0)
	call boxzoom(s,nlon,nlat,i1,i2,j1,j2,-0.5,8.5,2,10,' ')
	call boxzoomarrow(mat,s,nlon,nlat,i1,i2,j1,j2,1)
	call fammiilcontorno(1)
	call displayexample('example30','How to use boxzoom and boxzoomarrow',' ')
	end