integer iv(100)
	character st(100)*2,stringa*30
	do i=1,50
	   iv(i)=i-1
	   write (st(i),'(i2)') i-1
	   call nospace(st(i))
        end do
	call mvsetflags('palette di colori',2.0)
	call mvsetflags('numero di colori',30.0)
	call plotpalette (0.9,'h',iv,st,31)
	do i=1,30
	   call mvsetflags('Size delle Scritte',float(10+i))
	   call mvsetflags('Colore Titoli',float(i))
	   write (stringa,'(a,i2,a,i2)') 'Colore ',i,' Size ',10+i
	   call no2space(stringa)
	   call scrivisulplot(stringa,0.5,0.90-0.03*i)
	end do
	call displayexample('example12',' ',' ')
	end