character str*40
	call scrivisulplot ('Defalt Character Type',0.50,0.90)
	call mvsetflags('Colore Titoli',6.0)
	do ic=-4,-19,-1
	   write(str,'(a,i6)') 'Tipo di Carettere',ic
	   call no2space(str)
	   call mvsetflags('Tipo di Carattere',float(ic))
	   call scrivisulplot (str,0.5,1.00+ic*0.04)
	end do
	call mvsetflags('Tipo di Carattere',-12.0)
	call scrivisulplot ('To print the following character set the '//
	2	'parameter to -20',0.5,0.13)
	call mvsetflags('Tipo di Carattere',-20.0)
	call scrivisulplot ('abcdefghilmnopqrstuvzABCDEFGHILMNOPQRSTUVZ',.5,.1)
	call scrivisulplot ('!@#%^&*()_+1234567890-=[]\|}{":'';?></.,',.5,.05)
	call mvsetflags('Tipo di Carattere',-7.0)
	call displayexample('example11','Choise of Character type',' ')
	end