ZXTape! 0Created with Ramsoft MakeTZXPROGRAM-1 ^p Loader H 'H !h ]h!PO]!@ ]!\s>7V  48999g 0:0:0: 23793\ $0:0:0,0 "" 3]aK"0!Q6666:Q(!Q4:S(ݿ:Q8!R4!T4> w:S2S:R !QFͪ"Pͪ" !SFͪ"xGͪ"  B w# !RFͪ"!SFͪ" !X6#666ɰ???@?/??@$<?$? 1@T????@T?h *Q??????J!Q?A?!_?F?????????G????A??????????????????????88888888888888888888888888888888888888888888888888888888Q!@@p Ǧ<"""@# @c‚>> >@x#@GO""0? 8C@ CB>> <A ; %A0" A 8<:>> @@e "@""  @@>8>8>>@   @@<?#$@  `D  @@_B0'$   BD  @@ODG ( 0HD  @?O<@DI@H  Hx""  2AH"@ @@$"` @$@A@ ?"@ @( !@@ |!@ 2  0!A @p   @A A@@O  0@@A@@  @@A!@@ @H:::::::::8xxxxxxxxxxx88::::::::::::::::::8xxzxxxxxxxx88::::::::::::::::::8xxzyxxxxzxx88::::::::::::::::::8xxxxxxxxxxx88::::::::::::::::::8xxxxxxxxyxx88::::::::::::::::::8xxxyyxxzyxx88::::::::::::::::::8xxxyyxxzzxx88::::::::::::::::::8xxxzzxzzzxx88::::::::::::::::::8xxxzzzzzzxx88::::::::::::::::::8xxxzz:::zxx88::::::::::::::::::8xxxz::::zxx88::::::::::::::::::8xxxz8888xxx88::::::::::::::::::8xxxxxzxx88::::::::::::::::::8xxxx8888{xx88::::::::::::::::::8xxxxHHHHxxx88::::::::::::::::::8xxxxHxxHxxx88::::::::::::::::::8xxxzxxxxxxx88::::::::::::::::::8xxxxxxxxxxx88::::::::::::::::::8xxxzzxxxxxx88::::::::::::::::::8xxxxxxxxxxx88:::::::::88888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888!P@eB !L ʹ<*]\!]"]\Ͳ(###~2L!_"]\Ͳ(###~2M0 :L*0"]\ :Uݶ KL*S[U~ y* x #z CL *]\!a"]\Ͳ(###~F"]\!L(0**]\!W"]\Ͳ(0####~_#VSU#"S#"Q"]\ʹF==2O2O!L6( 0#~ĝ(ͺQͪ ~c *Q+61 y> ú %:Oݾ44:L*64:M6:P55:L6)5:M6 08:>!,͵!L*Q^w KLKL>!;\nˮͪ:\{_!:_!D_ůWOxͰ"O)))>gyA(?+$!L/w#y/ww#yw  Z$(1) X Y S *Q^N  ( Abk+~ (6 N  ( Abk+~ (6 *]\!"]\Ͳ(###~*0J_!"]\Ͳ(###~06W!"]\Ͳ(#F##~ BKePY{* z #"]\"]\ gyA(?+$/w#y/ww#ywX Y A$ W P P P 3\MQQ \Wq !v> PPPPPP (  X@@h    P P  00 @pp` ppp0p0Pppp @@ppppxp   @ @  @p 8LT\@<pppppp ppبȨpppxppp pP PP PP  @ @@  p 0H@@pxxppxxpx0@`@@@xxp ` pH0@P``PH Шppxx 8@@@@pp p pPP PP Pxp @TPPPPPP$0T Mn@0/M  P $]v]MMWmW\GWq !v>p1 .:' J0:30:7:0::23561 \,35# ,23735\,0:23736\,247  8 42*,61=,92\,17,10 ,91[,115s,35#,114r,201,62>,255,502,123{,92\,33!,10 ,91[,229,195,125},27,-1 4:i=23296[ a:a=-1 i,a:i=i+1:6 5:23296[ ,23735\,0:23736\,247 (0,0;" STOP THE TAPE" Z3,1;"PROGRAM NO. 1";5,1;"GETTING TO KNOW YOUR INSIDES"  9000(# Qi=119:p(i)=i:i:tiov=0:cr=0:wr=0:pt=0 23560\,0 #N13 ,5;"Which level(1-7)? ";:8000@:a$<"1"a$>"7"35# $_a$:lv=a$:16,9 ;"You have ";11 -lv;" minutes.":tlv=(11 -lv)*60< %O21,0;"Press a key to start.":i=1502:i::8000@ &M58000:23672x\,0:23673y\,0:23674z\,0 '4u$="2001"+c$:9850z&:u$="2101"+r$:9850z& ( ml=1 *6c(ml)>15y=r(ml):x=c(ml):u$="?":9860& +9c(ml)<15y=r(ml):x=11 :u$="?":9860& -<150:8020T:tiov=17000X:410 .%a$13 Ưa$32 45- /6c(ml)>15y=r(ml):x=c(ml):u$=" ":9860& 29c(ml)<15y=r(ml):x=11 :u$=" ":9860& 7a$=13 222 <%ml=ml*(1ml<19)+1 Ap(ml)=060< F 42* rn=ml:p(rn)=040( p(rn)=0 ^n(1)=(*3+1):dg=0:no=n(1):260:dg=1230 ^n(2)=(*3+5):dg=0:no=n(2):260:dg=1235 ^n(3)=(*3+9 ):dg=0:no=n(3):260:dg=1240 _n(4)=(*3+13 ):dg=0:no=n(4):260:dg=1245 _n(5)=(*3+17):dg=0:no=n(5):260:dg=1250 n(6)=rn:270 no=rndg=1  11000:tiov=17000X:410 q=64000 q63000 %tiov=17000X:410 u$="2200"+s$:9850z& ,'pt=pt+1:pt=19400 1 60<  *one turn* Ptm1=((65536*23674z\+256*23673y\+23672x\)/502) tm2=(tm1/60<) tm3=tm1-60<*tm2 9:u$="1001What is your name ? ":9850z&:2000 jd1=0:i=1 lm+(1lm=0):n$(i,)=z$(2)d1=1:k=i:i=lm:i:424 )i:lm20lm=20:6000p +lm=lm+1:n$(lm,)=z$(2):k=lm nm=k :sc=(1000*cr/tm1):d1=1sc15r(rn),23;s$(1((3/4*l(n(q))))+1):y=r(rn):x=31:u$=p$(n(q),l(n(q))):9860& c(rn)<15r(rn),9 -(3/4*l(n(q)))-(1l(n(q))<12 );s$(1((3/4*l(n(q))))+(1l(n(q))<12 )):y=r(rn):x=12 -l(n(q)):u$=p$(n(q),l(n(q))):9860&  Nu$="2001"+c$:9850z&:u$="2101"+r$:9850z&:u$="2201"+h$:9850z&  8020T:tiov=1  a$=" "1050 .a$13 Ưa$32 a$"h"1036  Da$=13 u$="2001"+c$:9850z&:u$="2101"+r$:9850z&: a$"h"1050 Bu$="2000"+s$+s$+s$:9850z&:u$="2001"+l$(rn,lv,):9850z& ""1035   1048 dc(rn)>157;0;r(rn),23;s$(1((3/4*l(n(q))))+1) c(rn)<157;0;r(rn),9 -(3/4*l(n(q)))-(1l(n(q))<12 );s$(1((3/4*l(n(q))))+(1l(n(q))<12 )) w:1000  * name * ' z$(11 ):u$="10210":9800H& >z$(1)="1"z$(210 )=" "2000  *wrong* 8wr=wr+1:.5,-19:.75@,-20 ›c(rn)>15r(rn),23;0;4;s$(1((3/4*l(n(q))))+1):y=r(rn):x=31:u$=p$(n(q),l(n(q))):9860& c(rn)<15r(rn),9 -(3/4*l(n(q)))-(1l(n(q))<12 );0;4;s$(1((3/4*l(n(q))))+(1l(n(q))<12 )):y=r(rn):x=12 -l(n(q)):u$=p$(n(q),l(n(q))):9860& Nu$="2200 WRONG! Press any key...":9850z&:8020T:tiov=1 u$="2200"+s$:9850z&   *correct* 3cr=cr+1:i=120:.02{# =,i:i c(rn)>15r(rn),23;2;s$(1((3/4*l(n(q))))+1):y=r(rn):x=31:u$=p$(n(q),l(n(q))):9860& c(rn)<15r(rn),9 -(3/4*l(n(q)))-(1l(n(q))<12 );2;s$(1((3/4*l(n(q))))+(1l(n(q))<12 )):y=r(rn):x=12 -l(n(q)):u$=p$(n(q),l(n(q))):9860& Pu$="2200 CORRECT! Press any key...":9850z&:8020T:tiov=1 u$="2200"+s$:9850z&  p* no players * u?:u$="0100SORRY! I can't receive another player.":9850z& z6u$="0300 Press any key...":9850z&:8000@  475 X* time over * bC19,10 ;1;"TIME OVER!!":i=1500:i g @** Ea$= J=""8005E O T *+time* Ya$= ^itm1=((65536*23674z\+256*23673y\+23672x\)/502):tm1tlvtiov=1: h=""8025Y m #' #(*data* #)1lm=0:pt=0:cr=0:wr=0  #+bq$(21):n$(21,10 ):d$(21,7):e(21):f(21):g(21) #-Wp$(19,15):p(19):r(19):c(19):n(6):l(19) #.0s$=" " #2:90157#:i=119:p$(i,),r(i),c(i),l(i):i #7"BRAIN",0,31,5,"SALIVA",3,6,6,"EPIGLOTTIS",2,31,10 ,"LARYNX",4,31,6 #<"TRACHEA",5,5,7,"OESOPHAGUS",5,31,10 ,"HEART",8,31,5,"LUNGS",7,7,5 #A"STOMACH",10 ,31,7,"KIDNEYS",12 ,31,7,"LIVER",10 ,7,5,"GALL BLADDER",12 ,0,12 #F"PANCREAS",13 ,31,8,"DUODENUM",14,4,8,"ILEUM",15,31,5,"COLON",16,7,5 #Kl"APPENDIX",18,6,8,"RECTUM",17,31,6,"BLADDER",19,31,7 #P0c$="Press 'SPACE' to change option " #R0r$="Press 'ENTER' to choose option " #S0h$="Press 'H' for a clue " # % * miyun * %!%j=1lm:q$(j)="1"9510&% %"g(j)>mxmx=g(j):i=j %&j:q$(i)="1": &H*in* &M@y=u$(12):x=u$(34):s=u$(5) &Ru=63363: &z*line* &Ay=u$(12):x=u$(34):u$=u$(5) &z$(u$):z$=u$ &u=63232: 'LOADER 'Il$(19,7,502):19,0;:"data"l$():1 VP2Controls your body Centre of the Nervous System Contains grey matter Receives information from sense organs Protected by your skull Stores information Has 2 cerebral hemispheres Gland which makes and secretes saliva Gland which makes and secretes saliva Gland which makes and secretes saliva Gland which makes and secretes saliva Gland which makes and secretes saliva Gland which makes and secretes saliva Gland which makes and secretes saliva Flap which prevents food and drink Flap which prevents food and drink Flap which prevents food and drink Flap which prevents food and drink Flap which prevents food and drink Flap which prevents food and drink Flap which prevents food and drink Produces sound Produces sound Produces sound Produces sound Produces sound Produces sound Produces sound Takes air to your lungs The wind pipe Tube through which you breathe Tube linking lungs and throat An air cleaning tube Epiglottis stops food entering Cartilage rings hold it open Tube taking food away from your mouth Tube linking mouth with stomach Where food goes first after swallowing Indigestion pains occur in here Tube behind your trachea A muscular tube in your thorax Tube which passes through the diaphragm The blood pump Gives blood its pulse Lub dub, lub dub, lub dub, lub dub A four chambered organ Made of cardiac muscle Contain atrio-ventricular valves Speeded up by adrenalin The breathing organs Seriously damaged by smoking A pair of large organs in your thorax Where Oxygen enters the blood The site of gaseous exchange Moved by the diaphragm Contains millions of alveoli Food is churned in this muscular sac A food storage sac at end of oesophagus Food bacteria are killed in here Its walls secrete hydrochloric acid Where milk is cloted Proteins are digested here Rennin and Pepsin work in here A pair of oval organs in abdomen These organs filter and clean blood Produce a fluid which fills the bladder Excretes urine Extracts urea, water and salt from blood A pair of osmoregulatory organs Adrenal glands are attached to the top Largest organ in your body Organ found to the right of stomach An organ which stores food molecules Removes waste from the blood Makes a lot of heat Breaks down old red blood cells It produces urea from waste amino acids This bladder does not store urine Where gall stones may occur Small sac joined to the liver Collects bile produced by liver Stores bile which aids fat digestion Excretes bile into duodenum A sac which stores the liver's wastes An organ which secretes into duodenum An abdominal organ which secretes enzymes It produces enzymes which digest starch It produces enzymes which digest protein It produces enzymes which digest fat Produces insulin Produces amylase and lipase First part of small intestine Muscular tube between stomach and ileum An abdominal tube from the stomach Stomach acid is neutralised here Pancreas secretes enzymes into this tube Bile duct brings bile to this tube Trypsin,amylase and lipase work here Tube which is joined to duodenum Very long narrow tube in abdomen Lower part of small intestine Digestion is completed in this tube Digested molecules are absorbed here Tube lined with villi to aid absorption Blood leaving this tube is full of food Large intestine One metre long tube in abdomen A wider tube than the ileum Tube which joins ileum with rectum Roughage is dried out in here Water is absorbed from this tube May become diseased if diet lacks fibre Appendicitis is an inflammation of this part May become infected and can be removed A non-essential tube A short blind-ending tube A tube which does no useful job in men A tube joined onto large intestine Essential in rabbits, useless in men The final part of the gut The final part of alimentary canal Muscular tube which ends in an anus This tube and colon from large intestine It secretes mucus to remove faeces Stores faeces for a short time Muscle walls contract to expell faeces Area of urine storage A sac of smooth muscle Must be emptied regulary Linked by ureters to kidneys Urethra takes fluid from this organ Kidneys' excretia drains into this organ Must be emptied regulary data %G2Controls your body Centre of the Nervous System Contains grey matter Receives information from sense organs Protected by your skull Stores information Has 2 cerebral hemispheres Gland which makes and secretes saliva Gland which makes and secretes saliva Gland which makes and secretes saliva Gland which makes and secretes saliva Gland which makes and secretes saliva Gland which makes and secretes saliva Gland which makes and secretes saliva Flap which prevents food and drink Flap which prevents food and drink Flap which prevents food and drink Flap which prevents food and drink Flap which prevents food and drink Flap which prevents food and drink Flap which prevents food and drink Produces sound Produces sound Produces sound Produces sound Produces sound Produces sound Produces sound Takes air to your lungs The wind pipe Tube through which you breathe Tube linking lungs and throat An air cleaning tube Epiglottis stops food entering Cartilage rings hold it open Tube taking food away from your mouth Tube linking mouth with stomach Where food goes first after swallowing Indigestion pains occur in here Tube behind your trachea A muscular tube in your thorax Tube which passes through the diaphragm The blood pump Gives blood its pulse Lub dub, lub dub, lub dub, lub dub A four chambered organ Made of cardiac muscle Contain atrio-ventricular valves Speeded up by adrenalin The breathing organs Seriously damaged by smoking A pair of large organs in your thorax Where Oxygen enters the blood The site of gaseous exchange Moved by the diaphragm Contains millions of alveoli Food is churned in this muscular sac A food storage sac at end of oesophagus Food bacteria are killed in here Its walls secrete hydrochloric acid Where milk is cloted Proteins are digested here Rennin and Pepsin work in here A pair of oval organs in abdomen These organs filter and clean blood Produce a fluid which fills the bladder Excretes urine Extracts urea, water and salt from blood A pair of osmoregulatory organs Adrenal glands are attached to the top Largest organ in your body Organ found to the right of stomach An organ which stores food molecules Removes waste from the blood Makes a lot of heat Breaks down old red blood cells It produces urea from waste amino acids This bladder does not store urine Where gall stones may occur Small sac joined to the liver Collects bile produced by liver Stores bile which aids fat digestion Excretes bile into duodenum A sac which stores the liver's wastes An organ which secretes into duodenum An abdominal organ which secretes enzymes It produces enzymes which digest starch It produces enzymes which digest protein It produces enzymes which digest fat Produces insulin Produces amylase and lipase First part of small intestine Muscular tube between stomach and ileum An abdominal tube from the stomach Stomach acid is neutralised here Pancreas secretes enzymes into this tube Bile duct brings bile to this tube Trypsin,amylase and lipase work here Tube which is joined to duodenum Very long narrow tube in abdomen Lower part of small intestine Digestion is completed in this tube Digested molecules are absorbed here Tube lined with villi to aid absorption Blood leaving this tube is full of food Large intestine One metre long tube in abdomen A wider tube than the ileum Tube which joins ileum with rectum Roughage is dried out in here Water is absorbed from this tube May become diseased if diet lacks fibre Appendicitis is an inflammation of this part May become infected and can be removed A non-essential tube A short blind-ending tube A tube which does no useful job in men A tube joined onto large intestine Essential in rabbits, useless in men The final part of the gut The final part of alimentary canal Muscular tube which ends in an anus This tube and colon from large intestine It secretes mucus to remove faeces Stores faeces for a short time Muscle walls contract to expell faeces Area of urine storage A sac of smooth muscle Must be emptied regulary Linked by ureters to kidneys Urethra takes fluid from this organ Kidneys' excretia drains into this organ Must be emptied regulary rPROGRAM-2 G(# ,Is=0:hs=0  23658j\,8:K=0 1:1:7: =0,0;" " 4"  BUILDING A BLOOD SYSTEM  " (," " 2Zz=313 :z,0;"    ":z <>14,0;" Press I for information " FK>0175 K K=1 Z+6,5;"A. EXPERT LEVEL" _+8,5;"B. NORMAL LEVEL" d,10 ,5;"C. PRACTICE LEVEL" e/4,5;"*. OLYMPIC LEVEL" i:21,0;" SOFTWARE COMMUNICATIONS 1985 " n> 12 ,3;" Which one A/B/C/*__?"; xa$=:a$=""120x yA$="*"140 }A$="I"320@:1 ^a=(a$)-64@:a<1a>3x=282:0.05|L,x:x:120x A$ Mz=31-1:x=9 1-2:z/100d,x:x:z =A$="*"53033),1:53034*,6:170 053033),a:53034*,-4+a*16 53000 250 SCORE *16,9 ;" LEVEL ";A$;" " Z$=(X):k=0 %(Z$)<5Z$="0"+Z$:185 B17,8;"___Score___";:0:shsz$:200 Zg=15:h=S/(10 ^g):h=h-h:h=(h*10 ):k=10 ^(g-1)*h+k 9j=0h:17,24-g;j:0.01z# =,j:j:g hs=k:s=k .19,8;"** New record **" Z$=(HS) %(Z$)<5Z$="0"+Z$:205 318,8;"Hi-score___";:0:z$  `X=((55099;)*1000/(2*(550979))):S=X:A$="*"S=S*3:X=X*2 X=0256 270 z$=:z$=""253 z$<32 253 60000` z$=:z$=""257 z$<32 257  10  LABELS  7 A2,2;1;"PULMONARY";3,3;"ARTERY" A2,21;2;"PULMONARY";3,23;"VEIN" <18,7;1;"VENA";19,7;"CAVA" %18,21;2;"AORTA"  +clear ,x0:0:7:X=213-1:X,0;" ":0.02{# =,X:X 6: ? information @ 300, JZ 4,4;"Blood flows around a living body in a double circulatory system." O Tg" Two arteries take blood away from the heart. One takes Red oxygenated blood to the body" UO" and the other takes Blue deoxygenated blood back to the lungs." Y ^r" Two veins carry blood back to the heart. One carries Blue deoxygenated blood away from the body"; _J" and the other carries Red oxygenated blood away from the lungs." b 1020 c300,:: h]" Therefore, to build a systemwhich works you have to connectfour major blood vessels." r/11 ,4;"Only four - sounds easy !" w |(9 );"Just you try ." }%1020:60010j:270 ~*1,1;0;"LIKE THIS :-" 1020:0 1:0:7: G0,13 ;1;4;"KEYS";1,12 ;"______" .3,1;"2 = Freezes the game." %" 3 = Allows game to continue." D:" Q = Chases little man away on":" the left of screen." E:" P = Chases little man away on":" the right of screen." A:" W = Freezes and releases just":" the Vena Cava." D" E = Freezes and releases just":" the Pulmonary artery." D:" O = Freezes and releases just":" the Pulmonary vein." 9" I = Freezes and releases just":" the Aorta." 1020:1050 €0,3;"The object of the game is to connect all four blood vessels into their correct positions as shown earlier." ×:" To do this you must try and organise the movements of the blood vessels so that all four are in the correct positions at the same instant." k" This is achieved by holding up one blood vessel at a time and releasing it at the right moment." ŏ" For example, you could start by lining up the Pulmonary artery with the Pulmonary vein. (Use the '2' key to check if it is correct)" G" Then try to line up a third vessel with these two and so on." 1020:1050 p2,2;"When all four are correct theywill automatically 'lock-on' andyour score will be displayed."  8,10 ;"GOOD LUCK." !" You are going to need it!!"  0 1020:  SCAN KEY 5#0;1,9 ;"Press any key" A$=:A$=""1030 A$<32 1030  TX=021:X,0;" ":0.02{# =,X:X $ #(Loader #Z(29999/u:9055_#:i=23296[ #[a:a=-19060d# #\i,a:i=i+1:9051[# #_42*,61=,92\,17,10 ,91[,115s,35#,114r,201,62>,255,502,123{,92\,33!,10 ,91[,229,195,125},27,-1 #d23296[ #1:1:7: #9 ,4;" ":10 ,4;" Loading program ":11 ,4;" " # 1 #0,0 '2:"code": sk 2Acode u0u4tPu?T/?@Ph G?4 A?$<?@*? 1?Q???@$J!?TAQ??@F?!?_?x<>>Ϗ>???x>>χ??x?>>?σx?<>x?>|?x??<>x~>|><???x?~|}????x?|>??x<>>?|<?||<>>x~?B<<~<<~B<|~<<<>>~(BB@@B@BBB@BBffBbBBBb@@D|~?~B<|||?>BB@B~|@@BBBBJ@~BJ@B>||?BBBB@ZBD@BBBBBFBBBFB@D|>?|?B><<<<<@$BB~<@BZ$@B@B~<~~|~B~~xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx}}}}}}}}xxxxxxxxxxxx}}}}}}}}xxxxxxxxxxxx}}}}}}}}xxxxxx~~~~~~xxxxx}xx~~~~~~yyyyyyxxxxxxxxyyyyyyzzzzzzxxxxxxxxzzzzzzyyyyyyxxxxyyyyyyyyyyyyxxxxyyyyyyxyyyyyxxxxyyyyyyWWWWWWxxxxWWWWWWxxxxxxxxxxxxxxzzzzzzxxxxxxxxxxxxxxxxxxxxxxixzx}xxxxxxxxxxixxxxixzx}}}}}}}}xxxixxxxixzx}}}}}}}}xxxixxxxixzz}}}}}}}}xxxixxxxixzzxxxxxxxxxxxixxxxixzzxxxxxxxxxxxixxxxixzzxxxxxxxxxxxixxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxà:)29:+2;!D)7V05,7  HA A :/'''O:0Ͱ":8_:02u:7Wd~w# :0<20 :u20!<= :U2/:V20:Z:J2/:K20:L:O2/:P20:Q͠:8O:7Gdw#!04 X X@X`XXXXXY Y@Y`YYYYYZ Z@Z`ZZZZ>29:4_!~_#~W&:3o:9G:4?:c0'''G~ǰqG~w#>29 É>29 7:4<24:4 24!)D7:*2:!@\"'͸!PE{!}2|2ͤ þ vͺ:.<2.&8>2c>23::242͂:4<242:4 242:4<242>2c>23:<242x:4<242:4 242:4<242>2c>23:;242:323͂:4<24:3232:4 242:4<242>2c>23:=242:323x:4<24:3232:4 242:4<242>G:G?8 ::E?8 ::G:Aπ2:,>:H?8 :=G:Dπ2=>}:F?8 :;G:Bπ2;{!:A~ >͛Ö >͛#!~ >w!Iwxg͵͎:\2TO>2\+} WOEI:T!E (:I( >2I>:T2I#>G^ !!!! :W:-<2-:X:W(+:Zͯ:Z<2Z:U((;<2U>2Z>2X:Zͯ:Z<2Z :U(( =2U>2Z>2X>2W>2Zͯ>2-2W:T2rR<7kX:.!)Ͼ8>2.:-=2- 8:+ !'>2+ :N((=2N> 2L>2N:S(=2S> 2Q>2S:-:TQ .:N>2N> 2L!d͵:W >2W>2ZP:S>2Q>2S!d͵:W >2W>2Z:>2/:?20:@:@< >2@:-:,o<2,&~<2-?8>2W>2U>2Y>2Z>2Y>2U>2W>2Z:W >2Zͯ!͵>2W>2Z>2W> 2Zͯ!͵>2Z:X:U !:A~(##!;BÀ<>2X,ͪ">wx͛"!>͛"x o& ͵:+ :*=2*::2*:+Gͪ">w:+=2+ !,͵!d(͵ͪ">w:*ϸ :)G( !*:::;:<:= !' ͸>2TV͎:\3 >2T^þ!x''_~_#~Wy???o&x''''Gͪ"!xV(~''''o&͵~OxG w #wx''''GxͰ"*'~#~ #,>2+,7  HA A ???>~>`????yq`@<~~~???=>xxx|~|?< >~?????????<~~~|?`?;p}x~~~~~~~~q80>>p?p?pxxxx;p}x0>>p?p?pxxxx|p?x?~~>>0>>p?p?pxxxx|;pz}}}}}}}}f 0`=9;;{{{{|;z}}}}}}}}f 0`=9;;{{{{|3`7' '@73?{s`wg gws;??`{???{s`wg gws;?                                                       !05"'͸!)D7>2;2<>2:2=!@@E{>,2+2*ͤ!D)7 mPROGRAM-3 B# *!@\!@F\! \>7V  38999W 1:1:1: 100d:23296[ 23770\ 218,0 <"" di=23296[ na:a=-1 xi,a:i=i+1:110n 42*,61=,92\,17,10 ,91[,115s,35#,114r,201,62>,255,502,123{,92\,33!,10 ,91[,229,195,125},27,-1 ]]?T/?@Ph G?4 A?$<?@*? 1?Q???@$J!?TAQ??@F?!?_?x<>>Ϗ>???x>>χ??x?>>?σx?<>x?>|?x??<>x~>|><???x?~|}????x?|>??x<>>?|<?||<>>x~?B<<~<<~B<|~<<<>>~(BB@@B@BBB@BBffBbBBBb@@D|~?~B<|||?>BB@B~|@@BBBBJ@~BJ@B>||?BBBB@ZBD@BBBBBFBBBFB@D|>?|?B><<<<<@$BB~<*sv2w!ͪ"t h:2*s͚!E"*s:mO>t!t>! .>!$> !>,>,>!,,>!$>!>,> ,>!,,!>.>:2>! ,>,>,>,>! ,>,>,,>>! & >&>! ,>! ,>,>,,>! $>$:2>!>$>!>,>,> !>,>,>!>$>!>,>,>!>,> ,>!>.>! ,>! ,>,>,>,>! $$>! ,>! ,>! $$:2!E">!>.>! .:2~0*6\"! x>:,:'0! x:&0! xE:u*sv)PA!͵:C(t.>!Dg N >52uˎ>_ F >82uˆ>O V >72u˖>W( ˞~2u>62u!DO N >52uˎ>G F >82uˆ>W(V >72u˖>_( ˖~2u^>62u!D>g N >52uˎ>W F >82uˆ>_ V >72u˖>g( ˞~2u>62u͸!Ԣ8!$%6>22*s͚>G^"V*6\"!$4~6!%4~ 6!&4~ 6!'4~6!(4~ 6:u5('8(17(6:t<82t:t= >2t:s=0>2s:s<8>2s>2ң> 2:ԣ'G'' 2!գ~2ӣ!٣=(##[s~((#~(# >2ңx2ӣ##   HpBH~D<|><~~>~B~~B`~BB|N~xxDBBB@><88<<<<<<<<<<<<<<<<<<<<<3<{`~~`~~ccc<<c<<<c<~B<c<`~<cf~cbBc<ccc<<c~~cB`c~`cBb<>`>``b~>cccccccc~cb`c`|cx`cb`ccccccffc<<ccccccbdc|bcbbcbdccccccc<c<c<c<c<~c<~c<~c<~c<~c<~c<~c<~cc`<~`<~`<~`<~<~<~<~<~<~<~<~<~<~x7J0<<<<c<<c|><~<<<<c<<<c<<>H~>~B~~<<<3<c<~B<c~~`>cpB`~BB<<{c<`~<cB``cBH|N~xx<<`~~cf~c~``c~DDBBB@<<`~~cbBcBbbc<><88<<cc<<~>c<<cccccccc<~c<~c~cccc<~c<~cb`ccbdcc<~`<~<~c`|cffc|bcc<~`<~<~cx`c<<cbbc<c<~`<~<~cb`ccbdc<c<~`<~<~cccc<c<~<~cccc<c<~<~xxxxxxxxxxxxxxxxxxxxxxOxxWxxxxxxxxxxxxxxxxxxxxxxxxxxxxHxxPxxxxxxxxxxxxxxxxxxxxxxxxxxxxHxxPxxxxxxxxxxxxxxxxxxxxxxxxxxxxHxxPxxxxxxxxxxxxxxxxxxxxxxxxxHHHOHPWPPPxxxxxxxxxxxxxxxxxxxxxxHOHHHPPPWPxxxxxxxxxxxxxxxxxxxOOOOOHHHPPPWWWWWxxxxxxxxxxxxxxxxxxxHOHHHPPPWPxxxxxxxxxxxxxxxxxxxxxxHOHHHPPPWPxxxxxxxxxxxxxxxxxxxxxxHHHHHPPPPPxxxxxxxxxxxxxxxxxxxxxxHHOHHPPWPPxxxxxxxxxxxxxxxxxxxxxxHHHHHPPPPPxxxxxxxxxxxxxxxxxxxxxxHHHHHPPPPPxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx0000000000000000000000000000000000000000000000000000000000000000!P@!PX !L ʹ<*]\!]"]\Ͳ(###~2L!_"]\Ͳ(###~2M0 :L*0"]\ :Uݶ KL*S[U~ y* x #z CL *]\!a"]\Ͳ(###~F"]\!L(0**]\!W"]\Ͳ(0####~_#VSU#"S#"Q"]\ʹF==2O2O!L6( 0#~ĝ(ͺQͪ ~c *Q+61 y> ú %:Oݾ44:L*64:M6:P55:L6)5:M6 08:>!,͵!L*Q^w KLKL>!;\nˮͪ:\{_!:_!D_ůWOxͰ"O)))>gyA(?+$!L/w#y/ww#ywZ$(1) X Y S *Q^N  ( Abk+~ (6 N  ( Abk+~ (6 *]\!"]\Ͳ(###~*0J_!"]\Ͳ(###~06W!"]\Ͳ(#F##~ BKePY{* z #"]\"]\ gyA(?+$/w#y/ww#ywX Y A$ W P P P 3\MQQ \Wq !v> PPPPPP (  X@@h    P P  00 @pp` ppp0p0Pppp @@ppppxp   @ @  @p 8LT\@<pppppp ppبȨpppxppp pP PP PP  @ @@  p 0H@@pxxppxxpx0@`@@@xxp ` pH0@P``PH Шppxx 8@@@@pp p pPP PP Pxp @TPPPPPP$0T Mn@0/M  P $]v]MMWmW\GWq !v>f<3{χ<<<<~~~~~~~~<<<<<<<<Kχ<<<<2tm1sp3000 1tm2=241696:10 :4500 3301 :2005 4Display cursor. 7+0,15;8;9 ;"": * diseas *  des=(*12 )+1 sp=(*(sp2-sp1))+tm1 $m(des,3)=13005 [nodes=nodes+1:41940ԣ,nodes:nodes=441696:10 :4000 &d(nodes)=des:m(des,3)=1 0.01z# =,30 3501 * bdika * nodes=0 "xx=41844t:yy=41843s Di=1nodes:m(d(i),1)=xxm(d(i),2)=yy3306 i: sc=sc+sc1 Display diseases! m(d(i),3)=0 nodes=nodes-1 Pj=inodes-1:d(j)=d(j+1):j:d(nodes)=0:nodes=nodes-1 ki=1nodes+1:13 +2*i,0;" ":i * print dis * y=13 i=1nodes 41940ԣ+i,d(i) Ny+2*i,0;1;"D-";0;" ";a$(d(i),);"is diseased":i:  * sof * 1,15 sium=1 2i=1521:i,0;s$(32 ):i . 15,3;1;"HEART ATTACK!!" 6u$="1702Your score is: "+sc:9850z&:44000 %u$="2101Press any key.":9850z&  8000@  7 / ** hi-score 0sc>hschsc=sc :)u$="1902HI-SCORE : "+(hsc):9850z& D  *time over* nodes=06000p 2i=1521:i,0;s$(32 ):i "u$="1507TIME OVER!!":9850z&  4015 p* movement * qju$="1503YOU DID VERY WELL!!":9850z&:u$="1503Your score is: "+sc:9850z&:44000:30 r6005u:6060:20:6045:20:6040:6050:20:6055:20:6015:20:6057:6070 u2,20;" ";3,20;8;0;"":4,19;8;0;" ":5,19;1;"" z2,27;" ";3,27;8;0;"";4,26;8;0;" ":5,26;2;"" | ?3,22;1;"";3,25;2;""  10 ,19;8;"";0;11 ,19;" ";1;11 ,23;"";0;12 ,21;"";13 ,21;"";14,21;" " 10 ,24;8;"";11 ,24;" ";12 ,26;"";13 ,26;"";14,26;" "  ?9 ,20;1;"";9 ,27;2;""  2,20;8;0;"":3,20;8;0;"":4,19;1;"";5,19;" ";1;"" 2,27;7;0;"":3,27;7;0;"":4,26;2;"";5,26;" "  ?9 ,20;1;"";9 ,27;2;""  ?3,22;1;"";3,25;2;""  10 ,19;8;" ";11 ,19;1;"";12 ,21;"":13 ,21;"";14,21;"" 10 ,24;8;" ";11 ,24;2;"";12 ,26;"":13 ,26;"";14,26;""  start=16110 $u$="2003PRESS ANY KEY":9850z& k$=:=""6002r  7 k$=:=""6002r start=0:7 X*open* ]:58000 ^ 7500L bWu$="1201Place the actions in":9850z&:u$="1301the correct sequence.":9850z& gFx=4:y=1520:u$=q$(q(y-14),):9860&:y hf#0;0,0;7;s$(32 ):u$="2203Print the no. and press ENTER":9850z& i h(6) l>s=1:y=1520:x=(k(q(y-14)))+7 qZu$=" ":9860&:z$(2):9810R&:z$(1)="1"z$(2)=" "7025q r7z$(2)<1Űz$(2)>67025q vh(y-14)=z$(2) {y  *bdika* -i=16:h(i)=q(i)i:7050 d1,-19:1,-20:u$="2201 WRONG! Press any key to try again. ":9850z&: #sium=1:8000@:1 _i=120:.02{# =,i:i:u$="2201 CORRECT! Press any key to continue":9850z& start=1:6002r L *bilbul* N Q q(6) V4v$="":r=16:v$=v$+(r):r:o=6 [w=16 `1z=(*o+1):r=v$(z):o=o-1:q(w)=r e"v$=v$(z-1)+v$(z+1) jw: @** A Jk$=:k$=""8001A O #(*data* #) #*7to=0:d(3):degdes=0:nodes=0 #+sc=0:hsc=0 #-/s$=" " #/&i=5801158022:x:i,x:i #0m33!,80P,219,17,0,88X,1,0,3,237,176,201 #2,m(12 ,3):a$(12 ,32 ) #7#i=112 :b$:a$(i,)=b$ #<i #="RIGHT ATRIUM" #>"RIGHT VENTRICLE" #?"LEFT ATRIUM" #@"LEFT VENTRICLE" #A"RIGHT SEMI LUNAR VALVE" #B"LEFT SEMI LUNAR VALVE" #C!"RIGHT ATRIO VENTRICULAR VALVE" #D "LEFT ATRIO VENTRICULAR VALVE" #E "AORTA" #F"PULMONARY ARTERY" #G"PULMONARY VEIN" #H "VENA CAVA" #?n(18):i=112 :m(i,1),m(i,2):i #i5,20,10 ,21,5,27,10 ,26,4,22,4,25 #g8,20,8,27,6,31,0,22,0,25,6,16 #/s$=" " #Q9144#:q$(6,30):k(6):i=16:q$(i,),k(i):i # "atrium pistons push",20 #*"atrio ventricular valves open",30 ##"ventricle pistons push",23 #+"atrio ventricular valves close",31 ##"semi-lunar valves open",23 #$"semi-lunar valves close",24 # 9155# #&i=40549e40551g:j:i,j:i #&i=39900ܛ39911:j:i,j:i #205,220,155 #y229,213,197,205,192,157,205,155,226,193,209,225 # &H*in* &M@y=u$(12):x=u$(34):s=u$(5) &Ru=63363: &z*line* &Ay=u$(12):x=u$(34):u$=u$(5) &z$(u$):z$=u$ &u=63232: 'Loader '(:6:1:7:0: ' 1,2;"STOP THE TAPE";4,2;"PROGRAM No. 3 :";7,7;"HEART OPERATION";8,6;"*****************" ' O14,0;"Choose option :"''" 1 Keyboard"'" 2 Sinclair joystick" ' '8000@:k$<"1"k$>"2"9996 ' ' i=(k$)-480 '715+i,3;1;k$:i=2i=3 '$41283C,i:9000(#:1 egdeodesx    RIGHT ATRIUM RIGHT VENTRICLE LEFT ATRIUM LEFT VENTRICLE RIGHT SEMI LUNAR VALVE LEFT SEMI LUNAR VALVE RIGHT ATRIO VENTRICULAR VALVE LEFT ATRIO VENTRICULAR VALVE AORTA PULMONARY ARTERY PULMONARY VEIN VENA CAVA B VENA CAVA]S( ѹatrium pistons push atrio ventricular valves open ventricle pistons push atrio ventricular valves closesemi-lunar valves open semi-lunar valves close ! im!Vo[zVlu!stariuoppcw m me  UCHOOSE OPTION!!CHOOSE OPTION!!K