ZXTape!8D-021 { h ?XX: D\: D\: D\: D\: D\:yD\DXX?zzzzzzzzzxxxxxxzzzzzzzzz\!l@$  !lX> =  >JbRJFB>BB<@P`@~0 BbRJFBxDDDD8DDD8>HN@J@H~>>@ 0@B|@~HBXHB@F@DB@ B@@BDB1@ 0<~B~BB @s=B<@~BB<@t@ L<BB>B~|<~B<|<~Bx~><@|><@<<>>||<<<xx
DB|<|DB@B>~|~B<<>DBbB@B@D@BBB@BB@HBDDBPBB@BBBBBBBBbBDDDBHDHHBb@B@BBBBbDBbbBBBHBB@HBPBDf@BBBBHBRB|B<(|BBB<BBBB|HBBHD B@BBB@|BBB@HBFZ@DB@ZBDB BZBDZD BBB@BB@DBBBZFBDDBDDDBFBB@BBBBD BBFDBFFBBDDBZBDD ZBD B@D ZBBBD$~B<~$BB<~B$$x~>B~|><~<<>>@BB<<$B>BxxBBB>BB|< $~B>~B~$<<<>B~B<<<~BB@<B<|<~~||<<~~|<<~~D<<@@~BBB@||BN|~BT< @ZBBBB BFBDB @xD"DD~<($BB<~B$>~@B<<~~@<<~~BB<~Bx<<~@B<80P)+2*2*((Y$(2))>80P)+2*((Y$(3))>80P)+1*((Y$(4))>80P)+1 Y(A)=1*(A<140)+1*(A>140A<170DOM=1)+3*(A>140A<170DOM=)+2*(A>180) _"KOLOR","A","KSZTAT","B","TY","a","GADKI","b","ZIELONY","1","CHROPAWY","1","","0","","0" 8" 32"," 3","240"," 3"," 16"," 1"," 16"," 1"," 16"," 1" "23561","100" :"7": BNPR=1:PI=:PAF=1:PIM=:PUM=1:POZ=4:G(4):A$(4,30):B$(2,4,10 ):C$(2,4):E$(2,2,2):F$(2,2,10 ):G$(2,3,2):H$(16,4):K$(2,3):I$(5,2,3) >C=14:B=12:B$(B,C):C$(B,C):B:C (G$(1,1)="AA":G$(1,2)="Aa":G$(1,3)="aa":G$(2,1)="BB":G$(2,2)="Bb":G$(2,3)="bb" 2H$(1)="AABB":H$(2)="AABb":H$(4)="AAbb":H$(5)="AaBB":H$(6)="AaBb":H$(8)="Aabb":H$(13 )="aaBB":H$(14)="aaBb":H$(16)="aabb" <K$(1)="NIE":K$(2)="TAK":A=15:I$(A,1):I$(A,2):A:W$=A$(1)+" ":Z$="10000011011100001" ,"5010":"8000" 13"7",;ڰ"5";ٰ"7";"";W$(30);" "; 6IN="5":B=15 ; "9900":B @6;W$(30);5;7;" ";W$(30);"":POZ=112 ,11 ;"DZIKUJ!";21,;1;W$: E512 ,5;"WYBIERZ ZESTAW DANYCH!":"8090" J:ANCPOZ=:12 ,5;6;W$(22) OWYBOR=1"500" T=B$(1,2)="CZERWONY":B$(1,3)="BIAY" YWYBOR>2C$(1,3)="0":B$(1,4)="ROWY":B$(2,3)="PROMIE.":B$(2,2)="WARGOWY":I$(2,1)=("240"(WYBOR=3))+("128"(WYBOR=4)):360h ^I$(2,1)="240":I$(3,1)="352":Z$(13 )="1":B$(2,2)="":B$(2,1)="":B$(2,3)="":B$(2,4)="" h!WYBOR3Z$(17)="0" POZ="1":"5020" PUM="1":"8000" PAF"8500" PAF=:"8090" -WYBOR=4PIM=1:"8000":"305" WYBOR*1000 POZ="1":"500"  "5030" PUM="1":"8000" POZ="2""8500" POZ="2":"8090" WYBOR="4" ;PIM=1:"8000":1000+250*WYBOR:"1010" f"7",;4;ٰ"7";" ";;A$(1,26);ٰ"7";" ";:IN=4:"9900" w6;" FENOTYPY: tabela - ";1;7;K$(Z$(1)+1);;6;" ";4;" "; S6;" histogram - ";K$(Z$(2)+1);" ";4;" ";  S6;" GENOTYPY: lista - ";K$(Z$(3)+1);" ";4;" "; S6;" tabela - ";K$(Z$(4)+1);" ";4;" "; S6;" histogram - ";K$(Z$(5)+1);" ";4;" "; (:6;" ZAKOCZENIE - NIE ";4;" "; 26;W$(30);4;" ";6;W$(30);4;" ";6;W$(30);4;" ";7;"";W$(30);"" FROW=1:"9102" P  Z ANCROW=ROW dH=(13 )ROW6Z$(ROW)=("1"Z$(ROW)="0")+("0"Z$(ROW)="1") n=(13 )ROW=6 x:(13 )ROW=ROW+1:ROW>6ROW=1 qANCROW+9 ,26;6;("TAK"Z$(ANCROW)="1"ANCROW6)+("NIE"(Z$(ANCROW)="0"ANCROW=6)) aROW+9 ,26;("TAK"Z$(ROW)="1"ROW6)+("NIE"(Z$(ROW)="0"ROW=6))  "1360" s"7",;4;7;" ";;A$(2,22);7;" ";:IN=4:9900& $ڰ"6";W$(30);4;" "; u" PRZEZ OKRELENIE FENOTYPU   PRZEZ OKRELENIE   WSZYSTKICH ALLELI  "; 5"9900":"9900":ڰ"6";W$(30);4;" "; )4;7;"";W$(30);"" "!ROW=11 +(Z$(10 )="0") ,ROW,3;"*" 6,11 +(ROW=11 ),3;"-" J  TE=(13 )Z$(10 )=("1"ROW=11 )+("0"ROW=12 ): ^ ANCROW=ROW h6 ROW=11 *(ROW=12 )+12 *(ROW=11 ) rROW,3;"*" |ANCROW,"3";ڰ"6";"-"  "1610" ֣"7",;ڰ"4";ٰ"7";" ";;A$(3,15);ٰ"7";" ";6;W$(30);4;" ";6;W$(30);4;" "; ڰ"6";" OBLICZANIE CZSTOCI ";ڰ"4";" ";ڰ"6";" TEORETYCZNYCH: - ";ݰ"1";ڰ"7";K$(Z$(6)+1);;ڰ"6";" ";ڰ"4";" "; Yڰ"6";" PRZERWY W PROGRAMIE: - ";K$(Z$(7)+1);6;" ";4;" "; Yڰ"6";" ANALIZA SERII PRB: - ";K$(Z$(8)+1);6;" ";4;" "; Yڰ"6";" WYDRUK REZULTATW: - ";K$(Z$(9 )+1);6;" ";4;" "; :6;" ZAKOCZENIE: - NIE ";4;" "; &6;W$(30);4;" ";6;W$(30);4;" ";6;W$(30);4;" ";7;"";W$(30);"" :ROW=6:9102# D  N ANCROW=ROW XI=(13 )ROW10 Z$(ROW)=("1"Z$(ROW)="0")+("0"Z$(ROW)="1") b=(13 )ROW=10 l;(13 )ROW=ROW+1:ROW>10 ROW=6 sANCROW+5,26;6;("TAK"Z$(ANCROW)="1"ANCROW10 )+("NIE"(Z$(ANCROW)="0"ANCROW=10 )) dROW+5,26;1;("TAK"Z$(ROW)="1"ROW10 )+("NIE"(Z$(ROW)="0"ROW=10 ))  "1860" PAF="1":POZ="3" ."5040":PUM=1:"8000":PAF"8545"  PAF=:"8090" WYBOR="4" ;PIM="1":"8000":2000+250*WYBOR:2010 CECH=(Z$(17))+1 Ԅ"7",;4;7;" ";;A$(1,11 );7;" ";:IN=4:"9900":"9900" r6;W$(13 );1;7;" ";CECH;" ";6;0;W$(14);4;" ";:9900& M"9900":"9900":19,;4;7;"";W$(30);""   D=(13 )CECHɰZ$(17)+1E$(1,1)=" " E=(13 )Z$(17)=("0"CECH=1)+("1"CECH=2): 4CECH=1*(CECH=2)+2*(CECH=1) $"12 ,15;1;CECH . "2310" p7,;4;7;" ";;A$(2,28);7;" ";:IN=4:9900& W10 ,;4;" ";6;" pokolenie: osobnikw: prb: ";4;" " B=15 c4;" ";6;" F";B;" - ";6+(B=1);B=1;K$(Z$(10 +B)+1); I6;" ";I$(B,1);" ";I$(B,2);" ";4;" " B (B4;" ";6;" KONIEC NIE";W$(19);4;" "; 2I9900&:18,31;4;7;" ";W$(30);"" PcPOZ1=1:ROW=1:21,0;7;3;" 5,6,7,8-wybr 9,0-zmiana opcji" Z  d ANCROW=ROW i3(=(480)Ŧ=(579))ROW=6 nE=(480)Ŧ=(579)Z$(ROW+10 )=(ðZ$(ROW+10 )) J=(535)ROW6POZ1=POZ1-1:POZ1<1POZ1=3 J=(568)ROW6POZ1=POZ1+1:POZ1>3POZ1=1 POZ11"6600" :=(546)ROW=ROW+1:ROW>6ROW=1 :=(557)ROW=ROW-1:ROW<1ROW=6 >ROW+10 ,9 ;1;K$(Z$(ROW+10 )+1) PROWANCROWANCROW+10 ,9 ;6;K$(Z$(ANCROW+10 )+1) 2650Z CECH="1":"5050" :7,;4;7;"";W$(30);"" B4;" ";7;1;A$(1);0;4;" " 04;" ";6;A$(2);4;" " JLICZ=34;" ";6;A$(3);4;" ":2830 (" ";6;W$(30);" "  "6000" ANCCECH=CECH: ,=(13 )CECH=LICZ 6;=(13 )CECH+7,1;A$(CECH):6100 @(13 )CECH=2*(CECH=1)+3*(CECH=2LICZ=3)+1*(CECH=3CECH=2LICZ=2) T/ANCCECH+7,1;6;A$(ANCCECH) ^MCECH+7,1;1;A$(CECH):CECHLICZLICZ=36000p h "2840" REALIZACJA ZADANIA B=142 %B=1(NPR=1C$(1,4)="1"(E$(1,1)="aa"E$(2,1)="aa")C$(2,4)="1"(E$(1,2)="bb"E$(2,2)="bb")ŰZ$(17)E$(1,1)" "E$(1,2)=" "ðZ$(17)E$(1,2)" ")3080 "5060" ,;4;7;"";W$(30);" ";;7;1;A$(B);;4;" ";6;A$(B+1);4;" ";7;"";W$(30);"";7;W$;W$:"9000":ROW=:"9101"  =(13 )3075 ROW=(ROW=) )ROW+1,1;1;A$(B+ROW) =1+(ROW=),1;6;A$(B+(ROW=)) "3040" %B+ROW=2NPR=1:"3400" ðZ$(17)C$(1,3)="0"ŰZ$(17)C$(1,3)="0"C$(2,3)="0"ðZ$(10 )NPR=1:HET=0:3100 B  HET=ROW  "5070" !<,;5;7;"";W$(30);" "; &6;" PROJEKTOWANIE RODZICW ";5;" ";7;"";W$(30);"";7;W$;W$;W$;:9000(#:9101# 0C=12 :)6,4;4;W$(24) ?M7,4;4;" ";6;A$(C+2,22);4;" " D)8,4;4;W$(24) IðZ$(10 )3300 !B=1̰Z$(17)+1 L8+B*B,9 ;4;" ";6;B$(B,1);" ";4;" " L9 +B*B,9 ;4;" ";6;" ";B$(B,2);4;" " .10 +B*B,9 ;4;W$(14) CECH="2" .9 +B*B,12 ;1;B$(B,2)  /=(13 )F$(C,B)=B$(B,CECH):3260 `CECH=CECH+1:CECH>3C$(B,3)="1"CECH>4C$(B,3)="0"CECH=2 +9 +B*B,12 ;1;B$(B,CECH) "3230" 8CECH=3C$(B,4)="1"8300l :3230 E$(C,B)=((64@+B)CECH3)+((96`+B)CECH=3)+((64@+B)CECH=2(HETť>.5C$(B,3)="1"C$(B,3)="0")):E$(C,B,2)=" "E$(C,B,2)=(96`+B) "9 +B*B,12 ;B$(B,CECH) B "9000" C:"3400" #B=1̰(Z$(17))+1 9 ,4;4;" ";6;" GENOTYP: ";7;1;C$(B,1);C$(B,1);6;;" ";4;" " *10 ,4;4;W$(24) T11 ,5;4;" ";6;"FENOTYP: ";B$(B,2);" ";4;" " *12 ,5;4;W$(22) *14,5;5;W$(22) T15,5;5;" ";6;"CECHA: ";B$(B,1);" ";5;" " d16,5;5;" ";6;"allel ";C$(B,1);": ";B$(B,2);" ";5;" " d17,5;5;" ";6;"allel ";C$(B,2);": ";B$(B,3);" ";5;" " *18,5;5;W$(22) "9101":CECH=1   /=(13 )E$(C,B)=G$(B,CECH):3370* >=(557)CECH=CECH-1:CECH<1CECH=3 /CECH=CECH+1:CECH>3CECH=1 '9 ,20;1;G$(B,CECH) F$(C,B)=B$(B,2*(CECH=1CECH=2C$(B,3)="1")+3*(CECH=3)+4*(CECH=2C$(B,3)="0")) %11 ,15;6;F$(C,B) % "3330" *2CECH=3C$(B,4)="1""8300":"3330" /B 4 "3280" HREALIZACJA ZADANIA R[wyb=:FEN=1:RZ=6:KOL=:A(2,2):J(2,2) \B=12:C=1̰Z$(17)+1:D=12:A1=(E$(D,C,B)>"Z"):J(C,1+A1)=J(C,1+A1)+1:D:C:B a1Z=15:ðZ$(Z+10 )3498 cS,;2;7;"POKOLENIE: F --------- PRBA: T":9540D% fSUMA=:LICZ1=:MAX2=:MAX1=:PI=:D(4,3,11 ):B(16,11 ):,12 ;1;Z kX=10 :7000X:B=116:SUMA=SUMA+B(B,10 ):B:B=116:B(B,10 )=B(B,10 )*I$(Z,1)/SUMA:B:SUMA= pFENðZ$(17)SUMA=0:B=13:SUMA=SUMA+D(4,B,10 ):B:B=13:D(4,B,10 )=D(4,B,10 )*I$(Z,1)/SUMA:B uFENưZ$(17)B=13:C=13:SUMA=SUMA+D(B,C,10 ):C:B:B=13:C=13:D(B,C,10 )=D(B,C,10 )*I$(Z,1)/SUMA:C:B zuX=1̰I$(Z,2):,16;1;"0/000";,31;X:3700t+3500 *(Z=1) =X:,16;1;"-----";0,31;"1" "9650" "9700" (MAX1=25*(MAX1/25+1) (MAX2=20*(MAX2/20+1) B=116:X=1̰I$(Z,2):B(B,11 )=B(B,11 )+B(B,X):X:B(B,11 )=B(B,11 )/(X-1):B B=13:ðZ$(17)Y=1̰I$(Z,2):D(4,B,11 )=D(4,B,11 )+D(4,B,Y):Y:D(4,B,11 )=D(4,B,11 )/(Y-1):3469 C=13:Y=1̰I$(Z,2):D(C,B,11 )=D(C,B,11 )+D(C,B,Y):Y:D(C,B,11 )=D(C,B,11 )/(Y-1):C b:q$="4512":X=1̰I$(Z,2):,31;7;2;X:q=14:z$(q$(q))4000+100d*(q=2)+300,*(q=3)+500*(q=4):9800H& q:x Z$(8)7500L Z:PAF=1 NPR=: tGA(2,2):,16;1;"1":B=18 ~ "8900" RA11=(E$(1,1,1))*(RAN1)+(E$(1,1,2))*(RAN1) RA21=(E$(2,1,1))*(RAN2)+(E$(2,1,2))*(RAN2) 7A11+A21>170C$(1,4)="1"3775 TA11=1+(A11>80P):A21=1+(A21>80P):ðZ$(17)3770  "8900" RA12=(E$(1,2,1))*(RAN1)+(E$(1,2,2))*(RAN1) RA22=(E$(2,2,1))*(RAN2)+(E$(2,2,2))*(RAN2) 7A12+A22>170C$(2,4)="1"3775 8A12=1+(A12>80P):A22=1+(A22>80P) NA(2,A12)=A(2,A12)+1:A(2,A22)=A(2,A22)+1 NA(1,A11)=A(1,A11)+1:A(1,A21)=A(1,A21)+1 B 3B=2Z-1:,16;1;B `A1=A(1,1)+A(1,2):A11=A(1,1)/A1:A21=A(2,1)/A1 A(2,2) C=164@ RAN1=:RAN2= RAN3=:RAN4= oRAN1>A11RAN2>A11C$(1,4)="1"ŰZ$(17)RAN3>A21RAN4>A21C$(2,4)="1"3840 EA(1,1+(RAN1>A11))=A(1,1+(RAN1>A11))+1 aA(1,1+(RAN2>A11))=A(1,1+(RAN2>A11))+1:ðZ$(17)3840 EA(2,1+(RAN3>A21))=A(2,1+(RAN3>A21))+1 EA(2,1+(RAN4>A21))=A(2,1+(RAN4>A21))+1 C B `A1=A(1,1)+A(1,2):A11=A(1,1)/A1:A21=A(2,1)/A1  gB=1̰I$(Z,1):1;,16;Z;,18+(B<100d)+(B<10 );B RAN1=:RAN2= RAN3=:RAN4= @P$=("A"RAN1A11)+("A"RAN2A11)+("a"RAN1>A11)+("a"RAN2>A11) (ðZ$(17)P$=P$+" ":3880( #CP$=P$+("B"RAN3A21)+("B"RAN4A21)+("b"RAN3>A21)+("b"RAN4>A21) (Z$(3)9200# -2B(Z(P$),X)=B(Z(P$),X)+1:FEN8700! 2B 7  "9600" F6,6-4*A1;""+(""A1) r7,6-4*A1;"GENOTYP:";("PRBA "+(X)X11 )+("REDNIA"X=11 );":"+(" TEORIA:"A1) F8,6-4*A1;""+(""A1) B=116 8B(B,1)=B(B,10 )=4065 <6-4*A1;" ";H$(B,2+2*Z$(17));(" "ðZ$(17));" ";(" "X11 );(" "B(B,X)<100d);(" "B(B,X)<10 );B(B,X);:B1=B(B,X)-(B(B,X)):Y$=B1+" ":(" "X=11 B1=);(" "B1=0)+(Y$(1+(B1.1}L)5+(B1.1}L))+""B1); A122+(B(B,10 )<100d)+(B(B,10 )<10 );B(B,10 );:B1=B(B,10 )-(B(B,10 )):Y$=B1+" ":(" "B1=)+(Y$(1+(B1.1}L)4+(B1.1}L))+""B1) B >6-4*A1;""+(""A1) START="4010":  "9600" KB1=200/MAX1:40(,9 :,148:210, B=80P24040(:B-32 ,156:B-24,156:B-16,156:B-8,156:B,158:B,156:B:248,159:2,-2:-2,-2 "MB=05:1,5+5*B-(B);B*MAX1/5:B 'B=116 ,CB(B,X)=B(B,10 )=PAS=PAS+1:4172L 1^PIPIX=12+2*(B-PAS),0;H$(B,2+2*(Z$(17)="1")) 6DPOCZ=152-16*(B-PAS):C1=B(B,X)*B1:C2=B(B,10 )*B1 ;HET=:"4650" LB NSTART="4120":  "9600" F6,4*(A1);""+(""A1) 7,4*(A1);"";B$(1,1,8);" ";(" "Z$(17)="0");(B$(2,1,8)ưZ$(17));"";(" R. "X=11 );("PRBA"X11 );""+("TEORIA"A1) E8,4*(A1);""+(""A1) Z$(17)="1"4410:  B=1 ?D(4,B,X)=D(4,B,10 )="4390" 4*(A1);"";B$(1,B+1);" ";:X11 " ";(" "D(4,B,X)<100d)+(" "D(4,B,X)<10 );D(4,B,X);" ";  X=11 (" "D(4,B,11 )<100d);(" "D(4,B,11 )<10 );D(4,B,11 );:B1=D(4,B,11 )-(D(4,B,11 )):Y$=B1+" ":(" "B1=)+(Y$(1+(B1.1}L)2+(B1.1}L))B1);""; !A125+(D(4,B,10 )<100d)+(D(4,B,10 )<10 );D(4,B,10 );:B1=D(4,B,10 )-(D(4,B,10 )):Y$=B1+" ":(" "B1=)+(Y$(1+(B1.1}L)3+(B1.1}L))+""B1) &BB2B=3*(B=1)+2*(B=3):4375 0 4465q : C=1 D B=1 I3D(C,B,X)=D(C,B,10 )="4445" N4*(A1);"";B$(1,C+1,8);" ";B$(2,B+1,8);"";:X11 " ";(" "D(C,B,X)<100d)+(" "D(C,B,X)<10 );D(C,B,X);" "; SX=11 (" "D(C,B,11 )<100d);(" "D(C,B,11 )<10 );D(C,B,11 );:B1=D(C,B,11 )-(D(C,B,11 )):Y$=B1+" ":(" "B1=)+(Y$(1+(B1.1}L)2+(B1.1}L))B1);""; XA125+(D(C,B,10 )<100d)+(D(C,B,10 )<10 );D(C,B,10 );:B1=D(C,B,10 )-(D(C,B,10 )):Y$=B1+" ":(" "B1=)+(Y$(1+(B1.1}L)3+(B1.1}L))+""B1) ]BB2B=3*(B=1)+2*(B=3):4425I bMC2C=3*(C=1)+2*(C=3):B=1:4425I q=4*(A1);""+(""A1) START="4310":  "9600"  HET=1 EB1=160/MAX2:85U,9 :"0",148:165,"0" B=117u24532 :B-24,158:B-16,158:B-8,158:B,159:B,158:B,156:B:249,159:2,-2:-2,-2 SB=5:1,9 +4*B+(B*MAX2<502);B*MAX2/5:B 2,  B=1 NðZ$(17)D(4,B,X)=D(4,B,10 )="4600" POCZ=136-16*PAS ߅ðZ$(17)PAS=PAS+1:'B$(1,B+1)':C1=D(4,B,X)*B1:C2=D(4,B,10 )*B1:4650*:4600  F=1 3D(F,B,X)=D(F,B,10 )="4595" POCZ=136-16*PAS LB$(1,F+1)'" ";B$(2,B+1,8):PAS=PAS+1 5C1=D(F,B,X)*B1:C2=D(F,B,10 )*B1:4650* BF2F=3*(F=1)+2*(F=3):4585 BB2B=3*(B=1)+2*(B=3):4570 START="4510": *lA1C=POCZPOCZ+10 :40(+45-*HET+C1,C:-C1*(C=POCZC=POCZ+10 ),0:C:46637 /eZ$(6)="1"Z$(6)="0"A1C=POCZPOCZ+5:40(+45-*HET+C2,C:-C2,0:C 4kC=POCZ+5POCZ+10 :40(+45-*HET+C1,C:-C1*(C=POCZ+5C=POCZ+10 ),:C 7X : GRNE MENU A$(1)="NASIONA GROCHU (2 CECHY)":A$(2)="KWIATY GROCHU (1 CECHA)":A$(3)="KWIATY LWIEJ PASZCZY (2 CECHY)":A$(4)="KWIATY LWIEJ PASZCZY (1 CECHA)": A$(1)="TECHNICZNE PARAMETRY SYMULACJI":A$(2)="BIOLOGICZNE PARAMETRY ZADANIA":A$(3)="REALIZACJA ZADANIA":A$(4)="ZAKOCZENIE PRACY": A$(1)="METODA PREZENTACJI WYNIKW":A$(2)="PROJEKTOWANIE RODZICW":A$(3)="OPCJE DODATKOWE":A$(4)="POWRT DO GWNEGO MENU": A$(2)="WYBR POKOLE DO PREZENTACJI":A$(1)="LICZBA CECH":A$(3)="PARAMETRY CECH":A$(4)="POWRT DO GWNEGO MENU": W A$(1)="ZMIANA PARAMETRW CECHY NR 1":ðZ$(17)LICZ=2:5052 5LICZ=3:A$(2)=A$(1,27)+"2" %A$(LICZ)=" POWRT DO MENU": ĨA$(1)=" NOWA PARA RODZICW":A$(2)="RODZICE Z POPRZEDNIEGO ZADANIA":A$(3)=" LINIA CZYSTA":A$(4)=A$(3,15)+"DZIKA": >A$(3)=" OJCIEC":A$(4)=" MATKA:": pI11 ,;4;W$;" ";6;"NAZWA:";W$(14);B$(CECH,1);4;" ";6;" stan dominujcy: ";B$(CECH,2);4;" ";6;" stan recesywny: ";B$(CECH,3);4;" ";6;"DOMINACJA:";W$(10 );("pena "ưC$(CECH,3))+("niepena"ðC$(CECH,3));" "; z4;" ";6;" stan poredni: ";(B$(CECH,4)C$(CECH,3)="0")+("brak "ưC$(CECH,3));4;" ";6;"LETALNO HOMOZYGOTY ";("aa"CECH=1)+("bb"CECH=2);": ";K$(C$(CECH,4)+1);4;" "; [6;"ZAKOCZENIE:";W$(15);"NIE";4;" ";7;"";W$(30);"": H9102#:ROW=11 :12 ,21;1;B$(CECH,1)   YANCROW=ROW:=(13 )ROW=1718,28;6;"NIE":9101#: =(13 )6170 <(13 )ROW=ROW+1:ROW>17ROW=11 61953+ANCROW*5  61:6145+ROW*5::6115 ;ROW14ROW<16PAS=(ROW=15):6300 ROW=1415,21;1;("pena "C$(CECH,3)="0")+("niepena"ưC$(CECH,3));" ":C$(CECH,3)=(ðC$(CECH,3)):16,21;6;("brak "ưC$(CECH,3))+(B$(CECH,4)ðC$(CECH,3)) )qROW=16C$(CECH,4)=(ðC$(CECH,4)):17,28;1;K$(C$(CECH,4)+1) . "6115" B/ROW+1,21;B$(CECH,ROW-10 ): G]ROW+1,21;("pena "ưC$(CECH,3))+("niepena"ðC$(CECH,3));" ": LVC$(CECH,3)="1"ROW=14+2*(ANCROW=14):6145+ROW*5 M'16,21;B$(CECH,4): Q417,28;K$(C$(CECH,4)+1): V18,28;"NIE": t>ANCROW+1,21;6;B$(CECH,ANCROW-10 ): ynANCROW+1,21;6;("pena "C$(CECH,3)="1")+("niepena"C$(CECH,3)="0");" ": ~016,21;6;B$(CECH,4): =17,28;6;K$(C$(CECH,4)+1): %18,28;6;"NIE": H21,0;3;7;" Wprowad now tre parametru! " A1=ROW-PAS-10 7ROW+1,21;4;1;W$(12 )  B$(CECH,A1) ,ROW+1,21;1;B$(CECH,A1)  LICZ=I$(ROW,POZ1-1) >ROW+10 ,9 ;6;K$(Z$(ROW+10 )+1) MROW+10 ,17+9 *(POZ1=3);1;I$(ROW,POZ1-1)    ANCROW=ROW POZ1=2LICZ=LICZ+16*(LICZ<960Ʀ=(480))-16*(LICZ>0Ʀ=(579))-944*(LICZ=960Ʀ=(480))+960*(LICZ=16Ʀ=(579)) POZ1=3LICZ=LICZ+(=(480)LICZ<9 )-(=(579)LICZ>1)+8*(=(579)LICZ=1)-8*(=(480)LICZ=9 ) 3I$(ROW,POZ1-1)=(" "LICZ<100d)+(LICZ) =(535)ROW+10 ,17+9 *(POZ1=3);6;I$(ROW,POZ1-1):POZ1=(POZ1-1)*(POZ1>1)+3*(POZ1=1) F=(546)ROW=(ROW+1)*(ROW<5)+1*(ROW=5) F=(557)ROW=(ROW-1)*(ROW>1)+5*(ROW=1) =(568)ROW+10 ,17+9 *(POZ1=3);6;I$(ROW,POZ1-1):POZ1=(POZ1+1)*(POZ1<3)+1*(POZ1=3) POZ1=1 LICZ=I$(ROW,POZ1-1) _ANCROWROWANCROW+10 ,17+9 *(POZ1=3);6;I$(ANCROW,POZ1-1) M1;ROW+10 ,17+9 *(POZ1=3);I$(ROW,POZ1-1)  "6620" YA(1,1)=J(1,1):A(1,2)=J(1,2):A(2,1)=J(2,1):A(2,2)=J(2,2) bZ>17100 lD=12 qE=12 vP$=E$(1,1,D)+E$(2,1,E):E$(1,1,D)>E$(2,1,E)P$=E$(2,1,E)+E$(1,1,D) {(ðZ$(17)P$=P$+" ":7060 M$=P$ F=12 G=12 P$=M$+E$(1,2,F)+E$(2,2,G):E$(1,2,F)>E$(2,2,G)P$=M$+E$(2,2,G)+E$(1,2,F)  "8800" ðZ$(17)7080 G:F E:D  !B=1̰Z$(17)+1 oC$(B,4)A(B,1)*A(B,2)0A(B,1)=Z+(A(B,1)=3):A(B,2)=1 B B=12  C=B2 ZLICZ=A(1,B)*A(1,C)+A(1,B)*A(1,C)*(B(P$(2))P$=P$(2)+P$(1) 9(ðZ$(17)P$=P$+" ":7245M > "8900" HP$=P$+E$(1,2,RAN1+1)+E$(2,2,RAN2+1):(P$(3))>(P$(4))P$=P$(2)+P$(4)+P$(3) MZ$(3)9200# R!B(Z(P$),X)=B(Z(P$),X)+1 WFEN"8700" \B a L&PI=1:I$(Z,2)=1 QR2;7;,14;"ZESTAWIENIE ";I$(Z,2,2);" PRB" V?Z$(3)="0"Z$(4)="0"Z$(5)="0"7700 hX=11 :"4000":wyb i "9800" jsta1="4100" l-"9400":start="9400":sta1="4120":wyb o "9800" 7X=11 :"4300":wyb 9 "9800" <sta2="4500" A-"9405":start="9405":sta2="4510":wyb F "9800": @>,;4+PIM;7;"";W$(30);"" TA=14 ^4+PIM;" "; hB6+(A=G(POZ)+1PIM);(A=G(POZ)+1PIM);a$(A); r4+PIM;" " |A -4+PIM;7;"";W$(30);"" %PIMPUMPIM=:PUM=:  "9101" ROW=G(POZ)+1    ANCROW=ROW @=(13 )WYBOR=ROW:G(POZ)=(ROW-1)*(ROW4): +ROW=ROW+1:ROW>4ROW=1 %ANCROW,1;6;A$(ANCROW) ROW,1;1;A$(ROW) POZ=1(PIROW=1PIROW=2)85004!*(POZ=1ROW=1POZ=2)+8545a!*(POZ=1ROW=2POZ=3)  "8110" X l47,5;1;" HOMOZYGOTA LETALNA " vQ21,;3;7;" Wcinij dowolny klawisz! ": 37,5;6;A$(C+2,22) "9100"  !4INFORMACJA GENERALNA !>b7,;5;7;"";;" * PARAMETRY TECHNICZNE * ";7;""; !C45;" ";6;W$(30);5;" "; !H6;" -FEN.:-----";5+ð(Z$(1));" TABELA ";5+ð(Z$(2));"HISTOGRAM";"   -GEN.:";5+ð(Z$(3));"LISTA";5+ð(Z$(4));" TABELA ";5+ð(Z$(5));"HISTOGRAM"; !I=" ";5;" ";6;W$(30);5;" "; !Kt6;" -USTALANIE ";5;("F"ưZ$(10 ))+("G"ðZ$(10 ));"ENOTYPU";6;" RODZICW";"  "; !L45;" ";6;W$(30);5;" "; !Md6;" -ANALIZA SERII PRB----->";5+ðZ$(8);K$(Z$(8)+1);"  "; !Rd6;" -PRZERWY W PROGRAMIE---->";5+ðZ$(7);K$(Z$(7)+1);"  "; !Wf6;" -CZSTOCI TEORETYCZNE-->";5+ðZ$(6);K$(Z$(6)+1);"  "; !\pPI=:6;" -WYDRUK REZULTATW------>";5+ðZ$(9 );K$(Z$(9 )+1);"  "; !_16;W$(30);5;" ":8574~! !a_7,;5;7;"";;" * PARAMETRY BIOLOGICZNE * ";7;"" !d25;" ";6;W$(30);5;" " !kh" ";6;" -LICZBA CECH------------->";5;" ";(Z$(17))+1;6;"  "; !mv" ";6;" -POKOLENIA:";5+ðZ$(11 );"F1:";I$(1,1);"/";I$(1,2,2); !pw6;" ";5+ðZ$(12 );"F2:";I$(2,1);"/";I$(2,2,2);6;"   "; !qvPI=1:" ";5+ðZ$(13 );"F3:";I$(3,1);"/";I$(3,2,2);6;" "; !rT5+ðZ$(14);"F4:";I$(4,1);"/";I$(4,2,2); !ss6;" ";5+ðZ$(15);"F5:";I$(5,1);"/";I$(5,2,2);6;"  "; !t45;" ";6;W$(30);5;" "; !u96;" CECHA:";B$(1,1);" ";(B$(2,1)ưZ$(17));(W$(10 )ðZ$(17));" ";5;" ";6;" dom.:";5;B$(1,2);6;" ";5;(B$(2,2)ưZ$(17));(W$(10 )ðZ$(17));6;" ";5;" ";6;" rec.:";5;B$(1,3);6;" ";5;(B$(2,3)ưZ$(17));(W$(10 )ðZ$(17));6;" ";5;" ";6;" po.:";5;(B$(1,4)ðC$(1,3))+("brak "ưC$(1,3)); !w6;" ";5;(B$(2,4)ưZ$(17)ðC$(2,3))+("brak "ưZ$(17)ưC$(2,3))+(W$(10 )ðZ$(17));6;" ";5;" "; !yb6;" GENOTYP aa:";5;("GINIE"ưC$(1,4))+("YJE "ðC$(1,4)); !{6;" ";("bb:GINIE"ưZ$(17)ưC$(2,4))+("bb:YJE "ưZ$(17)ðC$(2,4))+("  "ðZ$(17)); !|@6;" ";5;" ";6;W$(30);5;" " !~*5;7;;"";W$(30);"" ! !USTALANIE FENOTYPU "<DOM=C$(1,3):B1=Y(P$(1)+P$(2)) "Z$(17)DOM=C$(2,3):B2=Y(P$(3)+P$(4)):D(B1,B2,X)=D(B1,B2,X)+LICZ1*(Z>1X=10 )+(Z=1X<10 ): "WD(4,B1,X)=D(4,B1,X)+LICZ1*(Z>1X=10 )+(Z=1X<10 ): "j9B(Z(P$),10 )=B(Z(P$),10 )+LICZ1+(Z=1) "tFEN"8700" "~ "LICZBY LOSOWE I "RAN1=(*2) "RAN2=(*2) " #(A6,;W$;W$;W$;W$;W$;W$;W$;W$;W$;W$;W$;W$;W$;W$;W$: #J21,;7;1;" potwierdza wybr opcji ": #J21,;7;3;" zmienia stan parametru ": #RZ,KOL;"";RZ+1,KOL;""; (P$(2)="aa"C$(1,4)="1")+(P$(3)="bb"C$(2,4)="1"P$"aabb");" ";P$;" ";0;"";RZ+2,KOL;"" $;KOL=KOL+8:KOL=32 RZ=RZ+3:KOL= $ RZ15 $"9500":RZ=6: $<X=1̰I$(Z,2):PAS=0:MAX=MAX1:sta1:X: $<X=1̰I$(Z,2):PAS=0:MAX=MAX2:STA2:X: %:&Z$(9 )21,;W$: %DK1,;W$;W$;W$;W$;W$:"9000":21,;1;W$: %3PAS=:A1=:Z$(6)A1=1 % %.B=116:X=1̰I$(Z,2) %B(B,X)>MAX1MAX1=B(B,X) %X %(B(B,10 )>MAX1MAX1=B(B,10 ) %B % %B=13 %ðZ$(17)"9850" &C=13 &X=1̰I$(Z,2) & D(B,C,X)>MAX2MAX2=D(B,C,X) &X &,D(B,C,10 )>MAX2MAX2=D(B,C,10 ) & C &*B &> &Hðz$(7)"9530": &MQ21,;" Rodz. Teoria Cd. Wydruk Opcje "; &R(:="R"Ŧ="r""9848":"9810" &W="w"Ŧ="W":"9810" &\?="t"Ŧ="T"pas=:a1=1:"9540":start:"9805" &a(="o"Ŧ="O""9540":"9950":"9805" &f "9540": &x5;19,26;":";E$(1,1);E$(1,2);20,26;":";E$(2,1);E$(2,2): &zX=1̰I$(Z,2) &*D(4,B,X)>MAX2MAX2=D(4,B,X) &X &8D(4,B,10 )>MAX2MAX2=D(4,B,10 ) & "9770" &D6;W$(30);IN;" ";6;W$(30);IN;" ";: &wyb=1:6,9 ;"WYBIERZ OPCJ:";8,5;"TABELA GENOTYPW---->1";9 ,5;"HISTOGRAM GENOTYPW->2";10 ,5;"TABELA FENOTYPW---->3";11 ,5;"HISTOGRAM FENOTYPW->4":21,0;1;" Wcinij numer wybranej opcji "; &:pi"9960" &="2"OPCJA="4100":"9957" &="3"OPCJA="4300":"9957" &="4"OPCJA="4500":"9957" &="1"OPCJA="4000":"9957" & "9951" & "9540" &opcja:wyb=: &="2"OPCJA="7530":"9957" &="3"OPCJA="7735":"9957" &="4"OPCJA="7740":"9957" &="1"OPCJA="7528":"9957" & "9951" 'ðZ$(10 )ðZ$(17)C$(1,4)="1"ŰZ$(17)C$(1,4)="1"C$(2,4)="1"HET=1:3100