call mvsetflags('Size delle Scritte',10.0)
	call mvsetflags('Colore Titoli',0.0)
	call mvsetflags('Colore Sfondo',1.0)
	call mvsetflags('Tipo di Carattere',-13.0)
	yc=0.5
	do nv=1,4
	   xc=(nv-1)*0.2+0.15
	   call pallocchetto(xc-0.04,yc-0.04,0.02,4)
	   call pallocchetto(xc+0.04,yc-0.04,0.02,4)
	   call rettangolino (xc,yc,0.18,0.06,6)
	   call scrivisulplot('FFSS',xc,yc-0.02)
	   do j=1,3
	      call rettangolino (xc-0.08+j*0.04,yc,0.02,0.02,7)
	   end do
	end do
	call rettangolino (0.75,0.55,0.18,0.04,2)
	call rettangolino (0.81,0.60,0.01,0.07,2)
	call triangolino (0.81,0.65,0.01,2)
	call rettangolino (0.80,0.55,0.02,0.02,7)
	call mvsetflags('Colore Titoli',6.0)
	call mvsetflags('Size delle Scritte',30.0)
	call scrivisulplot('The train of the love',0.5,0.6)
	call scrivisulplot('singing ciuffecciu''... ',0.5,0.4)
	call displayexample('example13',' ',' ')
	end