implicit none
	character title*32 ; integer pal,ncol,i ; real x,y
	call mvsetflags('Size delle scritte',18.0)
	do pal=10,12
	   call mvsetflags('Palette di colori',float(pal))
	   call checkifgksisopen
	   call mvgetiflags(54,ncol)
	   do i=0,ncol
	      x=0.2 ; if (i.gt.40) x=0.4
	      y=0.9-i*0.02 ; if (i.gt.40) y=0.9-(i-40)*0.02
	      call mvsetflags('Colore Titoli',float(i))
	      write(title,'(a,i2)') 'Colour ',i
	      call scrivisulplot(title,x,y)
	   enddo
	   call mvsetflags('Colore Titoli',1.0)
	   write(title,'(a,i2)') 'Palette ',pal
	   call displayexample('example44',title,' ')
	enddo
	end