ZXTape! 0Created with Ramsoft MakeTZX7HEREDITY r o2t "HEREDITY" (1:1:7:56999  30 #:21,0;" PLEASE WAIT " ($N=071G:B:"A"+N,B:N 228,34",33!,28,62>,63?,63?,31,0,0,0,128,64@,32 ,144,200 715,7,3,1,0,0,0,0,228,242,250,252,254,126~,62>,28 "5"180 A$="4"1000:110n A$="5"300, >#1;0,2;" ONE MOMENT IF YOU PLEASE " a$="1"2000:110n A$="2"21004:110n a$="3"2200:110n 170 ,v1:(23730\+256*23731\)=5699957012:21,8;" END OF PROGRAM ": 6 1:: 4:7:0: 4;Z$;Z$ +0,8;" PUNNET SQUARES " +6000p:N=19 :S$:''" "; :T=1̱S$:S$(T);:.01z# =,20:5:T:N #r=07:b:"a"+r,b:r $R#1;1,3;" Press  any key  to start ":.5,0 .a$=:a$=""1070. 8@2,0;z$;"  GENOTYPE   PHENOTYPE  " B%Z$;"  ";Z$(22) LKZ$;Z$(17);" YELLOW SEED    ";Z$(19) VNZ$;Z$;Z$(17);" GREEN SEED     ";Z$(19) `7Z$;Z$;Z$;Z$;"  FERTILIZATIONS (Min.40) ? " jZ$;Z$ t19,91[:0,32 :96`,0:0,-64@:-96`,0:0,32 :96`,0:67C,59;:0,64@ ~11 ,27:0,16:232,0:0,-32 :-232,0:0,16:232,0 O0,0;"  ENTER  SAMPLE SIZE - MULTIPLE OF 4, PLEASE:";A$ 7000X:f1160 2S=A$:S<40(1,-10 :1160 17,25;" " $19,4;" EXPECTED " }E=S/4:ER=(E+.5):1;7,4;ER;7,10 ;ER;11 ,4;ER;11 ,10 ;ER =9 ,20;1;3*ER;13 ,20;ER +17,28-A$/2;ER*4 S=4*ER :#1;1,6;" PRESS  S  TO START " 023658j\,8:.5,0:0 "S"1215 b19,15;" ACTUAL ";#1;1,2;" PRESS  H  TO HOLD DISPLAY " ,G(2,2):YE=0:GR=0 =N=1S:X=(*2)+1:Y=(*2)+1 MG(X,Y)=G(X,Y)+1:5;4*X+5,6*Y-2;G(X,Y) JX=2X=YGR=GR+1:5;13 ,24;GR:1270 .YE=YE+1:5;9 ,24;YE ="H"1500 N &D=(YE-3*ER)*100d/S:D=D ((M$=""+(3*ER)+"-"+YE+"" 29YE>(3*E)M$=""+YE+"-"+(3*ER)+"" <:19,2;"DIFFERENCE (";M$;")/";S;"=";D;"%" FH#1;1,0;"  A  ANOTHER RUN  N  NEW OPTION " P.5,10 Z!A$=:A$"A"A$"N"1370Z d A$="N" n 10808 ?;:#1;1,5;" PRESS  S  TO RESTART " I$=:I$"S"1510 @#1;1,2;" PRESS  H  TO HOLD DISPLAY "  06100:r=095_:b:"a"+r,b:r jn=13:t=12:p$(n,t):p$(n+6,t)=p$(n,t):t:G$(N):G$(N+6)=G$(N):n ;c$(1)="BLACK":c$(2)="WHITE":c$(3)=" " T$="SIMPLE DOMINANCE"  3000 4062008:r=095_:b:"a"+r,b:r >jn=13:t=12:p$(n,t):p$(n+6,t)=p$(n,t):t:g$(n):g$(n+6)=g$(n):n R<C$(1)="RED":C$(2)="WHITE":C$(3)="PINK" \t$="INCOMPLETE DOMINANCE" f 3000 06300:r=079O:b:"a"+r,b:r jn=13:t=12:p$(n,t):p$(n+6,t)=p$(n,t):t:g$(n):g$(n+6)=g$(n):n ;C$(1)="NORML":C$(2)="CBLND":C$(3)=" " t$="SEX LINKAGE" 5:6:0: 5;Z$;Z$;Z$ +7:1,16-T$/2;T$ n0,1;(2G$(7,1)"B");P$(7,1);1,1;P$(7,2) M0,27;P$(8,1);1,27;P$(8,2) 6n=321:n,21;" ":n O4,23;g$(1);" x ";g$(2);6,22;"PHENOTYPE" 8,22;(2C$(1)="NORML");C$(1);"...?";0;9 ,22;C$(2);"...?";:C$(3)="PINK "10 ,22;C$(3);"...?" @P1=(2(G$(1,1)="R"G$(1,1)="X")) @P2=(2(G$(2,1)="R"G$(2,1)="X")) W4,5;"1";P1;p$(1,1);P2;" 2";p$(2,1) M5,6;P1;p$(1,2);P2;" ";p$(2,2) &<6,7;g$(1);6,14;g$(2) +"12 ,22;"GENOTYPE " 0Lx=150-1:88X+x,131:88X-x,131:x :/y=130116t-1:88X,y:y D@x=060<:88X+x,115s:88X-x,115s NVx=20x=60<y=115s105i-1:88X+x,y:88X-x,y:y SX X6SUM=0:N=12+(C$(3)="PINK ") bT.5,10 :1,0;("ENTER Expected %age ";C$(N);":");a$ l.7000X:F1,-10 :3170b v,E(N)=A$:7+N,30-A$;E(N);"%" {SUM=SUM+E(N) *N:SUM100d5500|:3160X :N=1420:N,22;7;" ":N xN=0480:195+N,20:243-N,524:N<32 195,524-N:243,20+N N N=18:219+N*3,36$:219-N*3,36$:219,36$+N*2:219,36$-N*2:N N=12:T=13:12 +T*2,22+N*3;G$(1,N):.25~,10 :15:T:N N=12:T=13:14+N*2,20+T*3;G$(2,N):.25~,20:15:T:N jG$(3)=G$(1,1)+G$(2,1):G$(4)=G$(1,2)+G$(2,1) jG$(5)=G$(1,1)+G$(2,2):G$(6)=G$(1,2)+G$(2,2) +N=36:G$(N)="rR"G$(N)="Rr" G$(N)="bB"G$(N)="Bb" G$(N)="xX"g$(n)="Xx" ,G$(N,1)="Y"g$(n)=G$(N,2)+"Y" FP$(N,1)=P$(8,1):P$(N,2)=P$(8,2) vG$(N,1)="X"G$(N,1)="B"G$(N)="RR"P$(N,1)=P$(7,1):P$(N,2)=P$(7,2) RG$(N)="Rr"P$(N,1)=P$(9 ,1):P$(N,2)=P$(9 ,2) 4PC=(2(G$(N,1)="R"G$(N,1)="X")) |9 ,(n-3)*5+1;"";n;"";PC;p$(n,1);10 ,(n-3)*5+2;PC;p$(n,2) 211 ,(n-3)*5+3;"";g$(n) 502:n *113 ,1;"GENOTYPE PHENOTYPE" /-c$(1)="NORML"4200h:3450z 4T15,2;" ";G$(7);" ";15,12 ;" ";C$(1);" " >^25:17,2;" ";G$(8);" ";17,12 ;" ";C$(2);" " H25:19,2;" ";G$(9 );" ";19,12 ;" ";C$(1+(2G$(9 ,1)="R"));" " R\25:A(3):n=36:g$(n)=g$(7)a(1)=a(1)+25 \3g$(n)=g$(8)a(2)=a(2)+25 fig$(n)=g$(9 )a(1+(2g$(9 )="Rr"))=a(1+(2g$(9 )="Rr"))+25 pn z=n=12+(C$(3)="PINK "):E$=e(n):A$=a(n) $E$<3E$="."+E$:3455 $A$<3A$="."+A$:3460 Ta(n)=e(n)7+n,27;6;A$:.5,0:75K:3480 >t=110 :7+n,27;e$:.2~L,0 87+n,27;1;a$:.2~L,-20:T n:100d S.5,10 :#1;1,0;"Do you want to cross-breed?(Y/N)" !a$=:a$"Y"a$"N"3510 a$="Y"3600 4000: H#1;1,0;"PRESS REF. No. (1 TO 6)OF MATE 1" .5,10 $!A$=:A$<"1"A$>"6"3620$ .-M=A$:21,8;" ";g$(m);" x "; 3""36353 8].5,15:#1;1,0;"PRESS REF. No. (1 TO 6)OF MATE 2" B!A$=:A$<"1"A$>"6"3650B LM1=A$:N$=G$(M1) MK(G$(M,1)="B"G$(M,1)="b")M=M12,-20:36408 NY(G$(M,2)="X"G$(M,2)="x")g$(m1,2)"Y"2,-20:36408 QZ(G$(M1,2)="X"G$(M1,2)="x")g$(m,2)"Y"2,-20:36408 S21,14;G$(M1) V<M1=1O$=P$(1,1):Q$=P$(1,2) `YG$(1)=G$(M):P$(1,1)=P$(M,1):P$(1,2)=P$(M,2) jM1=13710~ thG$(2)=G$(M1):P$(2,1)=P$(M1,1):P$(2,2)=P$(M1,2):3720 ~@G$(2)=N$:P$(2,1)=O$:P$(2,2)=Q$ F#1;1,0;" PRESS  ENTER  TO START DISPLAY " .5,10 A$=:A$=""3740 A$13 3730  3000 F#1;1,0;" PRESS  ENTER  FOR NEW OPTION " .5,10 A$=:A$=""4020 A$13 4010 "";  hC15,2;" XX ";15,8;"  NORMAL " rC16,2;" XY ";16,8;"  NORMAL " |C17,2;" Xx ";17,8;"  NORMAL " C18,2;" xY ";18,8;" COL.BLIND " C19,2;" xx ";19,8;" COL.BLIND " \25:A(3):n=36:g$(n,1)="X"a(1)=a(1)+25 3g$(n,1)="x"a(2)=a(2)+25 n: |}1,-10 :#1;0,0;" THE TOTAL IS NOT 100! TRY AGAIN PRESS  ENTER  TO GO ON " ""5505 A$=:A$=""5510 A$13 5500| v8,27;0;"...?";0;9 ,27;"...?";:C$(3)="PINK "10 ,27;"...?"  p]"The PUNNET SQUARE will show","all the EXPECTED results of","fertilization, but the ACTUAL" z,"results are determined by","probability." B" The difference between them","grows less with larger samples." D" You can see this with Yellow","(dominant) and Green pea seeds." O60<,126~,255,255,255,255,126~,60< 0,0,7,24,32 ,64@,128,128,0,0,240,15,0,0,0,0,0,96`,176,8,4,18,1,1 131,128,128,128,64@,64@,63?,0,0,128,64@,64@,129,24,231,0,1,6,24,224,128,224,240,0 0,0,7,31,63?,127,255,255,0,0,240,255,255,255,255,255,0,96`,240,248,252,238,255,255 252,255,255,255,127,127,63?,0,255,127,191,191,127,255,239,0,255,254,248,224,128,224,240,0 4"","","BB","","","bb","","","Bb" 8(12 ,10 ,73I,164,149,65A,140,146,480,80P,146,37%,169,130,491,73I,100d,5,2,1,9 ,7,3,3,38&,160,64@,128,144,224,192,192 B,12 ,14,75K,229,181,85U,174,210,480,80P,178,101e,171,214,185,75K,102f,5,2,1,9 ,7,3,3,166,224,192,128,144,224,192,192 L/12 ,14,79O,231,246,126~,255,243,480,112p,242,231,111o,126~,255,207,103g,7,3,1,9 ,7,3,3,230,224,192,128,144,224,192,192 V4" "," ","RR"," "," ","rr"," "," ","Rr" +2,18,146,139,77M,546,45-,203,64@,68D,73I,233,90Z,164,210,177,205,42*,21,46.,67C,68D,8,8,211,180,100d,188,226,34",16,16 ,2,18,146,139,79O,557,46.,206,64@,68D,73I,233,218,228,242,113q,206,47/,23,47/,67C,68D,8,8,115s,242,228,252,226,34",16,16 15,3,5,121y,136,136,136,120x,568,68D,68D,68D,568,16,568,16 4" "," ","Xx"," "," ","xY"," "," ","XY" XF=0:A$=""F=1: b/I=1̱A$:A$(I)<"0"A$(I)>"9"F=1 lI: =<D hiN `_b  udfbmOQ#  ZBLACKWHITE =   BBbbBbBbBbBbBBbbBbNxYdE.99TSIMPLE DOMINANCEA90U 9KINGDOMS | g0~ "KINGDOMS" (1:1:1:56999  30 #:21,0;" PLEASE WAIT " ($N=071G:B:"A"+N,B:N 228,34",33!,28,62>,63?,63?,31,0,0,0,128,64@,32 ,144,200 715,7,3,1,0,0,0,0,228,242,250,252,254,126~,62>,28 Kingdoms 5|'%15T1:(23730\+256*23731\)=5699957012:10  100d "Kingdoms" F  1984   MERCURIAN PULP PRODUCTS  K21,0;" PLEASE STOP THE TAPE ":1,0 (97:20,0;1;1;"KINGDOMS" 2X=162>:Y=9 14:(X,Y)24+X*2,32 +Y*2:1,0:0,1:-1,0 <Y:X FH21,0;" ":57000 dK21,0;" INITIALIZING - PLEASE WAIT ":1,0 n 5000 xN21,0;" PROGRAM READY - PRESS ANY KEY ":1,10 0 #23658j\,8:Z$(32 ) 1:1:9 : 2;Z$;Z$;Z$ *1,8;" PROGRAM OPTIONS " 5,1;" PLANT KINGDOM ";7,1;"IDENTIFY BY CHARACTERISTICS  1 ";9 ,1;"COMPARE CHARACTERISTICS  2 " 12 ,1;" ANIMAL KINGDOM ";14,1;"IDENTIFY BY CHARACTERISTICS  3 ";16,1;"COMPARE CHARACTERISTICS  4 " =19,1;" END OF PROGRAM  5 " V#1;1,2;" PRESS  A NUMBER  TO SELECT ":.5,0 I$=:I$=""220 I$="5"300, I$<"1"I$>"4"210 I=I$ 1000*I:140 ,m(23730\+256*23731\)=5699957012:21,8;" END OF PROGRAM ": 6 1:: L:9 ;" PLANT KINGDOM "''" IDENTIFY BY CHARACTERISTICS " K(4):S=1 4N=14:4,2;4;R$(S) ZX=1:T=S+1S+R(N)::6;2;R$(T);" ";X;" ":X=X+1:T  :21,0;"WHICH IS MOST LIKE THE SPECIMEN?" Y#1;0,0;"  Press  A NUMBER  to select. ":.5,10 i$=:i$=""1050 $I$<"1"I$>"7"1040 ) J=I$:J>X-11040 .K(N)=S+J:S=S+R(N)+1 8&L=421:L,0;Z$:L B?N:N=14:N+3,2;4;R$(K(N)):N LIZ=4:;:#1;1,5;" COMPARING & SEARCHING " VD9 ,0;" CHARACTERISTICS SHOWN BY... ":L=10 `XN=112 :T=48:T,1;" ":T:F=0:T=14 j9Q$(N,K(T))="Y"T+3,1;"*":F=F+1 tT ~IF=ZL,2;5;P$(N):.5,0:502:L=L+1 N:Z=31200 L>10 1200 f#1;0,0;"NONE WITH ALL 4 CHARACTERISTICS. DO YOU WANT NEAREST TYPES?(Y/N)" .5,0 I$=:I$=""1180 I$="Y"Z=3:1120` I$"N"1175 6000p:SW  1000 L:9 ;" PLANT KINGDOM "''" COMPARE CHARACTERISTICS " 4,0;:X=7 eN=112 :" ";X;P$(N);" ";X-2;" ";(64@+N);" ":X=7-(X=7):N c18,2;" WHICH TWO TYPES OF PLANT ";19,2;" DO YOU WANT TO COMPARE? "  P(2) N=12  a#1;0,0;8-N;" PRESS  CODE LETTER ";8-N;" FOR TYPE ";N;" " .5,0  I$=:I$=""2080  *I$<"A"I$>"L"2070 4P(N)=I$-64@ >)3+P(N),1;5;P$(P(N)) H1,10 RN:18,0;Z$;Z$ \Z#1;0,0;" PRESS  ENTER  WHEN READY ":.5,0 fI$=:I$=""2150f pI$13 2140\ z =0,0;:N=12:5;" ";P$(P(N)) =T=119:Q$(P(N),T)="Y"" ";6;" ";R$(T) )Q$(P(N),T)="T"" ";4;" ";R$(T) T:N 6000p:SW  2000  M:9 ;" ANIMAL KINGDOM "''" IDENTIFY BY CHARACTERISTICS " K(5):S=1 4N=15:4,2;4;C$(S) ZX=1:T=S+1S+C(N)::6;2;C$(T);" ";X;" ":X=X+1:T :21,0;"WHICH IS MOST LIKE THE SPECIMEN?" Y#1;0,0;"  Press  A NUMBER  to select. ":.5,10 i$=:i$=""3060 I$<"1"I$>"7"3050  J=I$:J>X-13050 K(N)=S+J:S=S+C(N)+1 &L=421:L,0;Z$:L &?N:N=15:N+3,2;4;C$(K(N)):N 0IZ=5:;:#1;1,5;" COMPARING & SEARCHING " :79 ,5;" POSSIBLE TYPES ":L=10 D`N=119:F=0:T=15:T+3,1;" ":T:T=15 NHB$(N,K(T))="Y"B$(N,K(T))="C"T+3,1;"*":F=F+1 XT bF=ZL,0;5;A$(N,32 +(14(N=9 N>16))):.5,0:502:L=L+1+(N>16) l%N:Z=4L=10 3260 vL>10 3300 j#1;0,0;"NONE WITH ALL 5 CHARACTERISTICS. DO YOU WANT TO TRY 4 ?( Y / N )" .5,0 I$=:I$=""3220 ; I$="Y"Z=4:3140D I$"N"3210 3300 :21,0;" SORRY, NOTHING LIKE THAT HERE. " 6000p:SW 3000 ,:" COMPARE CHARACTERISTICS:ANIMALS" 2,0;:X=7 gN=119:X;A$(N,29);X-2;" ";(64@+N);" ":X=7-(X=7):N B#1;0,0;" COMPARE WHICH TWO TYPES ? "  P(2) N=12 a#1;1,0;8-N;" PRESS  CODE LETTER ";8-N;" FOR TYPE ";N;" " .5,0 I$=:I$=""4080 I$<"A"I$>"S"4070 P(N)=I$-64@ <1+P(N),0;1;5;A$(P(N),29) N "];:#1;0,0;" PRESS  ENTER  WHEN READY ":.5,0 ,I$=:I$=""4140, 6I$13 4130" @ JK0,0;:N=12:5;" ";A$(P(N),29);" " O M$=" " TDT=133!:B$(P(N),T)="Y"M$;6;" ";C$(T):M$="OR" ^B$(P(N),T)="T"M$=" " hT:N r6000p:SW | 4000   5000 QP$(12 ,26):Q$(12 ,19):R$(19,22):R(4) QA$(19,46.):B$(19,33!):C$(33!,25):C(5) $N=112 :P$(N),Q$(N):N M"BACTERIA","TYNNNNTYNYTYNNNTYNN","ALGAE (Blue-green)","TYNNNNTNNYTYNNNTYNN" +"ALGAE (Spirogyra)","TNYNNNTNNYTCYNNTNYN" )"ALGAE (Seaweed)","TNNYNNTNNYTNYNNTNNY" '"FUNGI (Yeast)","TYNNNNTNYNTYYNNTYNN" '"FUNGI (Mould)","TNYNNNTNYNTNYNNTNYN" *"FUNGI (Mushroom)","TNYYNNTNYNTNYNNTNNY" ,"BRYOPHYTA (Mosses)","TNNNYNTNNYTNYNNTNNY" /"BRYOPHYTA (Liverwort)","TNNYNNTNNYTNYNNTNNY" -"PTERIDOPHYTA (Fern)","TNNNNYTNNYTNYNNTNNY"  3"SPERMATOPHYTA GYMNOSPERMS","TNNNNYTNNYTNNYNTNNY" 3"SPERMATOPHYTA ANGIOSPERMS","TNNNNYTNNYTNNNYTNNY" ($N=119:A$(N),B$(N):N 2D"PROTOZOA (Amoeba,Paramecium)","TYNNNNTYCCYTYNNNNTNNNYNNNTYNNNNNN" <:"PORIFERA (Sponges)","TNYNNNTNNNYTNYNYNTNNNNNNYTYNNNNNN" FB"COELENTERATA (Hydra,Coral)","TNNNYNTNCCYTNYNYNTNNNNNYYTYNNNNNN" PB"PLATYHELMINTHES (Tapeworm)","TNNYNNTYNNNTNNNYNTNNNNYNNTYNNNNNN" Z="NEMATODE (Roundworms)","TNNYNNTYNNNTNNNYNTNNNNYNNTYNNNNNN" dB"ANNELIDA (Earthworm,Leech)","TNNYNNTNCNYTNNNYNTNNNNYNNTYNNNNNN" nD"MOLLUSCA (Slug,Clam,Octopus)","TNNYYNTNYCYTNNNYNTNNNNYYNTCYNNNNN" xD"ARTHROPODA:CRUSTACEA (Crabs)","TNNNNYTNNYCTNNNYNTNNYNNNNTNNYNNNN" S"ARTHROPODA:MYRIAPODA (Centipede)","TNNNNYTNYCYTNNNYNTNNYNNNNTNNYNNNN" E"ARTHROPODA:ARACHNIDA (Spider)","TNNNNYTNCNYTNNNYNTNNYNNNNTNNYNNNN" D"ARTHROPODA:INSECTA (Insects)","TNNNNYTYCCYTNNNYNTNYYNNNNTNNYNNNN" @"ECHINODERMATA (Starfish)","TNNNYNTNNYNTNNYYNTNNNNYYNTNNNYNNN" >"CHORDATA:PISCES (Fish)","TNNNNYTNYYCTNNNYNTYNNNNNNTNNNNYNN" E"CHORDATA:AMPHIBIA (Frog,Newt)","TNNNNYTNYYNTNNNYNTYNYNNNNTYNNNNNN" F"CHORDATA:REPTILIA (Snake,Toad)","TNNNNYTNYYNTNNNYNTYNYNYNNTNNNNYNN" ="CHORDATA:AVES (Birds)","TNNNNYTNYYCTNNNYNTNYYNNNNTNNNNNYN" R"CHORDATA:MAMMALIA:Monotreme (Platypus)","TNNNNYTNYYNTNNNYNTYNYNNNNTNNNNNNY" R"CHORDATA:MAMMALIA:Marsupial (Kangaroo)","TNNNNYTNYYNTNNNNYTNNYNNNNTNNNNNNY" U"CHORDATA:MAMMALIA:Eutheria (Cat,Bat,Man)","TNNNNYTNYYCTNNNNYTYYYNNNNTNNNNNNY" N=119:R$(N):N |"STRUCTURE","SINGLE CELLED","UNSPECIALIZED/COLONIAL","LEAF-LIKE STRUCTURES","SIMPLE LEAVES & STEMS","LEAVES,STEMS & ROOTS" 8"NUTRITION","PARASITIC","SAPROPHYTIC","PHOTOSYNTHESIS" D"REPRODUCTION","DIVISION","SPORES","NAKED SEEDS","FLOWERS & FRUIT" S"SIZE & VISIBILITY","MICROSCOPIC","NEEDS MAGNIFYING GLASS","VISIBLE TO NAKED EYE" N=133!:C$(N):N h"STRUCTURE","SINGLE CELLED","COLONIAL","SOFT-BODIED,NO LIMBS","HAS LIMBS OR TENTACLES","JOINTED LIMBS" A"NUTRITION","PARASITIC","VEGETARIAN","CARNIVOROUS","OMNIVOROUS" U"REPRODUCTION","BINARY FISSION","BUDDING","REGENERATION","EGG-LAYING","LIVE BIRTHS" ""LOCOMOTION","SWIMMING","ABLE TO FLY","WALK/RUN/CRAWL","PSEUDOPODIA","MOVES USING WHOLE BODY","WATER PROPULSION","LITTLE OR NO MOVEMENT" ,z"BODY COVERING","SMOOTH,MOIST SKIN","SOFT WITH SHELL","EXOSKELETON","SPINY,TOUGH SKIN","SCALES","FEATHERS","FUR OR HAIR" 6-N=14:R(N),C(N):N:C(5) @I5,5,3,4,4,5,3,7,7 J pO;:#1;1,0;"  A  ANOTHER  N  NEW OPTION " z.5,0 I$=:I$=""6020 SW=0:I$="A" I$="N"SW=1:  6010z #(M(23730\+256*23731\)-(23653e\+256*23654f\) D is">2D j  zf2= BACTERIA ALGAE (Blue-green) ALGAE (Spirogyra) ALGAE (Seaweed) FUNGI (Yeast) FUNGI (Mould) FUNGI (Mushroom) BRYOPHYTA (Mosses) BRYOPHYTA (Liverwort) PTERIDOPHYTA (Fern) SPERMATOPHYTA GYMNOSPERMS SPERMATOPHYTA ANGIOSPERMS  TYNNNNTYNYTYNNNTYNNTYNNNNTNNYTYNNNTYNNTNYNNNTNNYTCYNNTNYNTNNYNNTNNYTNYNNTNNYTYNNNNTNYNTYYNNTYNNTNYNNNTNYNTNYNNTNYNTNYYNNTNYNTNYNNTNNYTNNNYNTNNYTNYNNTNNYTNNYNNTNNYTNYNNTNNYTNNNNYTNNYTNYNNTNNYTNNNNYTNNYTNNYNTNNYTNNNNYTNNYTNNNYTNNYҧSTRUCTURE SINGLE CELLED UNSPECIALIZED/COLONIALLEAF-LIKE STRUCTURES SIMPLE LEAVES & STEMS LEAVES,STEMS & ROOTS NUTRITION PARASITIC SAPROPHYTIC PHOTOSYNTHESIS REPRODUCTION DIVISION SPORES NAKED SEEDS FLOWERS & FRUIT SIZE & VISIBILITY MICROSCOPIC NEEDS MAGNIFYING GLASSVISIBLE TO NAKED EYE o.PROTOZOA (Amoeba,Paramecium) PORIFERA (Sponges) COELENTERATA (Hydra,Coral) PLATYHELMINTHES (Tapeworm) NEMATODE (Roundworms) ANNELIDA (Earthworm,Leech) MOLLUSCA (Slug,Clam,Octopus) ARTHROPODA:CRUSTACEA (Crabs) ARTHROPODA:MYRIAPODA (Centipede) ARTHROPODA:ARACHNIDA (Spider) ARTHROPODA:INSECTA (Insects) ECHINODERMATA (Starfish) CHORDATA:PISCES (Fish) CHORDATA:AMPHIBIA (Frog,Newt) CHORDATA:REPTILIA (Snake,Toad) CHORDATA:AVES (Birds) CHORDATA:MAMMALIA:Monotreme (Platypus) CHORDATA:MAMMALIA:Marsupial (Kangaroo) CHORDATA:MAMMALIA:Eutheria (Cat,Bat,Man) x!TYNNNNTYCCYTYNNNNTNNNYNNNTYNNNNNNTNYNNNTNNNYTNYNYNTNNNNNNYTYNNNNNNTNNNYNTNCCYTNYNYNTNNNNNYYTYNNNNNNTNNYNNTYNNNTNNNYNTNNNNYNNTYNNNNNNTNNYNNTYNNNTNNNYNTNNNNYNNTYNNNNNNTNNYNNTNCNYTNNNYNTNNNNYNNTYNNNNNNTNNYYNTNYCYTNNNYNTNNNNYYNTCYNNNNNTNNNNYTNNYCTNNNYNTNNYNNNNTNNYNNNNTNNNNYTNYCYTNNNYNTNNYNNNNTNNYNNNNTNNNNYTNCNYTNNNYNTNNYNNNNTNNYNNNNTNNNNYTYCCYTNNNYNTNYYNNNNTNNYNNNNTNNNYNTNNYNTNNYYNTNNNNYYNTNNNYNNNTNNNNYTNYYCTNNNYNTYNNNNNNTNNNNYNNTNNNNYTNYYNTNNNYNTYNYNNNNTYNNNNNNTNNNNYTNYYNTNNNYNTYNYNYNNTNNNNYNNTNNNNYTNYYCTNNNYNTNYYNNNNTNNNNNYNTNNNNYTNYYNTNNNYNTYNYNNNNTNNNNNNYTNNNNYTNYYNTNNNNYTNNYNNNNTNNNNNNYTNNNNYTNYYCTNNNNYTYYYNNNNTNNNNNNY>!STRUCTURE SINGLE CELLED COLONIAL SOFT-BODIED,NO LIMBS HAS LIMBS OR TENTACLES JOINTED LIMBS NUTRITION PARASITIC VEGETARIAN CARNIVOROUS OMNIVOROUS REPRODUCTION BINARY FISSION BUDDING REGENERATION EGG-LAYING LIVE BIRTHS LOCOMOTION SWIMMING ABLE TO FLY WALK/RUN/CRAWL PSEUDOPODIA MOVES USING WHOLE BODY WATER PROPULSION LITTLE OR NO MOVEMENT BODY COVERING SMOOTH,MOIST SKIN SOFT WITH SHELL EXOSKELETON SPINY,TOUGH SKIN SCALES FEATHERS FUR OR HAIR  # I FOOD Z 8\ "FOOD" (1:1:1:56999  30 #:21,0;" PLEASE WAIT " ($N=071G:B:"A"+N,B:N 228,34",33!,28,62>,63?,63?,31,0,0,0,128,64@,32 ,144,200 715,7,3,1,0,0,0,0,228,242,250,252,254,126~,62>,28 "4"200 A$="4"250 +A$="1"Q(24):300,:140 A$="2"600X:140 A$="3"1200:140 m(23730\+256*23731\)=5699957012:21,8;" END OF PROGRAM ": @21,0;"  END OF PROGRAM  ": , C(4) 6P1::1;Z$;Z$;Z$;1,3;" THE COMPOSITION OF FOODS " @2X=(*24)+1:Q(X)=1320@ E.Q(X)=1:Y=(*4)+1:C(Y)=x J94,0;" A food is found to contain:- " Tq9 :7:6,6;" WATER............%";6,22+(F(X,1)<10 );F(X,1) ^_7,6;" PROTEIN..........%";7,22+(F(X,2)<10 );F(X,2) h_8,6;" FAT..............%";8,22+(F(X,3)<10 );F(X,3) r_9 ,6;" CARBOHYDRATE.....%";9 ,22+(F(X,4)<10 );F(X,4) |a10 ,6;" FIBRE............%";10 ,22+(F(X,5)<10 );F(X,5) 712 ,0;" Which food could it be ? " ]n=14:n=y12 +2*n,6;6;f$(X);" ";n;" ":420 Lz=(*24)+1:z=c(1)z=c(2)z=c(3)410 Bc(n)=z:12 +2*n,6;6;f$(z);" ";n;" " N X.5,0:#1;1,1;" PRESS  A NUMBER  TO ANSWER "  A$=:A$<"1"A$>"4"430 ; KB=A$:12 +2*B,6;7;(BY);f$(C(B));" ";B;" " B=Y485 ZN=2127:12 +2*B,N;"  ";B;" ":.1}L,5:N N=12 +2*B6-1:N,28;" ";B;" ";N+1,28;" ":.1}L,5:N ̚N=15:N+5,28;6;("."F(C(B),N)<10 );F(C(B),N);"%";N+6,28;" ";B;" ":.25~,0:N |N=11 11 +2*B:N,28;1;" ";N+1,28;" ";B;" ":.1}L,5:N aN=2721-1:12 +2*B,N;" ";B;"  ":.1}L,5:N F12 +2*B,6;7;0;f$(C(B));" ";B;" "  425 46.,82R-16*B:148,0:0,-12 :-148,0:0,14:150,0:0,-16:-152,0:0,18 ]154,0:0,-20:-156,0:0,20:2,0 ]#1;1,0;"  A  FOR ANOTHER  N  NEW OPTION ":1,0 A$=:A$=""510 A$="A"550&  A$="N"  500 &=QN=0:N=124:Q(N)=1QN=QN+1 0N:QN>18Q(24) : 300, N X'J(23):B(15):S(23) bJ:1;Z$;Z$;0,0;" MINERALS   VITAMINS " lN=111 :N+2,0;7;V$(N,1,10 );5;" ";(64@+N);" ":N<10 N+2,15;6;V$(N+11 ,1);5;" ";(75K+N);" " vN >.5800  \15,0;" WHICH OF THESE PLAY A PART IN THE FUNCTION OR FORMATION OF..." 2X=(*15)+1:B(X)=1660 18,6;"";19,6;" ";B$(X,1);" ";20,6;""  1000 gSC=0:PO=0:N=114:PO=PO+1:B$(X,2,N)=" "N=14:775 7D=B$(X,2,N)-64@:DC=(15D>11 ) ZCOL=0:T=1̱D$:D$(T)=B$(X,2,N)SC=SC+1:D$(T)=" ":COL=2 T wD+2-(11 D>11 ),DC;COL;V$(D,1,10 +(4DC=15));5;" ";(64@+D);" " N:4000:SW  600X  0  ^15,0;" WHICH VITAMINS AND MINERALS DO YOU ASSOCIATE WITH ...... " *2X=(*23)+1:S(X)=1810* 4w18,8;"";19,8;" ";S$(X,1);" ";20,8;"" > 1000 HgPO=0:SC=0:N=110 :PO=PO+1:S$(X,2,N)=" "N=10 :890z R7D=S$(X,2,N)-64@:DC=(15D>11 ) \ZCOL=0:T=1̱D$:D$(T)=S$(X,2,N)SC=SC+1:D$(T)=" ":COL=2 fT pwD+2-(11 D>11 ),DC;COL;V$(D,1,10 +(4DC=15));5;" ";(64@+D);" " zN:4000:SW  600X D$="" l#1;0,0;" PRESS  LETTERS  TO INCLUDE  ENTER  FOR FEEDBACK " .5,15 A$=:A$=""1030 A$=13 $A$<"A"A$>"T"1020 )*D=A$-64@:J(D)=11020 ,J(D)=1 .3D$=D$+A$:DC=(15D>11 ):D$>8 8pD+2-(11 D>11 ),DC;4;V$(D,1,10 +(4DC=15));5;" ";A$;" " B 1020 81200::23692\,502:21,0; In=117:w$:t=1̱w$:w$(t);:.02{# =,0:t:'' n10 1260 1,0 a$=:a$=""1230 Hm$="Metric":pk=0:a$="I"pk=1:M$="Imperial":1250 a$"M"1225 FM$="*** "+M$+" ***":t=1̱m$:m$(t);:.02{# =,0:t:'' n A">>> PLEASE NOTE............"," This is not a slimmer's guide." x" It will calculate the daily","energy intake needed to maintain","a given weight, for a given","pattern of activity."  3" Do you want to use Metric or","Imperial units?" D"Press [I] - Calories & Pounds","or [M] - Kilojoules & Kilograms." "The total daily requirement is","calculated from the Energy","Factor of each activity,","the time spent on each and the","person's body weight." " "," [ENTER] to start." (3j(7):N=17:R$(N),R(N),j(n):N 2"SLEEPING",.4L,8,"SITTING",.6,7,"WORK (seated)",.73333,13 ,"STANDING",.8L,8,"WALKING",1.3&fff,7,"MILD EXERCISE",1.6L,13 ,"HARD EXERCISE",2.1fff,13 7.5,10 <a$=:a$=""1340< Fa$13 13357 KePK=0N=17:R(N)=(R(N)*92\+.5)/10 :R(N)>10 R(N)=(R(N)) LN P 1: ZG2;z$;z$;z$;1,3;" DAILY ENERGY REQUIREMENT " dO4,2;" WEIGHT ....... ";6,2;" ACTIVITY PATTERN " n/N=818:N,0;7;Z$:N x:8:9 ,3;"ACTIVITY E.F HOURS ENERGY" @N=17:N+10 ,1;R$(N);15;R(N):N 4,92\:0,16:248,0:0,-16:-248,0:0,-64@:248,0:0,64@ x116t,108l:0,-80P:148,108l:0,-80P:196,108l:0,-80P P.5,10 :0,0;" PLEASE  ENTER  BODY WEIGHT:";A$ A$=""1440 FQ=0:N=1̱A$:(A$(N)<"0"A$(N)>"9")A$(N)"."Q=1 N:Q1440 1BW=A$:BW>100d+(100dPK)A$=A$+"!!" )4,14;7;A$;"  " ,CH=24:ER=0:T=17 ]0,0;("  ENTER  NUMBER OF HOURS SPENT ";R$(T,j(t));" EACH DAY:");A$ FQ=0:N=1̱A$:(A$(N)<"0"A$(N)>"9")A$(N)"."Q=1 N:Q1510 oH=A$:H>CH#1;1,0;" TEMPORAL OVERRUN. 24 HRS=1 DAY":2,10 :;:H=CH  W10 +t,21;H;10 +T,26;(H*R(T)*BW):ER=ER+(H*R(T)*BW):CH=CH-H  CH=0T=7 T xCH20,0;" REQUIRED FOR ";24-CH;" HOURS:";ER;" ";("kJ"pk=0);("Cal"pk);" ":1580, "W20,2;" TOTAL REQUIREMENT:";ER;" ";("kJ"pk=0);("Cal"pk);" " ,#1;0,0;" PRESS  A  - ANOTHER CALCULATION  F  FOOD VALUES  N  NEW OPTION ":.5,10 6A$=:A$=""15906 @ A$="N" JA$="F"1700 TA$"A"1580, ^ 1360P 9:1;Z$;Z$;0,9 ;" FOOD VALUES " M$="KJ/25g":pkm$="Cal/oz" r3,5;" FOOD ";3,15;"PROTEIN ENERGY";4,18;"%";4,24;M$ RN=618:N,0;"      ":N  X=1 pN=012 :Y=X+N-(24X+N>24)+(24X+N<1):Z=F(Y,6):PKZ=(Z/4.5) JN+6,0;8;F$(Y);17;F(Y,2);25;Z;" " N #1;0,0;"  6  SCROLL DOWN  7  SCROLL UP OR  ENTER  FOR NEW OPTION ":.5,0 A$=:A$=""1780 A$=13 #X=X+(A$="7")-(A$="6"):1740  #1;0,0;" ";PO-1;" POSSIBLE  ";D$;" ANSWERS  ";SC;" RIGHT   A  - ANOTHER  N  - NEW OPTION ":.5,10 A$=:A$=""4010 "SW=0:A$="N"SW=1:  A$="A"  4000   5000 Z$(32 ):F$(24,15):F(24,6):V$(20,3,14):S$(23,2,10 ):B$(15,2,14):R$(7,14):R(7) <N=124:F$(N):T=16:F(N,T):T:N x"APPLE",84T,0,0,15,1,80P,"ORANGE",87W,1,0,11 ,1,70F "CABBAGE",92\,2,0,5,1,30,"CANNED PEAS",82R,3,0,13 ,1,100d "BOILED POTATOES",76L,2,0,20,2,130,"CRISPS",3,7,37%,502,2,750 Ĉ"ROAST PEANUTS",5,30,46.,18,3,800 ,"BROWN BREAD",37%,9 ,3,491,2,330J }"CEREAL",6,8,1,82R,1,500,"BISCUITS",18,1,10 ,70F,1,600X ؈"BOILED RICE",74J,2,0,23,0,130,"MILK CHOCOLATE",2,6,35#,557,0,750 {"JAM",28,1,0,71G,1,400,"MARMALADE",14,1,0,85U,1,500 {"HONEY",15,4,0,81Q,0,450,"BUTTER",15,1,81Q,0,0,1000 y"CHEESE",37%,25,32 ,2,0,600X,"MILK",87W,3,4,5,0,100d "BOILED EGG",74J,13 ,12 ,1,0,250,"BACON",13 ,25,557,1,0,800   "GRILLED LIVER",65A,24,8,4,0,250,"BEEF",65A,15,20,0,0,3500 "PICKLED HERRING",72H,19,8,0,0,200,"GRILLED COD",80P,17,0,0,0,100d 6N=120:T=13:V$(N,T):T:N (2"CALCIUM","ABCDEU","AB","CHLORINE","KLQCA","EFG" 2*"FLOURINE","FOUR","A","IODINE","FUK","N" <+"IRON","ABHGEM","BD","MAGNESIUM","CE","A" F8"PHOSPHORUS","FGHAIDCU","AL","POTASSIUM","CDGHIU","GF" P."SODIUM","ACKLQ","EFG","SULPHUR","EGHJ","HM" Z,"ZINC","HJ","CD","VITAMIN A","DLSMUW","IO" d5"VITAMIN B1","DHNPIJ","F","VITAMIN B2","DHPNJG","H" n5"VITAMIN B12","HPM","BI","VITAMIN C","EIW","ABEFJH" x0"VITAMIN D","CGLUT","A","VITAMIN E","DGV","MK" 9"VITAMIN K","EGWM","BJ","NICOTINIC ACID","FHINUP","EFH" 4N=123:S$(N,1),S$(N,2):N 6" BREAD","AGIE"," FLOUR","AE"," CHEESE","ABGHIFQ" <" MILK","AGHLMNR","GREEN VEG.","AEFPSJ"," FISH","GDCT" @" EGGS","GHJEQRNS"," MEAT","GHJEKMNTO"," POTATOES","GHMTP" 4" BEANS","JKMN"," SALT","BID"," BUTTER","BILQ" A" LIVER","SOLE"," CEREALS","MNT"," TEA","C"," YEAST","MONT" =" BACON","IB"," WATER","C"," CARROTS","L"," SUNLIGHT","Q" 6"OILY FISH","QGHDCT","WHEATGERM","R"," FRUIT","PSL" 4N=115:B$(N,1),B$(N,2):N ?"BONES & TEETH","AGFCQP"," BLOOD","AESOP"," PROTEIN","K" >" ENZYMES","EK"," DIGESTION","IBTP"," NERVES","HIBMTP" ;" OSMOCONTROL","HIB"," SKIN","JNTP"," GROWTH","LO" K" GUMS","PS"," FERTILITY","R"," NUCLEIC ACID","G"," VITAMINS","JR" #" THYROID","D"," VISION","L" 'N=07:"A"+N,85U:N J H\xdo# mAPPLE ORANGE CABBAGE CANNED PEAS BOILED POTATOESCRISPS ROAST PEANUTS BROWN BREAD CEREAL BISCUITS BOILED RICE MILK CHOCOLATE JAM MARMALADE HONEY BUTTER CHEESE MILK BOILED EGG BACON GRILLED LIVER BEEF PICKLED HERRINGGRILLED COD TPW F\R dL%2. % 1JR FXJ#7GUQQ% XWdJ  7 AA HPdOCALCIUM ABCDEU AB CHLORINE KLQCA EFG FLOURINE FOUR A IODINE FUK N IRON ABHGEM BD MAGNESIUM CE A PHOSPHORUS FGHAIDCU AL POTASSIUM CDGHIU GF SODIUM ACKLQ EFG SULPHUR EGHJ HM ZINC HJ CD VITAMIN A DLSMUW IO VITAMIN B1 DHNPIJ F VITAMIN B2 DHPNJG H VITAMIN B12 HPM BI VITAMIN C EIW ABEFJH VITAMIN D CGLUT A VITAMIN E DGV MK VITAMIN K EGWM BJ NICOTINIC ACIDFHINUP EFH  BREAD AGIE FLOUR AE CHEESE ABGHIFQ MILK AGHLMNR GREEN VEG.AEFPSJ FISH GDCT EGGS GHJEQRNS MEAT GHJEKMNTO POTATOES GHMTP BEANS JKMN SALT BID BUTTER BILQ LIVER SOLE CEREALS MNT TEA C YEAST MONT BACON IB WATER C CARROTS L SUNLIGHT Q OILY FISH QGHDCT WHEATGERM R FRUIT PSL «BONES & TEETH AGFCQP BLOOD AESOP PROTEIN K ENZYMES EK DIGESTION IBTP NERVES HIBMTP OSMOCONTROL HIB SKIN JNTP GROWTH LO GUMS PS FERTILITY R NUCLEIC ACID G VITAMINS JR THYROID D VISION L g &{yzb vNvDLPQ BJKA4