ZXTape! 0Created with Ramsoft MakeTZXBIOLOGY EExG ""  0  400 7:0: "" !biology @ W% @?p|@q""@qϾ>0 @! " 0"((0`qǀ! BA"qǀ`D((B " " D"p" "r/<" `0< ``D"<B (* !@ "" x" ! () @0oAq"!po@@qR(@08"!!p@1pppqppppqpppqpppqpppqpppqpppqpppqppppqpppqppppqpppqppppqpppqppppqp|88|@@@9<  `@DEPQ@@@@EB @DDA@X8y18535.1}L,-12 :1060$ =8x$="5":10 ,10 ;1;"START TAPE":"" B's$=" " L/x=x$:x=x-480:x=4500+x*500 Vx `7:0: j15:i=1721:i,0;s$;:i tNi=113 :n$(i,1),n$(i,2),s(i,1),s(i,2):i ~18,0;"PRODUCER p":19,0;"HERBIVORE h":20,0;"CARNIVORE c":21,0;"DECOMPOSER d" x=1+(*13 ) /n$(x,2,11)="x"1160  5 o1:18,15;s$(115);:0:18,15;n$(x,1,112 ) p1:20,15;s$(115);:0:20,15;"abb. ";n$(x,1,13 ) =""1200 x$= /x$65AƯx$90Zx$=(x$+32 ) Bx$n$(x,2,11).2~L,-12 :1200  7 Z.2~L,480:s(x,1),s(x,2);n$(x,1,13 ):n$(x,2)="x" 02:s(x,1),s(x,2)-2;x; i=113 /n$(i,2,11)"x"x=99c i x=99c1160 start of web loop (w) w=13 5:1 (i=1721:i,0;s$;:i 6w$="TWO-LINK CHAINS eg 1-2":col=4:co=0 Ew=2w$="THREE-LINK CHAINS eg 1-2-3":col=2:co=2  Fw=3w$="FOUR-LINK CHAINS eg 1-2-3-4":col=1:co=1 D5:co:17,(32 -w$)/2;7;1;w$  i=112 :c$(i):i */i=112 :j=1w:l(i,j):j:i 4F5:1:z=1200:z:19,0;s$;s$;s$ ><9000(#:x$<1űx$>9 x=0:2170z @0x$(11)=" "x=0:2170z C.20,0;s$;:21,0;s$; H x=0 Ri=112 \Bx$=c$(i,1̱x$)x=i:21,12 ;1;"CORRECT" f'x$="?"c$(i,9 9 )"x"x=i pi zMx=0.2~L,-12 :21,10 ;"INVALID WEB":21004 }_c$(x,9 9 )="x"21,10 ;"ALREADY USED";:.2~L,-12 :21004 =c$(x)(19 )"xxxxxxxxx"19,8;c$(x) 7:col  j=1w  y=l(x,j) .1}L,24 6k(y,1),k(y,2):k(y,3),k(y,4) @a=k(y,1):b=k(y,2):e=k(y,3):f=k(y,4)  4000 j &c$(x,9 9 )="x":x=0 i=112 'c$(i,9 9 )"x"x=99c i x=99c21004 w i=1721 i,0;s$; i i=14 Fc$(i,11)"x"16+i,0;c$(i,18) Wc$(i+4,11)"x"16+i,10 ;c$(i+4,18) Wc$(i+8,11)"x"16+i,20;c$(i+8,18) i .21,0;"Press ENTER to continue"; 13 2330 $ 1030  procarrow /e=0f>0an=/2:4030 7e=0f<0an=3*/2:4030 "e>0an=(f/e):4030  an=+f/e $xm=a+(e/2):ym=b+(f/2) "bn=an+/6:cn=an-/6 Txa=xm-(4*bn):xb=xm-(4*cn):ya=ym-(4*bn):yb=ym-(4*cn) !xa,ya:xm-xa,ym-ya:xb-xm,yb-ym  "Flea Flea","c",0,2,"Hawk Hawk","c",0,13 ,"Fox Fox","c",4,2,"Toad Toad","c",4,13 {"Lizard Lizard","c",4,24,"Fieldmouse Mouse","h",8,2,"Earthworm Worm","h",8,13 "Grasshopper Cricket","h",8,24,"Wheat Wheat","p",12 ,2,"Leaves Leaves","p",12 ,13 "Grass Grass","p",12 ,24,"Bacteria Bacteria","d",16,7,"Fungi Fungi","d",16,20 )"9-6","9-7","10-7","10-8","11-8","11-7" /"9-12","10-13","11-13","9-13","10-12","11-12" h3,9 ,12 ,16,19,15,4,5,6,29,30,31 4"9-6-3","10-7-4","11-8-5","9-7-4","9-7-5","10-8-5" ;"11-7-4","9-6-2","9-6-1","10-7-5","xxxxxxxxx","xxxxxxxxx" 3,2,12 ,11 ,19,18,9 ,11 ,9 ,23,16,18,15,11 ,3,24,3,25,12 ,23,0,0,0,0 +"9-6-3-1","9-7-4-2","10-7-4-2","10-7-5-2" ,"11-8-5-2","9-7-5-2","10-8-5-2","10-8-4-2" 0"11-7-5-2","xxxxxxxxx","xxxxxxxxx","xxxxxxxxx"  i3,2,1,9 ,11 ,10 ,12 ,11 ,10 ,12 ,23,20 l19,18,20,9 ,23,20,16,18,20,16,14,10 d15,23,20,0,0,0,0,0,0,0,0,0 |"Hawk Hawk","c",0,2,"Flea Flea","c",0,13 ,"Robin Robin","c",4,2,"Weasel Weasel","c",4,13 |"Rook Rook","c",4,24,"Caterpillar Grub","h",8,2,"Squirrel Squirrel","h",8,13 ~"Vole Vole","h",8,24,"Leaves Leaves","p",12 ,2,"Acorns Acorns","p",12 ,13 "Roots Roots","p",12 ,24,"Bacteria Bacteria","d",16,7,"Fungi Fungi","d",16,20 )"9-6","9-7","10-7","10-8","11-7","11-8" /"9-12","10-13","11-13","9-13","10-12","11-12" h3,9 ,12 ,16,15,19,4,5,6,29,30,31 4"9-6-3","9-7-2","9-7-4","10-7-4","10-7-2","10-8-5" 7"10-8-4","10-8-2","11-8-5","11-8-2","11-7-4","11-7-2" 3,2,9 ,17,9 ,11 ,12 ,11 ,12 ,17,16,18,16,14,16,13 ,19,18,19,13 ,15,11 ,15,17 4"9-6-3-1","9-7-4-2","9-6-3-4","9-7-4-1","10-7-4-2" 8"10-7-4-1","10-8-4-1","10-8-4-2","11-8-4-2","11-8-4-1" "xxxxxxxxx","xxxxxxxxx" 3,2,1,9 ,11 ,10 ,3,2,8,9 ,11 ,7,12 ,11 ,10 12 ,11 ,7,16,14,7,16,14,10 ,19,14,10 ,10 ,14,7,0,0,0,0,0,0 p"Pond skater Skater","c",0,2,"Pike Pike","c",0,13 ,"Water flea Daphnia","c",4,2,"Newt Newt","c",4,13 z"Minnow Minnow","c",4,24,"Amoeba Amoeba","h",8,2,"Tubifex Tubifex","h",8,13 ,"Water snail Snail","h",8,24 "Diatoms Diatoms","p",12 ,2,"Pondweed Pondweed","p",12 ,13 ,"Slime alga Alga","p",12 ,24 W"Bacteria Bacteria","d",16,7,"Fungi Fungi","d",16,20 W"9-6","9-7","10-8","10-7","11-7","11-8","9-12","10-13","11-13","9-13","10-12","11-12" h3,9 ,16,12 ,15,19,4,5,6,29,30,31 z"9-6-3","9-7-4","10-7-4","10-8-5","11-8-5","11-7-4","11-8-4","xxxxxxxxx","xxxxxxxxx","xxxxxxxxx","xxxxxxxxx","xxxxxxxxx" 3,2,9 ,11 ,12 ,11 ,16,18,19,18,15,11 ,19,14,0,0,0,0,0,0,0,0,0,0 5"9-6-3-1","9-6-3-4","9-7-4-2","10-7-4-2","10-8-4-2" Q"10-8-5-2","11-8-5-2","11-7-4-2","11-8-4-2","xxxxxxxxx","xxxxxxxxx","xxxxxxxxx" 3,2,1,3,2,26,9 ,11 ,10 ,12 ,11 ,10 ,16,14,10 16,18,20,19,18,20,15,11 ,10 ,19,14,10 ,0,0,0,0,0,0,0,0,0 d~"Sea slug Sea slug","c",0,2,"Gull Gull","c",0,13 ,"Blenny Blenny","c",0,24 n"Sea anemone Anemone","c",4,2,"Starfish Starfish","c",4,13 ,"Dog whelk Whelk","c",4,24 x"Copepods Copepods","h",8,2,"Mussel Mussel","h",8,13 ,"Barnacle Barnacle","h",8,24 "Diatoms Diatoms","p",12 ,2,"Seaweed Seaweed","p",12 ,24,"Bacteria Bacteria","d",16,7,"Fungi Fungi","d",16,20 c"10-7","10-8","10-9","11-9","10-12","11-13","10-13","11-12","9-12","9-13","xxxxxxxxx","xxxxxxxxx" g3,9 ,28,19,4,6,29,31,32 ,33!,0,0 7"10-7-4","10-7-8","10-8-5","10-9-5","10-9-6","11-9-5" F"11-9-6","xxxxxxxxx","xxxxxxxxx","xxxxxxxxx","xxxxxxxxx","xxxxxxxxx" 3,2,3,27,9 ,11 ,28,14,28,18,19,14,19,18,0,0,0,0,0,0,0,0,0,0 8"10-7-4-1","10-7-4-2","10-7-8-5","10-8-5-2","10-9-5-2" P"10-9-6-2","10-9-6-3","11-9-5-2","11-9-6-2","11-9-6-3","xxxxxxxxx","xxxxxxxxx" ҁ3,2,1,3,2,22,3,27,11 ,9 ,11 ,10 ,28,14,10 ܸ28,18,20,28,18,21,19,14,10 ,19,18,20,19,18,21,0,0,0,0,0,0 @%32 ,145,0,21 T%32 ,113q,0,21 ^$32 ,81Q,0,21 h&32 ,70F,480,-21 r&152,70F,0,-21 |&184,70F,0,-21 (104h,145,-64@,21 %579,140,29,0 %480,81Q,568,21 &120x,145,0,21 &120x,113q,0,21 %120x,81Q,0,21 (192,113q,-64@,546 (192,113q,-64@,21 '192,81Q,-64@,21 &128,81Q,64@,21 &100d,113q,0,546 &208,113q,0,21 %208,81Q,0,21 (208,145,-80P,21 &208,145,0,21 &34",145,80P,21 &'128,113q,64@,21 0&480,113q,480,546 :%44,,113q,0,546 D%73I,140,14,0 N$81Q,108l,6,0 X&75K,75K,115s,24 b&568,70F,96`,-21 l&100d,70F,0,-21 v)192,70F,-112p,-21 )200,102f,-88X,-546 '200,102f,0,-546 #(get input and build x$ #* 10 #-%x$="":19,0;"web or ?" #2=""90102# #<z$= #Az$="?"x$=z$: #F6z$=13 .05|L,8:.05|L,0: #Hpz$=12 Ʊx$119,7+x$;" ":x$=x$(1̱x$-1):.05|L,0:90102# #K(x$11 z$=13 :9030F# #PFx$<11 x$=x$+z$:19,7+x$;z$:.05|L,480 #Z 90102# ' 0 'Ustkend=23653e\+256*23654f\:"webs"23552\,stkend-23500[: tkenړ9999' webs 8\\847\7 breathe 55Lp7 -7:0:7:0:0 "23785",ç:"23659",1: messages/instructions  ( 2 < F P Z63000:7 d"" n x '=SAVEing instructions RUN 9999  '#"23785","255":"breathe"ʰ"1": breathe \ # # <@T''8cnc\\\c\ccc cdd\3fKX![!@P!!88W K SR P 10 23659k\,0 e205,124|,0,59;,59;,225,1,15,0,9 ,235,42*,61=,92\,115s,35#,114r,201,59;,59;,205,142,2,123{,254,255,32 ,248,58:,58:,92\,254,255,40(,33!,254,7,40(,29,254,8,40(,25,60<,502,129,92\,253,546,0,255,33!,14,39',34",66B,92\,175,502,68D,92\,253,203,1,254,195,125},27,513,513,195,3,19,205,124|,0,59;,59;,225,1,15,0,9 ,235,42*,61=,92\,115s,35#,114r,201,118v,205,142,2,123{,254,255,32 ,248,58:,58:,92\,254,12 ,40(,10 ,254,16,40(,6,254,20,40(,2,24,25,60<,502,129,92\,253,546,0,255,33!,14,39',34",66B,92\,33!,0,0,34",68D,92\,59;,59;,195,125},27,195,3,19,0,205,142,2,123{ &g=6300163150:a:g,a:g 63074b #23659k\,2 -/0:7:7:0:0: 2&1;"PLEASE LEAVE TAPE RUNNING" Z 7 d"" n '<2,-30:0:or any routine for errors 'ostkend=23653e\+256*23654f\:"breathe"23552\,stkend-23500[:60000`,133: tkenc9999' breathe \\4 *2 7breathe S2\ U2# # <@T''8\\\\"*;;2\3fX![!@P!!88W K SR Pg23561 \,255:23562 \,255:23658j\,0:(60000`)1330 7:7:0:0:0::1;10 ,10 ;"STOP THE TAPE":12 ,8;"THEN PRESS A KEY"; =""3 d#r(14):s$(32 ):s$=" " i 7000X j6:6: n.120x:x=07:n:"a"+x,n:x xE0,0,0,24,36$,8,16,60< t=17 5340 g=40-4:g "t=55260:220 5100:5180< 5:100d g t /:12 ,10 ;2;"PRESS ANY KEY" x$=:x$=""250 6:6: 1,10 ;2;"I":1,11 ;0;"NSPIRATION":1,22;2;"E":1,23;0;"XPIRATION" ;290":x=16:y:y,0;2;x:x "43,6,9 ,11 ,13 ,16 ,?3106:x=19 :y,x$:y,1;0;x$:x 63,"Air",4,"content",6,"Muscle",7,"action",9 ,"Ribs",11 ,"Diaphragm",13 ,"Thoracic",14,"pressure",16,"Lungs" @t=491:5100 Jr18,0;1;"In which box does this belong ?":21,4;1;"(enter as I1, E4 etc)" T"r(1)=(*14)+1 ^p=214 hr(p)=(*14)+1 rh=1p-1 |#r(p)=r(h)h=p-1:360h h p p=114 (6490Z+10 *r(p))  q$,a$,v,u 20,0;s$ S20,((32 -q$)/2);1;q$:20,29;5;" " x=12 x$=:x$=""470 1x$=105iůx$=101ex$=(x$-32 ) *x$a$(xx).05|L,0:470 9.05|L,30:20,28+x;5;x$:x 5:100d v,u;0;q$ p ;5:100d:x=1821:x,0;s$:x  100d vsimulation routine  1000 $a=4805048050+13 n:a,n a  )10 ,6;"S I M U L A T I O N" ":" Press ENTER to continue"; 13 710 &:t=11 :5100:5180< 0t=35#37%:5100:5180<:t a1l=228 a1h=187 M48000,0:48001,64@:48002,a1l:48003,a1h 48050  V:t=11 :5100:5180<:t=38&40(:5100:5180<:t t=38&40(  5100:5180<:t *a2l=229 4a2h=214 >M48000,0:48001,64@:48002,a2l:48003,a2h H48050 RK:10 ,0;"Press 'x'stop SIMULATION"::"Press ENTER to start" \13 860\ f y=0 pM48000,a1l:48001,a1h:48002,0:48003,64@ z48050 i=1100d "X"Ʀ"x"930 y=1:i=100d i y=12000 M48000,a2l:48001,a2h:48002,0:48003,64@ 48050 i=1100d %="x"Ŧ="X"y=1:i=100d i y=12000  870f |42*,128,187,237,91[,130,187,1,0,27,237,176,201 stop routine 3:10 ,2;"Press 'R' to re-run program" 012 ,2;"Press 'N' for next program" =""2030 x$= x$="R"x$="r"  ?x$="N"x$="n":10 ,10 ;1;"START TAPE":""  2030  procdraw 5990f+10 *t x,y,z  z=051702 z=1x,y z=2x,y ( 5120 2 < procinv F5990f+10 *t Px,y,z Zz=05250 dz=1256-x,y nz=2-x,y x 5200P   procribs  6040 x,y x=05330  x,y,2 256-x,y,2  5280   procask (6400+10 *t) q$,a$  5520 G21,0;s$:21,7;2;"FOR HELP PRESS '?'" il=1̱a$:a$(ll)97aƯa$(ll)122z20,l+((32 -a$)/2);2;"-" l l=1̱a$ "2a$(ll)<97aůa$(ll)>122z5500| ,x$=:x$=""5420, 1/x$65AƯx$90Zx$=(x$+32 ) 6dx$=a$(ll).05|L,30:20,l+((32 -a$)/2);0;a$(ll):5500| @_.05|L,0:x$="?"20,l+((32 -a$)/2);0;a$(ll):5500| J 5420, |l  procquestion 5x=1720:x,0;s$:x:lin=17 4q$32 lin,0;1;q$:5600 b=32 1-1:q$(bb)=" "lin,0;1;q$(1b):q$=q$(b+1̱q$):lin=lin+1:b=1: b  5540  p124|,164,1,-4,-1,2,2,-9 ,2,2,0,2,0,0,0 zO124|,154,1,1,-23,2,0,0,0 125},131,1,-10 ,-8,2,128,126~,1,-7,-6,2,0,0,0 115s,123{,1,0,2,2,2,2,2,2,2,2,1,2,2,0,3,2,-3,3,2,-2,1,2,-4,0,2,-3,-1,2,-6,-5,2,-4,-2,2,-5,-10 ,2,-8,-25,2,-2,-7,2,1,-6,2,4,-14,2,4,-2,2,10 ,-1,2,13 ,3,2,3,3,2,4,6,2,2,11 ,2,-2,5,2,-1,11 ,2,-1,11 ,2,1,5,2,0,0,0 112p,142,102f,137,92\,130,87W,122z,83S,114r,80P,106j,80P,98b,79O,90Z,79O,82R,79O,70F,0,0 S112p,142,1,-10 ,-5,2,-10 ,-7,2,-5,-8,2,-4,-8,2,-3,-8,2,0,-8,2,-1,-8,2,0,-8,2,0,-12 ,2,0,-15,2,1,-11 ,2,0,0,0 80P,44,,1,9 ,9 ,2,3,2,2,10 ,5,2,6,3,2,7,1,2,6,2,2,7,0,2,0,0,0 124|,149,1,0,-9 ,2,-20,-14,2,108l,126~,1,20,14,2,19,-14,2,151,126~,1,-20,14,2,0,9 ,2,112p,139,1,-8,-4,2,-4,-3,2,-4,-5,2,-4,-4,2,143,139,1,8,-4,2,4,-3,2,4,-5,2,4,-4,2,0,0,0 104h,126~,1,-6,-3,2,-3,-3,2,-3,-7,2,-2,-14,2,-1,-14,2,0,-20,2,1,-14,2,1,-3,2,1,-4,2,4,0,2,8,7,2,4,7,2,4,17,2,0,45-,2,-2,3,2,-2,3,2,0,0,0 ά92\,123{,1,-2,-3,2,-4,-7,2,-2,-7,2,-1,-7,2,-1,-10 ,2,0,-34",2,1,-11 ,2,3,-6,2,5,0,2,8,3,2,7,7,2,8,7,2,2,1,2,8,2,2,4,0,2,0,0,0 M128,82R,1,-4,0,2,-8,-2,2,-18,-5,2,-14,-7,2,-2,-1,2,-1,-2,2,0,0,2,8,-1,2,27,8,2,10 ,3,2,2,-1,2,0,0,0 104h,126~,1,-4,-1,2,-8,-9 ,2,-16,-24,2,-2,-8,2,-3,-9 ,2,-2,-17,2,2,-3,2,3,-7,2,2,-4,2,40(,4,2,6,2,2,2,1,2,0,24,2,-2,24,2,-2,10 ,2,-2,7,2,-6,9 ,2,-4,1,2,0,0,0 92\,123{,1,-8,-10 ,2,-9 ,-14,2,-3,-3,2,-5,-11 ,2,-4,-6,2,-3,-11 ,2,0,-6,2,2,-11 ,2,4,-7,2,2,-3,2,4,-3,2,44,,2,2,8,1,2,4,0,2,0,0,0 128,75K,1,-12 ,0,2,-16,-2,2,-12 ,-1,2,-12 ,-2,2,-8,-2,2,-6,-2,2,-2,-1,2,2,-1,2,8,-2,2,14,0,2,16,0,2,16,1,2,10 ,1,2,2,1,2,0,0,0  +"The vocal cords are found here","larynx" ?"Cartilage hoops prevent the collapse of this tube","trachea" ;"These tubes subdivide to form the bronchioles","bronchi" (U"The total surface area of these organs is equivalent to two tennis courts","lungs" 2X"Gliding joints between these bones and the vertebrae allow the thorax to move","ribs" <9"These muscles pull the ribs up and out","intercostals" FJ"Contraction of this muscle increases the thoracic capacity","diaphragm" P&79O,172,1,176,0,2,0,-136,2,-175,0,2,0,120x,2,175,0,2,0,132,1,255,0,2,0,108l,1,255,0,2,0,92\,1,255,0,2,0,76L,1,255,0,2,0,524,1,255,0,2,79O,172,1,0,-136,2,172,172,1,0,-136,2,0,0,0 d$"20% oxygen","I1",3,11 n$"16% oxygen","E1",3,22 x#"0.04% CO","I1",4,11 #"4.04% CO","E1",4,22 $"Contracted","I2",6,11 !"Relaxed","E2",6,22 ""Up & out","I3",9 ,11 #"In & down","E3",9 ,22 $"Flattened","I4",11 ,11  "Domed","E4",11 ,22 "Low","I5",13 ,11 "High","E5",13 ,22 #"Inflated","I6",16,11 #"Deflated","E6",16,22 X 7: b210 ,10 ;2;1;"BREATHING" l2:150 v d0,0;0;"You will be asked to identify various parts of the respiratorysystem" u4,0;2;"The correct answer will result in the computer displaying the relevant part on screen" (8,0;1;"On completion of the diagram, you will be asked to answer somequestions, the correct answers to which will be displayed in a table. The completed table provides a useful summary of thesignificance of major aspects ofthe processes of inspiration andexpiration" u18,0;2;"Finally the respiratory action of the anatomical parts is shownby an animated diagram" @21,2;1;1;"PRESS ENTER KEY TO START"  x$=:x$13 7090  ' 0 'Xstkend=23653e\+256*23654f\:"breathe"23552\,stkend-23500[: tken9999' breathe S2\ \S24hom 11K[3 -7:0:7:0:0 "23785",ç:"23659",1: messages/instructions  ( 2 < F P Z63000:7 d"" n x '=SAVEing instructions RUN 9999  '"23785","255":"hom"ʰ"1": &hom \# # <@T''8cnc\\\c\ccccdd\3fLX![!@P!!88W K SR P 10 23659k\,0 e205,124|,0,59;,59;,225,1,15,0,9 ,235,42*,61=,92\,115s,35#,114r,201,59;,59;,205,142,2,123{,254,255,32 ,248,58:,58:,92\,254,255,40(,33!,254,7,40(,29,254,8,40(,25,60<,502,129,92\,253,546,0,255,33!,14,39',34",66B,92\,175,502,68D,92\,253,203,1,254,195,125},27,513,513,195,3,19,205,124|,0,59;,59;,225,1,15,0,9 ,235,42*,61=,92\,115s,35#,114r,201,118v,205,142,2,123{,254,255,32 ,248,58:,58:,92\,254,12 ,40(,10 ,254,16,40(,6,254,20,40(,2,24,25,60<,502,129,92\,253,546,0,255,33!,14,39',34",66B,92\,33!,0,0,34",68D,92\,59;,59;,195,125},27,195,3,19,0,205,142,2,123{ &g=6300163150:a:g,a:g 63074b #23659k\,2 -/0:7:7:0:0: 2&1;"PLEASE LEAVE TAPE RUNNING" Z 7 d"" n '<2,-30:0:or any routine for errors 'kstkend=23653e\+256*23654f\:"hom"23552\,stkend-23500[:60000`,133: tkenc9999' hom \\4 &e  hom w\ Ky# # <@T''85yx\\\5y\AyFy2y4Ny_y_y\3f;X![!@P!!88W K SR Pg23561 \,255:23562 \,255:23658j\,0:(60000`)1330 7:7:0:0:0::1;10 ,10 ;"STOP THE TAPE":12 ,8;"THEN PRESS A KEY"; =""3  8t$(5,24):t(5):s$(32 ):s$=" " 6:6:  1 d9110n:i=15:x$:t$(i)=x$:t(i)=x$:i n^"Temperature control","Water balance","Breathing rate","Blood glucose level","Leave program" pVi=15:3+2*i,5;t$(i):3+2*i,1;i:i qP15,0;2;"Which bodily function do you wish to control ?" s+20,4;"Enter 1, 2, 3, 4 or 5" xD2:0,10 ;"HOMEOSTASIS":2,13 ;"Menu" }=""125} ~s=:s=s-480 s=50 4s<1s>4.1}L,-12 :125} r=1+(*2) "s=1c=2:d=13 "s=2c=3:d=11 "s=3c=17:d=5 "s=4c=19:d=7 3000 6: i=610 -i,1;5;s$(130):i >19,0;7;s$:20,0;7;s$ 1 %0,0;"h":"i":"g":"h" %7,0;"n":"o":"r":"m" !14,0;"l":"o":"w" %8,480:0,120x &8,108l:240,0 T3:8,169:240,0:8,47/:240,0 ,z1:18,0;"Helps to restore normality ?":17,31-t(s);1;7;t$(s)(1t(s)) 1$21,9 ;"(press y or n)" 6 6 Jstart=1+(*8) T&r=1y=116t+start*4 ^&r=2y=100d-start*4 cz=y f b=108l-z:b<0b=-b h8x=12 :2:8,y:x,0:x1=12 ry=108l1000 |y1681100L y4801200 x12401300 f=1+(*63?) (4990~+10 *f) q$,q (2:19,0;7;q$ y1=0:x=4  a=108l-y:a<0a=-a 5o=(400-2*a*h):o<150o=150  2:o x$= x$="y"x$="Y"520 x$="n"x$="N"550& /.1}L,20:x$=""h=1465 >19,0;7;s$:20,0;7;s$ x,y1:x1=x1+x  370r "q/c=(q/c)y1=4:y=y+y1: #q/d=(q/d)y1=-4:y=y+y1:  &q/c=(q/c)r=2 0q/d=(q/d)r=1 : x=0: \a=1721:a,0;6;s$:a:10 ,10 ;"well done":1400x M19,0;6;"You have taken ";(x1-12 )/4;" steps" <20,0;6;"(minimum possible: ";b/4 x=120:x  1400x L0a=1721:a,0;6;s$:a VGs=118,0;6;1;"YOU HAVE HEAT STROKE" `Ls=218,0;6;1;"YOU HAVE DEVELOPED OEDEMA" jLs=318,0;6;1;"YOU HAVE HYPERVENTILATION" tDs=418,0;6;1;"YOU ARE IN A COMA" yx=120:x ~ 1400x 0a=1721:a,0;6;s$:a Gs=118,0;6;1;"YOU HAVE HYPOTHERMIA" Fs=218,0;6;1;"YOU ARE DEHYDRATING" Fs=318,0;6;1;"YOU ARE UNCONSCIOUS" Ds=418,0;6;1;"YOU ARE IN A COMA" x=120:x  1400x 0a=1721:a,0;6;s$:a  b=z-108l:b<0b=-b ( c=y-108l:c<0c=-c 2'b=cx$="YOUR CONDITION IS UNCHANGED" <(b>cx$="YOU HAVE PARTIALLY RECOVERED" F#b5353020 h=x$  ."Increasing cellular respiration",1938 %"Increasing liver activity",2 "Shivering",2  "Voluntary exercise",646 6"Vasoconstriction of skin arterioles",6 8"Reduction of surface area to volume ratio",2 *"Contraction of erector muscles",2 '"Additional subcutaneous fat",2 '"Decreasing sweat production",6 "Hair erection",2 ."Decreasing cellular respiration",5005 &"Decreasing liver activity",13 "Immobility",455  -"Vasodilation of skin arterioles",143 9"Increasing surface area to volume ratio",13 %"Relaxing erector muscles",13 (&"Reducing subcutaneous fat",13 2)"Increasing sweat production",143 <"Hair flattening",13 F$"Immersion in cold water",13 P"Having a drink",3 Z"Eating a meal",579 d("Increasing production of ADH",3 n'"Decreasing urine production",3 x"Constipation",3 "Concentrating urine",3 3"Increased water absorption in nephron",3 "Fasting",77M ("Avoiding liquid consumption",11 )"Decreasing production of ADH",11 ("Increasing urine production",11 "Diarrhoea",11 4"Decreased water absorption in nephron",11 "Dilution of urine",11 "Exercise",646 "Stress",323C -"Increasing adrenalin production",323C 9"Raising concentration of blood bicarbonates",17 ("Lowering blood oxygen level",17 9"Increasing stimulation of intercostals",17 )"Increasing rate of heartbeat",17 ")"Raising blood glucose level",323C ,"Excitement",17 6"Inactivity",455 @"Sleep",455 J7"Reduction of adrenalin production",35# T>"Reduction of concentration of blood bicarbonates",5 ^&"Raising blood oxygen level",5 h8"Decreasing stimulation of intercostals",5 r("Decreasing rate of heartbeat",5 |)"Lowering blood glucose level",35# )"Decreasing insulin secretion",19 !"Eating carbohydrates",19 "Eating proteins",19 2"Decreasing glucose uptake by cells",19 2"Decreasing glucose uptake by liver",19 "Sleeplessness",19 ""Storing less glycogen",19 )"Increasing insulin production",7 )"Excretion of glucose in urine",7 1"Increasing glucose uptake by cells",7 1"Increasing glucose uptake by liver",7 !"Storing more glycogen",7 ' 0 'Tstkend=23653e\+256*23654f\:"hom"23552\,stkend-23500[: tkenCy9999' hom w\ \w4