restrizione

ritorna restri.html

program restri;
(* enzima di restrizione *)
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:=('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 testox(x,y:integer;st:string);
begin
settextstyle(3,0,3);
outtextxy(x,y,st);
end;

procedure pro1;
var p1,q1,pr1,qr1,pr2,qr2,g1,h1,gr1,hr1,e1,e2:string;
begin
p1:='XXXYYYAATTXXXYYYXXXYYY';
q1:='YYYXXXTTAAYYYXXXYYYXXX';
pr1:='XXXYYYAATT';
QR1:='YYYXXX';
PR2:='XXXYYYXXXYYY';
qr2:='TTAAYYYXXXYYYXXX';
G1:='yyyAATTxxxyyyyyyAATTxxx';
H1:='xxxTTAAyyyxxxxxxTTAAyyy';
gr1:='xxxyyyyyyAATT';
hr1:='TTAAyyyxxxxxx';
testox(20,50,p1);
testox(20,70,q1);
testo(30,310,'DNA plasmidiale integro');pausa1;
setcolor(c2);
line(160,40,160,60);
line(110,80,110,100);
testox(20,100,pr1);
testox(20,120,qr1);
testox(355,100,pr2);
testox(300,120,qr2);
testo(30,330,'apertura anello plasmidiale con enzima restrizione');
pausa1;
setcolor(c3);
testox(20,150,g1);
testo(20,170,h1);
testo(30,350,'DNA estraneo integro');
pausa1;
setcolor(c6);
line(110,140,110,160);line(60,180,60,200);
line(275,140,275,160);line(220,200,220,180);
testox(110,200,gr1);
testox(60,220,hr1);
testo(30,370,'DNA frammentato con enzima restrizione');
pausa1;
setcolor(c2);testox(20,250,pr1);
setcolor(c6);testox(160,250,gr1);
setcolor(c2);testox(320,250,pr2);
setcolor(c2);testox(20,270,qr1);
setcolor(c6);testox(105,270,hr1);
setcolor(c2);testox(270,270,qr2);
setcolor(c6);
testo(30,390,'DNA integrato in DNA plasmidiale');
pausa1;
end;

procedure perde;
begin
cleardevice;
settextstyle(0,0,1);
testo(30,340,'plasmide con geni per resistenza a due antibiotici');
testo(30,350,'Tetraciclina T, Ampicilina A');
setfillstyle(2,c2);bar(50,50,250,70);
setfillstyle(3,c3);bar(50,50,30,150);
setfillstyle(4,c2);bar(50,130,250,150);
setfillstyle(5,c6);bar(250,150,270,50);
testo(220,160,'Ampicillina');
testo(220,20,'Tetraciclina');pausa1;
testo(30,360,'enzima di restrizione interrompe gene per Tetraciclina');
setfillstyle(1,0);bar(100,50,150,70);
pausa1;
testo(30,370,'inserimento DNA estraneo e chiusura anello plasmide');
setfillstyle(1,c15);bar(100,50,150,70);pausa1;
testo(30,380,'plasmide inglobato in batterio');
rectangle(20,30,350,200);pausa1;
setcolor(c2);
testo(30,250,'applicazione di Ampicillina:batterio rimane vivo');
circle(100,180,10);
pausa1;setcolor(c3);circle(150,180,10);
testo(30,260,'applicazione di Tetraciclina:batterio muore perchŠ');
testo(30,270,'plamide senza gene per resistenza a Tetraciclina');
pausa1;setfillstyle(1,0);bar(20,10,350,200);
pausa1;cleardevice;
end;

procedure antigene;
var x,y,r,a,b:integer;
s:string;
begin
testo(30,300,'un gene di DNA inserito in batterio se attivato produce');
testo(30,310,'m-RNA complementare al DNA del gene e proteina codificata');
rectangle(50,50,500,280);testo(40,30,'batterio ricombinante');
setcolor(c2);rectangle(100,70,200,150); testo(110,80,'plasmide ricombinante');
setfillstyle(1,c7);bar(130,140,170,150);testo(110,130,'DNA gene estraneo');
setfillstyle(3,c3);bar(300,80,380,90);testo(300,70,'cromosoma batterico');
pausa1;setcolor(c6);
testo(130,170,'***** m-RNA ');
testo(250,170,'proteina codificata ');
rectangle(300,190,350,220);setfillstyle(2,c2);bar(320,200,350,210);
pausa1;setcolor(c3);
testo(30,320,'possibile riconoscere presenza di m-RNA o proteina');
testo(30,330,'e quindi sapere se coltura batterica possiede il gene');
testo(30,340,'che era stato inserito :');
setcolor(c2);
testo(30,360,'applicando la tecnica della ibridazione del DNA');
testo(30,370,'o usando anticorpi specifici per proteine specifiche');
pausa1;
rectangle(360,200,320,210);rectangle(360,180,380,230);
testo(230,250,'anticorpo specifico,radioattivo');
pausa1;
testo(30,380,'si procede alla rivelazione del complesso radioattivo');
testo(30,390,'applicando tecniche adeguate');
pausa1;cleardevice;

circle(300,80,30);testo(100,30,'coltura batteri ricombinanti per geni A,B,C');
x:=50;y:=170;r:=20;
for a:=1 to 6 do
begin
str(a,s);
circle(x,y,r);testo(x,y,s);
x:=x+2*r+50;
end;
testo(100,140,'colture derivate da singoli batteri della coltura mista');
pausa1;

x:=20;y:=250;r:=10;
for a:=1 to 18 do
begin
str(a,s);
circle(x,y,r);
if (a=1) or (a=2) or (a=3) then testo(x,y,'1');
if (a=4) or (a=5) or (a=6) then testo(x,y,'2');
if (a=7) or (a=8) or (a=9) then testo(x,y,'3');
if (a=10) or (a=11) or (a=12) then testo(x,y,'4');
if (a=13) or (a=14) or (a=15) then testo(x,y,'5');
if (a=16) or (a=17) or (a=18) then testo(x,y,'6');
x:=x+2*r+10;end;
line(50,170,20,250);line(50,170,50,250);line(50,170,80,250);
testo(100,210,'colture derivate da singoli batteri delle colture singole');
pausa1;setcolor(c2);
testo(30,350,'applicazione di anticorpi a,b,c specifici per proteine');
testo(30,360,'Pa,Pb,Pc sintetizzate dai geni A,B,C');pausa1;
x:=20;y:=270;r:=10;
setcolor(c2);
for a:=1 to 18 do
begin
if (a=1) then testo(x,y,'Pa');
if (a=5) or (a=6) then testo(x,y,'Pb');
if (a=7) then testo(x,y,'Pa');
if (a=10) or (a=11) then testo(x,y,'Pc');
if (a=14) or (a=15) then testo(x,y,'Pb');
if (a=16) or (a=18) then testo(x,y,'Pa');
x:=x+2*r+10;
end;
setcolor(c3);testo(30,380,'se anticorpo incontra proteina specifica');
testo(30,390,'si forma complesso proteina+anticorpo riconoscibile');
testo(30,410,'si riconosce quindi il tipo di gene presente nelle colture');
testo(30,420,'si isola la coltura che interessa e fa proliferare');pausa1;
setcolor(c2);
testo(30,430,'es.proliferazione per ottenere proteina Pa da colonia 1');
x:=20;y:=300;r:=10;
for a:=1 to 10 do
begin
circle(x,y,r);testo(x,y,'Pa');
x:=x+2*r+10;
end;
testo(30,340,'estrazione proteine sintetizzate Pa');
pausa1;cleardevice;
end;

procedure sintesi;
begin
testo(30,350,'per ottenere grandi quantit… di molecole proteiche');
testo(30,360,'da utilizzare per varie finalit…,si possono programmare');
testo(30,370,'colture batteriche nelle quali sia stato inserito il DNA');
testo(30,380,'codificante per la proteina da sintetizzare');pausa1;
setcolor(c3);
testo(30,400,'per inserire il gene nel batterio,si ricorre alla tecnica');
testo(30,410,'del DNA ricombinante ');
testo(30,420,'Problema:disporre del DNA da inserire');pausa1;cleardevice;
testo(30,100,'varie soluzioni possibili:');
testo(30,120,'1.se non si dispone del gene singolo,si ricorre alla tecnica');
testo(30,130,'..descritta in precedenza:processo lungo e complesso');
setcolor(c3);
testo(30,160,'DNA----------->frammentazione con Enzima restrizione');
testo(30,170,'Plasmide------>apertura con Enzima restrizione');
testo(30,200,'frammenti DNA+Plasmidi+Ligasi----->ricombinazione');
testo(30,220,'inserimento plasmidi in coltura batterica pura');
testo(30,240,'eliminazione con antibiotici di batteri privi di plasmidi');
testo(30,260,'isolamento in colture separate di singoli batteri');
testo(30,280,'riconoscimento con antibiotici dei batteri ricombinanti');
testo(30,300,'ricerca su colture di controllo corrispondenti per trovare');
testo(30,320,'la coltura che possiede il gene da utilizzare');
testo(30,340,'coltivazione su larga scala della coltura batterica');
testo(30,360,'estrazione delle proteine prodotte ');
pausa1;cleardevice;
setcolor(c2);
testo(30,50,'2.se si dispone del m-RNA codificato dal DNA');
testo(30,60,'..si pu• sintetizzare la molecola di DNA codificante');
testo(30,70,'..sfruttando la Transcriptasi inversa per ottenere il gene');
testo(30,150,'m-RNA + Transcriptasi inversa -----> gene DNA');
testo(30,170,'Plasmide------>apertura con Enzima restrizione');
setcolor(c3);
testo(30,200,'gene DNA + Plasmidi + Ligasi----->ricombinazione');
testo(30,220,'inserimento plasmidi in coltura batterica pura');
testo(30,240,'eliminazione con antibiotici di batteri privi di plasmidi');
testo(30,260,'isolamento in colture separate di singoli batteri');
testo(30,280,'riconoscimento con antibiotici dei batteri ricombinanti');
testo(30,300,'coltivazione su larga scala della coltura batterica');
testo(30,320,'ricombinante ed estrazione delle proteine prodotte ');
pausa1;cleardevice;
setcolor(c15);
testo(30,50,'3.se si conosce la struttura della proteina(nei casi semplici');
testo(30,60,'..si pu• sintetizzare il m-RNA codificante e con la');
testo(30,70,'..Transcriptasi inversa ottenere il DNA del gene');
testo(30,100,'proteina ------> sintesi m-RNA ');
testo(30,150,'m-RNA + Transcriptasi inversa -----> gene DNA');
setcolor(c3);
testo(30,200,'gene DNA + Plasmidi + Ligasi----->ricombinazione');
testo(30,220,'inserimento plasmidi in coltura batterica pura');
testo(30,240,'eliminazione con antibiotici di batteri privi di plasmidi');
testo(30,260,'isolamento in colture separate di singoli batteri');
testo(30,280,'riconoscimento con antibiotici dei batteri ricombinanti');
testo(30,300,'coltivazione su larga scala della coltura batterica');
testo(30,320,'ricombinante ed estrazione delle proteine prodotte ');
pausa1;cleardevice;
end;


procedure scelta;
var sce:integer;
begin
cleardevice;pro1;perde; antigene; sintesi;
setcolor(c15);settextstyle(0,0,1);
pausa1;
end;

procedure spiega;
begin
textcolor(c3);
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(c2);
writeln;
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:es.AATT ..TTAA');
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);
end;

begin
clrscr;
c2:=2;c3:=3;c4:=6;c5:=5;c6:=6;c7:=7;c15:=15;
spiega;grafica;scelta;closegraph;
end.