enzima di restrizione
programmi scritti
con turbo pascal v.5-7 e compilati come file.exe
non essendo accettati i file.exe in rete (per pericolo virus)
attivo il file.exe
e riprendo con digitale:copio incollo alcune videate e creo
videoclip che
registro e poi richiamo con youtube
fornisco listato
pascal per eventuale copia-incolla se pascal installato sul PC
e anche per descrizione che facilita la comprensione del filmato
videoclip http://www.youtube.com/watch?v=L4GvWldga78
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:=('c:\scheda\'); 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.