From: abreu@dcs.qmw.ac.uk (Abreu)
Newsgroups: soc.culture.portuguese
Subject: Deus.c
Date: 25 Jul 92 14:08:32 GMT
Organization: Computer Science Dept, QMW, University of London

____________________

O campo da biologia molecular esteve mistificado durante muitos anos pelo
facto de que muito pouco do ADN organico parece te^r uma funcao util.

O misterio foi agora resolvido.

A razao porque somente 30% do ADN humano tem uma funcao util e' que o resto
sao comentarios!

Depois de descodificar o genoma humano tipico, verificamos que o conteudo
comeca assim:


/*
 * ADN_HUMANA.H
 *
 * Genoma Humano
 * Versao 2.1
 *
 * (C) Deus
 *
 */

/*
 * Registo de revisoes:
 *
 * 0000-00-01 00:00  1.0  Adao.
 * 0000-00-02 10:00  1.1  Eva.
 * 0000-00-03 02:11  1.2  Adicao do penis 'a versao masculina. Definicao
 *                        confusa -- precisa ser alterada mais tarde para
 *                        torna'-la clara.
 * 0017-03-12 03:14  1.3  Adicao a macho.h de desejo sexual extra; copiado
 *                        de adn_elefante.h
 * 0145-10-03 16:33  1.4  Remocao da cauda.
 * 1115-00-31 17:20  1.5  Encurtamento dos bracos, expansao da caixa craniana.
 * 2091-08-20 13:56  1.6  Polegares opostos adicionados 'a rotina maos().
 * 2501-04-09 14:04  1.7  Melhoramentos cosmeticos minimos -- cor da pele
 *                        tornada mais escura 'a minha imagem.
 * 2909-07-12 02:21  1.8  Denticao inadequada; adicao de dentes do siso.
 *                        Lembrar de aumentar boca para compensar.
 * 4501-12-31 14:18  1.9  Aumento da altura media.
 * 5533-02-12 17:09  2.0  Adicionamento de opcao homosexual -- e' despoletada
 *                        por alta densidade populational para combater
 *                        explosao demografica.
 * 6004-11-04 16:11  2.1  Estreitamento do dedo indicador de forma a encaixar
 *                        nos buracos dos CDs.
 */


/*
 * Definicoes padrao
 *
 */

#define SEXO masculino
#define ALTURA 1,84
#define MASSA 68
#define RACA caucasiana


/*
 * Incluir caracteristicas hereditarias dos ficheiros de ADN dos pais.
 *
 * Ficheiros necessitam pre-processamento pelo programa MENDEL para garantir
 * hereditariedade correcta.
 *
 */

#include "mae.h"
#include "pai.h"

#ifndef PAI
#warn("Pai desconhecido -- adivinhando\n")
#include "bastardo.h"
#endif


/*
 * Preparar funcoes e variaveis sexuais especificas.
 *
 */

#include <sexo.h>


/*
 * Mal estruturado -- hei-de modificar isto e reescreve-lo como deve ser, um
 * destes dias.
 *
 */

struct genitais
   {
#ifdef MACHO
   Penis *c;
#endif
   /* G_spot *g;    Removido durante correcoes; nao esquecer repor */
#ifdef FEMEA
   Vagina *c;
#endif
   }


/*
 * Rotina de inicializacao -- chamada antes da duplicacao do ADN. Aloca espaco
 * e estabelece ponteiros aos ficheiros de proteinas.
 *
 */
 
ADN *inicializar_zigoto(Esperma *, Ovulo*);


/*
 * ROTINA DE INICIALIZACAO PRINCIPAL
 *
 * Retorna estruturas contendo os feno'tipos pre-processados, exibidos pelo
 * organismo 'a nascenc,a.
 *
 * Sera melhorado mais tarde para que o resultado seja menos feio.
 *
 */
 
Caracteristica *procurar_feno'tipo(Identificacao *i);

etc. etc. etc.

________________________
Newsgroups: soc.culture.portuguese