COBOLiletário

move all amor to variaveis

perform amor-eterno

until amor equal infinito

and solidão equal zeros

end-perform

amor-eterno

if sentimento equal amor

move carinho to amada

move poemas to amante

move beijos to paixao

else

if sentimento equal amizade

move abraço to amigo

move sorriso to amiga

move conforto to alguém

else

if sentmento equal saudade

move viagem to distancia

move sonhos to lembrança

move choro to desanimo

else

if sentimento equal rancor

move nada to coração

else

if sentimento equal raiva

move vingança to desespero

else

if sentimento equal solidão

move esperança to saudade

end-if

end-if

end-if

end-if

end-if

end-if.

Programador: José Benício

Analista: Elisabete Gouvea