dna

ritorna ../biolox.htm

program dna;
(* dna ricombinante *)
uses crt,graph;
var c2,c3,c4,c5,c6,c7,c15:integer;
s:string;

procedure grafica;
var t,s:integer;
stringa:string;
begin
t:=0;
s:=0;
stringa:=('c:\tp\bgi\');
initgraph(s,t,stringa);
end;

procedure pausa1;
begin
setcolor(c4);
outtextxy(430,10,'premi INVIO');
gotoxy(2,2);readln;
setcolor(0);
outtextxy(430,10,'premi INVIO');
setcolor(c15);
end;


procedure testo(x,y:integer;st:string);
begin
outtextxy(x,y,st);
end;


procedure inizio;
begin
circle(100,100,80);
setcolor(c6);arc(100,100,0,90,80);
setcolor(c2);arc(100,100,180,230,80);
setcolor(c7);
testo(200,80,'T');
testo(10,130,'A');
testo(30,200,'gene per resistenza alla tetraciclina T');
testo(30,210,'gene per resistenza alla ampicillina A');
testo(30,230,'plasmide batterico da usare come vettore di DNA estraneo');
pausa1;
setcolor(c15);line(300,170,350,170);
setcolor(c2);line(350,170,400,170);
setcolor(c15);line(400,170,450,170);
setcolor(c6);line(450,170,470,170);
line(280,170,300,170);
setcolor(c3);testo(300,150,'plasmide aperto');
setcolor(c2);testo(350,180,'A conservata resistenza');
setcolor(c6);testo(450,190,'T perduta resistenza');
pausa1;
setcolor(c2);line(100,300,200,300);
setcolor(c6);line(200,300,300,300);
setcolor(c3);line(300,300,400,300);
setcolor(c15);
testo(30,330,'DNA da segmentare e trasferire a plasmidi');
testo(30,340,'semplificando:sono presenti tre geni');
pausa1;setcolor(c3);
testo(30,360,'Enzima di Restrizione ** :apre DNA in corrispondenza di');
testo(30,370,'particolari combinazioni nucleotidiche');
testo(30,380,'frammentando il DNA originario o aprendo DNA plasmidiale');
setcolor(c15);testo(200,300,'**');
testo(300,300,'**');
testo(150,50,'**');
setcolor(c2);line(100,270,200,270);
setcolor(c6);line(200,280,300,280);
setcolor(c3);line(300,290,400,290);
setcolor(c15);
pausa1;cleardevice;
end;

procedure taglia;
begin
testo(30,60,'mescolare DNA da segmentare con Plasmidi batterici');
testo(30,80,'in presenza di Enzima di restrizione e altro enzima');
testo(30,100,'Ligasi,che dovr… rifinire il lavoro di concatenamemto');
testo(30,120,'tra frammenti di DNA e plasmidi aperti');
setcolor(c3);
testo(30,140,'si ottiene miscuglio di frammenti di DNA e plasmidi aperti');
pausa1;

setcolor(c15);line(300,170,350,170);
setcolor(c2);line(350,170,400,170);
setcolor(c15);line(400,170,450,170);
setcolor(c6);line(450,170,470,170);
line(280,170,300,170);

setcolor(c15);line(300,190,350,190);
setcolor(c2);line(350,190,400,190);
setcolor(c15);line(400,190,450,190);
setcolor(c6);line(450,190,470,190);
line(280,190,300,190);

setcolor(c15);line(300,210,350,210);
setcolor(c2);line(350,210,400,210);
setcolor(c15);line(400,210,450,210);
setcolor(c6);line(450,210,470,210);
line(280,210,300,210);

setcolor(c15);line(300,230,350,230);
setcolor(c2);line(350,230,400,230);
setcolor(c15);line(400,230,450,230);
setcolor(c6);line(450,230,470,230);
line(280,230,300,230);

setcolor(c2);line(100,300,200,300);
setcolor(c3);line(200,310,300,310);
setcolor(c6);line(300,320,400,320);
pausa1;
testo(30,400,'saldatura tra segmenti DNA e anello plasmidiale');
setcolor(c2);line(200,170,280,170);
setcolor(c3);line(200,190,280,190);
setcolor(c6);line(200,210,280,210);
setcolor(0);line(100,300,200,300);
setcolor(0);line(200,310,300,310);
setcolor(0);line(300,320,400,320);
pausa1;cleardevice;
testo(30,410,'formazione anelli puri ,senza DNA incorporato');
testo(30,420,'e anelli ricombinanti,con DNA incorporato');
setfillstyle(1,0);
bar(20,160,500,340);
setcolor(c4);arc(100,100,0,30,40);
setcolor(c3);arc(100,100,30,90,40);
setcolor(c4);arc(100,100,90,120,40);
setcolor(c15);arc(100,100,120,180,40);
setcolor(c4);arc(100,100,180,270,40);
setcolor(c15);arc(100,100,270,360,40);
testo(60,200,'ricombinante con DNA gene1');
testo(60,210,'conserva resistenza ad ampicillina');pausa1;

setcolor(c4);arc(200,100,0,30,40);
setcolor(c2);arc(200,100,30,90,40);
setcolor(c4);arc(200,100,90,120,40);
setcolor(c15);arc(200,100,120,180,40);
setcolor(c4);arc(200,100,180,270,40);
setcolor(c15);arc(200,100,270,360,40);
testo(140,230,'ricombinante con DNA gene2');
testo(140,240,'conserva resistenza ad ampicillina');pausa1;


setcolor(c4);arc(300,100,0,30,40);
setcolor(c7);arc(300,100,30,90,40);
setcolor(c4);arc(300,100,90,120,40);
setcolor(c15);arc(300,100,120,180,40);
setcolor(c4);arc(300,100,180,270,40);
setcolor(c15);arc(300,100,270,360,40);

testo(340,260,'ricombinante con DNA gene3');
testo(340,270,'conserva resistenza ad ampicillina');pausa1;

setcolor(c4);arc(400,100,0,30,40);
setcolor(c4);arc(400,100,30,90,40);
setcolor(c4);arc(400,100,90,120,40);
setcolor(c15);arc(400,100,120,180,40);
setcolor(c4);arc(400,100,180,270,40);
setcolor(c15);arc(400,100,270,360,40);

testo(300,300,'plasmide non ricombinante:puro');
testo(300,310,'conserva resistenza ad ampicillina');
testo(300,320,'conserva resistenza a tetraciclina');pausa1;
setcolor(c3);
testo(30,350,'inserimento plasmidi in batteri');
rectangle(50,50,150,180);
rectangle(155,50,250,180);
rectangle(255,50,350,180);
rectangle(355,50,450,180);
rectangle(455,50,550,180);
setcolor(c15);rectangle(20,40,560,200);
pausa1;
testo(30,360,'applicazione di Ampicillina alla coltura batterica');
testo(30,370,'vengono eliminati batteri privi di plasmidi');
setcolor(0);rectangle(455,50,550,180);pausa1;
setcolor(c2);
testo(30,380,'separazione di singoli batteri e proliferazione separata');
testo(30,390,'allo scopo di riconoscere batteri ricombinanti da puri');
pausa1;
end;


procedure batteri;
begin
rectangle(50,50,400,200);
line(100,100,300,100);
setcolor(c7);
circle(200,160,30);
testo(30,360,'batterio con cromosoma e plasmide');
pausa1;
setcolor(c2);line(100,300,200,300);
setcolor(c3);line(200,300,300,300);
setcolor(c6);line(300,300,400,300);
testo(30,370,'DNA da segmentare e clonare');
pausa1;
testo(30,380,'apertura plasmide con enzima di restrizione');
testo(30,390,'segmentazione DNA con enzima di restrizione');
setcolor(0);circle(200,160,30);
setcolor(0);line(100,300,200,300);
setcolor(0);line(200,300,300,300);
setcolor(0);line(300,300,400,300);

setcolor(c7);line(100,160,150,160);line(200,160,300,160);
setcolor(c15);line(150,160,200,160);
testo(150,170,'gene resistenza adriamicina');
setcolor(c2);line(100,300,200,300);
setcolor(c3);line(200,310,300,310);
setcolor(c6);line(300,320,400,320);
pausa1;end;

procedure coltura;
var a,x,y,r:integer;
s:string;
begin
testo(30,360,'preparazione colture pure di singoli batteri');
testo(30,370,'e sdoppiamento di ogni coltura numerata');
x:=50;y:=100;r:=30;
for a:=1 to 8 do
begin
circle(x,y,r);
str(a,s);
testo(x,y,s);
x:=x+2*r+10;
end;

x:=50;y:=160;r:=30;
for a:=1 to 8 do
begin
str(a+8,s);
testo(x,y,s);
circle(x,y,r);
x:=x+2*r+10;
end;

line(10,200,540,200);
testo(30,40,'colture da trattare con tetraciclina');
setcolor(c2);
testo(30,350,'colture di controllo,non trattate con tetraciclina');
x:=50;y:=240;r:=30;
for a:=1 to 8 do
begin
str(a,s);
testo(x,y,s);
circle(x,y,r);
x:=x+2*r+10;
end;

x:=50;y:=310;r:=30;
for a:=1 to 8 do
begin
str(a+8,s);
testo(x,y,s);
circle(x,y,r);
x:=x+2*r+10;
end; pausa1;
setcolor(c3);
testo(30,390,'i batteri non ricombinanti,contengono plasmidi');
testo(30,400,'con resistenza alla Ampicillina e alla Tetraciclina');
testo(30,410,'la coltura rimane vitale se trattata con Tetraciclina');
setcolor(c2);
testo(30,420,'i batteri ricombinanti contengono plasmidi che hanno');
testo(30,430,'perduta la resistenza alla Tetraciclina:quindi le colture');
testo(30,440,'trattate con Tetraciclina saranno eliminate');
pausa1;
x:=50;y:=100;r:=30;
setfillstyle(4,c3);
for a:=1 to 8 do
begin
if (a=1) or (a=3) or (a=4) or (a=7)
then fillellipse(x,y,r,r);
x:=x+2*r+10;
end;

x:=50;y:=160;r:=30;
for a:=1 to 8 do
begin
if (a=1) or (a=4) or (a=5) or (a=8)
then fillellipse(x,y,r,r);
x:=x+2*r+10;
end;pausa1;
setfillstyle(1,0);bar(10,360,560,450);
pausa1;
x:=50;y:=240;r:=30;
setfillstyle(4,c2);
for a:=1 to 8 do
begin
if (a=1) or (a=3) or (a=4) or (a=7)
then fillellipse(x,y,r,r);
x:=x+2*r+10;
end;

x:=50;y:=310;r:=30;
for a:=1 to 8 do
begin
if (a=1) or (a=4) or (a=5) or (a=8)
then fillellipse(x,y,r,r);
x:=x+2*r+10;
end;
testo(30,380,'isolamento colture di controllo corrispondenti');
testo(30,390,'alle colture con batteri ricombinanti');
setcolor(c3);
testo(30,400,'ogni coltura pura contiene batteri che riproducono');
testo(30,410,'un gene del DNA estraneo inserito nel plasmide');pausa1;
testo(30,420,'Problema:riconoscere il tipo di gene in ogni coltura');
testo(30,430,'per selezionare i batteri e indurli a sintetizzare');
testo(30,440,'le molecole codificate dal gene del DNA estraneo');pausa1;

end;


procedure testox(x,y:integer;s:string);
begin
settextstyle(3,0,3);
outtextxy(x,y,s);
end;

procedure pro1;
begin
settextstyle(3,0,4);
testox(20,50,'fasi per preparare DNA ricombinante');
setcolor(c3);settextstyle(3,0,3);
testox(10,100,'1..localizzare cromosoma portatore del gene da clonare');
testox(10,130,'2..frammentare il cromosoma con ENZIMA di RESTRIZIONE');
pausa1;
testox(10,160,'3..provvedere vettore per trasferimento del gene');
testox(40,190,'es.plasmide batterico o batteriofago');
testox(10,210,'4..aprire plasmide con ENZIMA di RESTRIZIONE');
pausa1;setcolor(c2);
testox(10,240,'5..mescolare frammenti di DNA con plasmidi aperti');
testox(40,270,'possono presentarsi varie situazioni:');
testox(50,300,'formazione anello con plasmide e segmento DNA');
testox(50,330,'formazione anello con solo plasmide');
testox(50,360,'formazione anello con solo segmenti di DNA');
setcolor(c7);
testox(40,390,'unica formazione RICOMBINANTE utile:plasmide+DNA');
pausa1;cleardevice;
testox(10,50,'6..inserire anelli in batteri');
testox(10,80,'7..selezionare i batteri che contengono ');
testox(10,110,'...plasmidi ricombinanti,usando antibiotico adatto');
testox(10,140,'8..i batteri con anelli di solo DNA vengono uccisi');
testox(10,170,'9..i batteri con anelli ricombinanti o puri vivono');
testox(10,200,'10.si devono selezionare i batteri che posseggono');
testox(10,230,'...il gene da clonare,e separarli da quelli puri');
testox(10,260,'11.si devono riconoscere i geni presenti nelle colture');
settextstyle(0,0,1);
pausa1;cleardevice;
end;

procedure genoteca;
var x,y,r,a,b,k:integer;
s:string;
begin
x:=50;y:=60;r:=30;k:=1;
for b:=1 to 4 do
begin
for a:=1 to 8 do
begin
str(k,s);
testo(x,y,s);
circle(x,y,r);
x:=x+2*r+10;k:=k+1;
end;
y:=y+80;
x:=50;
end;
setcolor(c3);
testo(30,400,'GENOTECA:ogni coltura pura contiene una colonia batterica');
testo(30,410,'che possiede un gene estraneo,es.umano');
testo(30,420,'di natura nota e riproducibile in grande quantit…');
testo(30,430,'oppure sfruttabile per produrre molecole codificate');
end;

procedure scelta;
var sce:integer;
begin
cleardevice;
cleardevice;inizio;cleardevice;cleardevice; batteri;
cleardevice; taglia;cleardevice;coltura;cleardevice;genoteca;
setcolor(c15);settextstyle(0,0,1);
pausa1;
end;

procedure spiega;
begin
textcolor(c3);
writeln('problema:inserire gene umano in un batterio');
writeln('per indurlo a moltiplicare il gene stesso');
writeln('allo scopo di averne varie copie disponibili per lo studio');
writeln('oppure per sintetizzare la molecola codificata:es.insulina');
writeln('sfruttando la tecnica del DNA ricombinante');
writeln('premi INVIO');readln;
textcolor(c2);
writeln('elementi necessari per la operazione:');
writeln('1..DNA con gene della insulina');
writeln('2..Batteri nei quali inserire il gene da moltiplicare');
writeln('3..Vettore per trasferire Gene in Batterio:plasmide o fago');
writeln('4..Enzima di restrizione per segmentare DNA e aprire Plasmide');
writeln('5..Enzima DNA-ligasi per collegare DNA a plasmide');
writeln('6..Antibiotici per selezionare batteri ricombinanti da altri');
writeln('7..Tecniche per riconoscere gene integrato in ogni batterio');
writeln('8..Colture per moltiplicare batteri ricombinanti con gene insulina');
writeln('-----------------------------------------------------------------');
writeln('premi INVIO');readln;clrscr;
writeln('Nota su Plasmide batterico:');
writeln('molecola breve di DNA chiusa ad anello,che si moltiplica');
writeln('autonomamemte e si trasmette ai batteri generati');
writeln('spesso codifica per resistenza a uno o pi— antibiotici');
textcolor(c3);
writeln('Nota su Enzimi di restrizione presenti nei batteri');
writeln('ogni enzima di restrizione riconosce una specifica sequenza');
writeln('di nucleotidi presenti in ogni tipo di DNA');
writeln('e separa in due parti il DNA nel punto relativo alla sequenza');
writeln('In questo modo pu• frammentare un segmento lungo di DNA');
writeln('in segmenti pi— brevi,o aprire anello di plasmide');
writeln('FASI necessarie per raggiungere il risultato');
writeln('premi INVIO');readln;clrscr;
textcolor(c15);
writeln('1..isolare cromosoma con gene da duplicare');
writeln('2..segmentare DNA usando enzima di restrizione E1');
writeln('3..isolare plasmidi da colonie batteriche :plasmidi che');
writeln(' ..presentano resistenza per AMPICILLINA e TETRACICLINA');
writeln('4..aprire anello plasmidiale con stesso enzima di restrizione E1');
writeln(' ..viene aperto in corrispondenza del gene per TETRACICLINA');
writeln('5..mescolare frammenti di DNA e plasmidi in presenza di Ligasi');
WRITELN('premi INVIO');readln;textcolor(c7);
writeln('6..inserire i plasmidi in coltura batterica');
writeln('7..necessario selezionare dalla colonia batteri');
writeln(' ..senza plasmidi,con plasmidi puri,plasmidi ricombinanti');
writeln('8..si tratta la colonia con antibiotico AMPICILLINA');
writeln(' ..batteri senza plasmidi:muoiono');
writeln(' ..batteri con plasmidi rimangono vivi');
writeln('9..necessario separare batteri con plasmidi ricombinanti');
writeln(' ..da batteri con plasmidi puri');
writeln('premi INVIO');readln;clrscr;
writeln('10.si separano singoli batteri e si coltivano separatamente');
writeln(' .in colture numerate,in doppia copia per ogni colonia');
writeln(' .copia1 per controllo e copia2 per riconoscimento');
writeln('11.si tratta ogni colonia copia2 con TATRACICLINA');
writeln('12.colonie con plasmidi puri sono resistenti alla TETRACICLINA');
writeln(' .colonie con plasmidi ricombinanti hanno perduto la resistenza');
writeln(' .perchŠ il GENE si Š inserito interrompendo il sito tetraciclina');
writeln('13.si possono cosi riconoscere le colonie portatrici di plasmidi');
writeln(' .ricombinanti e usare le corrispondenti colonie copia1');
writeln('14.Problema:con varie tecniche si procede al riconoscimento');
writeln(' .del gene o dei geni integrati nei diversi plasmidi delle');
writeln(' .colonie batteriche ricombinanti');
writeln('------------------------------------------------------------');
textcolor(c3);
writeln('15.operando con il genoma completo di una specie');
writeln(' .si ottiene un insieme di colture batteriche portatrici');
writeln(' .di singoli geni o gruppi di geni:GENOTECA');
writeln('premi INVIO');readln;
end;

begin
clrscr;
c2:=2;c3:=3;c4:=6;c5:=5;c6:=6;c7:=7;c15:=15;
textcolor(c3);
writeln('esempio di DNA ricombinante ');
writeln('cioŠ DNA formato da elementi o geni');
writeln('provenienti da individui anche appartenenti a specie diverse');
writeln('es.geni umani inseriti in DNA batterico');
writeln('premi INVIO');readln;
writeln('Si deve trovare il modo di inserire geni umani in DNA batterico');
writeln('per ottenere una popolazione di batteri (CLONE) tutti dotati');
writeln('del gene umano che si desidera rendere funzionale sfruttando');
writeln('il metabolismo batterico:');
writeln('es.far produrre ai batteri proteine,ormoni,anticorpi umani');
writeln('premi INVIO');readln;clrscr;spiega;clrscr;
grafica;
scelta;closegraph;
end.