parameter (nx=25,ny=25)
	integer m(nx,ny) ; character file*20,titolo*20
	call mvsetflags ('Tipo di Carattere',-14.0)
	call cellularrule (-1,0)
	m=0
	call cellularinit(m,nx,ny,3,5,4)
	call cellularplot(m,nx,ny)
	call mvsetflags ('X size',600.0)
	call displayplot ('tmp000.gif','The Walker with Cellular Automata',
	2	'Cycle n:000')
	do i=1,40
	   call cellularcycle(m,nx,ny)
	   call cellularplot(m,nx,ny)
	   call makefilename('tmp',i,'.gif',file)
	   call makefilename('Cycle n: ',i,' ',titolo)
	   call displayplot (file,'The Walker with Cellular Automata',titolo)
	end do
	call viacolvento('tmp*.gif','example401.gif')
	end