parameter (b=1960)
	integer minuti,ora,giorno,mese,anno,eta
	integer*4 stime,tarray(9)
	call whattimeisit(minuti,ora,giorno,mese,anno)
	eta=anno-b
	write(6,*) 'Marco is now', eta, 'years old!'
	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)
	call rettangolino(0.5,0.3,0.7,0.2,11)
	call rettangolino(0.5,0.485,0.45,0.17,11)
	   xc=0.17
	do i=1,23
	   call pallocchetto(xc,0.385,0.02,17)
	   xc=xc+0.03
	enddo
	xccc=0.3
	do i=1,9
	   call rettangolino(xccc,0.62,0.013,0.1,7)
	   xccc=xccc+0.05
	enddo
	xcc=0.29
	do i=1,15
	   call pallocchetto(xcc,0.555,0.018,17)
	   xcc=xcc+0.03
	enddo
	xccd=0.3
	do i=1,9
	   call triangolino(xccd,0.68,0.015,0.017,11)
	   xccd=xccd+0.05
	enddo
	call mvsetflags('Colore Titoli',1.0)
	call mvsetflags('Size delle Scritte',30.0)
	call scrivisulplot('BUON COMPLEANNO!',0.5,0.85)
	call scrivisulplot('Valentina',0.85,0.05)
	call mvlibsignature
	call displayexample('example16','Happy Birthday from MVLib',' ')
	end