' +JJJJ ?\>m0M='+l> /+l   d@LҦ{|LFBBbL_E` X  ` 鷎귭෍ᷩ췩緈JJJJx L8ᷭ緍췩 緍i 8 `巬 췌`x (`(8`I`B` ``>J>J>VU)?`8'x0|&HhHh VY)'&Y)xꪽ)' `Hh`V0^*^*>&` aI꽌ɪVɭ&Y&&Y& 꽌ɪ\8`&&꽌ɪɖ'*&%&,E'зЮ꽌ɪФ`+*xS&x'8*3Ixix&& 8  '  & x)*++`FG8`0($ p,&"  !"#$%&'()*+,-./0123456789:;<=>?354+,,,(((((((((((((((((((((((354+-,,,((((((((((((((((((((((80^݌Hh ü ü݌ ռ ռ ռA ļD ļ? ļAEDE?HJ>h Լ ռ ռ ռ`HJ>݌h Hh݌`HIHHHHhHH݌hHhHh݌H6 VDP (ED f $0x8x D- ܸDD# H8`?E Vk *f???0xE Hh D#-EEE8` D ܸx D - ܸx8`-0ݩ?ʥD EEE` `hhL=  cpq` [` Y Y LCӜu`y".Q`pNФbptťܥm2<(-Py0\|e<6e<g< JJJJj귍hI  aUL@ kU8  L  Q^R(jQ0l^l\  wUuW ԧ H h@ [_ /QSIRb_L`LLLL`ª`LQLYLeLXLeLee ўQH\(h0L& Ꝥ$`( R \ZLl8 ўR HH\`\Z[YS6`LxQɿu3'RͲʎRʎ]]]ɍuL͟ɍ}RLRɍg^H8 ^hZLɍR LͲɊRR% QLܤͲ Z@ -^ ş\[Z QY\[Z8`l6Lş_Ȍb_Ͳ] )Y h( ֭ͲLɍ [LLĦ__ ^ 9 LҦ3 9 a   0LjLY u< (_9 ˭ɠuɠK_9 ?LˆʎL yz a`` L̦̀_bJLuLz`  ȟ QlXJ̥KlV  ȟ QlV eօ3L e3L &RL &QL d L4 Ne)n{ y `@-eff z L }f`L . tQLѤ LҦL` OPu d L Ne)noon 8ɍ` ^f\yzL ^NR  RΩLҦ)\Z ʽ LHv 3h`0h8` [L NСyz `A@` LL`  \ ޿0 \  ȟ Q ^\lZl^?cqH şch`f}h~j@OAP`u@`@g&`QR`E Ls  @DAE@u`8` %@ @A@`@`@A`M ) LЦ`8@AWc@8@-@HAȑ@hHȑ@ȑ@hHȑ@Ȋ@ch8&ȑ@Hȑ@Ah@LHȑ@ȑ@ htphso`hMhL`9V8U897T6S67`INILOASAVRUCHAIDELETLOCUNLOCCLOSREAEXEWRITPOSITIOOPEAPPENRENAMCATALOMONOMOPRINMAXFILEFINBSAVBLOABRUVERIF!pppp p p p p`" t""#x"p0p@p@@@p@!y q q p@  LANGUAGE NOT AVAILABLRANGE ERROWRITE PROTECTEEND OF DATFILE NOT FOUNVOLUME MISMATCI/O ERRODISK FULFILE LOCKESYNTAX ERRONO BUFFERS AVAILABLFILE TYPE MISMATCPROGRAM TOO LARGNOT DIRECT COMMANč$3>L[dmx-( Ϡ@yy`\ m ͭ \6\ 8 ЊL5`H h L~̮ `{|Jmmjnnnۭ}m~mm`"L 8H (Y`F d̠֠Ġz#??? ӮӮu` d@LҦ{|LFBBbLB$"":40025.WA18B$(B$,(B$)1):40025>XB$B$(A1)VY(23):25:B$" "eZM240015p[40009Pù600,A:601,CSÒ0:ME4,E5:E1E2,E3:(21)::(4);"RUN ODELLP2"ٺ:(1023)123ĺ(4);"RUN HELLO BIO"Z݀2,110:3:3X,110+H(16384)127400202IXVK0:3210,110:X2101602:M2tM0:2X2,110:3:2X,110N(16384)12740020OX:40004TA1(16384)128U16368,0:A113B(B$):B0B6E4X:E5110: VA113(A18(B$)1))))?uZ364ĔZ344Z1(Z1)7,Z2:30050:@uZ33230050RNuZ31Z1(Z1)7,Z2YbuZ_lu@3:5110,118:B$"":A1$"":E15:E2110:E3118:2160,110:16368,0C(23):"WHAT DO YOU WISH TO DO? ";D0:2160,110EX1622102:M3G0:3X*91751.:21:B12005,12007,12009,12012,12014\."ATTEMPT TO ESCAPE TO DEEPER WATER":."ATTEMPT TO ESCAPE TO SHALLOW WATER":."JUST IGNORE IT":."ATTACK AND EAT IT":."CHASE IT OUT OF YOUR TERRITORY":0uZ1(Z$):Z3((Z$,Z,1)"Y"Ľ:600,9:5#9175E'16368,0:24:13:"PRESS SPACE BAR";^'(16384)12710010z'0:E1E2,E3:ME4,E5:*:::9:"REMEMBER A "A9$" WILL"::"EAT A "A$"."*:"NOW RUN THE PROGRAM AGAIN AND SEE IF "::"YOU CAN SURVIVE":10000THE SAME NICHE":3#"YOU HAVE BEEN SUCCESSFUL":?#C30ıy#:::11:"YOU PASSED UP TOO MANY CHANCES AT FOOD":#:" YOU STARVED TO DEATH."#10000#::12:"DO YOU WANT TO TRY AGAIN?";A$#(A$,1)"N"đ:::55555#(A$,1OU ARE TOO LITTLE":@Z#"YOU ARE GETTING HUNGRY..BETTER EAT":n#"YOU CAN NOT KILL THIS FISH AND":"YOU USED A LOT OF ENERGY NEEDLESSLY":s#"YOU GOT AWAY FOR THE TIME BEING":v#"NO.....THAT WAS THE WRONG MOVE":x#"GOOD, IT DOES NOT OCCUPY 14:E5118:M2:!@0:5110,118^EME4,E5:Y118:X1230E42:3:5110X,118:3E4X,118G0:5110X,118:3E4X,118:XI3:5110X,118:E15:E2110X:E3118:(#"THAT WAS A WASTE OF ENERGY":F#"THAT FISH JUST ATE YOUR LUNCH.":P#"Y,110:E15:E2X110:E3110:ILX1101242:0:5X,118:3:5X2,118:XuQ0:ME4,E5:XE41146:3:2X,118:0T2X,118:3:14X2,118:0:14X2,118V3:15X4,118:0:15X4,118:X0:5126,118:3:2114,118ZE12:E2126:E3118:E41Y100:X110E4262:3:7X,Y:0/`7X,Y:XZc3:5E420,118:E15:E2E420:E3118:ll0:5110,118ym2E4,E5nX0220E44:3:7X110,100:3E4X,110:0p7X110,100:3E4X,110:Xq3:3E4X,110:M3:E4E4X:E5110r3:5X110E1124:E2118:E35:E4114:E5118:M2:6p0:ME4,E5bq3:XE41006:2X,118:0:2X,118:3s14X2,118:0:14X2,118:3:15X4,118u0:15X4,118:w5110,118:3:2100,118:E15:E2110:E3118:E4100:E5118:M2:X0:5110,118!_25XĂY3:5X,Y:X1XNR1:XE4E4362:15X,Y5:0:15X,Y5:3:X]0:5X1,Y3:2X,Y:E15:E2X1:E3Y:E4X:E5Y:M2:0:5110,118X110:Y1181101:3:4X,Y:04X,Y:XX4:Y3:478,110:E14:E278:E3110:&RX110:Y1181502:3:5X,Y:0C5X,Y:Y10(Y10)XX6:Yj3:5134,150:E15:E2134:E3150:|0:5110,118(1).904005ME4,E5X110:Y1181402:3:5X,Y:2E4,Y:05X,Y:2E4,Y:Y10(Y10)XX6E4E46:E4ɫ2506,2506,2506,2506,2580,2506> B4500,5000,6000,7500,7500\ B1R1R0:9075:11000{ B1B2İ9075:10000:300 9078:10000:11000 510 :(21):"A MACKINAW TROUT IS IN FRONT OF YOU,":A9$"MACKINAW TROUT":25010:5110,118!0,8000<B1B2B5İ9000:9050:10000:CC15:9150:300WB4İ9070:10000:300g10000:300:(21):"YOU SEE A RAINBOW TROUT IN FRONT OF YOU":501 :(21):"YOU FIND A DOLLY VARDEN VERY NEAR":A9$"DOLLY VARDEN" 40000:12000 A:300, B4İ9070:10000:CC5:9150:300H10000:CC5:9150:300VB5520r8000:9100:10000:300:21:"ALONG COMES A CHUB":501:21:"IN YOUR VICINITY IS A BLUEBACK SALMON,":4000012000:A4505B4000,5000,9080,702D$;"-";D$;" THAT IS, PURE DOMINANT."01340\R$;" - ";R$;" THAT IS,PURE RECESSIVE."f1340:"HOW MANY OFFSPRING DO YOU WANT";:NNR1820 T$"NO":"RATIOS ONLY WILL BE TYPED,BECAUSE OF ":"THE LARGER NUMBER OF OFFSPRING"TRY!":470% (Y$,L1)(D$,L1)580A &(Y$,L2)(R$,L2)520G DW NA$B$700g XY$Z$700 b"BECAUSE THE PARENTS ARE PURE GENOTYPES," g"ALL OFFSPRING ARE:-" lA$Y$650 vD$;"-";R$;" THAT IS, HYBRID." 1340 A$R$680&TYPE INCLUDES AN INCORRECT TRAIT."= "TRY AGAIN.....":360X (B$,L1)(D$,L1)470t (B$,L2)(R$,L2)430 :"GENOTYPE OF MALE PARENT";:Z$,Y$ (Z$,L1)(D$,L1)540 (Z$,L2)(R$,L2)540 "MALE GENOTYPE INCLUDES AN INCORRECT ENene";:D$ ;L1(D$)2 @"Recessive gene";:R$@ OL2(R$)[ T(D$,L1)(R$,L2)290 ^:"***************************************" h:"GENOTYPE OF FEMALE PARENT";:A$,B$ (A$,L1)(D$,L1)450 (A$,L2)(R$,L22)450" "FEMALE GENO SIMULATION (Y/N)";:J$+ J$"Y"14? (J$,1)"N"20O "";"PR#1"} :"SIMPLE INHERITANCE OF GENETIC TRAITS" "====================================" R200 "3:"What are the genes for the trait to be studied?" ,"Dominant gME OF A GENE":"YOU MUST TYPE IT IN EXACTLY THE ":"SAME WAY." :"WHEN TYPING THE GENOTYPES OF THE ":"PARENTS, TYPE A COMMA BETWEEN THE NAMES":"OF THE GENES." 18:8:"Press any key to continue";:A$ :4:"DO YOU WANT A PRINT-OUT OF THIS :936:`:"IN THIS PART OF THE PROGRAM YOU CAN":"USE THE COMPUTER TO CALCULATE THE""GENOTYPES AND PHENOTYPES OF OFFSPRING.":"YOU MAY CHOOSE ANY GENES YOU WISH":"FOR THE GENOTYPES OF THE PARENTS."> :"EACH TIME YOU TYPE THE NA      ONLY ONCE."2:"THERE MAY BE SOME SURPRISES!!"J(:18:"GOOD LUCK!"w223:7:"PRESS 'RETURN' TO CONTINUE":A$<:(:18:"GOOD LUCK!"223:7:"PRESS 'RETURN' TO CONTINUE":A$<:ISES!!"(:18:"GOOD LUCK!"!223:7:΍ :"SEE IF YOU CAN SURVIVE.":10000:9175U٭(1023)123ĺ(13);(4);"RUN HELLO BIO"[ٿA113(A18(B$)1)B$"":40025FWA18B$(B$,(B$)1):40025VXB$B$(A1)sY23:25:B$" ";ZA23M1140015[A23M940015\40009PÑ:::(10):"YOU MADE IT....FANTASTIC"::"TRY AGAIN AS A DIFFERENT FISH AND"(QúX,R3H(16384)12740020$IXMJ0:MR2,R3:A23R150:R2110:MM8]KA24MM1mLXR2R12M0:MX2,R3:3:MX,R3N(16384)12740020OXP40004TA1(16384)128U16368,0:A113B(B$):B0B6E4X:E5R3:$VPON IT" .5."CHASE IT OUT OF YOUR TERRITORY":b@3:4180,118:B$"":A1$"":E2180:E3118oAMR1,R3}B16368,0C23:"WHAT DO YOU WISH TO DO?"D0:MR1,R3:A23R194:R2130:MM8EA24MM1FXR1R22G0:MX2,R3:3:MRUN THE PROGRAM AGAIN AND SEE IF "::"YOU CAN SURVIVE":10000H*9175T.:(21)y.B12005,12007,12009,12012,12014."ATTEMPT TO ESCAPE TO DEEPER WATER":."ATTEMPT TO ESCAPE TO SHALLOW WATER":."JUST IGNORE IT":."ATTACK AND PREY U%---.='???>?$'$%$dI5'MI=.$?'?'?<7?>>77??????/-???7?77?77?77?<<<<<7555555-.-.---5------<<<<''/..,--&,47???.555-.-%%-,,,%-,-$/.-%%$ۛIII<$$46666???%$$ 66$??$$$$--26;?$,-.I ?$$ -!$$$--266;?-$$$--;7--$$$--;76d)5?$$ -l$$$6.-%$667>7?<<'<',$%$'$$6666657?>>>?>????65-5-.%%%?=====<>>>777?7?7???$->$56-....6--..55-...-.56-..55555.5-6.666.--%4?$,----.-5--5--.--.-5--.-5--.-.%$,$,$%%$,,,,%-,676?/7?&-,--.-.-.%,,$,%-65>>67.5.5565?>'?<'$''$6.66.6'67777?>??77---.--,,<<<>>????7?''''<--5-.5-.-$'$/$%$%$4?>7??=7?>7?<'?>.6-.555555-6&$?<<|III5'6>>.-577--->>.-577--6>67>><<4766><<455=<<<>66'6?>7-,%-,%,%,%,%,,$%$<$<<$''''''',,...55-*~IIIII!''?<'????>?-$,,,-%--..>>3.65>67.-%-,,$<<<>67?>.655556LIII16-6>76-MII --%$--6.--$,--6&$6.--$d LI-5?-7-*uI!L L1.M)e Lq1-uI L1&d1m &->>>77.%-,-,--%-------.5---%<$,-55-..5%$<$/$%$%,4?7?>???>>>??>???>>>655-.-.&'?'?<<$MI 5/$>6?6?>?>...-%-,%%%%%----%---55----$',66>>>%-5.&'$-,,,,,-6$$<,$$$<$<77>777>.-67?7/,%--?77?>??7>77?>>-6..-%=6-.-55-..5-55--,,%%-,,?>??7$'-----,------%--,,%%%%?>>>?'??>?-MQ-??6--LII 66.--<<<<'.--$-----.----.--------%-,%-,-567>67>6>>>,%,%%,,%-%-%-,%-,%-46?>67777>77>7?>>>7-..-.5-,-,6-..-...??????????>>6>6...%-,,%<$$%%,,$$%%%-,<<$%-,--..555-%-,-5.5..&??<6?7555='??>7.55-&?<6??66..655%-$%46666-.$%%,4666.55??'??>?>?'''-----?????'<<<[)mIII $,$$,$46766>6$6?<'''$,,,,-,$dI>?>?>?>?'?6?7??>>/?-.->67--%-,%%??>?-%--%-,,='''<$LI"%%,$$<$'ܛ=.L!''''<$?7?>7>67>665.6&<77?>7?,$%$,$=$'<$'''-.5-.5mIIII'??6765..%/%546.5-.->67--%-,%%??>?-%--%-,,='''<$LI"%%,$$<$'ܛ=.L!''''<$?7?>7>67>665.6&<77?>7?,$%$,$=$--,-,-5>6----,%-----.---%-%-%-%????<<55----%%%%<,''=>67?>>7??'??>7?66>6$%$$<$?<'?'?,,%,%4??/7??>7>7---=????>>777>676.65.%-,$%=>67?6555=<<<<,5,,$%M1...-,$%<$'?>>7&,,#7%-.5???????????????????$,.?7/-->??????????'??766%$$$=????,$%-%--,-%%-,,-%-----655....5---%--,5>=>66.6.????????????''''$ m+$..666>6>,6.-5-----------------------------------------------------------------------------------------------------------------------------:???????????,$-,$%,,66766.$-??'''?<''<$IIII????????????????????????????????'%,,$% 5-6..6$4766666%$$$$$<666666'$$$$,---4.6%4.&46%,=66%$,&,,,,,,,,,,,,,,,,56-....6--..55-...-.56-..55.55.-.56666--I#$$$?????????????????????<>7?>??<<<$$--5.%-,%--..555=766?/---=???'?/---??????????-%<<<$$,$$$$,-$$ -?',Q#4=676666666v----------$-@d]dJ n O F t   # , 9 G T _ o } #0>HWb'$$---666$$$ 666%$$$.2111$$$> $$)-266??$$$--2>?. $$)-266?%0116$$$--2?56-- ?$)-- $$$?--- $$ 666;?5 $#$ 66% $$$6667$!!!!61111$ $$## 635 ??$!!!!??' $$)-266? !!?)=$$$>- VE THE CHOICE OF:"C3:"1. USING THE COMPUTER TO WORK OUT YOUR"a3 " GENETICS PROBLEMS."3:"2. RETURNING TO GENETICS MENU."3虺:"3. RETURNING TO DISK MENU."3L:6:"TYPE THE NUMBER OF YOUR CHOICE"3V12:"(AND PRESS RETURN)" 4`A$ YOU DO NOT, THEN YOU"8:"MAY FINISH UP IN A MESS!"e23:7:"PRESS 'RETURN' TO CONTINUE":A$:3:"REMEMBER! YOU MAY SELECT UP TO FOUR":"SETS OF PARENTS. A MALE MAY BE USED " :"UP TO FOUR TIMES BUT A FEMALE MAY" :"BE MATED ARTICULAR"$:"CHARACTERISTICS."Q23:7:"PRESS 'RETURN' TO CONTINUE":A$x:3:"BE SURE TO WRITE DOWN THE ":"FACIAL CHARACTERISTICS OF THE ":"POTENTIAL PARENTS WHICH YOU":"SELECT FROM THE DISPLAY ON THE":"SCREEN. IFA9A15ĺ(7):480. A9ĺD$;"RUN PHOTEL"H A10ĺD$;"RUN ARROW"n A11ĺD$;"RUN NEWTON FORCE GAME" A12ĺD$;"RUN SPACE RESCUE MISSION"  &A14ī20 0A15ĺD$;"CATALOG"C::"9. PHOTOELECTRIC EFFECT"- :"10."L :"11. NEWTON FORCE GAME"Y :"12."{ :"14. RETURN TO FIRST MENU" :"15. DISK CATALOG" 23:4:"TYPE THE NUMBER OF YOUR CHOICE" 10:"(AND PRESS RETURN)" A$ A((A$)):D$(4):15ĺ(7):2205 A310,320,330,340,350,360,370,380J 6D$;"RUN HUNTER"f @D$;"RUN MILLIKAN STIM" JD$;"RUN RADIOACTIVITY" TD$;"RUN SPECTRA" ^D$;"RUN VECTOR" hD$;"RUN MAXBOLT" rD$;"RUN MAGNETIC FIELDS" |: :"PHYSICS 4" SPECTRA FORMATION"@ :"5. VECTOR ADDITION AND SUBTRACTION."[ :"6. GAS VELOCITIES"w :"7. MAGNETIC FIELDS" :"8. SECOND MENU" 23:4:"TYPE THE NUMBER OF YOUR CHOICE" 10:"(AND PRESS RETURN)" A$ A((A$)):D$(4):A1ABARRABA CENTRAL SCHOOL NSW(5j 17/2/80W5"";"RUN HELLO BIO":(4);"RUN HELLO BIO":A((A$))4jD$(4)14tA1ĺD$;"RUN DOMREC">4~A2ī10[4A3ĺD$;"RUN HELLO BIO"c4@:4J"WOULD YOU LIKE ANOTHER TRY?"::"TYPE 'Y' FOR YES AND 'N' FOR NO";4TA$4^A$"N"ī601004hA$"Y"ī5004r400005` WRITTEN BY K HOLMES 520! "";"RUN GENETICS"/ N3530Q "";"RUN EVOLUTE (GENETICS)"_ N4540t "";"RUN BREED" N5550 !"";"RUN ECO-1" &N6560 +"";"RUN ENZYME REACTION RATE" 0N75705"";"RUN PHOTOSYNTHESIS EXPERIMENT"1/1980 P Z& _ INTRODUCTION0 d::B iF(20),F$(20)S j * * * * * ` k BODYn l * * *t m n26000 pDE1400: x13000 14000 F01F00:49000 27000 13000 14000 F01F00:49000 :]P MARK BEHRENDORFF, MAJOR PROJECTQ * * * CIRCULATORY SYSTEM * * *( EDUCATIONAL PROGRAM TO SIMULATE THE PATTERN OF BLOOD FLOW IN THE HUMAN CIRCULATORY SYSTEM2 COMPUTING IN EDUCATION - CEM 482< FOR MR.T.MOWCHANUK F DUE 18/1                                    "";"PR#0"$2#(4)"RUN SCIENCE 1."*'K CHART FOR ";M$(C1);" ";C3&45);N$Az10);"(-)";34);"(+)"GOD1U[@~J"YEAR MUST BE 1900 OR LATER."T510"START YEAR MUST BE > BIRTH YEAR."600(#"DO YOU WANT ANOTHER RUN";)#K$*#(K$,1)"Y"25 +#11400US1S11#ZS1129000/_C1C11?aC1121390FcXPd2000Zi1400`niqC11urC3C31s1379xM$(C1);" ";D;9);X$@1000 NEW MONTHX919000X$"M"X91J15J"BIORHYTHM11X$(X$,Y11)"*"(X$,Y11):1290=X$"*"(X$,Y11)N Y1Y31300| Y11X$(X$,Y11)"*"(X$,Y11):1300 X$"*"(X$,Y11)Y2Y31310Y31X$(X$,Y31)"*"(X$,Y31):1310X$"*"(X$,Y31)FDD1PDX1255&X$(X$,Y11)"P"(X$,Y11)01260FX$"P"(X$,Y11)VY211265wX$(X$,Y21)"S"(X$,Y21)1270X$"S"(X$,Y21)Y311275X$(X$,Y31)"C"(X$,Y31)1280X$"C"(X$,Y31)Y1Y21290'Y C=COGNITIVE"." P=PHYSICAL"K" S=SENSITIVITY"SL0]2000eD0oLL1jX$" I "Y1(15((LI1)D1)16.5)Y2(15((LI2)D2)16.5)Y3(15((LI3)D3)16.5)Y11 C11810 J1C11" X. N1N1X5 JS *((C31900)4)C34900e 4C12N1N11o I1N1y I2N1 I3N1 X  J15  J "BIORHYTHM CHART -- ";N$ "BIRTHDATE -- ";B2;" ";M$(B1);" ";B3 ""12:"(AND PRESS RETURN)";:A$1A((A$))EA1A21430aA1ĺD$;"RUN GENETICS"~A2ĺD$;"RUN HELLO BIO"dd"ddNT ANOTHER RUN";dT$<n(T$,1)"Y"(T$,1)"N"1370HxD$(4)](T$,1)"Y"ī11lD$;"PR#0"936:3:"YOU MAY EITHER:":"1. RETURN TO GENETICS MENU":"2. RETURN TO DISK MENU"20:6:"TYPE THE NUMBER OF YOUR CHOICE":";(NS1S2)S2;": 1"1300S "GENOTYPE RATIO 1:";(NS1S2)S1;":";S2S1bNS31330"PHENOTYPE RATIO 1:0"(13402"PHENOTYPE RATIO ";S3(NS3);": 1"<F"#######################################"PZ"DO YOU WAOMINANT, ADD 1 TO NO. PUR DOMINANTS0S1S11;P$D$HS3S31ZT$"NO"1220I;5);(G$,10);16);" ";(H$,10);27);" ";(P$,10)I"***************************************"S101290"GENOTYPE RATIO 0"Q"ĺ:0:"PLEASE TYPE 'T' OR 'Q' ":1020;:170$"FILE NOT FOUND...NAME MAY HAVE ";::"CONTROL":"CHARACTERS";::" IN IT AND CANNOT BE ACCESSED"."WITH THIS SELECTOR PROGRAM";:AB$:: 3,1:CH3901:32,CH:936:$o:Y(222):Y10ĺ"FILE IS ";::"LOCKED";::"...TRY AGAIN";:AB$:}Y61060"ERROR ENCOUNTERED...PEEK(222)= ";Y;" . ":"PRESS TO TRY AGAIN OR TO QUIT";:A$:216,0:A$"T"ė:100A$#(A$,1)"N"đ:::55555M#(A$,1)"Y"X(0):600,9:(4);"RUN ODELL1"W#9176'16368,0:24:13:"PRESS SPACE BAR";'(16384)12710010'0:E1E2,E3:ME4,E5:*:::(9):"REMEMBER A ";A9$;" WILL"::"EAT A ";A$;".">*:"NOW FOOD ":R#"AND USED YOUR ENERGY WASTEFULLY."::" YOU STARVED TO DEATH."c#10000:9175#"WHY CHASE FOOD AWAY?"##"THAT'S RIGHT!":#"YOU CAN'T SURVIVE ON THAT TYPE OF FOOD.":##:12:"DO YOU WANT TO TRY AGAIN?";A$U CAN NOT KILL THIS ANIMAL AND":"YOU USED A LOT OF ENERGY NEEDLESSLY.":ss#"YOU GOT AWAY FOR THE TIME BEING.":v#"NO.....THAT WAS THE WRONG MOVE.":#"YOU HAVE BEEN SUCCESSFUL.":#C30ı#:::(10):"YOU PASSED UP TOO MANY CHANCES AT 180,118:X1801002:3:11X,1006x0:11X,100:XGy3:11X,100Xz10000:9175{(#"YOU WASTED ALOT OF ENERGY":F#"THAT FISH JUST ATE YOUR LUNCH.":Z#"YOU ARE GETTING HUNGRY...BETTER EAT"[#d#"YOU GOT AWAY THIS TIME...":In#"YO2:3:MX,E5:4180X1,118:08vMX,E5:4180X1,118GwX1X12:Xzx3:4180X1,118:E14:E2180X1:E3118:E460:2A4(100(1))205702d0:ME4,E5:X1001702:3:19X,100:0i19X,100:j"AN OTTER WILL EAT A FISH.""n0:4168,106:XE42202:3:10X,Y3<Z0:10X,Y3:X:10000j[:::10:"AN OSPREY WILL EAT A "A$".":\"TRY AGAIN":10000:91750:ME4,E5M9:XE41003:3:MX,E5:0:MX,E5:XE4120:5715p0:4180,118qX10uXE460D0:4180,118FX118@IY1801681:3:4Y,X:0:4Y,XMJXX1:Y_L3:4168,106~MA23E14:E2168:E3106:NM8E41705790OM95800P0:8E4,E5SX(168E4)10:Y6070:3:8E4X,YU0:8E4X,Y:E4E4X:Y!X0:4$"CAUGHT BY A FISHERMAN.":10000.9175b::::(13):"THIS WAS PART OF A FISH TRAP":"YOU WERE CAUGHT....TRY AGAIN.":10000:9175|0:4180,118~X18017023:16X,93:0:16X,93:X3:4170,118:E14:E2170:E3118:118:3:5180,118*E15:E2180:E3118:<0:4180,118XXE2702:3:16X,93k0:16X,93:X100((1))15150073:4X,114:E14:E2X:E3114:A2250110:1730,50:3:1830,50:"WITH THE INSECTS WAS A HOOK. YOU WERE",Y:0:4X,Y:XX2:Y' 3:4168,106D A24100(1)1193050] E14:E2168:E3106: "YOU DID NOT MAKE IT THIS TIME":5710 0:4180,118 X180:Y1181402:3:5X,Y:0 5X,Y:XX4:Y 3:5X,Y:E15:E2X:E3Y:0:4180,00 A20& B1İ9100:10000:300< 9060:10000:300i :21:"NEAR THE SHORELINE IS AN OTTER," R194:R2110:R395:A23:M11:40000:12000 B4000,6450,6450,6500,6500 9100:10000:300 0:4180,118 X180:Y1181101:3:4X7 :21:"AT THE SURFACE LIES SOME ANIMAL PLANKTON,"S R160:R2100:R394:M13j A22:40000:12000x R51:505 :(21):"YOU SEE AN OSPREY CLOSE TO THE SURFACE," A24 R1100:R2200:R360:M9:40000:12000 B4000,3000,5700,5700,57,6000) R50:B4İ9100:C0:10000:300P B3İ9050:CC5:10000:9150:300x B5İ9170:CC10:10000:9150:300 9000:9050:CC10:10000:9150:300 DB4000,3000,4500,5500,6000 FB3İ9173:10000:300 GB4İ9174:10000:300 N524S11 JSS(S2)310 TS2- YS(S1)S:S16 ^S11F cS1450000d hS(S1)500,1000,1500,2000 :(21):"YOU SEE WATER INSECTS AHEAD OF YOU," R160:R2100:R390:A21:M12:40000:12000 A520,520,520,520,580,580 B4000,3000,4500,5000\  :(21)A(600)'C(601)8X1A:A$:# "WHITEFISH","CLUB","BLUEBACK SALMON","RAINBOW TROUT","MACKINAW TROUT","DOLLY VARDEN"C(326)S(4)E2180:E3118301,S1S11:355-S1146S(4(1)1) @S21        ISH"40000:120005A530,520,530,530,510,510UB4000,5000,9050,7000,8000B1B2B5İ9000:9050:10000:CC15:9150:300B4İ9100:10000:C0:30010000:300B4000,5000,9030,7020,9040 B1B2İ9000:10000:CC5:9150E IT":30000 301& ,S1S11:3552 -S116D 6S(6(1)1)S @S21S11d JSS(S2)310l TS2| YS(S1)S:S1 ^S11 cS1650000 dAS(S1)300 hS(S1)500,1000,1500,2000,3000,2500:(21):"YOU FIND YOURSELF CLOSE TO A WHITEF11,55:21* Z15:Z28:Z$"AS A":30000Q Z142:Z28:Z$A$" YOU CAN":30000| Z15:Z216:Z$"1 ESCAPE DEEPER":30000 Z224:Z$"2 ESCAPE SHALLOW":30000 Z232:Z$"3 IGNORE IT":30000 Z216:Z1140:Z$"4 EAT IT":30000 Z224:Z$"5 CHASL LOOK LIKE":30000! 5120,60d Z15:Z2100:Z$"THE FISH YOU ENCOUNTER WILL LOOK LIKE ":30000 2110,126:(21):"IN REAL LIFE THE FISH ARE DIFFERENT" "SIZES. YOUR JOB IS TO DISCOVER THE":"ACTUAL SIZE OF THE FISH.":10000 ::3:1:0:ALMON","RAINBOW TROUT","MACKINAW TROUT","DOLLY VARDEN"J :X1A:A$:XX X19241 D$(4):D$"NOMON C":::10:" TRAVELING TO ODELL LAKE..." 8164:232,0:233,64:1:3:0 D$;"BLOAD SCENES ":: Z15:Z220:Z$"AS A "A$" YOU WIL"WHAT TO DO IN A SITUATION. CHOOSE THE"B 7"OPTIONS BY NUMBER."o <:"THE FISH YOU CAN CHOOSE FROM ARE:": P:X16:A$:" "X". "A$:X :"WHICH FISH DO YOU WANT TO BE ";:A$ A(A$) A1A6106 "WHITEFISH","CHUB","BLUEBACK SX1(600):600,0:S(6)9 C0:::Z$""::X1960U3:16:"O D E L L"::"YOU WILL BECOME A FISH. AFTER HAVING":"BEEN EACH FISH, YOU SHOULD KNOW""THE RELATIONSHIPS BETWEEN THE FISH.":( 3"YOU WILL BE GIVEN 5 OPTIONS TO DECIDE":             9ĺD$;"RUN CIRCULATION": A10ĺD$;"RUN PHOTOSYNTHESIS"T A11ĺD$;"RUN BREED"n A12ĺD$;"RUN ECO-1"| A13ī10 A14ĺD$;"RUN HELLO.OBJ" 14ĺD$;"RUN HELLO.OBJ" A14ĺD$;"RUN HELLO.OBJ" ID$;"RUN HELLO.OBJ" D$;"RUN CIRCULATION"7 A8ĺD$;"RUN PHOTOSYNTHESIS"P A9ĺD$;"RUN BREED"j A10ĺD$;"RUN EC0-1" "A11ĺD$;"RUN HELLO.OBJ" CHOICE" r12:"(AND PRESS RETURN)" |A$ A((A$)):D$(4) A8A14ĺ(7):360 A8260 A A((A$)):D$(13)(4)4 A1A11ĺ(7):160M A1ĺD$;"RUN D N A"i A2ĺD$;"RUN GENETICS" A3ĺD$;"RUN ENZYME REACTION RATE" A4ĺD$;"RUN HUMAN ENERGY EXPENDITURE" A5ĺD$;"RUN FLY CONTROL" A6ĺD$;"RUN ODELL1" A7ol"! n" 6. Food Web in a Lake"? x" 7. Circulatory System"Y " 8. Photosynthesis"s " 9. Breeding Faces" "10. Introduction to Ecology" "11. Disk Utilities" :X139:X:(95);:X :::"Select a Number and Press RETURN ";A$ HELLO BIOD ::"Biology 1A Main Menu"L:fX139:X:(95);:Xw(I11000:I}2<7:2:"1. D.N.A."F" 2. Genetics"P" 3. Enzyme Reaction Rate"Z" 4. Human Energy Expenditure" d" 5. Fly Contr REEDING UP TO"<`:"FOUR SETS OF THESE OFFSPRING TO FORM"ij:"THE SECOND GENERATIONS AND THEN THE"t:"THIRD GENERATIONS ETC., YOU MAY"~:"DETERMINE WHICH FACTORS ARE":"DOMINANT OR SELECTIVELY BREED A" :"STRAIN OF ANIMAL WITH P.$:"WHEN THE FIRST GENERATIONS APPEAR ON"^.:"THE SCREEN, YOU HAVE TO LOOK CAREFULLY"8:"AND WORK OUT THE DIFFERENCES BETWEEN"B:"THE FACIAL CHARACTERISTICS."L23:7:"PRESS 'RETURN' TO CONTINUE":A$V:3:"THEN, BY SELECTIVELY B :"OF 6 FACES. EACH ROW REPRESENTS THE"W :"OFFSPRING FROM ONE SET OF PARENTS." 23:7:"PRESS 'RETURN' TO CONTINUE":A$:3:"FOR SIMPLICITY, IT IS ASSUMED THAT":"EACH SET OF PARENTS ALWAYS PRODUCES":"EXACTLY SIX OFFSPRING." INSTRUCTIONS@ :3:"THIS PROGRAM IS DESIGNED TO ENABLE YOU"j :"TO SIMULATE BREEDING EXPERIMENTS" :"THE COMPUTER WILL TAKE ABOUT 20 SECONDS" :"TO BREED THE FIRST GENERATIONS FOR YOU." :"THEY WILL APPEAR ON THE SCREEN AS 4 ROWS"+ OF PARENTS? Y/N? "A$1(A$,1)"Y"2050H (A$,1)"N"2280e ::"HOLD ON A MOMENT!"s NPI:310 :"STARTING AGAIN!":2040( :"SORRY! MISTAKE!PLEASE RE-ENTER":20702 :"SORRY! MISTAKE! PLEASE RE-ENTER!":2150  OPERATING(R,C),2)@Z$"01"Z$"10"ĺ"YOU HAVE SELECTED A MALE!":2150KJ14A(J)6(R1)Cĺ"THAT FEMALE HAS ALREADY BEEN MATED. CHOOSE ANOTHER!":XX11000:XX:2150JA(I)6(R1)CA$(2I)B$(R,C)I42330"ANOTHER PAIR4R0RNPC0C62600,>Z$(B$(R,C),2)eHZ$"00"Z$"11"ĺ"YOU HAVE SELECTED A FEMALE":2070{RA$(I21)B$(R,C)\f"MOTHER #";Ip"ROW AND COL NOS. OF DESIRED MOTHER? ";R,CzR100C1002500R0RNPC0C62610Z$(B$NT INSTR - 5100 34,20U:"DO YOU WANT TO BREED ANOTHER GENERATION?";A$aD$(4)(A$,1)"N"ĉ::D$;"RUN HELLO BIO"I0II1 "FATHER #";I "ROW AND COL NOS OF DESIRED FATHER (R,C)";R,C*R100C1002500202XI,YXI,Y6#1 NO HAIR7Al SEXHv7b(Y$,1)(Y$,1)1950xXS2:Y8(N1)40X,YX5,Y5X2,Y5X5,Y5X5,Y2X25(L1)46:Y31(N1)40X,YX,Y7X3,Y3X3,Y3 PRI 34,32,-1,16,16,1,0,8,10oRjǃ 34,32,-1,15,15,1,0,8,10Rtǃ 34,32,-1,14,14,1,0,8,10R~,18,18,1,0,8,10/RVǃ 34,32,-1,17,17,1,0,8,10OR`ǃ,8,10%Vjǃ 34,32,-1,15,15,1,0,8,10EVtǃ 34,32,-1,14,14,1,0,8,10eV~ǃ 34,32,-1,13,13,1,0,8,10Vǃ 34,32,-1,12,12,1,0,8,10Vǃ 34,32,-1,11,11,1,0,8,10Vǃ 33,33,1,10,6,-1,0,8,100Vǃ -1,-1,-1,-1,-1,-1,-1,-1,-1WȲ * * * * * * * * * * * 34,32,-1,21,21,1,0,15,10EUƃ 25,25,1,20,26,1,15,0,10 fUƃ 34,32,-1,20,20,1,0,15,10Uƃ 26,26,1,20,26,1,15,0,10Uƃ 34,32,-1,19,19,1,0,15,10Uƃ 34,32,-1,18,18,1,0,8,10UVǃ 34,32,-1,17,17,1,0,8,10V`ǃ 34,32,-1,16,16,1,0,15,0,10)Tƃ 34,32,-1,25,25,1,0,15,10JTƃ 34,32,-1,24,24,1,0,15,10vTƃ 22,22,1,20,26,1,15,0,10 Tƃ 34,32,-1,23,23,1,0,15,10Tƃ 23,23,1,20,26,1,15,0,10Tƃ 34,32,-1,22,22,1,0,15,10Tƃ 24,24,1,20,26,1,15,0,10 Uƃ 2,1,0,15 ,100,Sƃ 30,30,1,32,39,1,0,15,100LSƃ 33,33,1,32,28,-1,0,15,100SƲ LEFT VENTRICLE EMPTING AND FLOW TO SYSTEMIC SYSTEMSƃ 20,20,1,20,26,1,15,0,10Sƃ 34,32,-1,27,27,1,0,15,10Sƃ 34,32,-1,26,26,1,0,15,10Tƃ 21,21,1,20,26,115,0,10%R>ƃ 22,22,1,20,26,1,0,15,10DRHƃ 16,16,1,20,26,1,15,0,10bRRƃ 21,21,1,20,26,1,0,15,10R\ƃ 17,17,1,20,26,1,15,0,10Rfƃ 18,18,1,20,26,1,15,0,10Rpƃ 20,20,1,20,26,1,0,15,10RzƲ AORTA FLOWRƃ 26,26,1,27,32,1,0,15,100 Sƃ 26,37,1,32,35,10"QŃ 14,14,1,20,26,1,0,15,10SQŲ EMPTY LEFT AURICLE AND FILL LEFT VENTRICLEqQƃ 26,26,1,20,26,1,0,15,10Q ƃ 25,25,1,20,26,1,0,15,10Qƃ 14,14,1,20,26,1,15,0,10Q ƃ 24,24,1,20,26,1,0,15,10Q*ƃ 23,23,1,20,26,1,0,15,10R4ƃ 15,15,1,20,26,1,PŲ PULMONARY VEIN FLOW6PŃ 4,4,1,29,36,1,0,15,100TPŃ 4,14,1,36,36,1,0,15,100tPŃ 14,14,1,36,27,-1,0,15,100PŲ FILL LEFT AURICLEPŃ 18,18,1,20,26,1,0,15,10PŃ 17,17,1,20,26,1,0,15,10PŃ 16,16,1,20,26,1,0,15,10QŃ 15,15,1,20,26,1,0,1,3,-1,20,20,1,0,15,10 4ODŃ 6,3,-1,21,21,1,0,15,10QONŃ 6,3,-1,22,22,1,0,15,10nOXŃ 6,3,-1,23,23,1,0,15,10ObŃ 6,3,-1,24,24,1,0,15,10OlŃ 6,3,-1,25,25,1,0,15,10OvŃ 6,3,-1,26,26,1,0,15,10OŃ 6,3,-1,27,27,1,0,15,10OŃ 6,3,-1,28,28,1,0,15,101,15,15,1,0,8,10-Nă 24,24,1,12,18,1,8,0,10INă 6,3,-1,16,16,1,0,8,10fNă 25,25,1,12,18,1,8,0,10NŃ 6,3,-1,17,17,1,0,8,10NŃ 26,26,1,12,18,1,8,0,10NŃ 6,3,-1,18,18,1,0,8,10N&Ų BLOOD OXYGENATED IN LUNGSN0Ń 6,3,-1,19,19,1,0,15,10O:Ń 6,1,12,18,1,8,0,10-Mă 6,3,-1,10,10,1,0,8,10JMă 21,21,1,12,18,1,8,0,10fMă 6,3,-1,11,11,1,0,8,10Mă 22,22,1,12,18,1,8,0,10Mă 6,3,-1,12,12,1,0,8,10Mă 6,3,-1,13,13,1,0,8,10Mă 23,23,1,12,18,1,8,0,10Mă 6,3,-1,14,14,1,0,8,10Nă 6,3,-10L@ă 21,21,1,12,18,1,0,8,10v:"SPEED":)DHv:13;DRv"<1> SLOW"QD\v13:"<2> FAST"\Dfv25:6gDpv28500rDzv28520Dv" ";AN$Dv6:25Dv14000DvF01F00:DvF61İ28700:30330DvCO(AN$)Dv25:12Dv28500Dv28520Dv" ";AN$Ev====" Cu3DCu"PRESS REQUIRED NUMBER THEN PRESS ";::"RETURN":JCuTCu:13gCu:"T.V. TYPE"sCu::13Cu"<1> COLOUR"Cu13:"<2> BLACK AND WHITE"Cv::13:C v"OPERATION":Cv:13C v"<1> MANUAL"D*v13:"<2> AUTOMATI41İ49000"BqG11İ28700:28130(BqDB LABEL TEST"-Aq:10PAq"<3> PATTERN OF BLOOD FLOW"ZAq:10kAq"<4> END"uAq:10Aq"<5> DIALOGUE MENU"Aq23:"---------------------------------------"Aq21:11Aq28500Aq28520AqAN$Aq14000 BqFSSAGE & NOISE # ##@&p"TRY-AGAIN";1@0pNO16336?@:pBU1150X@DpBZ(NO)(NO)(NO)`@NpBUf@vp@Hq # # PROGRAM MENU # #@Rq3:4@\q"SELECT THE PROGRAM YOU REQUIRE BY"::3:"PRESSING THE CORRECT NUMBER"@fq9:10Apq"<1> LABELLED DIAGRAM------":21:"---------------------------------------"B?m19:11M?m28500X?m28520a?mAN$l?m14000}?mF41İ49000?nF51İ28700:28130? n?To # # CURSER RESET # #?^oVTB(37):TB(36)?ho(VTB1):36,TB:868?ro@p # # ERROR ME# DIALOGUE MENU # #>jm7:5D>tm"CHOOSE AND PRESS DESIRED NUMBER"P>~m10:10n>m"<1> TEACHER DIALOGUE"x>m:10>m"<2> STUDENT DIALOGUE">m:10>m"<3> PROGRAM MENU">m:10>m"<4> END"6?m3:"---------------------------------"================"=i7:23=i:"DESIGNED BY :"@=i:9:16_=i"M.BEHRENDORFF & B.YOUNG"j=i13:2=i:"PROGRAMMED BY :"=i:15:18=i"B.YOUNG & M.BEHRENDORFF"=i19:2=i:"EDITED BY :"=j:21:15=j"T.MOWCHANUK"=j>`m # SSAGE 'TRY AGAIN'"B1280H1320RKK10\K100880f830pMM1zMUSING LOW "4"NUMERICAL VALUES FOR EACH FACTOR."=M0G&1370Q01130:"TYPE THE NUMBER WHICH IS TO BE VARIED."DXNXA720XXK800bXT640l"PLEASE TYPE THE VALUE FOR PH, CONC., OR TEMP.";v5801420126VER, NOW YOU ARE">"GOING TO BE ABLE TO CHOOSE THE FACTOR"l"WHICH WILL VARY. THE OTHER TWO FACTORS""WILL REMAIN CONSTANT. (USE DIFFERENT)"VALUES FOR EACH FACTOR.)""TO OBTAIN THE MOST SIGNIFICANT DATA," "START THE EXPERIMENT 3806"WHAT ARE THE NEW VALUES FOR PH, CONC.,"I"AND TEMP. ";S1060\340b"WE ARE NOW GOING TO PERFORM AN ""EXPERIMENT IN WHICH YOU ARE TO TYPE IN""THE VALUES FOR PH, CONC. AND TEMP. AS ""YOU DID BEFORE. HOWETAINED A MAXIMUM VALUE? DO YOU WANT"R c"TO TRY ANOTHER SET OF VALUES (TYPE'1')"~ h"OR WOULD YOU PREFER A MORE ORGANIZED" m"APPROACH TO DETERMINE MAXIMUM REACTION" r"RATE (TYPE '2')" |X X2460 X1430 " PLEASE TYPE 1 OR 2"TED TO PROVIDE A"> ""BASIS FOR JUDGEMENT OF REACTION RATE,"j '"CHOOSE ANOTHER SET OF VALUES FOR PH," ,"CONC., AND TEMP. (SEE LIMITS ABOVE." @ J1060 T"IS THE RESULT A HIGHER OR LOWER" Y"REACTION RATE? IS THE HIGHEST VALUE"$ ^"OBL" "CONDITIONS MAY VARY:"D "(1)PH---------BETWEEN 4 AND 10"n "(2)ENZ. CONC.-BETWEEN 10 AND 100 %" "(3)TEMP.------BETWEEN 5 AND 47 DEG. C." 1370 1060  "NOTE THE REACTION RATE WITH THE THREE" "VALUES WHICH YOU SELEC, PH, CONCENTRATION OF"E "ENZYMES, AND TEMPERATURE, IN A NATURAL"t "SITUATION ARE NEVER CONSTANT. LET'S SEE" "WHAT CONTROLS THIS RATE IN THESE " "SYSTEMS. ": "THE FOLLOWING ARE THE LIMITS WITHIN" "WHICH EACH OF OUR ENVIRONMENTADONE VIA GOSUB CALLSC "THIS PROGRAM WILL ENABLE YOU TO SEE THE"q "EFFECTS ON THE RATE OF REACTION WITHIN" "A SYSTEM CONTROLLED BY ENZYMES. THE" "REACTION RATE WILL VARY AS THE " "ENVIRONMENTAL CONDITIONS VARY. THESE" "CONDITIONSB# :NZYMZ:ENZYME REACTION RATE)N" ENZYME REACTION RATE"}::" GRAEME COWLING COMPUTER PROJECT"::::"PRESS 'RETURN' TO CONTINUE"#A$(n A=PH,K=ENZ. CONC.,T=TEMP x FOR EFFICIENCY, ALL CALCULATIONS ARE         S172"S;". -";AC$(S)2S20İ3000B S40İ3000RS60İ3000Y Sa*75| " PRESS RETURN ";Z$: SELLING",23.9,0,"FELLING TIMBER",36,0]["DRIVING TRACTOR",10,0,"CLEAN ANIMAL SHEDS",36.8,0`"FEEDING HENS",15.5,0,"MILK BY MACHINE",6.3,0ej"END OF PROGRAM"o(4);"RUN HELLO BIO"tN172AC$,K1,K2AC$(N)AC$17.2,0/="BAKERY WORK",0,8.4,"PRINTING",10,0^B"TAILORING",12.1,0,"DRILLING COAL",25.5,0G"DIGGING ROAD",29.7,0,"LOADING BRICKS",29.3,0L"MACHINE MIX CEMENT",17.2,0,"PUSH WHEELBARROW",25.1,0Q"BRICKLAYING",16.7,0,"SAWING",29.3,0%V"CHI:$"MAKING BEDS",18.2,14.4,"CLEANING WINDOWS",18.2,14.4u)"POLISH FURNITURE",23,18.8,"LIGHT SHOPPING",18.2,14.4."HEAVY SHOPPING",23,18.4,"REPAIRING CAR",17.2,03"DECORATING",12.6,0,"PLASTERING",21.4,08"SHOE MAKING",12.6,0,"GARAGE WORK",,13,10.3> "DISH WASHING",13,10.3,"WASHING CLOTHES",23,18.8n"HANG OUT WASHING",13,10.3,"IRONING",9,7.1"DUSTING",13,10.3,"CLEANING SHOES",9,7.1"SWEEPING",9,7.1,"WASHING FLOORS",13,10.3"BEATING CARPETS",23,18.8,"HOOVERING",18.2,14.41.4,27.2,"CANOEING",26.2,20.9I"CYCLING",26.2,20.9,"SKIING",26.2,20.9w"SWIMMING",26.2,20.9,"SAILING",26.2,20.9"HORSE RIDING",26.2,20.9,"CLIMBING",31.4,27.2"GARDENING",26.2,20.9,"DANCING",26.2,20.9"COOKING",13,10.3,"SETTING TABLE",13.6,12.6,"TABLE TENNIS",13.6,12.6_"VOLLEY-BALL",13.6,12.6,"BADMINTON & HOCKEY",26.2,20.9"TENNIS",26.2,20.9,"ATHLETICS",31.4,27.2"BASKETBALL",31.4,27.2,"BOXING",31.4,27.2"CROSS COUNTRY",31.4,27.2,"FOOTBALL",31.4,27.2"ROWING",368"CLIMBING STAIRS",37.7,37.7,"STROLLING",12.6,11.5m"WALKING QUICKLY",22.4,20.7,"RUNNING",50.2,50.2"TYPING",0,6.3,"OFFICE WORK",7.1,0"PLAYING CARDS",9.2,7.5,"BILLARDS",13.6,12.6"GOLF",13.6,12.6,"CRICKET",13.6,12.6#"ARCHERY"$R$"Y"920!R$"N"9307" TYPE Y OR N ";@895JR91S935]R90c *** LIST OF ACTIVITIES & ENERGY VALUES ****"RESTING AND SLEEPING",4.8,4.2,"SITTING",5.8,4.8"STANDING",7.3,5.7,"WASHING & DRESSING",16.7,9.T(L1)X/XC(L)&4C(L)C(L1)49C(L1)X=>775SCT(L)T(L)T(L1)dHC(L)C(L1)sMJL1I1RC(J)C(J1)WT(J)T(J1)\JaX1fII1k775pX0765uz *** SUBROUTINE FOR YES/NO REPLIES ***R"&"-NO DATA AVAILABLE AT PRESENT"/595=UUT(I)F590Ly *** SUB ROUTINE TO SORT ACTIVITIES ***X0L0LL1 LI880T(L)0835C(L)C(L1)775C(L)C(L1)835 XT(L)%T(L)T(L1) *"++YOU HAVE DEDUCTED TOO MUCH TIME "0685?JI1650Y"++UNUSED ACTIVITY";r"-RETYPE NUMBERS ";{595UUT(I)765590X1C(I)A$,K1,K2XK1(2S)K2(S1)0745"++";A$;" CANNOT BE USED ))6155]"++ACTIVITY CODES MUST BE WHOLE NUMBERS ">b685NgC(I)0755ml(C(I)1)(72C(I))0635q"++ACTIVITY CODES GO FROM 1 TO 72 "v685{T(I)0710T(I)0755J0JJ1C(J)C(I)675T(J)T(I)0695'#AN$$AN$"Y"İ2000*%AN$"N"550G&" TO FINISH TYPE 0,0 ";P+565p0"ACTIVITY CODES AND TIMES"y5U0:I0?590D"MODIFY YOUR ACTIVITIES BY TYPING"I"POSITIVE AND NEGATIVE TIMES"NII1SC(I),T(I)XC(I)(C(I M155 L *** SUBROUTINE TO INPUT ACTIVITY CODES AND TIMES ***ZR13580gR1560!"FOR EACH ACTIVITY TYPE THE ACTIVITY CODENUMBER AND THE TIME IN MINUTES SEPERATEDBY A COMMA"""DO YOU WANT CODE NUMBERS ? TYPE Y OR N "; THAN 130 KG"415C *** SUB ROUTINE TO INPUT SEX ***PR1470k"WHAT IS THE SEX - ";"MALE (M) OR FEMALE (F) ";S$S$"M"500S$"F"515"++TYPE EITHER M OR F ";475S1M165525S210 |390460/"NEXT CHANGE ";8335a*** SUBROUTINE FOR MASS OF BODY ***nR1420"WHAT IS THE BODY ";"MASS (30-130 KG) ";M(M30)(130M)0450"++MASS MUST NOT BE LESS THAN 30 KG"; " NOR MORE" 2 SEX") ;" 3 SOME ACTIVITIES"E @" 4 ALL ACTIVITIES"_ E" 5 NOTHING ELSE"e F J"TYPE 1 2 3 4 OR 5 "; OR1 T(R11)(R12)(R13)(R14)(R15)0330 Y ^R11375 cR12385 hR15120 m535 r390w4R1# *** RE-RUN SECTION ****) R "DO YOU WANT TO MAKE ANY CHANGES ";[ 895a o R91300 "DO YOU WANT TO START AGAIN "; 895 "R9170 '1125 ," YOU CAN CHANGE" -" --------------" . 1" 1 MASS" 6M2(MM1).75 K0# J1I) 7 X1C(J)E A$,K1,K2L XY S2215r K5(T(J)K1M2.5){ 220 K5(T(J)K2M2.5) KKK5 R90235 C(J);6);A$;27);T(J);35);K5 J "ENERGY USED = ";K;" KJ" CTION ***** Z410 _# d460) i2 n5358 sA x765N }U0280x "DO YOU WANT A LIST OF ACTIVITIES "; 895 R90165 9);"ACTIVITY TIME ENERGY" 27);"/MIN /KJ" *** CALCULATION SECTION **** ) LTD" (:> -"****************************************"H 0::x 2**** ENERGY ***VERSION 5 **10 OCTOBER 1977 7 *** COPYRIGHT SCHOOLS COUNCIL *** <S403010 AA$(18),R$(6),S$(6) BAC$(72) F KR0 PR10 U *** INPUT SE~  : " SCHOOLS COUNCIL COMPUTERS IN THE"\" CURRICULUM PROJECT"f::" HUMAN ENERGY EXPENDITURE"" ------------------------"#" TEXT DISTRIBUTED BY " $" EDWARD ARNOLD (PUBLISHERS     BE DISPLAYED TO THAT "E4*g:"EFFECT,WITH THE SOUND OF BELLS.IF THE"u4/g:"ANSWER IS INCORRECT,THIS MESSAGE WILL "44g:"BE DISPLAYED,WITH THE SOUND OF A BUZZER"49g:"FOLLOWED BY THE CORRECT ANSWER."4;g5>g" AN INPUT OUTSIDE OF THE RANGE WILLM BY A FLASHING POINT.THE TEST "Q3f:"SITUATION REQUIRES THE STUDENT TO LABEL"3g:"PARTS OF A DIAGRAM,AND AT THE SAME TIME"3g:"THEIR ANSWER WILL BE INDICATED."3 g130003g3 g" GIVEN THAT THIS ANSWER IS CORRECT,A "4%g:"MESSAGE WILL OF"12f:"THE SYSTEM,WHICH SHOULD BE PERFORMED"b2f:"FIRST,FOLLOWED BY A TEST SITUATION.WITH"2f:"THE LABELLED DIAGRAM,THE STUDENT HAS TO"2f:"PRESS A NUMBER CORRESPONDING TO A PART,"2f:"WHICH WILL THEN BE INDICATED ON THE" 3f:"DIAGRA 'INSIGHT'INTO A"A1f:"'FLOWING'SYSTEM,WHICH CAN BE REPEATED "q1f:"ALMOST INDEFINITELY FOR THEIR PERSONAL"1f:"AND/OR GROUP INVESTIGATIONS."1f130001f1f" PROVISION HAS BEEN MADE FOR THE "2f:"STUDENTS TO STUDY A LABELLED DIAGRAM TS THAT OF A "<0f:"SYSTEM AS IT FACES THE OPERATOR! IN "f0f:"CONJUNCTION WITH THIS AID,A MORE"0f:"'LIFE-LIKE' REPRESENTATION IS SUGGESTED"0f:"TO BE PRESENTED."0f:" A MAJOR ADVANTAGE OF THIS AID,WOULD "1f:"BE TO GIVE STUDENTS AN THE SENIOR LEVEL."D/f:" BECAUSE OF THE LIMITATIONS PREVAILING"t/f:"THE PROGRAM IS ONLY A VERY DIAGRAMATIC"/f:"REPRESENTATION OF THE TOPIC AND THIS"/f:"SHOULD BE POINTED OUT TO THE STUDENTS."/f13000/f0f" THE DIAGRAM REPRESEN:"SIMULATION"::.gf:"OF THE HUMAN CIRCULATORY SYSTEM."h.lf:" A MAJOR AIM OF THIS PROGRAM IS TO ".qf:"PROVIDE A SUPPLEMENTARY AID FOR THE ".vf:"TEACHER OF THE PHYSIOLOGY SECTION;AT ".{f:"THE ADVANCED JUNIOR LEVEL,BUT MORE SO "/f:"AT *"-eE-e"* *"K-fz-f"* * * * * * * * * * * * * * * * * * * *"-f12:6-&f"THE HUMAN CIRCULATORY SYSTEM"-+f32,0-0f-Xf # # TEACHER DIALOGUE # #.bf" THE FOLLOWING PROGRAM IS A ";:,e5/,e"BIOLOGY FOR QLD. SECONDARY SCHOOLS"6,e5`,e"======= === === ========= ======="j,e32,1p,ew,e8,e"* * * * * * * * * * * * * * * * * * * *",e,e"* *",e-e"* z#  ΠR  Š  ϠϠ ̱в Ӡ Ϡ͠    ŠӠΠ٠ŠŠΠŠ ĠӠԠ ǠӠ  ٠̠à ϭϱ ϱ ӭ̤Ӡ/"Ϡ" Ϯʠ "ҠҠ"Ҡ Ҡ ĠΠ'֠ǠŠ GOSUB 13000 (SPACE BAR)G GOSUB 14000 (CONDITION & ERROR CHECK)m GOSUB 15000 (POINTS FOR LABELS) GOSUB 15500 (LABEL FLASHING CURSOR) GOSUB 16000 (RND.TEST LABELLING) GOSUB 17000 (WORD LABELS)  GOSUB 19000 (ANSWER CHECK &COLOUR CONVERTER); GOSUB 8000 (MANUAL CONDITION CHECK)k GOSUB 9000 (FLAGS FOR MANUAL DESCRIPTION) GOSUB 10000 (DIAGRAM CONSTRUCTION) GOSUB 10500 (WHOLE DIAGRAM) GOSUB 11000 (BLOOD FLOW) GOSUB 12000 (MANUAL DESCRIPTIONS)T=CONDITIONS FOR RND. LABELLING TESTDB RQ=RND. LABEL TEST POINTScG TB=CURSER RESET POSITIONzL GR=GRAPHICS MODE : $ $ SUBROUTINE LISTING $ $ : GOSUB 5000 (READING DATA VALUES) GOSUB 5500 (PLOT VALVES) GOSUB 7000 (NA=NAME), F$=DESCRIPTION OF MANUAL FLOW2 :B --BUZZER--H :W BU,NO,BZ] :p --REMAINDER--v$ :) SP=TIME FACTOR FOR FLASHING POINTS(LABELS). SB=SPACE BAR CONDITION3 MA=MANUAL CONDITION 8 NN=FLASHING ANSWER$= Q SX=X STEP VALUE* OC=OLD COLOUR> NC=NEW COLOUR^ WT=WAIT TIME (FLOW SPEED)d:~--MESSAGE LOCATION--: CV=VERTICAL CH=HORIZONTAL:--STRINGS--: AN$=MENU CHOICE LA$(NA)=LABELS FOR DIAGRAM (AGAIN FOR F8)*:/ $ $ THESE FLAGS WILL RELATE TO DIFFERENT CONDITIONS SPECIFICALLY,BUT IN GENERAL RETAIN THE SAME FUNCTIONS $ $:--MOVEMENT--: B=BOTTOM (CO-ORDINATES) T=TOP L=LEFT R=RIGHT SY=Y STEP VALUE(Y) )@ F9=1 (END ROUTINE OR NO CHANGES TO FLOW CONDITIONS)e G0=1 (ERROR MESSAGE-TRY AGAIN) G1=1 (ERROR MESSAGE-TRY AGAIN FOR PROGRAM MENU)  G2=1 THEN G2=0 (RESTORE DATA & BACK TO PROGRAM MENU ) % G3=1 THEN G3=0 (ERROR MESSAGE-TRY 2=1 (STUDENT DIALOGUE)0  F3=1 (PROGRAM MENU)I  F4=1 (END ROUTINE)q  F5=1 (OUTSIDE OF INPUT-TRY AGAIN)  F6=1 (ERROR MESSAGE-TRY AGAIN)  F7=1 (ERROR MESSAGE-TRY AGAIN)  F8=1 (RUN PROGRAM AGAIN(Y) OR ANY CHANGES TO FLOW CONDITIONSE ): .--COLOUR-- 3:, 8 C=COLOUR@ = SC=SET COLOURT B OC=OLD COLOURh G NC=NEW COLOUR  CO=COLOUR CONVERTER CONDITIONS(COLOUR OR B&W) : --FLAGS-- :  F0=1 THEN F0=0 (END ROUTINE)  F1=1 (TEACHER DIALOGUE)  F :  --TIME DELAYS--" :C  DE=HEADING SPACE BAR DELAYc  AA=LABELS SPACE BAR DELAY  WA & WT=WAIT TIMES FOR FLOW SPEED  WF=WAIT FACTOR FOR FLOW SPEED  TL & LT=TIME DELAYS  WS=FLOW SPEED $ TY=PROGRAM TERMINATED MESSAG 28000 ' F01F00:490008 F11İ26200I F21İ26600W F31270` 200k 29000q  ,F11İ29500 6F21İ20000 @F31İ30000 JF01İ49000 OG21G20:200 Q T270 : :  $ $ VARIABLE LIST $ $AMS"( "OF GLUCOSE PRODUCED PER DAY."Q ::"TO CONTINUE HIT 'RETURN' ":Q$W "LET'S BEGIN WITH CHANGING THE LIGHT" "INTENSITY. YOU WILL VARY THIS BY " "SELECTING INTEGER VALUES IN THE RANGE OF" "0 TO 30 (THE UNITS FOR LIGHT ICAL DURING CLASS TIME." M "SINCE ALL OF OUR FOOD COMES FROM PLANTS,"| "LET'S FIND OUT HOW CHANGING THE AMOUNT " "OF CARBON DIOXIDE OR THE INTENSITY OF" "LIGHT WILL AFFECT THE PLANT'S RATE OF" "PHOTOSYNTHESIS, MEASURED IN MICROGR)# x R(I)=RATE OF PHOTOSYNTHESIS4 V(31),R(31)c "HELLO. BY NOW YOU SHOULD KNOW FROM YOUR" "LECTURES WHAT PHOTOSYNTHESIS IS. THIS" "LABORATORY WILL ENABLE YOU TO CONDUCT" "EXPERIMENTS ON THE COMPUTER WHICH WOULD" "NOT BE PRACTI PHOSYNTHESIS SIMULATION%(M-" PHOTOSYNTHESIS EXPERIMENT":u0" DEVELOPMENT BY GRAEME COWLING"2" BALLARAT REGIONAL EDUCATION OFFICE"7" ----------------------------------": n V(I)=INPUT VALUES (LIGHT INTENSITY,CO2 CONC.        "f2p"AS BEFORE, I WILL TYPE IN A '?' AND"]u"THEN YOU TYPE IN THE CARBON DIOXIDE"z"CONC. AVAILABLE TO THE PLANT.""THIS TIME YOU MUST CHOOSE TEN DIFFERENT""VALUES.":"REMEMBER: RP=RATE OF PHOTOSYNTHESIS"""CHLOROPHYLL THAT IT NEEDS."#>MH"LET THE VALUES YOU SELECT FOR THE "|M"CARBON DIOXIDE CONCENTRATION BE FOR TWO"R"DECIMAL PLACES ONLY, AND IN THE RANGE"W"0 TO .30. THE UNITS FOR CO2 CONC. ARE"\"CUBIC CENTIMETERS PER LITRE OF AIR.14200"PRESS RETURN TO CONTINUE":REPLY$:Z "O.K. NOW LET'S VARY THE AMOUNT OF ""CARBON DIOXIDE IN THE ATMOSPHERE""SURROUNDING OUR PLANT." *"THIS TIME WE WILL ASSUME THAT OUR PLANT"/"HAS ALL THE LIGHT, WATER, AND "4 lW1660vW2720&W3660/6005P" LIGHT"," RATE OF "r"INTENSITY","PHOTOSYNTHESIS""---------","--------------"1360"PRESS RETURN TO CONTINUE":REPLY$:W3760" LIGHT""INTENSITY"R(W1)(12500(1(.222V(W1))).05)100G"RP=";(R(W1).5)P570~"WRONG! USE ONLY INTEGER VALUES BETWEEN"!"0 AND .30."&"TRY AGAIN."0450:IDN CHOICE OF OUTPUTX"1=TABLE ONLY, 2=PLOT ONLY, 3=BOTH"bWRATE OF PHOTOSYNTHESIS)"Er22:"PRESS RETURN TO CONTINUE";:REPLY$Kwd|"LIGHT INTENSITY ";u:INITIALIZEI120V(I)1II110"(LI)";WW100580W30540W0540W(W)540V(W1)W/62 @" YOU SHOULD CHOSE BETWEEN FIVE AND TEN "^ E"LIGHT INTENSITY VALUES. TYPE IN ONE " ^"VALUE AFTER EACH QUESTION MARK. BY " c"TYPING IN 100, NO MORE QUESTION MARKS" h"WILL APPEAR AND THE PROGRAM WILL CONTINUE."m"(NOTE:'RP' MEANS NTENSITY"% "ARE: ERGS/SEC/SQ.CM).R "BY VARYING ONLY ONE FACTOR AT A TIME,"y "WE ARE CONDUCTING A CONTROLLED" "EXPERIMENT. WE WILL ASSUME THAT OUR" "PLANT HAS ALL OF THE CARBON DIOXIDE," "WATER AND CHLOROPHYLL THAT IT NEEDS." 25:25,25:35,26)22(22,26:28,30:36,27B2<(23,27:30,30:37,26[2F(24,26:34,25:38,25a2P(g2 N2%N24:"PRESS ANY KEY TO CONTINUE";:A$:2*N2R"";"RUN HELLO BIO":2$:"PLEASE SELECT FACE COLOUR GENES FOR ";232083X:::"YOU HA02918'4,10321B'6,835)1L'6,82461V'27,284C1`'27,287S1j'22,4:23,5d1t'22,10:23,9u1~'33,4:33,101'34,5:34,91'1' DRAW 'MUM'1'71'24,30201'24,30261(24,30281 (24,30311(24,30331(24,30392((21,X6,Y1:X7,Y2:7080: MALE G0Y3,Y5X2:X1,X3Y4: FEMALE~0O$(I)"WY"O$(I)"WW"ĠRED:X1,X4Y1: HAEMO 0O$(I)"XW"O$(I)"WX"ĠRED:X1,Y1:X4,Y1: CARRIER00' DRAW WORD 'DAD'0'70'4,10210$'4,10261.'4,10 /1900:/W05'/X,X4YW-/A/0:X1,X3Y4`/X1,Y1:X3,Y1:X2,Y2f//X DRAW OFFSPRING FOR SEX LINKED DEMO/bYELLOW/lX,X5Y/vX,X5Y2/X,Y1/X5,Y1/G1$(O$(I),1):G2$(O$(I),1) 0G2$"Y"čG.5O$(I)O$(I)(M$,2,1)).G(4)I.G.5O$(I)O$(I)(F$,3,1)j.G.5O$(I)O$(I)(F$,4,1)u.G(4).G.5O$(I)O$(I)(M$,3,1).G.5O$(I)O$(I)(M$,4,1).(O$(I),1,2)"YY"ĠYELLOW:6580.BLUE/(O$(I),3,2)"SS"660G1$;-lG2$"W"ĺ"X'":4480(-vG2$;/-I5-[-24:"PRESS ANY KEY TO CONTINUE";i-A$:4370o--d :ROUTINE FOR SEX LINKED DEMO-iG(4)-nG.5O$(I)(F$,1,1)-sG.5O$(I)(F$,2,1)-xG(4)-}G.5O$(I)O$(I)(M$,1,1).1:"PRESS SPACE BAR TO SEE MORE OFFSPRING"U,"OR'G'TO SEE GENOTYPES OR 'E' TO END"j,&X$:X$" "4360},0X$"E"ī40000,:X$"G"4370,D:I0N1,I21(I5):1(I5(I5))8,NG1$(O$(I),1):G2$(O$(I),1),XG1$"W"ĺ"X'";:4460-bVERY RARE IN PRACTICE"+,+B$:B(B$)p+B1B2B3B4B5Ģ20:"PLEASE TYPE 1,2,3,4 OR 5":4290+B1F$"XY":M$"WX"+B2F$"WY":M$"XX"+B3F$"WY":M$"WX"+B4F$"XY":M$"WW"+B5F$"WY":M$"WW"+1700*,:2ILIAC MALE /CARRIER FEMALE"E*"4..NORMAL MALE/HAEMOPHILIAC FEMALE"u*"5..HAEMOPHILIAC MALE/HAEMOPHILIAC FEMALE"*::"NB OPTION 5 DOES NOT HAPPEN IN PRACTICE.IT IS INCLUDED HERE FOR ACADEMIC INTEREST"+:"ALSO,OPTIONS 3 AND 4 ARE VERY 'X (OR XX').... ...CARRIER FEMALE"Q)J"X'X' (VERY RARE)....HAEMOPHILIAC FEMALE"x)T22:"HIT ANY KEY TO CONTINUE":A$)Y4039)h:)r"OPTIONS:"::)|"1...NORMAL MALE /CARRIER FEMALE")"2..HAEMOPHILIAC MALE/NORMAL FEMALE"*"3..HAEMOPHEMOPHILIAC. GENES ARE X'X'"&(200000(42006(<(P("SUMMARY:"::u("GENOTYPE PHENOTYPE"{((""XX..................NORMAL FEMALE"(,"XY..................NORMAL MALE"(6"X'Y.................HAEMOPHILIAC MALE"")@"XHILIAC MALE.GENES ARE X'Y"''20000@'::O$(I)"WX":7000'"FEMALE CARRIER.GENES ARE XX' OR X'X. NOTE IN PRACTICE A CARRIER WOULD APPEAR NO DIFFERENT FROM A NORMAL FEMALE"'20000'::O$(I)"WW":7000("THE EXTREMELY RARE FEMALE HAHIT ANY OTHER KEY TO CONTINUE"5&B$:B$"Y"4200r& THIS SECTION EXPLAINS THE SYMBOLS USED IN THE GRAPHICS&I1:X0:Y2&:&O$(I)"XY":7000&"THIS IS A NORMAL MALE.GENES ARE XY":20000&::O$(I)"WY":7000'"THIS IS A HAEMOPLE TO INHERIT TWO AFFECTED X CHROMOSOMES BUT THIS COULD ONLY HAPPEN IF THE FEMALE WERE THE OFFSPRING OF AN AFFECTED MALE AND A CARRIER FEMALE"%20000%4100%&"IF YOU WANT AN EXPLANATION OF THE SYMBOLS USED THEN HIT Y KEY OR MAL AND HENCE THE FEMALE DOES NOT 'SHOW' THE DISEASE BUT IS CAPABLE OF PASSING ON THE AFFECTED GENE AND IS CALLED A CARRIER"$20000$:"HOWEVER MALES WITH THEIR X CHROMOSOME AFFECTED DO SHOW THE DISEASE"%::"NOTE:IT IS POSSIBLE FOR A FEMA HAEMOPHILIA"z#"THE GENE CAUSING HAEMOPHILIA IS CARRIED ON THE X CHROMOSOME BUT NOT ON THE Y ANDIS ALSO RECESSIVE"#:"(REMEMBER THAT FEMALES HAVE XX CHROMOSOMES AND MALES XY)~$:"IN FEMALES THE SECOND X CHROMOSOME IS USUALLY NOR0000" 3260"5" SEX LINKED CHARACTERISTICS\":8:"SEX LINKED CHARACTERISTICS"":"SOME CHARACTERISTICS ARE DETERMINED BY GENES CARRIED ON THE SEX CHROMOSOMES. ONE SUCH EXAMPLE OF A SEX LINKED"#"CHARACTERISTIC IS THE DISEASE :" TO SEE MORE ";::"OFFSPRING":Y! " OR ";::"G";::" TO SEE ";::"GENOTYPES":! "OR ";::"E";::" TO ";::" END";:! A$! A$"E"ī40000! A$" "3250! A$"G"3280! :21! I0N1! O$(I)" ";! ! " 2| "NOTE:S...STANDS FOR SQUARE HEAD GENE"V #R... STANDS FOR RECTANGULAR HEAD GENE"q :"WHICH (1,2 OR 3)?" B$:B(B$) B1C$"SS": B2C$"SR": B3C$"RR": 3184 1700: BREED :21$! "PRESS ";::"SPACE BAR";:. YY "< "2... YB "%@ "3... BB"GD :"WHICH NUMBER (1,2 OR 3)?"WH B$:B(B$)nL B1A$"YY":3164P B2A$"YB":3164T B3A$"BB":3164X 3144\ ::` "NOW FOR ";::"FACE SHAPE":p "1...SS"t "2...SR"x "3...RR") PE";::" SQUARE OR RECTANGULAR"D "RECTANGULAR FACE IS DOMINANT"O 20000_ N$"FATHER"i 3100v F$A$C$ N$"MOTHER" 3100 M$A$C$ 3250 :"PLEASE SELECT ";::"FACE COLOUR ";::"GENES FOR" :N$:4 :8 "1..c :"IN THIS SIMULATION WE CONSIDER SIMPLE DOMINANCE...BUT THIS TIME INVOLVING TWO GENE PAIRS"m :: "WE WILL CONSIDER:" "A..";::"FACE COLOUR";::" (YELLOW OR BLUE)" "BLUE IS DOMINANT OVER YELLOW" :  "B..";::"FACE SHA(B$):B1B2B3ĺ"JUST HIT '1','2' OR'3' PLEASE":PAUSE1500::2240c B1M$"BB":1425z$ B2M$"YY":1425. B3M$"YB":14258 FLAG1: SIGNAL TO DISPLAY F2 HYBRIDSB F$"BB":M$"YY":1425 SIMPLE DOMINANCE USING 2 GENE PAIRS1F$"BB":2250'B2F$"YY":2250>B3F$"YB":2250F20~:"JUST HIT '1','2','3' OR SPACE BAR PLEASE":2310"MOTHER:"" 1...'BB' GENES"" 2...'YY' GENES"" 3...'BY' OR 'YB' GENES"::"WHICH?" B$L BA$ >H"FATHER:":2R" 1...'BB' GENES"I\" 2...'YY' GENES"gf" 3...'BY' OR 'YB' GENESyp::"WHICH?"z14:18:"OR":"JUST HIT 'SPACE BAR' TO BREED A 'YY' MALE WITH A 'BB' FEMALE"B$B$" "2360B(B$)BSIDER THEGENES FOR FACE COLOUR."N :"THIS TIME, THE GENE FOR BLUE FACE IS"{"INCOMPLETELY DOMINANT TO THE GENE FOR""YELLOW FACE.":"THE GENE COMBINATION 'BY' PRODUCES A""GREEN FACE." 23:8::"PRESS ANY KEY TO CONTINUE":4EXPLANATION FOLLOWS THEN BRANCH TO 1000 FOR ACTUAL WORKING@`11:"INCOMPLETE DOMINANCE"4:"SOMETIMES ONE GENE DOES NOT COMPLETELY DOMINATE THE OTHER GENE. INSTEAD, WE GETA SORT OF COMBINATION EFFECT." :"IN THIS SIMULATION WE AGAIN CONX6,X13Y11DY4,Y7X9,IX4,Y9:NX5,Y10HSX14,Y9WXX13,Y10]]rl DRAW OFFSPRING}vW05X,X6YW0X2,X4Y4X1,Y1X5,Y1X3,Y2 INTERMEDIATE DOMINANCE DEMO: "YY"ĠYELLOW:1780BLUE2X(I(I5)5)8DY(I5)122N1900UI[h PARENT X,Y IS TOP LEFT HAND CORNERIYY13X,X18I!&0+X4,X5Y30X4,X5Y45X13,X14Y3:X13,X14Y4?G.5O$(I)(M$,1)G(1)<G.5O$(I)O$(I)(F$,1)[G.5O$(I)O$(I)(F$,1)iA11770A4İ7000:1795: THIS LINE FOR BRANCH TO SEX LINKED GRAPHICSO$(I)"YY"ĠYELLOW:1780O$(I)"BB"ĠBLUE:1780GN:1780O$(I)X$"E"39000ZX$" "1621)^1600@ BREED OFFSPRINGFqN(7(1)8): NUMBER OF OFFSPRING~I0N1X(I(I5)5)8Y(I5)122A3İ6500:1795: TO 2 GENE PAIR ROUTINESG(1)G.5O$(I)(M$,1)2 HYBRIDS@:212J"HERE ARE THE F2 HYBRIDS"<L1700DM22oO"BOTH PARENTS HAVE 'YB' OR'BY' GENES"wS23T:"TYPE 'G' OR SPACE OR E":UX$VX$"G"ė:21:I0N1:O$(I)" ";:::"PRESS ANY KEY TO CONTINUE";:X$::1612 YANY OTHER KEY TO SEE F2 HYBRIDS":1569P "OR G TO SEE GENOTYPES OR E TO END"V!^"X$#X$"G"ė:21:I0N1:O$(I)" ";:::"PRESS ANY KEY TO CONTINUE";:X$::1560'X$" "1585,15551FLAG139000 6M$"YB":F$"YB": F PARENTS YOU HAVE SELECTED"@ ::"PRESS ANY KEY TO CONTINUE"F NX$X:21FLAG1ĺ"THESE ARE THE F1 HYBRIDS"1700: OFFSTRING :22"PRESS SPACE BAR TO SEE MORE OFFSPRING"'FLAG1ĺ"OR 'G' TO SEE GENOTYPES OR GN:1470: THIS LINE ONLY IF INTERMEDIATE SEE LINES 2000 ONWF$"YY"ĠYELLOW:1470aBLUEsX0:Y2:1815~10000A11510M$"YB"ĠGN:1530M$"YY"ĠYELLOW:1530BLUEX0:Y22:181510200:21:"THESE ARE THEB1B2B3ĺ"INCORRECT ENTRY":1250?(B1M$"BB":1400V2B2M$"YB":1400g<B3M$"YY"x THIS SECTION DISPLAYS PARENTS,BREEDS AND DISPLAYS OFFSPRING DRAW PARENTS ROUTINEA11450: SIMPLE DOMINANCE<F$"YB"ĠY!":1110 B1F$"BB":12407B2F$"YB":1240HB3F$"YY"Nl:"GENOTYPES OF MOTHER:":"1: BB (I.E. HOMOZYGOUS BLUE)":"2: BY (I.E. HETEROZYGOUS BLUE)":"3: YY (I.E. HOMOZYGOUS YELLOW)" B$:B(B$)(::"GENOTYPES OF FATHER:"C 8:"1 : BB (I.E. HOMOZYGOUS BLUE)"n B:"2 : BY (I.E. HETEROZYGOUS BLUE)" L:"3 : YY (I.E. HOMOZYGOUS YELLOW)" V20:6:"TYPE THE NUMBER OF YOUR CHOICE." B$:B(B$) B1B2B3Ė13:"INCORRECT ENTR. (:"2. LETTING THE COMPUTER SHOW YOU THE"[ )" OFFSPRING FROM A 'YY' MALE AND A "s *" 'BB' FEMALE." +23:6:"TYPE THE NUMBER OF YOUR CHOICE." ,A$:A(A$) -A1A2ī1068 .A11075 0A2F$"YY":FLAG1:M$"BB":1400 3 :"THE GENE FOR BLUE FACE IS DOMINANT OVER THE GENE FOR YELLOW FACE." $:"THE COMPUTER WILL BREED F1 OFFSPRING ANDSHOW THEM ON THE SCREEN" %:"YOU HAVE THE CHOICE OF:" &:"1. SELECTING THE GENOTYPES OF THE" '" PARENTS YOURSELF; OR" DA$ NA(A$)^ XA1A2A3A4Ģ17:"PLEASE TYPE THE NUMBER OF YOUR OPTION":580y bA1000,2000,3000,4000  SIMPLE DOMINANCE :13:"SIMPLE DOMINANCE" 4:"IN THIS SIMULATION WE CONSIDER ONLY THE" "GENES FOR FACE COLOUR."I***********************"9 P:"YOU HAVE THE CHOICE OF:"D  MENUa :"1. SIMPLE DOMINANCE" :"2. INCOMPLETE DOMINANCE" :"3. SIMPLE DOMINANCE USING TWO GENE PAIRS" &:"4. SEX-LINKED GENES" 023:6:"TYPE THE NUMBER OF YOUR CHOICE."X-)BLUE3:YELLOW12:BROWN4:RED7:GN95O$(20);C :r"***************************************"2:11:"GENETICS SIMULATION"(:15:"WRITTEN BY"2:15:"KARL HOLMES"<:10:"BARRABA CENTRAL SCHOOL" F"****************                yvspmjgc`]ZWTQOLIFC@>;8631.,*'%#!  !#%'*,.1368;>@CFILOQTWZ]`cgjmpsvy|m-)(`)J Ji,`#" ! & #` L # !" #`#&/'$% #`|if&i'`'i, &i, &iPII&.if&JJJJS)PIȄR-QTU/T8ePT ? UeRU @ QJJJ`ŴxaI1S-Q/ ? QJJJ`& ')*& *'JJ) **- m- ʥ0J)0Q&&`H()*hH8(H)S hIiHSQUhPTh()*IiR*fS8PQ+-  8TeRTUU+5&E%0Q&&S [ TePTUeQPF0'@0- &`0(Q) &E%0Q&&QeS)j00', "&, i8i#H&ii&h"6v------------u6------266$$$(mIrc $M --=??0$D` $$466?N6??/--M 6` pN9/ .WSP.)`*()H)&JJ&&h' &' &' f&') .'#i-| 0J, i` @ & Q&% d E-m ? lhD5Da5ֶ56v v266 ????????'d--e@vM@'66g$dD(-?$ V - 8?g$ 8???eee ?$$$da ?$$$36<ܷq56>?w-$ % <7.(%?'$)-:?n5-----e--- ---- ee $?????????????????????????????  B Ƶq [ ede0dededededed ed e]}d ed ed ededededeLdedede`; }q q qqqq(}Ʊq Ʋq Ƴq! ƴqĠΠ٬)E@ccEa(ӠӠԠŠԠƠǠĠԠԮ)a@E(Š)SoPa(ŠҠ׮)UVWqq\(UVW YYQ NUVWY[0uUVWY[T}dĠŠ͠ӠԠ͠Šͮ)N a(٠ƠŠŮ)`X a(ŠƠŠŮӠŠĮϠ٠٠ҠҠŮ)b \ \2\ NXM6o a(ɠŠՠĠǠŠƠŠӠӧӠŮĠ̠ŠŠӮ٠ή)_ A \2cca(٠٠ҠΠ͠͠ή)c;0 a(ԠӠΠŠ͠ĠӠĮ)-: a(ȠĠӠĠϠŠͮ)MD a(Š͠ӠРŠƠŠŮӠŠĮϠҠ٠ҠҠŮ) \ _ . cS(Ҡ)'`$ K c`$ a(ǮӠŠԠĮ٠ή)_ b `%[a(ԧӠԬԠҠΠ): a(ŠƠŠ͠ĠԮ٠ή)_ A \2cca(Ҡ٠ҠΠ͠͠ή)c a(ȠĠӠĮ) a(ҠӠĮ) a(ŠȠŠĮ) a(٠ƠŠŮ)` a(ΠŠͮ͠٠ή)_ _ `$ a(ŠƠŠӠΠŠԠŠӠҠΠ)" a(ͮ٠ή)_ ^ `$ a(ӠŠŠӠΠŠήŠƠŠƠŠͮ): a(Š̠ӠƠŠ̠Ӯ)A a(ŠҠӠƠҠٮ)a(٠ƠŠŮ). cS(Ҡ)'`$ o c`$ a(ԧӠϠǮԠӠԠŠ^ `$h a(Ǯ٠ή)_J 4h \2\ Ncca(ȠƠŠǠĠ);r a(ŠӠҠΠ͠Ϳ)c*| a(ŠӠӠƠŠͮ)S a(Π٠ŠƠҠرر͠ΠŠ͠ӠΠŠΠƠ٠ŠȠĠӮ)4@ a(̠ƠŠŮ)a(ŠƠŠŮ).J cS(Ҡ)'`$J ZT c`$^ a(ԧӠԬԠŧӠŮĠ̠ŠŠӮ)_J )ӠƠӠǠŠӠΠ) a(͠Ϳ)cW" a(ӠŠҠƠȠӬŠԠƠĠΠӮ)&, a(ŠȠԠŠ̠Ӯ)u6 a(ŠǠΠŠӠƠŠŠŠΠŠ͠ӠЮ) a(̠ƠŠŮ). cS(Ҡ)'`$ Z c`$ a(էŠԬԠŧӠŮĠ̠ŠŠӮ)_ b \2\ Ncca(ȠƠŠǠ2q\ Ncca(ȠƠŠǠĠŠԠƠŠ͠͠Ϳ) ca(ȠӮ)( a(ǠȠӠҠŮ);( a(ӠΠŠ͠ΠϠٮ)V a(ӠŠ͠ӠҬŮ) cS(Ҡ)'g c`$ `$ a(ҠԬԠŧӠŬĠ̠ŠŠӮ)_ q `$ a(ӠҠҠĠԠƠŠǠĠΠŠͿ٠ή)_ d \ͮȠƠŠ); a(ĠŠĠӠԠƠŠͿ)c; a(̠ŠǠӠΠŠͮ)$ a(ŠҠΠŠͮ) a(ҠҮ) a(ĠŮ) a(̠ƠŠ ĠϠĠԠΠȠҮ)cW a(ӠŠӮ)ca(ӠŠԠĮ)cc\ F M6ca(ԧӠŠԠՠĠԠӮ)ccQ a(Ҡ͠͠ӠΠĮ)cc\ it M6a(Ϡź)ca(Π͠ӠǠĠΠӠӮ)Z~ ca(Π͠ӠǠԠӠΠӠӮ)d a(ŠӠΠΠ͠ŠӠĠٮ)ciV a(Ġ̠٠٠ϠҠҠŠΠŠ͠ƠĠҠǠӠҠӮ)K` ca(ŠנƠ٠ȠӠӠ̠ҠŮ)ccAj a(ӠՠΠŮӠŠԠ٠ҠӮ)@8 ca(Ӡ٠ŠŠ͠ȠҠҠҮ)cSB a(ŠӠΠŠΠҠԠƠŠ͠ҠҠΠҮ)cc G \ ccgL a(٠٠ҠŠ͠ΠŠ͠ƠԠĠŠӠȠҠĠ٠ӠŠӠƠΠͮ)ccT$ a(Ҡ٠ҠӠΠҠέƠ͠ҠĮέƠҠ٠)u. a(ӬĠԠҠ̠ҬĠǠӮҠ٠ϠŠĠΠŠŠҠ̬ԠԠԠŠŠԠƠӮ)\ cca(ŠӠƠҠĠ͠ĠŠǠŠŮ)a a(ŠӠƠԠ͠ĠŠŠŠӠĮ)o\ M6oN a(ŠΠŠҠŮ)cga(ӠĠӠҠĠĠή)a(ӠŠŠΠŠĠ٠Ӯ)Rca(ՠ̠Ġ٠ŠӠƠРĠŮ)io\ M6oa(Π͠٠)R@a@E(Š)^M6oa(ǠΠΠ͠ӠĠϠĠԠΠǠŮ)Sca(ӠĠԬ̬ĠҬ̠ӠĠ٠ŠӠ)Ia(ӠĠӬĠӠ٠[4a(Ԭ)E@[5a(Ҭ)E@[6a(Ԭ)E@[7a(̬)E@[$8a(էŠǠ٠̬)E@[,KM6N@"rC@"r@p()]̭a@E(ΠɬϬ) M6 d6?ea@E(ΠŬְ)a@E(Ġ ]ϭԠ]٠Π ]] \}_4 q(qF\(a(ϠŬӠ٠٩)UVWY `.?6@r$d6?e[(dedeM[$2qq\(\8/?r3r[3a(ì)E@        edeLdedede`; }q q qqqq(}Ʊq Ʋq Ƴq! ƴqB Ƶq [ ƠŠ)N@"r@p()]̭Ma@E(Πϱ)Q NUVWY[0uUVWY[T}dede0dededededed ed e]}d ed ed edededq(qqqqƵ\P\0u\0u;qqqqqƴ\PqUq\P\ N-oM6dP a(ԠӠ)\(\0u/q\PqUq\P\0uq\PO\0uM6oa(̠ŠӠԠΠŠԠUVWUVWq/?rʱqn/?(rUVWʱXqUq\FMq\FM1qq\FMq\FMYY?qqqqqƴq\PqUq\PYVoM6dP a(ŠΠ)\(qƴ\PWfqZqeqqqƲ\PqKqqqƱ\P\ Nq\PqKpq\PqqZqeqƲ\P\ Nq\Pqq\POz\ Nq\P\ NqqKqƱ\P\(oM6dP a(Ԡ)j NqKqqƱ\PXRUVW\ NUVW UVWq /?rq /?}rqqƱ\PYEWUVWq/?}rq/?rqqƲ\PYYY[\(N\oM6P a(Ӡ)\ NMqqqUq88rr rq\P%UVWYq\PY, q\PoP a(ӠԠ)\(@*\ NqZqeqqƲq\P\ Nqq\P,>oM6P a(Ӡ)\(?Hq,\ NqLqqƳ\P\\(\0u\0uM6\oa(Π͠ӠǠԠӠΠӠӮ)\(\( \0u\0u6qZqeqqƲq\Pqq\PP a(Ӡ)\(\0uqƱq6UVWrX6qKq}q\FMq\FMSqq\FMqA\FMqnq\FMq\FM+qq\FMq\FM%qqqUqƴq\P8a(ĠǠ)a(Š̠ĠҮ)͠ӠǠĠΠӠ)gq(qF\(q\0u1lqZqeqqƲqqM\Pva(Ӭ)G\(\0uqKqqqƱ\Pa(Ӭ)G\(\0uSqdq\FMqK\FMɬ)E@[7a(̬)E@[$8a(էŠǠ٠̬)E@[)Fd"ed!ed ed,e[;Pd$ed%ed&ed'e\FMM[5M6]ӠӠŠǠƠŠΠ\ ObM6oa(ΠŌ \}_4 q(qF\(a(ϠŬӠ٠٩)UVWY `.?6@r$d6?e[(dedeM[$2qq\(\8/?r3r[3a(ì)E@[4a(Ԭ)E@[5a(Ҭ)E@[6a(     Ʊq Ʋq Ƴq! ƴqB Ƶq [ VWY[T}dede0dededededed ed e]}d ed ed ededededeLdedede`; }q q qqqq(}ҠŠӠŠ٠)\0u X  S\ ^@p()]̭ba@E(ΠŬְ)la@E(Š)va@a@E(Š).a@E(Ġӭְ̤)a@E(Πϱְ)Q NUVWY[0uUԠΠӠӮ)cnDa(ǠΠΠ͠ӠĠϠĠԠΠǠŮ)cRNa(Π͠ӠӮ)ca(Π͠ӠԠĮ)c@S\ M6o a(ԧӠϠŭ)Ka(Š͠ӠŠԠ)a(ԠΠŠ٠Ơٮ)=&ca(ŠŠŠӠƠΠͺ)cE0a(ӠǠĠΠӠӮ)cL:a(ӠǠԠӠa(ҠӠԠǠԠ)a(̮٠ή)c\ M6_Qa(̠ӠԠǠ)a(Ҡ̮٠ή)c\ M6_9a(ԠԠŠĮ)a(٠ή)c\ M6_\2cc\ a()a(̠ƠŠŠӠŠ)0ca(ŠҠĠӠΧ)(qT`$`$3M6a(٠ӠƠ̠Š)Pa(ĠӠǠҠΠ)a(Ů)G`$`$Pa(ӠƠŠ̠ĠƠҬ)a(ĠŮ)c\ M6-a(ȠƠŠǠӠĠ)6a(͠͠ĠŠ)a(ٿ)c7a(̠Š)a(̠ŠǠ)>a(̠Š)a(+Ja(ҠŬŠ٠Π)(Ta(ĠŠ̠ŠӬ),^a(ӬӬӠĠ)-ha(ӬӠӬӬӬ),ra(ӬĠ٠ҠӬȭ)%|a(ӬӬӬĠ)-_MM6a()a()a(٬ӠŠΠԠΠ٬)-"a(ӠƠ̠ŠӠĠ)(,a(ǠҠΠΠŬ)-6a(ǠŠӠǠ)@a(Ӯ)c\ cEo M6dcӠƠΠӠΠ)Fa(̠ͮӠԠŮ)ca(٠ή)\ M6_]M6a(ΠĠŠ̠Š)a(ƠΠӠΠŠͬ)Ea(ҠŬ̠ŠȮ)ca(٠ή)\ M6(̠Š)a(ŠԠ̠Ġħ)/ca(ŠҠĠӠή)2T`$`$`$`$(ca(ԧӠ)\2c\ _ZM6a(ΠĠŠ̠Š)a(ҠŠӠΠ)a(̠ή)cc\ o M6d*ca(ˠԠͮ͠)*a(ȠƠŠǠӠ)-a(ΠŠ͠ĠŠο)9ca(̠Š)a(̠ŠǠ)AaĠΠ))Za(ӠŠ̠ΠƠ)-da(͠ԠҠ̩ΠŠ)(na(ǠĮӠƠ)-xa(ӠĠźŠˠ)*a(ΠŠԧ̠ˬ̠Š).a(ӠΠĬ)a()7qUVW(a()GYa()a()GP*(a()qUVW(a()GYF2a(­àӠ)a(άάî) <c\ %FM6a()a().Pa(ŠԠԠϭ)GPa(),a()a()GPa()-a(Ҡ)qUVW(a()GY7a()a()a()GPa()+ a()qUVW(a()GY;a()a()a()GPa()a(ΠàӠҠӮ)+a(ŠƠŠàӠƠ)(a(ŠĠΠŠǠ)+a(ΠҠƠŮŠŠ)*a(ĠŠŠ٠)cc\ 'cca(à)GPa(Ġ)#a(Πՠ̠)a(ŠǠӺ)&tccP a(Π)c=~P a(٠)cP a(͠) cc\ oM6d.cca(ΠӠŠŠ)&a(Š٠ˠΠӠ)h gh +$gh ghl mng h.[!8qUVWf \Y0Ba(ŠҠҠԠ)N@" rR@LKM6a(ˠՠ)E@+Vca(ӠӠŠԠΠŠ)`a(ӠΠٮ)>jca(ΠӠ̭a@E(ΠɬϬ).LUVWUVWf\YY_8<l mnij k gh gh ij k<l mn i jk i jkgh gh7l mnijk ijkl mng[$2qq\(\8/?r3r[3a(ì)E@[4a(Ԭ)E@[5a(Ҭ)E@[6a(Ԭ)E@[7a(̬)E@[$8a(էŠǠ٠̬)E@[5M6]ӠӠŠǠƠŠΠN@"r@p()]#]]ϭ]]٠Π]ά]]٬] \}_4 q(qF\(a(ϠŬӠ٠٩)UVWY `.?6@r$d6?e[(dedeM      NC4vOC15OC0?@ # # MANUAL CONDITION CHECK # #fJB37L6OC0F(1)1:F$(1):9100TB14R11OC0F(2)1:9000^B14R18OC0F(3)1:9000hB20R18OC0F(4)1:9000rB4R9OC0F(5)1:9000|B6R28OC0F(6)8NC0Ġ11:11,26+ OPEN LEFT A-V VALVEjT14L20OC0Ġ11:27,14:22,20:24,20:NC:23,19:23,20 CLOSE LEFT A-V VALVET20L20OC0Ġ11:23,19B26R26NC0Ġ11:27,26X # # B&W TO COLOUR # #bNC8NC2lNC15IJ * * * * **  MAIN PROGRAM0> * * *D^| # # PLOT VALVES # #y OPEN RIGHT A-V VALVET14L12OC0Ġ11:11,14:14,20:16,20:8:15,19:15,20 CLOSE RIGHT A-V VALVET20L12OC0Ġ11:15,19B26R1CTIONS)X GOSUB 49000 (END)A # # READING FLOW VALUES # #I11T10500pB,T,SY,L,R,SX,OC,NC,WTB15090CO1İ7000SCNCOC110005500MA1İ8000SB1SB0:130005050 * * *GOSUB 28500 (CURSER RESET)<: GOSUB 28700 (ERROR MESSAGE)]? GOSUB 29000 (PROGRAM MENU)~D GOSUB 29500 (LABEL SET-UP)I GOSUB 30000 (FLOW CONTROL & CONDITIONS-DIALOGUE)N GOSUB 31000 (ANY CHANGES RESET)S GOSUB 32000 (LABEL TEST INSTRU RESPONSE)* GOSUB 20000 (LABELS TEST)L GOSUB 24000 (LABELS SETOUT)h GOSUB 26000 (HEADING)! GOSUB 26200 (TEACHER DIALOGUE)& GOSUB 26600 (STUDENT DIALOGUE)+ GOSUB 27000 (ACKNOWLEDGEMENTS)0 GOSUB 28000 (DIALOGUE MENU)5 36):CV(NA)(37)*]NA;*]-*^LA$(NA);3*^e*^CH(10)(36):CV(10)(37)::"E";::LA$(10);{*^CV(37):CH(36)*^QT1ı*^CV1:CH2*^868*^AN$*^14000*!^F01F00:*$^NN(AN$):*)^G01G00::28700::24086+;^2413500)>N32000)HN13000")RNQT1-)\N240008)fN16000C)pN15000P)zN15:X,Y[)N24086g)N0:X,Yz)NAN$"E"20890)N20070)Q:)Q)] # # LABELS DIALOGUE & ANSWER DETECTION/CORRECTION # #)])]17000)]NA19)]*]CH(NA)();e(LJ(AN$)RQĢCV(RQ)1:CH(RQ)1::RQ;LA$(RQ):TL13500::CV(RQ)1:CH(RQ)1:RQ;::LA$(RQ)(VJ(AN$)RQĢCV1:CH2::"CORRECT";"";"";"";""::LT13000::CV1:CH1:868(M( N # # TEST LABEL CONTROL # #(*N:11(4NMA4)9N10A "'BLA$(8)"L.AURICLE"4'BLA$(9)"L.VENTRICLE"G'BLA$(10)"EXIT"M'Cu'8J # # ANSWER CHECK AND RESPONSE # #'BJ(AN$)RQĢCV1:CH2::"INCORRECT"::28720:CV1:CH2:868(GJ(AN$)RQĢCV((AN$))1:CH((AN$))1::(AN$);::LA$((AN$)RANDOM LABELS # #$&>RQ((1)91)2&>AN$(RQ)8&t@Y&hB # # LABELS FOR DIAGRAM # #q&rBLA$(1)"VENA CAVAE"&|BLA$(2)"R.AURICLE"&BLA$(3)"R.VENTRICLE"&BLA$(4)"LUNGS "&BLA$(5)"PULMONARY ARTERY"&BLA$(6)"PULMONARY VEIN"'BLA$(7)"AORT:AN$"4"X18:Y4)%:AN$"5"X3:Y20?%:AN$"6"X37:Y8V%:AN$"7"X29:Y25m%:AN$"8"X23:Y16%:AN$"9"X23:Y23%;15500%(<%< # # LABEL TEST FLASH # #% # # 911$(7(AN$)1(AN$)9((AN$))(AN$)G01q$27AN$"1"AN$"2"AN$"3"AN$"4"AN$"5"AN$"E"G11$<7AN$"Y"AN$"N"G31$4:$: # # POINTS FOR LABELS DOT # #$:AN$"1"X5:Y14$:AN$"2"X15:Y17$:AN$"3"X15:Y23%F01#6AN$"1"F11(#6AN$"2"F21:#6AN$"3"F31L#6AN$"4"F41^#6AN$"5"G21#6AN$"1"AN$"2"AN$"3"AN$"4"AN$"E"F51#7AN$"1"AN$"2"AN$"E"F61# 7AN$"Y"AN$"N"AN$"E"F71#7AN$"Y"F81$7AN$"N"FE BAR";::" TO CONTINUE ";$"2AN$/"214000G"2F01F00::49000X"324:1:868^"3"6 # # CONDITION AND ERROR CHECK # #"6F00:F10:F20:F30:F40:F50:F60:F70:F80:F90"6G00:G10:G20:G30:G40:G50:G60:G70:G80:G90#6AN$"E"MONARY VEIN"*!&/F$(7)"FILL LEFT AURICLE"j!0/F$(8)"EMPTY LEFT AURICLE AND FILL LEFT VENTRICLE"!:/F$(9)" OXYGENATED BLOOD PUMPED OUT OF LEFT VENTRICLE TO SYSTEMIC SYSTEM"!0!2 # # SPACE BAR # #!28!224"2"PRESS ";::"SPACAURICLE"J .F$(3)"EMPTY RIGHT AURICLE AND FILL RIGHT VENTRICLE" /F$(4)"DEOXYGENATED BLOOD PUMPED OUT OF RIGHT VENTRICLE VIA PULMONARY ARTERY" /F$(5)"BLOOD OXYGENATED IN LUNGS" !/F$(6)"OXYGENATED BLOOD FLOWS INTO HEART VIA PULLOOD FLOW # #+YBTSY) +XLRSX9+COCNCSCM +WA1WTWF:WAT*+C]4+X,Yd>+CkR+Xr\+Yxf+. # # MANUAL EXPLANATIONS # #.F$(1)"DEOXYGENATED BLOOD FLOWS INTO HEART FROM BODY VIA VENA CAVAE" .F$(2)"FILL RIGHT (28,3226(32,3930*(37,2632@( SYSTEMIC SYSTEM((32,2833:31,3528:28,1035:35,3110:10,2831:10,633() # # WHOLE DIAGRAM # #)10000)10050")10100,)101506)10200@)10250E)10270J) * # # B13:13,2827:27,1128:27,1127:28,1311DV'13,2819:11,2719:J`'bt' PULMONARY ARTERY ~~'10,226:26,42:2,84'' LUNGS'9,292:2,729:29,97:7,29'' PULMONARY VEIN'30,364:4,1436:36,2814' ( AORTAĺF$(5)d#F(6)1ĺF$(6)-n#F(7)1ĺF$(7)@x#F(8)1ĺF$(8)S#F(9)1ĺF$(9)`# WAIT ?y#AA120:F(AA)0:AA#SB1#' # # DIAGRAM CONSTRUCTION # #' VENA CAVAE'14,376:6,1014:0,630$'B' HEART CHAMBERS+L'11,271:9000)B14R27OC0F(7)1:9000RB14R26(NC4NC15)F(8)1:9000{B20R26(NC4NC15)F(9)1:9000(# # # FLAGS FOR EXPLANATIONS OF MANUAL FLOW # #-#<#F(2)1ĺF$(2)F#F(3)1ĺF$(3)P#F(4)1ĺF$(4)Z#F(5)10+=^MA324086+?^+B^:-+L^(CH(NN)1)=+V^(CV(NN)1)S+`^:NN;::LA$(NN)Y+j^j+o^MA3İ15000|+q^MA3İ19000+t^CH(NN)1:CV(NN)1::NN;::LA$(NN);+_+c:"SYSTEM.HENCE YOU AS THE TEACHER SHOULD"+c13000+e # # HEADING # #NO)"; oTqtT1350.yT01130G~"";"RUN HELLO BIO" y" G1P1P11#P141055-P114T>$1105I)Z1FU.J1T2e3DDFP(J)w8D1D1FQ(J)=P(J)ZP(J)BQ(J)ZQ(J)GJLQV[`"COST OF FLY CONTROL: $";.01C9ej"ANOTHER RUN (1=YES, 0=ZL7Z1960 ZZT25FV(P1)KW(P1)CF.5980UE(G)P(Z)B0^985xE(G)P(Z)B0V(P1)FZL3Z11000ZZT2V(P1)P(Z)W(P1)Q(Z)LL1LT21025L1GG1GT11040 zJ1T2P(J)P(J)Z$J< PESTICIDE EFFECTSNX(T9).5925XF.9b1065{X(T9)X(T)CE(G)DS(T9)S(T)S(T9)D1T;6);"I";(7(50X(T9)X9.5))2);"*";(X(T9).5) BACK UP SEVEN DAYS FOR EGG CALCULATION(L)"9 BIRTHS IN THE POPULATION.>T9T1JCC3.33E8X(T).04333[HP(L)CE(G)kMQ(L)S(T9)R EMIGRATION/IMMIGRATION EFFECTSWZX(T)P(L)S(T)(DD1X9)\Z0880aFZ(ZX9)f1065k910pDD.1ZuZ(.1ZT2)ONS OF NORMAL ADULT MALE FLIES"N" 0 1"}"DAY I--------------------------------I  START SIMULATION%T175&T20(T20)810'REPLY$* OLD AGE DEATHS IN THE POPULATION/DP(L)4D1QJ(JX92)X92695.J(J)695J"FROM WHEN, TO WHEN ";TT,T9i(T938)37715|T9(T9)715(T38)37715T(T)715TT9715FT1T91S(F)JFC9C9J(T9T1) "MILLIEN (1=DAILY, 2=SELECTED DAYS)";&vT3{T1695AT2625]"DAY, NUMBER OF FLIES"fT,JsT0770(JX92)X92645J(J)645(T38)37645T(T)645S(T1)JC9C9J650"HOW MANY PER DAY";IDE (1=YES, 0=NO)";!T'&T06005+T1540G0"WHICH DAYS"N5T[:T0600o?(T38)37560DT(T)560IX(T1)1NC9C91E7S565X]"STERILE FLIES (1=YES, 0=NO)";bTgT0770lT1600q"HOW OFTT2P(L)X(1)T2 Q(L)0'L3G1T1HE(G)B0X(1)T2OG[P114nV(P1)X(1)T2{W(P1)0P1L17G13P14T276S(T)0X(T)0 T DETERMINE OPTIONS IN MODEL"PESTIC RATE OF MALESB02502G C: SURVIVAL RATE OF EGG, MAGGOT,PUPARC.01x C9: COST OF CONTROL PROGRAM*100C90 START POPULATION AT MAXIMUM VALUEX(1)X9S(1)0 INITIAL CONDITIONS FOR ADULT MALES AND EGGSL1,V(4),W(4)*^ T1:DAYS FROM EGG TO ADULT5cT113Rh T2: LIFE SPAN AS ADULT]mT217r X9:MAXIMUM NO. OF MALE FLIES THE AREA CAN SUPPORTwX91E6| K: SEXUAL ACTIVITY COEFFICIENT OF STERILE MALESK.25 B0:NORMAL BIRTHRILE "2=" FLIES (UP TO 1000000). USE A"Z@" A NEW LINE FOR EACH DAY."E" TYPE 0,0 WHEN FINISHED."J20:"REPEAT INSTRUCTIONS?(1=YES,0=NO)";L190OT SET UP INITIAL CONDITIONS YX(76),S(76),P(17),Q(17),E(13)" (UP TO 1000000), THE FIRST DAY"W," OF THE PERIOD, AND THE LAST DAY"1" (BETWEEN 1 AND 75 DAYS)."6" IF 2, FOR EACH SELECTED DAY, SPECIFY"8" THE DAY NUMBER (BETWEEN 1 AND ";" 75) AND THE NO. OF STEO CONTINUE";:REPLY$2"'STERILE FLIES?'"O" 0=NO STERILE FLIES."y" 1=STERILE FLIES WILL BE RELEASED"" COMPUTER WILL ASK 'HOW OFTEN?'"" TYPE 1=DAILY OR 2=CERTAIN DAYS."'" IF 1, SPECIFY NO. OF FLIES EACH DAY"()CIDE?'"! " 0=NO PESTICIDES."J " 1=PESTICIDES ON SPECIFIED DAYS."t " INDICATE THESE DAYS BY TYPING " " A DAY NO. (BETWEEN 1 AND 75)" " NEXT TO EACH '?' THAT APPEARS;" " TYPE 0 WHEN FINISHED."22:"PRESS RETURN T"PESTICIDE, RELEASE STERILE MALE FLIES,"V "OR BOTH. INDICATE THE TYPE OF CONTROL" "PROGRAM YOU WANT BY TYPING IN THE " "APPROPRIATE RESPONSES TO THE FOLLOWING" "QUESTIONS:" 22:"PRESS RETURN TO CONTINUE";:REPLY$  "'PESTI"INSTRUCTIONS (1=YES, 0=NO)";& F, 9 F0335G F1185M w " YOUR GOAL IS TO ELIMINATE THE ONE" "MILLION MALE FLIES NOW IN YOUR 10000" "SQUARE MILE AREA, THUS DESTROYING THE" "TOTAL FLY POPULATION. YOU MAY USE A") ES FOUR DAYS AGO3 P1=POINTER FOR V AND W_ "CONTROL OF SCREW-WORM FLY POPULATION" "====================================" :"COWLING COMPUTER PROJECT":"SOME ALTERATIONS BY D. WATERSON":"SWAN HILL HIGH SCHOOL MARCH 1980" 20 E E,P,Q,V, ANDD W ARRATS, WHICH ARE TREATED AS CIRCULAR QUEUES.b E=EGGS, G=POINTER FOR E P=NORMAL MALES, Q=STERILE MALES, L=POINTER FOR P AND Q V=POPULATION OF NORMAL MALES FOUR DAYS AGO;  W=POPULATION OF STERILE MALI2Yd STERL2--PROGRAM ON FLY CONTROL BY THE INTRODUCTION OF STERILE MALE FLIESxi AND THE USE OF PESTICIDEs X(T)=NO. NORMAL MALESx S(T)=NO. STERILE MALES ON DAY T } INFORMATION ON THE LIFE CYCLE OF THE FLY IS CONTAINED IN TH     oX]ΠϠŠŠƠΠϠҠŠƠӠԠԮEl]ԠĮԮҠӠŮ̠]ħӠŠQoa(ӠŠŠҠϠŮ)0`.?6@r$5`.?6@r$+:d6?eKM6[?]?D]ĠŇɇήiN]ƠŠӠϠĠӠŠԠΠŠŇŇԇŮ%o@p(ħӠŠ)\ @p(٠Ҡ)\ @p(ԠԠ)\'c@p(ҠΠƠ)\ @p(ҠŠ)\$&oa(ӠŠçϠ)1+\&_A]·Ԡ·҇ԇŮP;@ra@a()[E]·ććՇŮ9d6?eKM6o P a(ŠĠ)Q>]Šr_,`-r-r$6-rq-rYZZUVWUVWq8r`-r$q-r `$`$q6 \6f_q \6fghq-rq-rYZ`$YUVWf`-8rr %fghYZ2DUVWqq`%q*a(Π)FE(Π)FZUVWUVWq8r`-r$`-r $,`-r$-rq-rq-r$8`$9-rq-r$9`$;-rq-r$;`$<-rq-r/<`$>`$=-rq-r:=-rq-r`$>-rq-r>[?YZHAUVWUVW@Brp()YH2UVWq8rq<@*rr-rq`%-rqYZ 3LM6B4UVWUVWq8rq `-r $? 5\6_?;6q `$9`$7-rq-r7-d6?ed6?eKM6 N@"(r\ca(ŠŪ)cPN@"rD4DrS(ҠƠ)'ca(ҠҠΠӠ)a(ҠŠŠԠ)qR(UVWP8r` %P8rbGR@q;@r     ŠƠΠϠҠŠƠӠ٠Ү$]<.]ԠĮҠҠӠ8]B]ĠΠLQP#]Š٠Z#]ŠŠҠd#]Šԭn#]Šԭo#]]]]U]͠ٺΠǠҠ]Z]ΠϠHa(  )Ha(  ) oQ(#]ө2#]ŠԠ<#]ŠΠF#]ŠԭҩbM6d!e!Mloa(  )Hva(  )Ha(  )ŠӠUVW'M a()GYM[]ŠҠԩ'@p(ӠŠҠ)oM\Mq.?6@r`<()r$d6?e[p]ԭҩzM6d!e!oa() oQX]o\o\4o\d2eo\o \o\=d2eo\o \o\d2e?o\>o \o\d2eo\o \o\+o \o\o\o\0[ ]?$re`#"UVWdYq[h]ԠȩrM6_|UVW;@r a@*#rGY["@p(ӫʨٮϡզز)\|$@p(լҪ˥ŬٻԺޫ)\|[+o\o\o\o\*od2e\l!m#nl$m&nfl$m&nl!m#nA* fij'k ij'k fij'kij'k4 [Q]٠ЩUVW,Y[]٠ҩM6a()G!d.?)r.?(r.n$cl f lmnlmnlmnlmnlmnlmn"lmn$ [ ]Ӡ Lf UVW' ij'k YA f l!m#n l$m&nf l$m&n l!m#nA fmng hl mn&=?`ʕ>?>`8M˕   , OO i@ &N&O ϕLz JKLυML LMJυKLˎ qL ȩ` 6 6P`JLKMLxL L6 L[L JLKMMLILLILLLLy 2L,PQ܅x݅yLÈ آ8ЕNЕ%L"wL{ TL~&&&ڥې څΈ` l 4Ȑ,` 40L 4Ȑ-` 4(L(n ă ărLa ?&0ΰ` ΔL 4΅` ȑ` l΅υLD L4 䎴xPiڄeΕPeϕxPȵxڰL# N ONi)uQ줰䮲륥Q9O/Q) WjB`O~5'Q 䯭䮡ޜݜݞGg` ` `嶡䡯z~" `` Oڵw۴Nv L`xw8OPL# (` 40!(L 4LdF`  @Gh X{gggggg'(dgxkg~9g'7(*䮥G 0 #gMghghPcQ)Wqqqqhhq`uuTĠ 5EMҠL Šō?FِLÈϚΠ ăκ f ٢  ٦Τ ȹɀI ȄȹH h3 oLP O䯭䮡𥴳\@`` ~3`Gg壡yi壡yi` [(N>W']5Kgvq7ϠGX͠LϠ٠SGϠDĠHSĠNSĠ_oܙݙᙯ` ??<<<<<<<0UUUUUUUUWB oTMɅ"3J[NSJIfmzq# [$NYP;#o6#"#!0 9@0Ӷ:Pyإ<m7;܄iȢٚ . y$IqܤݐLM͠1FLJܹ/ݾLuc ăܪȱ L[ĨP?xO_ڹo  ʤ  Y YoܹݾЇ`TP@xL` Ιϙ $0 8 P# o ΅ڥυ e epݕ` 4LˎL$ `  rPՆϦ ` ΅υȩ ` Τ PڵxۥΑȥL`hh$ F`` ͏%ֈ`ʤZA^ܙ ݙ0  ѕxh$0 xx ԅբ H 0  $ ( x$0  xx 0$FԨֹ)U h)װ H 듥֐ι L؆l`w0P`fLPεϵxϱHȱ΅hΈ` J  P` Y $0` ` d'ʅ˅LM&ȱϰqȥȥ`FLʥM˥J̥Kͩ`Lkȱ0@hJHȱШhЄӠȱ0I@iHeШiH˰hhЈЈ͑Ј̑ЈЈ0JKЬ@iHe e8 05X~")XȔ) F*Ȇ0LJɢ  Ȉ ϴX)HЄ ȹ)eHe0hޤȄ h󰩠ɩch cɰ$0 $~q  u  mʥ` ȹ0 L uߙ`` ӎ$0LL*iS 00)ȆȘHJI@hL`ȩ)?Jжi?oiO iȱ) zȵх υ   o ` l3 ΃3` 4J G 4&(JJJJ) ` ӏ F٩ $  ΃Ȣ ii)ɰL ̥͐Eʑ˥ʥ˰ਈ$ uhڙ`ꠀЕ x ت3 Q3ؕxQεy NvNδPPPL#Q8yڅ`Sε{ϵQڵyxȔPMuHOwh(VP`΅h(OM ׁL6 T&ϐ eڅeۅ &L~ 畠(LoU [΅ڇ mdžة * * *     % 0LH΢QPHΪ0h$0 )?i h](Њ Px+L 4P 䏕xL# 48` PxL PeHxeH˰iکeۅȱbVcWdXeYfZg[h\i]j^k_ :@{ĥåꍗL L3L`) #L $  `  v mL;ʅ˅LM  936:20:2255:: APPLE ][ PLUS INTEGER BASIC IAN WEBSTER SOFT MACHINES FOR FARMmPLAN ŝ@̝< =>?BC ,6""""!!! ! ! ! ! !!!!!!!!!   ' (4);"EXEC RUNNER"% D"" AA$"N"100522*CV:958:51000BIO$;XX$X&"";IO$;XX$:100g0216,0:LCp:170~DCV:958N"TYPE IN NEW NAME AFTER THE ',' :"XIO$;XX$;",";:"";NM$]1000b:(4)IO$;XX$;",";NM$l:170v:3L$"RUN "( IO$"B"IO$"B"SEL$:490@ IO$"T"IO$"EXEC"^ IO$"I"IO$"A"IO$SEL$ ::12:10:"GETTING PROGRAM...":20:IO$;XX$ 1000 "";IO$;XX$:IO$"EXEC"ĺ"FP": 150 IO$;XX$;" (Y/N) ? "; AA$:AA$"Y"ĺ:530;:25:"D";* h:35:"R";(8);::AA$:1: rCV:958:X |AA$"L"SEL$"LOAD":460v AA$"K"IO$"LOCK ":530 AA$"M"IO$"RENAME ":580 AA$"U"IO$"UNLOCK ":530 AA$"D"IO$"DELETE ":520 AA$"X"ī640 AA$" "100 SE" "XX$(XX$,LN1):270+ "IO$(IO$,1,1)= ,(IO$)0460] 6:"SELECTION";::": ";XX$ @:"SELECT";::": NLOCK RENAE OAD"; J:12:"U";:26:"M";:32:"L": T" LOC EIT ELETE UN"; ^:12:"K";:18:"X"1)" SINGLE KEY FILE SELECTION UTILITY ]]":"FIRST SELECT PROGRAM ==> THEN OPERATION"` 34,4:g 2q 560{ LC3 "CATALOG":A$ 2 LC3:"";IO$:LC CV(37) CV:958 216,0 XX$(IO$,6) LN(XX$) (XX$,1)% 5e% 97 E8 L0 $( X fh5hh`(` E 9LQ&( E8 de dLC2061 nPA44452:PB44605:PC44556:PD44755 xPK(PA) PK181ĹPA,20:PB,16:PC,66:PD,187:150 PK181ĹPB,180:PC,20:PD,16T :::(91);(9 100:LL; LH ϠڠϠԬҠŠ` Qh6h7` Qh8h9`hhhqhrmqmrHHHHH`I ELQY (HH5H%H ( ( f詠((hH%hʠ%((5" " " " " """ (4);"EXEC RUNNER" D$;"EXEC RUNNER"P-1013,76:1014,0:1015,64[216384aP D""