' +JJJJ ?\>m0M='+l> /+l   d]@ŵLҦ]]LF L}BBL] X  ` 鷎귭෍ᷩ췩緈JJJJx Lȿ 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,&"ųųೳŪŪųųij  !"#$%&'()*+,-./0123456789:;<=>?   1 '" *"( (9"1 ( ,.(0# 2  /#0/#0 *?'#07#00/0/'#07#0:"4<*55/**5/*%5/)1/)1/)1/)'#0/#0*5/*75/**5/*:5//#0/#0'#07#0:::*::'#07#0"):$(%"%:$(%"%$$2%4%$$2%4%$(2()!)E(!8b $!H(+ "@H !D)"E` @ $ C ` DQ &J80^݌Hh ü ü݌ ռ ռ ռA ļD ļ? ļAEDE?HJ>h Լ ռ ռ ռ`HJ>݌h Hh݌`葠葠ȔЖȔЖȠHIHHHHhHH݌hHhHh݌H6 VDP (ED Z $0x8x D- ܸDD# H8`?E Vk *f???0xE Hh D#-EEE8` D ܸx D - ܸx8`-0ݩ?ʥD EEE`   LDcpq` [` ~  LӜu`".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 õ ĵµ aµ`` L̦µ_bJLuLz`  ȟ QlXJ̥KlV  ȟ QlV eօ3L e3L &RL &QL d L4 Ne)n `@-eff L f`L . tQLѤ LҦL` OPu d L Ne)noon 8ɍ` ^f\õL ^NR  RΩLҦ)\Z ʽ LHv 3h`0h8` [L NС õ`A@` ŵL^Lõ`  \ 濭0 \  ȟ Q ^\lZl^?cqH şch`fhjõĵ@OAP`u@`@&`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- (  ٠@跻~!Wo*9~~~~ɬƬ~_ j ʪHɪH`Lc (L ܫ㵮赎 ɱ^_ J QL_Ls贩紎 DǴҵԵƴѵӵµȴ 7 ַ :ŵƴѵǴҵȴµ納贍﵎ٵ്ᵭⳍڵL^ѵ-I `  4 ò-յ!  8صٵ紭ﵝ 7L (0+BC  7L HH`LgL{0 HH` õL H hBL BH [ h`Lo õ ڬL B ڬ LʬH hB@ յյ [L (ȴ) ȴ 7L L ( L (ȴL{ƴѵ洩ƴǴҵ 7 ^* B0 HȱBh ӵԵ 8 L8 ݲ` ܫ  / / ED B / / ]ƴS0Jȴ ȴ)  紅D贅E B ƴ  / 0L Ν `HD٤DEEhiHLGh ` ŵBѵ-` ѵB-` ܫ XI볩쳢8 DH E𳈈췍Ȍ X0 · JLǵBȵC`,յp` 䯩 R-յյ`յ0` K R-յյ`ɵʵӵԵ` 4 K ( ѵҵLBȱBL8` DBHBH : ַ޵BȭߵBhhӵԵ RBܵmڵ޵ȱBݵm۵ߵ` 䯩LR˵̵ֵ׵`êĪLR E( 8` R` ELRŪƪ`췌 յյI뷭鷭귭ⵍ㵍跬ª 뷰` Lf ݵܵߵ޵ ^`8ܵ i B8` 4L ֵȱB׵ ܯ䵍൭嵍 ` DȑB׵Bֵ  ַ յյ`굎뵎쵬 뵎쵌``õĵBCõĵ`µµ`L õBĵCصص Qƴ0"Bƴ 󮜳` 0۰ϬBƴ8`i#`ЗLw!0>ﵭ` m ﳐ 7i볍 8 ЉLw`H h ݲL~ `浍국䵍뵩嵠Jm赍嵊mjnnn浈ۭm浍浭m䵍䵩m嵍`"L ŵ8ŵH ~(` d ֠z# u`1: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)1NC4vOC15OC0?@ # # 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 * * * :   I:::"DO YOU WANT TO RERUN (Y/N) ?"RY4$c"Y4$"Y"910u,Y4$"N"50006:"TRY AGAIN"@4110 RETURN TO GENETICS MENU(4);"RUN GENETICS MENU"(# HARTLEY HYDE3,2415:13,2419:16,1825:16,1826y 15,2422:15,1826:21,2626:21,2225:23,2513:23,2514:23,2525:23,2526 15,1729:23,2429:17,1930:18,2131:20,2232:22,2433:15,1633 30,3213:30,3214:30,3226:30,3225 I12000:REMENT YEARS "38 18:"BY PRESSING ANY OTHER KEY";B D$HL I3044SV A(I)CY` _j e k q x 6 I039 0,39I  13 13,268 9,1113:9,1119:9,1125:9,1114:9,1126:9,1118% 15,1712:20,2412:1 4)GREY BACKGND: ALL EASY TO FIND"X:::"WHICH BACKGND DO YOU WANT (1,2,3 OR 4) ?"_ClC1C0zC2C11C3C14 C4C5  5 " YOU MAY FINISH AFTER ANY YEAR"$ 8:"BY TYPING 'F'". 15:"YOU MAY START OR INC2,02(UNITED KINGDOM,1961-71,0,55.515,.5,0,1971d(UNITED STATES,1960-1970,0,203.235,1.3,0,1970 K"'PAKISTAN,0,0,67.213,2.9,2.9,0A'PERU,0,0,14.953,2.9,2.9,0g'PHILIPPINES,0,0,41.433,3.0,3.0,0'SAUDI ARABIA,0,0,8.008,1.8,1.8,0'SINGAPORE,1970-75,1957-70,2.25,1.6,2.8,1975(SWEDEN,0,0,8.236,.6,.7,1976 (SWITZERLAND,0,0,6.44,1.1,1.52.16,.8,.9,19731'INDIA,0,0,595.586,2.3,2.3,0T'ISRAEL,0,0,4.249,1.9,2.2,1972t'JAPAN,0,0,109.67,1.2,1.1,0'KENYA,0,0,12.91,3.4,3.2,0'KUWAIT,0,0,.93,7.8,9.1,0'MEXICO,0,0,57.899,3.5,3.4,0'NORWAY,1971-75,1965-74,4.035,.8,.8,1977,3.4,0(8'BELGIUM,0,0,9.757,.3,.5,1973JB'BRAZIL,0,0,103.981,2.9,2.9,0hL'BRUNEI,0,0,.15,3.9,4.6,0V'CHINA,0,0,809.251,2.7,2.9,0`'CUBA,0,0,9.09,1.8,2.0,0j'DENMARK,0,0,5.05,.7,.7,0t'EGYPT,0,0,36.35,2.4,2.5,0~'FRANCE,1968-75,1962-68,D ON A SEC WHILE I SORT OUT MY PAPERS...":Lf&W$"SHHH! I'M THINKING...":tp&W$"(GRUMBLE) MORE ARITHMETIC...":z&W$"BE WITH YOU IN A MOMENT...":'DATA'ARGENTINA,0,0,24.646,1.5,1.5,0$'AUSTRIA,0,0,7.55,.5,.5,0.'BAHRAIN,0,0,.245,3.1d3e]Ԡ_d"ed#e[ d"ed#e[ qq _$I(UVWf8r 8r8rlm'n!o"<UVWq8-rr-r_Pq88-rdrr8d-rr      0+=^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 # #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,27AD THE INSTRUCTIONS"(;Lh:"CAREFULLY."U;Vh:"THE ILLUSTRATION OF THE CIRCULATORY";`h:"SYSTEM IS SIMILAR TO THAT OF A PERSON";jh:"FACING YOU !!!";th13000;yh;~h5;h" AN INPUT NOT IN THE RANGE OF CHOICES"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"* 6,26,1,12,18,1,0,8,102Kă 14,14,1,12,18,1,8,0,10OKă 25,25,1,12,18,1,0,8,10lK"ă 24,24,1,12,18,1,0,8,10K'ă 15,15,1,12,18,1,8,0,10K,ă 23,23,1,12,18,1,0,8,10K1ă 16,16,1,12,18,1,8,0,10K6ă 22,22,1,12,18,1,0,8,10K;ă 17,17,1,12,18,1,8,0,10L 14,14,1,6,11,1,0,8,1000Jò FILL RIGHT AURICLEMJà 18,18,1,12,18,1,0,8,10jJà 17,17,1,12,18,1,0,8,10Jà 16,16,1,12,18,1,0,8,10Jà 15,15,1,12,18,1,0,8,10Jà 14,14,1,12,18,1,0,8,10JIJ FILL RIGHT VENTRICLEJIJ & EMPTY RIGHT AURICLEKă 2200 IֿI࿢12:101I꿟:"PROGRAM TERMINATED"JI::(4);"RUN MENU"RI:XI:gI * * * mI:sIyI:I * * * * *I&:IPò # # DATA VALUES # #IZ:Iò VENA CAVAEIà 30,30,1,0,6,1,0,8,100Ià 37,14,-1,6,6,1,0,8,100JÃ--------------------------------------":21:"---------------------------------------"^H|12H"WOULD YOU LIKE TO RUN THIS PROGRAM AGAIN"H16H10:"(Y/N) ? ";H28500H28520HAN$H14000H¿G31G30:28700:49070I̿F81ġ::10:868G,y18:25:868.G6y12:25:868?G@y6:25:868EG|ykG} # # LABEL TEST INSTRUCTIONS # #G }"A FLASHING DOT WILL APPEAR ON THE SCREEN NAME PART(FROM LIST) BY PRESSING THE CORRECT NUMBER"G~Gh # # END # #Gr::VHw5:"-ES (Y/N) ? ";:28500F~w28520,Fw" ";AN$8Fw23:31CFw14000TFwF01F00:lFwF71İ28700:30590FwF81İ31000:30310FwFw:11Fw10500Fw12000Fw13000Fw5000Fw13000Fw:FxFy # # ANY CHANGES-RESET # # G"y2312:25Ev14000#EvF01F00:;EvF61İ28700:30410IEvMA(AN$)UEw25:18`Ew28500kEw28520xE$w" ";AN$E)w18:25E.w14000E8wF01F00:EBwF61İ28700:30490ELwWS(AN$)EVwWS1WF1E`wWS2WF0Ejw23:10Ftw"ANY CHANGC"D4v::13D>v:"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'"Bƃ 22,22,1,20,26,1,0,15,10?RHƃ 16,16,1,20,26,1,15,0,10]RRƃ 21,21,1,20,26,1,0,15,10{R\ƃ 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,100Sƃ 26,37,1,32,32,1,0QŃ 14,14,1,20,26,1,0,15,10NQŲ EMPTY LEFT AURICLE AND FILL LEFT VENTRICLElQƃ 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,15,0, PULMONARY VEIN FLOW1PŃ 4,4,1,29,36,1,0,15,100OPŃ 4,14,1,36,36,1,0,15,100oPŃ 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,10PŃ 15,15,1,20,26,1,0,15,10,20,20,1,0,15,10 /ODŃ 6,3,-1,21,21,1,0,15,10LONŃ 6,3,-1,22,22,1,0,15,10iOXŃ 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,10PŲ15,1,0,8,10(Nă 24,24,1,12,18,1,8,0,10DNă 6,3,-1,16,16,1,0,8,10aNă 25,25,1,12,18,1,8,0,10}NŃ 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,3,-1,18,1,8,0,10(Mă 6,3,-1,10,10,1,0,8,10EMă 21,21,1,12,18,1,8,0,10aMă 6,3,-1,11,11,1,0,8,10~Mă 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,10 Nă 6,3,-1,15,@ă 21,21,1,12,18,1,0,8,107LEă 18,18,1,12,18,1,8,0,10TLJă 20,20,1,12,18,1,0,8,10pLTIJ FILL PULMONARY ARTERYL^ă 26,26,1,11,2,-1,0,8,100Lhă 26,4,-1,2,2,1,0,8,100Lră 4,4,1,2,9,1,0,8,100L|IJ FILL LUNGS AND EMPTY RIGHT VENTRICLE Mă 20,20,1,12)ɤ ɓՊ x= 4   &B&C= 44ݴ 4ݺ ɤ4&D ?5=ɥD 5 5 D4ɻɍЀL\ɠ` }Ɏ$ ``LXWVhY `XWYHV(` Jhh LHBC D..=D5֤4 J :3 g ɠh` T`  `ѥ΅ ΅ҥυө 0ХҠ ӕ "L 4i` F`ٚ .L 4 `$$L$Ն$L,L 8!$`L# ȱ0` 4 `YVPL6 ɏO ɏ5OPLɏ Ι_LfP0Q@PPxA@QPa`qp`HP8εxh`ɅLLHxܥyݥPQLuƵPxLhQεyϱΠ L 4) ؘ ` uHɃL` ăL:L``F`$ ܪȱ Lܤ`Ś25 a0 LJLJKH۰hЅѠȱ0@ȱHШhh0J L赟0LՓ0ܤ } ɑL赟L0ܤ } ɑL ` ` [ S oP Kʵ˕ە LkLMNܕ`LΥΥLMLʥMː ʥ˰JυKL  8Mϕڥ۰եڅʥۅ , ` :L΄<Ȅ>=?`ʕ>?>`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`  EADING AND DANGEROUS."(fK118000:K0p19^ BASED ON A PROGRAM BY JEFFREY DACH M.D. 909 ROSCOE CHICAGO,ILL.60657 COPYRIGHT 1978 APPLE COMPUTER, INC.lED TO BE USED AS A SINGLE"G "TOOL WHICH, ALONG WITH MANY, MANY":Q1u*"OTHERS, CAN LEAD A QUALIFIED PHYSICIAN"4"TO A PROPER DIAGNOSIS."9>"ANY USE BY A NON-QUALIFIED PERSON TO"H"DIAGNOSE ANY CONDITION WOULD BE"R"GROSSLY MIS-LERROR IN RESULTS. PLEASE RE-ENTER.":K12500:K:REPT1:90J:15:10m"UNABLE TO RESPOND":"END"::5:" COPYRIGHT 1978 APPLE COMPUTER, INC."K12500:K12 "THIS PROGRAM IS FOR PHYSICIANS ONLY!":"IT IS DESIGN@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"% L  bD$;"RUN HELLO" 5I,A I ::"RESULT":"------"::"AFTER ";X;" TIME PERIODS EACH OF "::Z;" MINS. IN LENGTH THE POPULATION"::"NUMBERS ";A;" ." 440 A2X QXZ 208 0:225  "HAVE YOU FINISHED(Y/N)?";Q$ Q$"N"50 XD$(4)Z " "h "DO YOU WANT THE POPULATION PRINTED OUT"::"AT THE END OF EACH TIME PERIOD(Y/N)? ":V$x V$"N"410 :100 "NUMBER OF","POP." "TIME PERIODS" "======================================" I1X A2I QIZ -:"WHEN READY PUSH THE RETURN KEY ------ "V /A$ 2:"DO YOU WANT A PRINT-OUT OF YOUR "::"RESULTS(Y/N)? " 7:B$ AB$"Y"Ċ1 "NUMBER OF TIME PERIODS?";X  "LENGTH OF TIME PERIOD IN MINS";N TO BE USED IN YEAR 11"::"BIOLOGY.": &"IT CALCULATES THE POPULATION OF A "::"SPECIES WHICH REPRODUCE IN AN EXPONENTAL":"WAY." (:"YOU MUST PROVIDE THE LENGTH OF THE"::"REPRODUCTION TIME PERIOD AS WELL AS"::"THE NUMBER OF TIME PERIODS."N EXPONENTIAL GROWTH$*J THIS PROGRAM WAS PRODUCEDi AT SWAN-HILL HIGH SCHOOL 30TH OF MARCH 1979#:11:"EXPONENTIAL GROWTH( $10:"-------------------":4:"THIS PROGRAMME WAS PRODUCED AT S.H.H.S"::"BY S.D.WATERSO  4:M1M5:H1H5:R1R5:G1G5 ) 1050/ 9 2050A :e "PRESS ANY KEY TO CONTINUE..."m A$v 200(#"";"PR#0"2#(4)"RUN SCIENCE 1."'I S : !D A2(A2K05)3330;N "COMPLETE SUMMARY ";CX A$YZ (A$,1)"^"3170\ "*****USE ONLY CAPITAL LETTERS."^ 3150b (A$,1)"N"3310l (A$,1)"Y"3190n "*****TYPE 'YES' OR 'NO'."p 3150v A21:K04:MM4:HH4:RR4:GG(10K02)10;6);(C3);13);(M3);21);(10H3)10;27);(R3);33);(G3)P e A$"GRASSHOPPER"o 3030 A$"RODENT" A23320  A$;" POPULATION OUT OF CONTROL IN YEAR";K02 S0  A23330 & "YOUR SCORE IS ";0M3500R9M*2110,4M3500R9(5M24)=>H31000R9HFHR3RORG3GY\C3C0ifK042240pM4M:H4H:R4R:G4G:M5M1:H5H1:R5R1:G5G1K002300H3A(H3):M3A(M3):R3A(R3):G3A(G3):C3A(C3)A9H3:B90:2H3XZZJ 0K04A214302050*K030309041050:@g13);"SONG";26);"RODENTS G'HOPS""YEAR CATTLE BIRDS HAWKS /ACRE /ACRE""======================================="K002070 2080,2100(M06000)1M62100  H1HAH.007(.1(G10000)2.5.6(R200)2.5.3(M6)2.5)ZA9H:B9(1B4)H1:5dHXZZvFG10G03000PR5R03020ZS(100000G6)(1000R6)72000020C3dA9S:B90:2eSXZZnS03080xA9S:B999.9:5ySXZZK0uR6XZZ~C.3G3000011805A9R:B9.67R1:2?RXZZI1190_A9R:B91.5R1:2iRXZZsM2M1|M1MM(1B3)M(B3MM6)(.7H.007.3C.15)A9M:B9.67M1:2MXZZA9M:B96(G10000)2.5:5MXZZH2H11200:R6200S9520C$20000K0K01:$G2G1C.G1G~8G(1B1)G(B1GG10000)(M60.2H0.0070.2C0.15)BA9G:B9G6:2CG6XZZLA9G:B90.67G1:2MGXZZVR2R1`R1RjR(1B2)RB2RRH1.4tA9R:B9R6:2.","TRY ";B$;(A1A30.51);A$;"."28["640 ACRES = 1 SQUARE MILE. ""THESE GRASSLANDS = 3 SQUARE MILES.":"HOW MANY ";A$;K00:K10:K20:K30G10000:G010000:G110000:G610000 R200:R0200:R90 380#HH0(R91000):H1H-10006A10LA(A30.51)470eA(10A30.51)480k}B$"AT LEAST"A11483B$"NO MORE THAN"A110"THE NUMBER OF ";A$;" IS TOO ";A110488"LOW.""HIGHFIELD." mD21 n505" o280+ p4904 q280C rA$"HAWKS"L |520T H0] AH0k A31.5R9t 440 A1420 D3418 "HAWKS IN ONE SQUARE MILE ARE ABOUT":"AS PLENTIFUL AS PEOPLE IN A FAMILY." D31 510 38040 220 A$"SONGBIRDS"& 520. "M0A ,CC0(1000R9)R 6M06000340i @MM0(500R9):M1Mr J350 TMM0(2500R9)245:M1M ^AM0 cA3550R9 h440 iA1370 jD2368 k"YOU MIGHT FIND A FEW SONGBIRDS ":"IN A ONE ACRE ========================", A$"CATTLE"5 520= C0L C009000^ AC0:A350R9g 440t A1270 D1268 "A RANDOM ACRE OF GRASSLAND USUALLY":"HAS NO CATTLE, WHILE A SQUARE":"MILE HAS MANY." D11 505 220 495 }(A$,1)(B$,I,1)135& I1IF (A$,A2,1)(B$,I,1)145O I2IV Io (A$,A2,1)"^"165 "***** USE ONLY CAPITAL LETTERS." 60 II1I2 R91I26 :K1:A20 936:: " GRAZE ECOLOGY SIMULATION" ",0.1,0.05 B1,B2,B3,B4: (A(X)X(10.2((X)0.5))^ 2B$"ABCDEFGHIJKLMNOPQRSTUVWXYZ" <:"WHAT IS YOUR NAME ";:A$ FA(A$):A2110 P"***** USE A NAME WITH AT LEAST 3 LETTERS." Z60 nD10:D20:D30:I10:I20 sI126:I1I216 10$XZZA9:B9A9ı1XZZB9:7MXZZA9:B9A9ıZXZZB9:l :936::: "DO YOU WANT A COPY OF THIS SIMULATION" "PRODUCED ON THE PRINTER"; A$(A$,1)"Y"19"";"PR#1"936:::  2,1          NE FOR YES/NO REPLY****S$2S$"YES"1505DS$"NO"1515h"PLEASE REPLY WITH YES OR NO";r1480zS11520S0"END OF PROGRAM""";"RUN HELLO BIO"S101415150B" BUT YOU ELECTED TO CHANGE A PARAMETER "]"CHOOSE OPTION AGAIN"g1235 **** PLOTTING SUB-ROUTINE ****P(J)11450"1";1470P(J)21465"2";1470"3";****SUBROUTI" SATURATION POPULATION ";%21480.7A2SI<" NO. OF OFFSPRING ";SA1480\FA3SvK" GENERATION TIME ";P1480UA4SZW11390_" INHIBITORY FACTOR ";d1480iA5SnS1A1A2A3A4W1sS101415xS1S1A51 }W1"(W11)(W12)01280B"REPLY BY TYPING 1 OR 2 ";L1260RaWW11305j WW1s125**** ALTER PARAMETERS FOR RE-RUN****"WHICH PARAMETERS DO YOU WISH TO CHANGE"" INITIAL POPULATION ";#1480(A1S-J1NB7);"NO. OF POPULATION ";J;"=";(N(J).5)IJOU[x **** RERUN OPTION ****"DO YOU WANT TO RE-RUN THE PROGRAM ";1480S01525"DO YOU WANT (1) ISOLATED OR (2) COMPETING POPULATIONS ";OPULATIONS *****eJ1J1/jX(2)N(1)F(1)BoX(1)N(2)F(2)MtI12{yN(I)N(I)Y(I)N(I)(K(I)N(I)X(I))K(I)~N(I)K(I)1160N(I)K(I)N(I)01170N(I)0IJ740 ****** PRINT FINAL POPULATIONS ******)570.W21125M3 ***** CALCULATIONS FOR ISOLATED POPULATIONS *****X8T1TZc=I1NrBZ11105GB(I)(K(I)A(I))A(I)LY(I)(R(I))T(I)QN(I)K(I)(1B(I)(Y(I)T1))VI[740` ***** CALCULATIONS FOR COMPETEING P((Z1)10)1070'6);"CONTINUE?";11480?S11070Ey******* RE-PLOT WITH A DIFFERENT SCALE********6);"REPLOT WITH A DIFFERENT "::6);"PLOTTING INTERVAL?";1480 S01190J1NN(J)A(J)J$(M(2)610)6);&M(2)M(3)9300"X";9985AJ2K1435^N(P(3))1985rM(2)M(3)960M(2)0960985(M(3)610)6);J31435985 ***** CONTINUE PLOT *****Z11070(Z1)10*CZ10(Z10)850.H1);ZT;5);"*";7M855ER5);".";OWZZ1r\ ***** PLOTTING ROUTINE *****aN(P(1))1905f(M(1)610)6);kM(1)M(2)895p"X";uM(2)M(3)985z940J11435N(P(2))1940* J13M(J)N(J)%P(J)J,J7J12BI12XM(I)M(I1)805cCM(I)s M(I)M(I1)M(I1)CCP(I)P(I)P(I1) P(I1)C%I*J/J134M(J)(M(J)L50.5)9J> **** PRINT TIME AXIS ***%****PRINT POPULATION AXIS****2W2715U16);"COMPETEING POPULATIONS"bN1705l"S";r10);"COMPETING POPULATIONS""TIME";6);"0";20);L2;35);L6);"I....I....I....I....I....I....I" **** SHORT ROUTINE ***0605#S"RE-INPUT A POSSITIVE ";,X5809]W1665BbT9TJgI1flY(I)T9.1(R(I))T(I)vqY(I)1655vT9T92{J1J1J1J150615"THE MODEL REQUIRES A SMALLER PLOTTING INTERVAL"570II1I2620Z0 J5 **** CALCULATE MAX POPULATION****>L50IJ1NY N(J)L540iK(J)L550r560}LLL!525&LLL+5300J5 *** SET PLOTTING INTERVAL ***:?J110D"PLOTTING INTERVAL = ";ITNTJ)0420T(J)440%T(J)5T(J)0440R3);"MUST BE POSITIVE "[395hW2455sF(J)0|500"INHIBITORY FACTOR = ";A51475F(J)500F(J)F(J)05003);"MUST BE POSITIVE "455800K(J))03506T3);"MUST BE IN RANGE 50 TO 800"?Y300[^"NO. OF OFFSPRING = ";icA31375yhR(J)0375mR(J)r395wR(J)|R(J)13953);"MUST BE AT LEAST 1 "350"GENERATION TIME = ";A41420T(A11280 A(J)0280# A(J), 3006 A(J)V (A(J)1)(800A(J))0300{ "3);"MUST BE IN RANGE 1 TO 800" '255 ,N(J)A(J) 1"SATURATION POPULATION = "; 6A21330 ;K(J)0330 @K(J) E350 JK(J)O(K(J)50)(3)0170  < **** INPUT PARAMETER VALUES ****G J13X JNJN245c N(J)0n A(J)0y K(J)0 R(J)0 T(J)0 F(J)0 505 " POPULATION NO. ";J "------------------------" "INITIAL POPULATION = "; NT TO INVESTIGATE":"(TYPE 1 OR 2)";+ nWC s(W1)(W2)0105i x *****SET INPUT INDICATORS*****"r }A11{ A21 A31 A41 A51 N2 W2200 "HOW MANY POPULATIONS (TYPE 1,2,OR 3)"; N (N1)(N2)(N,R(3),T(3),X(3),Y(3) AS$(5)% FI K *** CHOICE OF SIMULATION *** v P"THIS PROGRAM SIMULATES TWO SITUATIONS"| U Z"1) POPULATIONS GROWING IN ISOLATION" _"2) POPULATIONS COMPETING FOR":"LIMITED RESOURCES" d$ i::"WHICH DO YOU WA"STUDENTS AND TEACHERS NOTES- ED ARNOLD"/ #5 $} ("PREPARED FOR S.H.H.S. BY R.IRVINE"::"AND TERRY NEWNHAM 19/9/79" * - 2 ***COEXIST VERSION 20 7/2/1975**" 7 ***COPYRIGHT CHELSEA COLLEGE***" <A(3),F(3),K(3),B(3),M(3),N(3),P(3) X$(39)K12g:936::::"DO YOU WANT A COPY OF THIS SIMULATION":"PRODUCED ON PAPER";oA$(A$,1)"Y"10"";"PR#1" "CHELSEA SCIENCE SIMULATION PROJECT""POPULATION DYNAMICS UNIT -- COEXIST")           1195'"REPLY WITH YES OR NO ";111457=NZ$"YES"Ċ0Tj"END OF PROGRAM"p|D$(4)D$;"RUN HELLO BIO" SELECTION NOW ";AQ990ZV***OTHER CHANGES***`[{`"ANY OTHER CHANGES ";e1145jR1870o300t***YES/NO RESPONSE***yR$R$"NO"1170R01195R$"YES"1185R1 THAN 500"3915=P2PG$1115q)***CHANGE INITIAL % GREEN ALLELES***y.W18W1(100W1)01115="THAT IS NOT A VALID PERCENTAGE"B915GD1711158L"NO SELECTION IN LAST RUN. WHAT % ***CHANGE % SELECTION***&Q1?Q1(100Q1)01115c"THAT PERCENTAGE IS NOT VALID"l915***CHANGE POPULATION SIZE***PP((P))1045 P01045P5001055*"INPUT A POSITIVE INTEGER NO GREATER 4 "; 880+"WHAT IS THE NEW VALUE";8E1945EE2990SE31020aE41070***CHANGE POPULATION SIZE***D1DDD(8D)0975D71115D((D))1095"PLEASE CHOOSE A NUMBER BETWEEN 1 AND 7"915ION" S$W" 2) % SELECTION"*XH\" 3) POPULATION SIZE"N]wa" 4) INITIAL % OF GREEN ALLELES"}fk"CHOOSE ONE PARAMETER YOU WISH TO VARY";pEzE((E))905E(5E)0905915"CHOOSE 1,2,3 OR  ***RE-RUN OPTION***E%"DO YOU WISH TO RUN THE PROGRAM AGAIN";O*1145]/R01200c49***CHANGE PARAMETERS***>"YOU CAN VARY ONE OR MORE PARAMETERS"?C"YOU SET EARLIER"DHVV1MV1875R" 1) ZYGOTE SELECT;4);"*";5);P1;;9);P2;11);"*";13);R;16);M;19);G;b22);"*";24);R1;27);M1;30);G1;33);"*";35);((W100.5)10)10SS1***CONTINUE PRINTOUT***(S1)S1((S1)S1)375 "MORE";1145R1375z#?     ŠөǠӠ ̠Ƞ ҠҠ Ҡ͠ ӠΠRŠҠӠű Ҡ "Š4Ԡ ٠ϮʠĠ Š٠ΠɭҠӠĠӠΠſ)&@f`7;@r$\p\M6u`@*#r9()$=zoPa()cP a(٠Ҡ)G)qqUVW\Y_oPa(ˠ)Q]ŠϠԠqqqB`7d"ed#e" ocoa(ҠԬ)G*`7;@r$>F4UVW;@ra@*#rG`<@*rr%Y`;@r%d$e.?$r_H>d$e.?$r/HS()&@`;@r$`@*#r:()$R\M61\oS(٠ɠԠŠŬjkijk%lmno\UVWXJ`$qq 8 r\`%qq5bG` %a()Ga()GqYa(РŠ)o'oa(ӠĠ)GP bG\( d6?e,UVWYq q \Abd2e?a(ӠâϠРԭ)d2eelLUVW f8r 8r8rgh'ghY^qocUVWXfijkYiŠͯį٩)G\*`8r8r$!qα`%qS&ocM6dT0oP`  %a()G`  %a()Ga(Š)G9DoP 8  rbE()FE()FGoq)X\`;@r$@p@*#;@rr`<@r%@p()Aa@GocM6da(Šͯį٩)G\oPqqqqLqqqqa(Š)FE()FE()FG\oαqM6d\coM6d0`7%a(Ԡa() |c\)P a(٠Ҡ)c\\,cca(Ġ٠Š)#\oq q \?\M6\oS(ҠŬſ)&@oD`7;@r$UVW;@r`<@*rr%Y)[,qq\[t@O4rD4rD4r-rq\-rq-rq-rq?-rq-rq9-rq-rq)TN@"rC@"rC@"rC@" r;h-rq!KM6o\\cPY[,dededeM[,\,`$\(q8drl_qqqhq8rq:m:R 8r`%qS[q\,[0a(8d-rr8d-rr88d-rrd-rdrVdq8d-rr8&88d-rrd-rdrrq'8'r8(r5xgh`.?6@r%[]ԠҠŧƠBqqdededeMYXX65XXI1II300 ;420( : 22:"WHICH PROGRAM (A TO ";(III);")":"TO CONTINUE PRESS 'RETURN'";:XX$::XX(XX$):XX13IIII17::204 XX65XXIII400 ::8::"SEARCHING FOR:": 12:P$(XXII) D$"RUN"P$(XXII)(TP$)2:TP$::34,3: 42 I1:II63:TT0H II1:INN1300c TT17II1:TT0:400z (III)". "P$(I) TTTT1 204 ,22:"WHICH PROGRAM (A TO ";(I1II);")":"TO CONTINUE PRESS 'RETURN'";:XX$::XX(XX$):XX13ė:200 69T$(NN)"I"& DT2T130T$(NN)"A"G ET$(NN)"A"T$(NN)"I"200S FLLLL1| HILLLL29:P$(NN)P$(NN)((I)):I ILLLL31:LL8445LL8202:40 K60 ZT$(1)" "P$(1) dLLLL32:LL8445LL8202:40 n60 ::TP$P$(1) :20 HELLO D$(4).T$(40),P$(40)A(768)16920Z D$"BLOAD HELLO.OBJ"f782,17wS16:LL8202(SS1:S010002783,S:768<LLLL3:T(LL)=(LL2)255100AT0T128100BT4T132100 CNNNN1:T1T12    `8dr8k r$_<\`$<[9]̠͠Ԡ٠ŠҠ}]נ̠ԠŠɠïϠҠӠЮ٠ĮΠϬ`ܠŠԠŠܭ (q.?$r9<d$eM6dqqqR@`;@r$<P\t`7$<qd` $<x\t`7$<q`$<\t`7$<q)@r%[7`;@r%[qUVW;@rq<@*rr`$`$+`  $q[q Y2q8rqq[e]de`oLdede0dededede ded ed ed ed ed e`_@ft]ܠǠŠŠܭ!qq`;%q 8 r`7%qq\,q_Sq8  r8r878r8drr[ $]]8dededededededeLdede% ``  ` % ؃**********"|PAUSE12500:%@Pò PROGRAMME WRITTEN BYOZò K HOLMESldò BARRABA CENTRAL SCHOOLtnNSWxò MAY BE COPIED FORò NON-PROFIT EDUCATIONAL USEò LAST MODIFIED 31/8/79 A MISTAKE.PLEASE RE-ENTER":2030X2 :"YOU HAVE MADE A MISTAKE.PLEASE RE-ENTER":2090`@:J4:"********************************"T:14:"BREED"^5:"WRITTEN BY K HOLMES"h5:"BARRABA CENTRAL SCHOOL NSW" r"************************)6(R1)CzA$(2I)B$(R,C)%3I42240m"DO YOU WANT TO SELECT ANOTHER PAIR OF PARENTS Y/N?"uA$(A$,1)"Y"2010(A$,1)"N"2200::"HOLD ON A MOMENT"NPI:300 :"STARTING AGAIN":2008!( :"YOU HAVE MADE;R,C9R100C10025005:R0RNPC0C62610I>Z$(B$(R,C),2)HZ$"01"Z$"10"ĺ"THAT IS A MALE YOU HAVE SELECTED":2090RJ14\A(J)6(R1)Cĺ"THAT FEMALE HAS ALREADY BEEN MATED,CHOOSE ANOTHER":XX11000:XX:2090fJ pA(IERS OF DESIRED PARENT?";R,C1R100C1002500LR0RNPC0C62600`Z$(B$(R,C),2) Z$"00"Z$"11"ĺ"THAT IS A FEMALE YOUHAVE SELECTED":2030A$(I21)B$(R,C) *"MOTHER #";I4"ROW AND COLUMN NUMBERS OF DESIRED PARENT? "X12,E1X12,E17.X8,E13X16,E134b SELECTION OF NEW PARENTS FROM OFFSPRINGm34,20:"DO YOU WANT TO BREED ANOTHER GENERATION?"A$(A$,1)"N"ĉ:I0II1"FATHER #";I"ROW AND COLUMN NUMB  HAIR3X13(L1)46:Y1(N1)40:1HI0262[XI,YXI,Y8agr BALDxl SEXv7(Y$,1)(Y$,1)1950: FEMALEXS2:YE125X,YX5,Y5X2,Y5X5,Y5X5,Y2XS1:YE1DRAW5:15301X22(L1)46:Y16(N1)40IXEW,Y1:XEW,Y1]XEW,Y:XEW,YyXEW1,Y1:XEW1,Y1XEW1,Y:XEW1,Y"@ EARSJ6:1630T5^Y15(N1)40hI04rS13,YIS1,YI|S2,YIS23,YI ~  NOSE 56 X23(L1)46:Y16(N1)40E X,YX,Y5K \  BROAD NOSEc 5 (X22(L1)46:Y16(N1)40 <X,YX,Y5 AX1,YX1,Y5 FX2,Y5X2,Y5 P x EYE WIDTH EW9: EW5: COLOUR OF EYES AND ZL16 \B$(N,L);" ";% ^L:N+ 2 3Q X10(L1)46:Y8(N1)40v X,YX25,YX25,Y25X,Y25X,Y S1X:S2X25:E1Y25  L V3 `X8(L1)46:Y8(N1)40 jX,YX34,YX34,Y18X,Y18X,Y tS1X:S2X30:E1Y22 ' N1NP: NP IS NO. OF PARENTS2 L16@ J1142V Y$(B$(N,L),J,2)~ &(Y$,1)"0"(Y$,1)"0"VJ1:560 +VJ 0V1000,1100,1200,1300,1410,1420,1500,1530,1600,1630,1700,1800,1900,1900 :J DL NN S2000 XN14 $(N,L)"": RE-INITI ALISE 2 TI17> ^K2I1K hJPP1_ rY$(A$(J),K,2)j |X(1) X.5Z$(Y$,1) X.5Z$(Y$,1) B$(N,L)B$(N,L)Z$ J I L XX(0): CLEAN STRING AREA OF OLD DATA PP2 N `A(4) dA$(8) nI18* xJ1125 X(1)F X.5Y$"0"X X.5Y$"1"k A$(I)A$(I)Y$r Jy I I182 Y$"01" A$(I)A$(I)Y$ I I282 A$(I)A$(I)"11" I , 6P1 @N1NP JL16' OB 40000> :12:5:"***GENETICS BREEDING PROGRAMME***"16:"THIS PROGRAMME IS DESIGNED TO ENABLE STUDENTS TO CARRY OUT BREEDING EXPERIMENTS"K"PRESS ANY KEY TO CONTINUE":A$P:12:"HOLD ON FOR ABOUT 20 SECONDS"\NP4_B$(4,6)     W21280W31230$1170*T"CO2 CONC.","RATE OF PHOTOSYNTHESIS"~"--- -----","---- -- --------------"1360"PRESS RETURN TO CONTINUE":REPLY$:W31310 "CO2 CONC."1420 "PRESS RETURN TO CONTINUV(Q)W6BR(Q)(175(1(28V(Q))).005)174125LL"RP=";(R(Q).5)VV1150`"INPUT VALUES BETWEEN 0 AND .30 TO TWO"e"PLACES ONLY."j"TRY AGAIN."t1000~I"1=TABLE ONLY, 2=PLOT ONLY, 3=BOTH"WW11230 CARBON DIOXIDE CONC.";':INITIALIZE3I131@V(I)1GISI110a"(CO2)";hWxW1001150W01120W.31120Q100W(Q(Q.5)).000011120$:FUDGE 1005 CAUSE INTEGER MESS UP.Q(100W.5)18"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." 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.     $I J ?OI!$$*-%$6&J %$$< O -O $$N!$$tH1333 !$$* - / !??2 I!$$4333-- - $;?$-- $-6;? $ - $ Rfz.BVj~ 2FZn"6J^r %%-....>76???$I $4 I$4 H 4 !4 $$$--'466& ??I -- ;? )-066&J - ;. 5'J     I,2):Y3YL:Y1FL1:Y2YL:4500::-HPLOTS(XXLXM)1,(Y(Y2Y1)20)Y3: L X0:X(16384):X1603030. 16384,0; X141ıL ,::::90_ GRAPH RESULTS ::1:XL278:YL191:FL96:XMX(P1,0) 0,FLXL,FL:0,0279,0279,YL0,YL:2:0,YL0,0 3"I0P1:XX(I,0):Y10:Y2FL:YX(I,1):Y3FL:4500:YX(:X(0,1)X:X(0,2)Y} I1P1:T0T9PT8:XX(AXBXY)T8:YY(CXYDY)T8:T1T1T8::X(I,0)T1:X(I,1)X:X(I,2)Y:: PRINT TABLE ::"TIME","RABBITS","FOXES": R(X)(X100.5)100 I0P1:T1:J02:(T):R(X(I,J)),:TT12:"BIRTHRATE OF RABBITS?";I$:I$"0"(I$)0(I$)6A(I$):1015v (7)::"THE RATE MUST BE >=0 AND <=4."::1000 :B,C,D T8,T9,P 2,1,3 .01,4,35 T10 $X,Y .3,.5 8X(P1,2)::: DO CALCULATIONS X(0,0)T1 TO FREEZE IT(UNTIL ANOTHER KEY IS PRESSED)."g <X(16384):16368,0:I$:X(I$):X1X3ĺ(7);:60z AX3İ3000:30 FX2Ĭ KFĹ16299,0:16304,0:90 P4000:F1 ZI$:(I$)1390 d16303,0:16300,0:30  INITIALISEA APH, THE RABBITS ARE AT THE TOPAND THE FOXES AT THE BOTTOM.": 2:"IF YOU CHOOSE TO PRINT THE GRAPH, WHEN","YOU HAVE FINISHED WITH IT, PRESS","'RETURN' TO RETURN TO THIS MENU."- 7:"PRINTING THE TABLE: 'RETURN' MAY BE USEDTO ABORT THE LIST & 'SPACE'U FOX/RABBIT@:::1000:"SHH...I'M THINKING...":2000j::18:"MENU":::1" PRINT GRAPH;"(2" CALCULATE POPULATIONS AGAIN;":3" PRINT TABLE OF RESULTS;"> -::"CHOOSE AN OPTION BY TYPING IN ITS","CORRESPONDING NUMBER."::"IN THE GR     $$% PRINT AND ERASE MESSAGES%(7):XY:9000:Y(37):9700:IXY:I1:" "::X1:% DELAY %I03000::H& MISCELLANEOUS MESSAGESR&((1)4)19820,9830,9840,9850:9000`+\&W$"JUST HOL868:%#9310:I$:(I$)139120+#9# HEADINGg#:10);::"POPULATION SIMULATION":::xT$ CLR KYBRD ^$X(16384):16368,0:$ INPUT LINE$9300$X(37):I$:I$""ĢX1:958:9410$(I$,1)" "I$(I$,(I$)1):9420N(YYF):(37)1:' (I$)1383308 Y1:958:V(# FORMATTED PRINT ROUTINEj2#(W$)40ĺW$:<#I4011:(W$,I,1)" "ĂF#(W$,I1):W$(W$,I1):9010#WAIT FOR CR#:(37)22Ģ23#"PRESS ";::"RETURN";::" TO GO ON.";:,2),C(MC,3):@TI1MC:J02:C$(I,J)::J03:C(I,J):::FkX(37):I140:"=";:::X2:q  X(37):"]";:40:(91):X1:l v :(37)22Ģ22 "PRESS ";::"RETURN";::" TO SEE REST OF TABLE." 9310:I$:(I$)276368,0:X127ĭX12827N(YYF)3N:8100:9100t::"DO YOU WANT ANOTHER PROJECTION?"::9400:I$"YES"100I$"NO"ĺ(7):"PLEASE ANSWER EITHER 'YES' OR 'NO.":9700:520::12:"OK. BYE..."::@READ IN DATA JMC27:C$(MC:"(MILLIONS)":8200::Y(37)QN0(YYF)IN:TC(1D100)N:Q(T10.5)108210:10:FN;:X$(Q):Q(Q)X$X$".0":500I1(X$):(X$,I,1)"."500:X$((Q))".0"30(X$))X$:(37)21NIN(YYF)İ8300 X(16384):1M."::9000iW$" TO ABORT THE LISTING OF THE TABLE BEFORE THE END, PRESS THE ESC(APE) KEY."::90009100::8100:8200::2:"COUNTRY:";::" "B$:8200:8200:10::"DATE";:20:"POPULATION"::8200:10:"----";:20:"----------":8200:20YEAR "(F)" AND ASSUMING A CONTINUED ANNUAL GROWTH RATE OF "(D)"% - AS WAS THE ANNUAL AVERAGE FOR THE YEARS "I$"NO"W$W$L$"." 9200:9000:I$"NO"K$"0"W$" THE AVERAGE ANNUAL GROWTH RATE FOR THE PERIOD "K$" WAS "(E)"% PER ANNUT DID I JUST SAY?":9600:310/^D.1D6330W$" THIS PROJECTION IS FOR "B$", AND IS BASED ON AN ANNUAL GROWTH RATE OF "(D)"% (AS SPECIFIED BY YOU)."rI$"NO"W$"THIS IS THE PROJECTED POPULATION GROWTH FOR "B$", BEGINNING AT THE BASE "YES"W$"PLEASE ANSWER EITHER 'YES' OR 'NO'.":9600:280~ ,Z1:958:W$"OK, ENTER A NUMBER BETWEEN 0.1 AND 6."::9000: 6Y(37):9400:DP1:D(I$):I1(I$):X$(I$,I,1):X$"0"X$"9"X$" "Ă:350 @DPĭX$"."DP0::350JW$"NOW WHATEGER NUMBER.":9600:230m (YYFIN)W$"NO WAY. THAT NUMBER'S FAR TOO BIG. HAVE ANOTHER GO.":9600:230 G$"0"L$G$:K$H$ Z1:958:W$"DO YOU WANT TO ENTER AN ANNUAL POPULATION INCREASE?"::9000: Y(37):9400:I$"NO"400: "I$BALL CAN'T LOOK THAT FAR AHEAD. HAVE ANOTHER GO.":9600:180 Z1:958:W$"AT WHAT INTERVALS (IN YEARS) DO YOU WANT MY PROJECTIONS?"::9000: Y(37):9400:IN(I$):I1(I$):X$(I$,I,1):X$"0"X$"9"X$" "Ă:250 W$"PLEASE ENTER AN IN9400:YY(I$):I1(I$):X$(I$,I,1):X$"0"X$"9"X$" "Ă:200x W$"PLEASE ENTER AN INTEGER NUMBER.":9600:180 YYFW$"THE PROJECTION STARTS FROM THE BASE YEAR "(F)". ENTER ANOTHER NUMBER.":9600:180< YY2500W$"SORRY. MY CRYSTAL 0)160J ::W$"THAT ONE ISN'T EVEN ON THE LIST. TRY AGAIN.":9600:140 AI:B$C$(I,0):G$C$(I,1):H$C$(I,2):CC(I,0):DC(I,1):EC(I,2):FC(I,3):F0F1974 Z1:958:W$"WHICH YEAR DO YOU WANT THE PROJECTION TO FINISH?"::9000:D Y(37):f POPULATION5K$"1960-74":L$"1965-74":::K9200:9800:8000VdSTARTn:I1MC2:C$(I,0);:I1MCĺ21)C$(I1,0);x:::Z(37)W$"WHICH COUNTRY DO YOU WANT THE PROJECTION FOR?"::9000: Y(37):9400:I1MC:I$C$(I,          HE EASE WITH WHICH THE "::"PREDATOR MAY LOCATE BUGS,YOU MAY NOW"::"CHOOSE THE BACKGROUND COLOUR":" 1)DARK BACKGROUND: RED HARD TO FIND":" 2)PINK BACKGND: ORANGE HARD TO FIND":" 3)LIGHT BACKGND: YELLOW HARD TO FIND"":" "::"(ORANGE REPRESENTS RED-YELLOW HYBRID):"EACH YEAR PREDATORS EAT APPROXIMATELY"::"15 BUGS, THUS STABALISING THE POPULATION":::"PRESS ANY KEY TO CONTINUE"D$d:"AS THE COLOUR OF THE BACKGROUND"::"DETERMINES T00/ :"THERE ARE ONLY 30 BUGS ALTOGETHER !"B#:"TRY AGAIN"L$2026Y4I0R1d>A(I)1jHyRIRRO1\A(I)9fpIRO29zA(I)134:"EACH YEAR EACH PAIR OF BUGS PRODUCES"::"ONLY ONE OFFSPRING :"AND 10 YELLOW BUGS"E:"DO YOU WISH TO SELECT A DIFFERENT"c:"COLOUR RATIO (Y/N) ?"zY1$:Y1$"0"5000Y1$"N"2100Y1$"Y"1999:"HOW MANY RED ?";RR302080:"HOW MANY ORANGE ?";O(RO)302080211^A(I)9OYOY1*hA(I)1RYRY10m6r|:"THERE ARE NOW ";RY;" RED, ";OY;" ORANGE AND "::YY;" YELLOW BUGS IN THE POPULATION."A$:"THERE ARE 30 BUGS ON A RUG":"I HAVE SELECTED 10 RED , 10 ORANGE"1080N0:I0 I45I01A(I)C1560CD1(3(1))[A(I)13D1A(I)CrA(I)9D2A(I)CA(I)1D3A(I)C A(I)C1560 NN1600N15ı"II1,1510@RY0:OY0:YY0JI044TA(I)13YYYYYY1 K:::::::Q5ĺ"QUIET PLEASE, BUGS ARE MATING"^Q0ĺ"SHHH !"Q1ĺ"PLEASE DO NOT DISTURB"Q2ĺ"YOU WOULDNT LIKE A LOT OF NOISE WOULD"::"YOU ?"Q3ĺ"EVEN BUGS TAKE THEIR TIME"Q(4(1))230(6(1))!<A(I)13D3A(I)C8FA(I)9D3A(I)COPA(I)1D3A(I)CaZA(I)C1390kdNN1ti600nN15ısII1x1310y1600z{:"TO CONTINUE, PRESS ANY KEY"|:"TO FINISH TYPE 'F'"A$A$"F"40001220N0:I0I45I0/A(I)C1290AD1(6(1))YA(I)13D3A(I)CpA(I)9D3A(I)CA(I)1D3A(I)CA(I)C1290NN1600 N15ı II1 1255N0:I0I45I0(A(I)C1390 2D11300 C11İ1210# C0İ12502 C5İ1500< 1401H N0:I0V I45I0g A(I)C1245y D1(5(1)) A(I)13D3A(I)C A(I)9D3A(I)C A(I)1D3A(I)C A(I)C1245 NN1 600 N15ı II1(L)13A(M)9( `A(I)13A(L)1A(M)9I jA(I)9A(L)13A(M)9A(4)j tA(I)13A(L)9A(M)9A(4) ~A(I)9A(L)1A(M)1A(8) A(I)1A(L)9A(M)1A(8) A(I)9A(L)9A(M)9A(2) A(M)11A(M)1A(12)  400 C14İ B(45)! V0:I1:N1:J0:Y1= C15:Q5:RY0:OY0:YY0] L15:M30:K0:X1:R10:O10t A(X)X(2(1))~ 3000 1999 400 $30 8I014 9LI15 :MI30 BA(I)1A(L)1A(M)1 LA(I)13A(L)13A(M)13 VA(I)1A" FOR YEAR ";Y" V014, A(V); 2,552VH A(V15)X 7,1052Ve A(V30)v 14,1652V} V  XV014 bA(V) l22,2552V vA(V15) 27,3052V A(V30) 34,3652V V  A(45) B(N)C 'N ,N044( 6A(N)B(N)/ ^N7 c30= hC I O V Cb I139n 0,39It | 12 0,390 0,3939 0,390 0,3939 0,3919 "MATING PATTERN PREDATOR PATTERN" :" FOR YEAR ";Y;  900N029+(I((30N)(1))92B(N)A(I)B<J29SFA(J)C100]PJJ1eZ70sdA(I)A(J)~nA(J)CxNN029A(N)B(N)NJ0I044A(I)C280B(J)A(I)JJ1I"N3044 $     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 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 $ $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 :XP 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                         RO3DES2GADE16&DES4GADE188GADE0ī1000:"RADIOGRAPHIC GRADE=";Z$(GADE13):"PREDICTED FIVE YEAR SURVIVAL=";Z$(GADE8)I19:P(I)PB(I,0)PB(I,AGE)PB(I,L1)PB(I,L2)PB(I,SIZE)PB(I,MA)1012PDENOMP(1)P(2)P(3)P(4NE PRESENT"5v20:"MATRIX MINERALIZATION TYPE";MINU{MIN1MIN4Ģ20:958:630nDES1PRO2GADE14DES1PRO3GADE15DES2PRO4GADE16DES3PRO5GADE17DES4GADE18PRO5GADE18PRO4DES3GADE17P(X"TYPE OF BONE PROLIFERATION";PROH]PRO1PRO5Ģ20:958:600Na|b" DETERMINATION OF RADIOGRAPHIC GRADE"g:"****** MATRIX MINERALIZATION **********"l:"1) FLOCCULENT OR SOLID"n:"2) LUMPY"p:"3) CLOUDY" q:"4) NOS TRIANGLE"3?:"3) IF PRESENT; CAN BE EXPANDED"F@" BUTTRESS"fA" ONE CODMAN'S TRIANGLE"D:"4) IF PRESENT;MOTTLED: NO BUTTRESS: ONE OR MORE CODMAN'S TRIANGLES"N:"5) IF PRESENT;MOTTLED: NO BUTTRESS: TWO OR MORE CODMAN TRIANGLES"WN ***********"l"1) MUST BE SCLEROTIC RIM;CAN BE EXPANDEDSHELL 1 CM. OR LESS ABOVE SURFACE OF CORTEX"5" BUTTRESS: NO CODMAN'S TRIANGLE"::"2) MUST BE SCLEROTIC RIM; MUST BE EXPANDED SHELL GREATER THAN 1 CM." ;" BUTTRESS: NO CODMAN'ERIPHERAL ZONE,"0" CORTEX NOT PENETRATED"]: "3) MOTH EATEN, CORTEX PENETRATED": "4) PERMEATED, CORTEX PENETRATED":37,19:"BONE DESTRUCTION PATTERN";DESDES1DES4Ģ20:958:435:2"********* BONE PROLIFERATIO) NONE(19)";MA).MA12MA13MA194002/300d:" DETERMINATION OF RADIOGRAPHIC GRADE":"******* BONE DESTRUCTION IF PRESENT ****""1) GEOGRAPHIC, CORTEX NOT PENETRATED":"2) GEOGRAPHIC POSSIBLY WITH 1 CM. MOTH EATEN P LESION LOCATED? (4 OR 5)";L11L14L15ī270l20:958:"WHERE IN THE BONE IS THE LESION? (6-9)";L2L26L29ī280"20:958:"WHAT IS SIZE OF THE LESION? (10 OR 11)";SIZE$SIZE10SIZE11ī290,20:958:"MATRIX-BONE(12) CART.(13L AND FLAT (5) LONG BONEJ:"6)EPIPHYSIS 7)PLATE 8)METAPHYSIS 9)SHAFTk"10) 1-6 CM. (11) >6 CM.":"12) BONE (13) CARTILAGE (19) NONE"20:958:"WHAT IS PATIENT'S AGE? (1,2,OR 3)";AGEAGE1AGE3ī26020:958:"WHERE ISMAY NOT GIVE THE CORRECT DIAGNOSIS. FINAL DIAGNOSIS CAN BE OBTAINED ONLY BY BIOPSY" n" HIT ANY KEY TO CONTINUE";:16368,0:A$ :" BONE TUMOR DIFFERENTIAL DIAGNOSIS" : :"1) <21 YRS (2) 21-30 YRS (3) >30 YEARS:"4) SMALC CLINICS OF NORTH AMERICA"+ `"IN 1963."X b:"THE PROBABILITY OF THE DIAGNOSIS IS" c"CALCULATED USING BAYES' RULE FOR THE" d"PROBABILITY OF CAUSES" f:"NINE DIAGNOSES ARE CONSIDERED" iI19:I;4);DIAGNOSIS$(I):[ j:"THIS PROGRAM SARCOMAW > FIBROSARCOMA,OSTEOSARCOMA,PAROSTEAL SARCOMA ,EWING'S TUMOR,RETICULUM CELLu F I19: DIAGNOSIS$(I): PI19:PB(I,19)1: Z:" THIS PROGRAM USES A PRIOR PROBABILITY" \"MATRIX PUBLISHED BY G.S.LODWICK M.D. IN" ^"THE RADIOLOGI,5,85,90,15,85,0,0,0,5,10,20,65W !5,10,25,65,20,80,50,1,85,80,15,85,0,0,0,0,20,30,50m 1I110:Z$(I):I 2I-A,I-B,I-C,II,III,"95-100%","40-95%","25-60%","15-35%","4-15%" 7QĿ <GIANT CELL TUMOR,CHONDROBLASTOMA,CHONDROMYXOID FIBROMA,CHONDRO35,65,40,1,85,65,20,80,5,65,15,20,25,25,15j 10,20,20,60,5,95,55,0 ,90,65,20,80,25,2,0 ,10,40,30,20 25,65,25,10,10,90,30,05,95,75,15,85,98,05,0, 0,10,30,60 5,20,35,45,0,100,30,1,100,50,25,75,100,5,15,25,55,5,0 15,70,25,5,35,65,20 :2000PB(9,19);I19:J018:PB(I,J)::x15,20,35,45,20,80,99,1,100,20,40,60,1,0,15 ,35,50,0,05,75,20,5,20,80,100,50,75,0,90,10,0 ,30,50,35,15,0,03,50,35,15,30,70,30,20,100,25,85,15,0 ,2,85,15,1,0,0* 17,25,25,50,      q"===================================="1jr:Ljs"DOMINANT TRAIT: ";D$hjt"RECESSIVE TRAIT: ";R$qju350jx(T$,2)"NO"1370j|"";"PR#0"j}"";"RUN HELLO BIOLOGY"jdJPE RATIO 1:0"i(1340Ei2"PHENOTYPE RATIO ";S3(NS3);": 1"Ki<ziF"#######################################"iPiZ"DO YOU WANT ANOTHER RUN";idT$in(T$,3)"YES"1400io936:::ip"SIMPLE INHERITANCE OF GENETIC TRAITS")j16);" ";(H$,10);27);" ";(P$,10)+hI1h`h"***************************************"fhuhS101290h"GENOTYPE RATIO 0:";(NS1S2)S2;": 1"h1300h "GENOTYPE RATIO 1:";(NS1S2)S1;":";S2S1hNS31330i"PHENOTYH$Z$g$1080g.H$Y$-g8G$D$1140=gBH$D$1170HgVP$R$Ug`S2S21_gj1200pgtH$D$1170g~ IF BOTH INHERITED GENES DOMINANT, ADD 1 TO NO. PUR DOMINANTSgS1S11gP$D$gS3S31gT$"NO"1220$hI;5);(G$,10); NO. -----GENOTYPE----- PHENOTYPE"If" GENE 1 GENE 2"xf"======================================="fS10fS20fS30fI1NfR1(I)fR10.51010fG$A$f1030fG$B$fR2(I)fR20.51070gT"; eNeeNR1820,e T$"NO"Ze"RATIOS ONLY WILL BE TYPED, BECAUSE OF "e "THE LARGER NUMBER OF OFFSPRING."e*920e4"DO YOU WANT A DETAILED REPORT";e>T$eH(T$,2)"NO"920eR(T$,3)"YES"820e\efep%fz" YPES,"!dg"ALL OFFSPRING ARE:-"0dlA$Y$650SdvD$;"-";R$;" THAT IS, HYBRID."]d1340ldA$R$680dD$;"-";D$;" THAT IS, PURE DOMINANT."d1340dR$;" - ";R$;" THAT IS,PURE RECESSIVE."d1340de"HOW MANY OFFSPRING DO YOU WANZ$,Y$#c(Z$,L1)(D$,L1)540>c(Z$,L2)(R$,L2)540pc"MALE GENOTYPE INCLUDES AN INCORRECT TRAIT."yc480c(Y$,L1)(D$,L1)580c&(Y$,L2)(R$,L22)520cDcNA$B$700cXY$Z$700db"BECAUSE THE PARENTS ARE PURE GENOTE PARENT";bA$,B$0b(A$,L1)(D$,L1)450Lb(A$,L2)(R$,L22)450b"FEMALE GENOTYPE INCLUDES AN INCORRECT TRAIT."b"TRY AGAIN......"b390b(B$,L1)(D$,L1)470b(B$,L2)(R$,L2)430bb"GENOTYPE OF MALE PARENT";c2001a""WHAT ARE THE TWO TRAITS TO BE STUDIED?"7a'Na,"DOMINANT TRAIT";Va6D$da;L1(D$)|a@"RECESSIVE TRAIT";aJR$aOL2(R$)aT(D$,L1)(R$,L2)290a^ah"***************************************"ar b"GENOTYPE OF FEMAL ` :936:::[` "DO YOU WANT A COPY OF THIS SIMULATION":"PRINTED ON THE PRINTER";c` J$x` (J$,1)"Y"19`"";"PR#1"`936:::`"SIMPLE INHERITANCE OF GENETIC TRAITS"`"===================================="`(:aR     TEGER."g2206g"POPULATION MUST BE AN INTEGER."?g280cg::"DO YOU WANT ANOTHER RUN";kgA$g(A$,1)"Y"20g"";"PR#0"g"";"RUN HELLO BIOLOGY"gAT0T00.5f&T10400"f0690Of:"NUMBER OF ANIMALS MUST BE AN INTEGER."WfD40fN"NUMBER OF ANIMALS MUST BE AN INTEGER."fX110fb"GROWTH RATE MUST BE <=50."fl160fv"GROWTH RATE MUST BE <=50."f190g"POPULATION MUST BE AN IN(R2N2(1N2M2)A2N1N2)D-eL1(L1N1)2>eL2(L2N2)2eeN1N1(R1L1(1L1M1)A1L1L2)DseN11470|eN10eN2N2(R2L2(1L2M2)A2L2L1)DeN21500eN20eTTDeTT0550e(T100.5)10;13);(N1);28);(N2) fs936:5:" PREDATOR - PREY SIMULATION"Xdt" =========================="::d|"TIME POPULATION 1 POPULATION 2"d}"---------------------------------------"dD0.01:T00.499:T0dL1N1(R1N1(1N1M1)A1N1N2)DeL2N22200c:"MAXIMUM POPULATION - SPECIES 2: ";8c"M2Kc,M2(M2)670[c6M2N2340c@"THIS MUST BE > STARTING POPULATION."cJ280cT:"INTERACTION SPECIES 2 ON SPECIES 1: ";c^A1ch:"INTERACTION SPECIES 1 ON SPECIES 2: ";crA2-d100)b:"GROWTH RATE - SPECIES 1: ";1bR1@bR150610db:"GROWTH RATE - SPECIES 2: ";lbR2{bR250630b:"MAXIMUM POPULATION - SPECIES 1: ";bM1bM1(M1)650bM1N1280b"THIS MUST BE > STARTING POPULATION."c NUMBER OF SPECIES 1: "; a2N13a<N1(N1)570BaFN12100oaP"FOR BREEDING PURPOSES 2 IS A MINIMUM."uaU}aZ40ad:"INITIAL NUMBER OF SPECIES 2: ";anN2axN2(N2)590aN22160a"FOR BREEDING PURPOSES 2 IS A MINIMUM."b` :936:::A`"DO YOU WANT A COPY OF THIS SIMULATION "b`"PRODUCED ON THE PRINTER ";j`A$`(A$,1)"Y"20`"";"PR#1"`936:5`" PREDATOR - PREY SIMULATION"`" =========================="`:a("INITIAL      "TO DESTROY MOST LIFE.">$"TRY A NEW TEMPERATURE...."G)425t."YOUR BODY OF WATER IS A BLOCK OF ICE,"/"AND CAN'T ACCEPT ANY WASTE."3"TRY A NEW TEMPERATURE......"8425="";"RUN HELLO BIO"Q$,1)"Y"70Q0+(Q$,1)"N"1010;"";"PR#0"U (4);"RUN HELLO BIO""NEW YORK CITY ONLY POLLUTES ITS WATER""AT THE RATE OF 12PPM/DAY.""MAKE YOUR RATE BETWEEN 0 AND 14."510"THE WATER TEMPERATURE IS HIGH ENOUGH".5)985/(4X(J)0.5)(4X(JK)0.5)9856K?990FJLv"THE WASTE AND OXYGEN CONTENTS WILL""REMAIN AT THESE LEVELS UNTIL ONE""OF THE VARIABLES CHANGES.":"DO YOU WANT ANOTHER RUN ";Q$Q1 (--I----I----I----I----I--"%J1M7J1;6);"I";L4X(J)W(J)94573160(4X(J)0.5));"O";73160(W(J)0.5));"W"95073160(W(J)0.5));"W";73160(4X(J)0.5));"O"J5985K14(W(J)0.5)(W(JK)0 WJ1MF\J1;12);(100X(J)0.5)100;27);(100W(J)0.5)100MaJ[fQ21005k:"PRESS ANY KEY TO CONTINUE ";:A$:l936::z6);"0 OXYGEN SCALE 15"6);"0 WASTE SCALE 60""DAY I----I-- :9*"AFTER DAY ";T2;" THE GAME FISH BEGIN TO DIE"e/"BECAUSE OXYGEN CONTENT IS BELOW 5PPM"k4x9Q2890>:H"TIME OXY. CONTENT WASTE CONTENT"M"DAYS PPM PPM"R"------------------------------------"1(D1NW1)# W2W2T1(D2HW2)0 X5740; KK1H K1740V T2(T9)] Ii X(J)Xy W(J)W1W2 J  "FORM OF OUTPUT:" " 1. GRAPH 2. TABLE 3. BOTH "; Q (Q1)(Q2)(Q3)0765 : K1820 1. PRIMARY"= o" 3. SECONDARY";D qQQ vQ0660^ {Q1655l Q2620 D20.1D2:660 D20.5D2 : J2M I110 T9T9T1 XXT1(C(X9X)NW1HW2) X0710 X0 W1W1T Q2505 Q1470& H0.25/ 510; H0.75A a "DUMPING RATE (PPM)/DAY ";i D2} (D27)71040 !W1D1N:W20:XX9D1C:T20:T90:K0:T10.1:W(1)W1W2:X(1)X:M31 l m"TYPE OF TREATMENT - 0. NONE" n" 425 C3 5 "WATER TEMPERATURE (DEG C) ";H T:TT9532W T901055g T321070u T50465 X9152(T32)9 470 X911(T50)9  "KIND OF WASTE - 1. INDUSTRIAL" " 2. SEWERAGE "; Q O"IS THE BODY OF WATER A:-"5 P" 1.LARGE POND"L Q" 2.LARGE LAKE"j R" 3.SLOW MOVING RIVER" S" 4.FAST MOVING RIVER"; UQ ^D12:N0.75 rQ4420 uQ3410 |Q2400 Q1335 C0.4:425 C1:425 C1.5: X(51),W(51)$ :936:::Q"DO YOU WANT A COPY OF THIS SIMULATION"q"PRODUCED ON THE PRINTER";y(A$2(A$,1)"Y"70<"";"PR#1"F936:::d" WATER POLLUTION SIMULATION"n" =========================="x     ).5)740%G1((QG100).5).R1REM1((QM100).5)N740WG1GnR1((QR100).5)w740***NO SELECTION***G1GR1RM1M***NEW PROPORTION OF ALLELES***W(2G1M1)((2G1M1)(2R1M1))1);S55,675,695,7208N***SET POPULATION AFTER SELECTION***OSG1((QG100).5)XXR1Ra]M1Mjb740sgG1GlR1((QR100).5)qM1Mv740{G1((QG100).5)R1((QR100).5)M1M740G1GR1RM1((QM100M1 510ZW510#MM162GMP2495@MM1I510\2RMP1545fMM1o435yRR12RMP1545RR1 MM12RMP1545MM1435!N&***CONSIDER SELECTION***+D595,615,635,6********"mS1,r***NEXT GENERATION***4wG0<|M0DR0NJWP_P1(PJ.5)kP2PP1xP3P1P2N1A2Y(1)Z(1)YW470ZW475GG12GMP2545GG1MM12GMP2545M@A(P80)100E?J" * OFFSPRING GENOTYPES * "EKuO"GEN* TYPE * BEFORE * AFTER *% GREEN"T"NUM*GAMETE* SELECTION* SELECTION*ALLELES"Y" * R G * RR RG GG * RR RG GG * "Z ^"******************************** THAN 500"# 210- P2P3 b "WHAT IS THE INITIAL % GREEN ALLELES? ";Wk W1W W(100W)0295 "THAT PERCENTAGE IS NOT VALID" "260 ' ,WW1100 1Q100Q1 6 ;***% GAMETES PRODUCING OFFSPRING ***? ";Q (100Q)Q0200# I "THAT IS NOT A VALID PERCENTAGE"R 170[ Q1Qa "HOW BIG IS THE POPULATION? ";P P((P))240 P0240 P500250 "INPUT A POSITIVE INTEGER NO GREATER OR YOU CAN HAVE :" y1 }" 7)NO SELECTION"7 "WHICH TYPE DO YOU WANT? (TYPE NUMBER BETWEEN 1 AND 7) ";D D((D))135 D(8D)0135 D7210 "WHAT IS THE % OF SELECTION:" V& Z" 1)GREEN HOMOZYGOTES", [H _" 2)RED HOMOZYGOTES"N `k d" 3)BOTH HOMOZYGOTES"q e i" 4)HETEROZYGOTES" j n" 5)GREEN HOMOZYGOTES & HETEROZYGOTES" o s" 6)RED HOMOZYGOTES AND HETEROZYGOTES" t x" 2***EVOLUT VERSION 6*** 30 -7 -74I 7***COPYRIGHT CHELSEA COLLEGE***t <***SET POPULATION BEFORE SELECTION*** ="DO YOU WANT PRINTOUT "; >Z$ ?Z$"YES"Ċ2 @:: AS110 FR$(5) KQ10 PV0 U"YOU CAN HAVE SELECTION AGAINST1 "CHELSEA SCIENCE SIMULATION PROJECT"7a"NATURAL SELECTION & EVOLUTION UNIT"q:::::" ==== EVOLUTE====":::::"STUDENTS AND TEACHERS NOTES PUBLISHED BY EDWARD ARNOLD"#(-$       UMBER WAS MISSING. WE SHALL LEAVE THIS VALUE UNCHANGED.'J:'B(I)';B(I)^:I91E377390:'YOUR FOR THE FIRST NUMBER WAS INVALID. WE SHALL USE THE VALUE OF';I6:7400:I6I9:I7B(I)::&pNCHANGED.'9'A(I)';A(I)&9721019 I6T1E9*T21E37730094'YOURSECD ITEM WAS NOT VALID. WE SHALL LEAVE THIS VALUE UNCHANGED.'9H'B(I)';B(I)9II7B(I)9R74009I7T2974009Y$S$947108:'YOUR FOR THE SECOND NP91Z91/8v LET STR(Y$,P9,1)=STR(S$,P9,1)78P9A84710L8T1I9_8P9Z91(S$)8 LET STR(Y$,P9-Z9,1)=STR(S$,P9,1)8P9847108T2I98T11E377200 9'YOUR FOR THE FIRST NUMBER WAS INVALID. WE SHALL LEAVE THIS VALUE U4710V7'YOUR FOR THE SECOND NUMBER WAS MISSING. WE SHALL THIS VALUE UNCHANGED.'h7'B(I)';B(I)7'YOUR FOR THE FIRST NUMBER WAS INVALID. WE SHALL USE THE VALUE OF ';A(I)764007A(I)I977X LET Z9=IDX(S$,' ')7bZ907320 8lER WAS NOT VALID. WE SHALL LEAVE THIS VALUE UNCHANGED.'I6'A(I)';A(I)S66210`68A(I)T1t6BT21E3763006L'YOURSECD ITEM WAS NOT VALID. WE SHALL LEAVE THIS VALUE UNCHANGED.'6`'B(I)';B(I)6j64006B(I)T2664006Y$S$75p LET Z9=IDX(S$,' ')&5zZ90632055P91Z91Y5 LET STR(Y$,P9,1)=STR(S$,P9,1)a5P9k54710v5T1I95P9Z91(S$)5 LET STR(Y$,P9-Z9,1)=STR(S$,P9,1)5P9547105T2I95T11E37620076'YOUR FOR THE FIRST NUMBHE FIRST NUMBER WAS INVALID. WE SHALL USE THE VALUE OF';I6D47400O4I6I9\4I7B(I)b4h4&A71E37495048(I7)4049504BI9I810174L49604VI91E374`4jI81(Y$)4t LET STR(Y$,I8,1)=' '4~I84I6Z64ALL LEAVE THIS VALUE UNCHANGED.'23H'B(I)';B(I)?3II7B(I)I3R7400T3I7T2^37400i3Y$S$s347103'YOUR FOR THE SECOND NUMBER WAS MISSING. WE SHALL LEAVE THIS VALUE UNCHANGED.'3'B(I)';B(I)3I91E377390:4'YOUR FOR T,P9-Z9,1)=STR(S$,P9,1)2P9(2471032T2I9F2T11E3772002'YOUR FOR THE FIRST NUMBER WAS INVALID. WE SHALL LEAVE THIS VALUE UNCHANGED.'2'A(I)';A(I)272102 I6T12*T21E377300 34'YOURSECD ITEM WAS NOT VALID. WE SHOUR FOR THE FIRST NUMBER WAS INVALID. WE SHALL USE THE VALUE OF ';A(I)Q16400^1A(I)I9d1}1X LET Z9=IDX(S$,' ')1bZ9073201lP91Z911v LET STR(Y$,P9,1)=STR(S$,P9,1)1P9147101T1I91P9Z91(S$)2 LET STR(Y$6300O0L'YOURSECD ITEM WAS NOT VALID. WE SHALL LEAVE THIS VALUE UNCHANGED.'a0`'B(I)';B(I)k0j6400x0B(I)T2064000Y$S$047100'YOUR FOR THE SECOND NUMBER WAS MISSING. WE SHALL THIS VALUE UNCHANGED.'0'B(I)';B(I)G1'YT1I9/P9Z91(S$)@/ LET STR(Y$,P9-Z9,1)=STR(S$,P9,1)H/P9R/4710]/T2I9q/T11E376200/'YOUR FOR THE FIRST NUMBER WAS NOT VALID. WE SHALL LEAVE THIS VALUE UNCHANGED.'/'A(I)';A(I)/6210/8A(I)T10BT21E37LE THE AGE TABLE TO BE PRINTED+.@T3120A.JT4(5T3)45T3W.TP(T3)P(T3)M(T4)m.^Q(T3)Q(T3)F(T4)u.hT4}.rT3.|K.9900.p LET Z9=IDX(S$,' ').zZ906320.P91Z91. LET STR(Y$,P9,1)=STR(S$,P9,1).P9.4710/ SURVIVORS-M(1)(0.5S2)2-F(1)(0.5S2):-J2y- INITIALIZE THE 5 YEAR GROUPS PRIOR TO SUMMING OF 5 YEARS-T5120-P(T5)0-Q(T5)0-"T5-, FORM 20 GROUPS EACH ENCOMPASSING AN AGE GROUP OF 5 YEARS.6 THIS IS DONE TO ENAB CONSTANT DEATH RATE APPLIED ACROSS WHOLE GROUPK,M(J)(0.5M2(1A(N)))g,F(J)(0.5F2(1B(N)))n,J, SHIFT EACH AGE GROUP ALONG ONE YEAR,J510021,M(J5)M(J51),F(J5)F(J51),J5 - THE OLDEST GROUP DOES NOT RETAIN ITSW61+(3900+2F2F(J)*+<F2039203+FF20d+P RANDOM FACTOR INCLUDED IN THE DEATH RATE j+Zy+dA913980+iG7.1((F(N)(M(N)1E04)))(510(PIA(N)))+nF(J)(0.5F2((1B(N)G7)))+xM(J)(0.5M2((1A(N)G7)))+4010/,S2) *J2* *T5120,*P(T5)08*Q(T5)0@*"T5F*,L*6Y*@T3120o*JT4(5T3)45T3*TP(T3)P(T3)M(T4)*^Q(T3)Q(T3)F(T4)*hT4*rT3*|K*9900*&"60*F2F(J)W7(D(N)5W7)* 3870*F2F(J)W7+)))$)nF(J)(0.5F2((1B(N)G7)))E)xM(J)(0.5M2((1A(N)G7)))O)4010U)q)M(J)(0.5M2(1A(N))))F(J)(0.5F2(1B(N))))J))J510021)M(J5)M(J51))F(J5)F(J51))J5))M(1)(0.5S2)*F(1)(0.5J)1(D(N))(W6W61"(38803(W7(D(N)5)N(((J1)5)(N1)3860i(F2F(J)W7(D(N)5W7)s( 3870(F2F(J)W7(W61((3900(2F2F(J)(<F203920(FF20(P(dA913980)iG7.1((F(N)(M(N)1E04)))(510(PIA(N(C(N))'.W5W51'83710-'BW7(C(N)5)H'L((J1)5)(N1)3690c'VM2M(J)W7(C(N)5W7)m'`3700|'jM2M(J)W7'tW51'~3740''M2M(J)'M203760'M20'D(N)03890'(D(N)5)13820'W6(D(N))3890 (F2F(& I & S0& & I1100B& SSE(1((I1)5))F(I)W(I)I& IR& W51[& W61h& J1100{& N1((J1)5)& ((J1)5)(N1)3570& W51& W61& & &C(N)03730&(C(N)513650&W5(C(N))3720'$M2M(J)180 % "+"% G213320$% 3330-% "+"<% J11G21F% "#";N% J1W% "#"^% Jo% KN714230y% TT1% %* J215%4 I1100%> W(I)1%H I%R %\ A813470%f I1100%p F(I)(M(I)1E08)23460%z W(I)M(I)F(I))1000 $ $ $& J138($0 "-";/$: J8$D "-"D$N J120T$O S903160a$P G1,G20k$R 3180$X G1((19S2)(P(J)100S9))$b G2((19S2)(Q(J)100S9))$l J1119G1$v " ";$ J1$ J138G119$ "#";$ J1% G21032#r J#| C2C2100S9(# D2D2100S98# C2D22990B# S2D2L# 3020V# S2C2g# S2(S20.5)m# s# y# # 936:25# "PERCENT OF POPULATION IN EACH AGE CLASS"# "MALE",# " ",# "FEMALE"$ (S21000)1000,"0.0",(S21000....................."" F" "PRESS ANY KEY TO CONTINUE....";:A$O" C10X" D10a" S90m" J120|" C1C1P(J)" D1D1Q(J)" J"" S9C1D1", C2P(1)"6 D2Q(1)"@ J220"J C2P(J)2910"T C2P(J)"^ D2Q(J)2930"h D2Q(J)J1);15);(P(J));25);(Q(J));33);(P(J)Q(J))8!n Jg!x "......................................."p! L80y! L90! ! J5120! L8L8P(J5)! L9L9Q(J5)! J5! "TOTALS:";15);(L8);25);(L9);33);(L8L9)" ".................. T2T1 K1(N7)1) T026008  TT23340E  T2T2T1{ ( 936:25:"NUMBER OF YEARS ELAPSED: ";((K1)5) P "AGE GROUP MALES FEMALES TOTAL" U "......................................." Z J1201!d (5(J1));" - ";(5) V 2410` M(I)W7 j W514t Q(N)512470F~ W6Q(N)2530Q F(I)1] W6W61g 2530x W7(Q(N)5) ((I1)5)(N1)2510 F(I)W7(Q(N)5W7) 2520 F(I)W7 W61 I "---------------------------------------"W51W61I11001N1((I1)5)L((I1)5)(N1)2250UW51^W61dxP(N)512350W5P(N)2420M(I)1 W5W51 2420 . 8 W7(P(N)5)B ((I1)5)(N1)2400L M(I)W7(P(N)5W7 "YOU ARE DEALING WITH PEOPLE.":"USE POSITIVE INTEGERS.....":K*2110Q4^5I6(I6)k6I7(I7)u72120>I81HR SET UP THE TIME STEP...ALLOW FOR UP TO 10 PRINTOUTS\T1(N710)fzI1100M(I)0F(I)0IR, IF YOU PUT IN GARBAGE, THE":"RESULT WILL BE GARBAGE.""ENTER THE 20 PAIRS OF VALUES AS INDICATED":"(EACH PAIR ON THE ONE LINE): ""MALES,FEMALES"B132060I60I702080 I6(I6)I7(I7)21002120A 78E-3,78E-3,200E-3,450E-3,800E-3R0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0  0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0  0,0,5E-3,55E-3,181E-3 ,199E-3,102E-3,44E-3,11E-3,0 .78E-3,0.05E-3,0,0,0,0,0,0,0,0,09"REMEMBE 1.6E-3,1.6E-3, 1.7E-3, 1.7E-3, 3E-3,3E- 3, 8E-3, 8E-3, 20E-3, 20E-3, 50E-3, 50E-3 v 120E-3,120E-3,250E-3,500E-3,800E-3 3.8E-3,0.3E-3,0.3E-3,0.75E-3,0.75E-3,0.8E-3,0.8E-3,1.95E-3,1.95E-3,4.7E-3,4.7E-3,10E-3,10E-3,30E-3,30E-3$.1E5,3.8E5,4.1E5,3.9E5,3.3E5,3.1E5ZN 2.5E5,1.9E5,1.3E5,0.8E5,0.5E5,0.2E5,0.08E5,0.02E5X 6E5,5.9E5,6E5,5.5E5,5.4E5,4.65E5,3.95E5,3.6E5,3.8E5,3.9E5,3.4E5,3.1E5,2.65E5b 2.15E5,1.8E5,1.35E5,0.95E5,0.4E5,0.116E5,0.04E5el 5E-3,0.52E-3,0.52E-3,INUE...";:A$936:25B::"NUMBER OF 5-YEAR PERIODS: ";JN7ZN711820s"THIS MUST BE >=1."}1760N7401850&"200 YEARS IS ENOUGH FOR ANYONE."01760:T0;2130"D 6.3E5,6.2E5,6.3E5,5.75E5,5.52E5,4.85E5,4}+ FORM X5,C,X12,C,X5,C,X15,C,X5,CY PRINTUSING 1690,'M','F','M','F','M','F'_kI120 PRINTUSING 1740,5*(I-1),' TO ',5*I-1,P(I),Q(I) PRINTUSING 1741,A(I),B(I),C(I),D(I),E(I)I :"PRESS ANY KEY TO CONT$,1)"Y"1617#L(Y$,1)"N"1615PM"'YES' OR 'NO' IS REQUIRED...TRY AGAIN"ZN1610dOB10nP1620xQB11TB11860^B101650rA111730w936:25| PRINT USING 1670,'AGE','NUMBER/GROUP','DEATH RATE','MIGRATION','F.P.'ES ONE AT A TIME)"I120I(5(I1));" TO ";(5I1);"YEARS: ";SE(I)mE(I)0E(I)51570"WE SHALL ALLOW VALUES BETWEEN 0 AND 5"1520"I,X306936:25:"DO YOU WANT TO CHANGE ANY OTHER VALUES: ";JY$ K(YALUES WERE UNREALISTIC.":"WE SHALL USE VALUES OF 0 AND 0."EI60OI70Y1440eC(I)16qD(I)17xI1590B141750936:25"NUMBER OF LIVE BIRTHS/FEMALE""----------------------------""(ENTER VALUD BECOME NEGATIVE":"THE POPULATION OF THAT GROUP WILL BE MADE 0."F"YOU ARE, THEREFORE, ADVISED TO USE":"SENSIBLE MIGRATION VALUES":PI120ZI80d(5(I1));" TO ":(5I1);" YEARS: ";nI6,I7x2040I811420;"THESE V012701"THESE VALUES MUST BOTH BE POSITIVE.";1190BIL1590\ B131460j936:25"MALE AND FEMALE MIGRATION""-------------------------"(1970B2"IF MIGRATION OUT OF A GROUP OS SO LARGE":"THAT THE POPULATION WOUL0y936:252~"MALE AND FEMALE DEATH RATES"U"---------------------------"_1970kI120(5(I1));" TO ";(5I1);" YEARS: ";A(I),B(I)A(I)1B(I)11240"THESE VALUES MUST BE <= 1."1190A(I)0B(I)25-"MALES AND FEMALES IN EACH 5YR GROUP"X"-----------------------------------"b1970nI120wI80(5(I1));" TO ";(5I1);" YEARS: ";I6,I72040I811120P(I)I6VQ(I)I7`Ij1590tB12129X21850>X311660&HX101750tR:"ENTER THE NUMBER CORRESPONDING TO THE":"VALUE YOU WISH TO CHANGE: ";}\X11fB1p(B1)B1890u"TRY ENTERING A NUMBER FROM 1 TO 4...":850zB14885B11885B111140936:1580:590DX31%NX10610/X1150;bI120ElP(I)LvIXI120bQ(I)iIuI120A(I)II120B(I)II120C(I)II120D(I) II120 E(I)*I4 A10:450 450 A11- A115107 X21@ 590N 936:25t "DO YOU WANT TO SEE THE DATA: ";| Y$ (Y$,1)"Y"545 (Y$,1)"N"547 "'YES' OR 'NO' IS REQUIRED.... TRY AGAIN":511 !A11 "550 #A10&A1 FEMALES,"3 " 2. MALE AND FEMALE DEATH RATES,"] " 3. MALE AND FEMALE MIGRATION,AND" " 4. FEMALE PRODUCTIVITY. "; ^X20 hX30 |X10 Y$ (Y$,1)"Y"447 (Y$,1)"N"445 "'YES' OR 'NO' IS REQUIRED...TRY AGAIN":440JUSTMENT: "; Y$) (Y$,1)"Y"197> (Y$,1)"N"195q "'YES' OR 'NO' IS REQUIRED....TRY AGAIN":190 A80:210 200 A81 A81A80210 936:25 "DO YOU WANT TO ACCEPT OUR VALUES FOR:" " 1. NUMBER OF MALES ANDNO' IS REQUIRED ....TRY AGAIN"( 11106 A90:150? 140H A91] A91A90150 :"THE FEMALE PRODUCTIVITY (BIRTH RATE)":"CAN BE LEFT CONSTANT OR AUTOMATICALLY":"ADJUSTED (IF RATIO MALES:FEMALES>2)" "DO YOU WANT AUTOMATIC AD:"==================="::: 2"THE DEATH RATE CAN EITHER BE CONSIDERED":"TO BE CONSTANT OR A RANDOM FACTOR CAN":"BE APPLIED TO THE DEATH RATE"::"DO YOU WANT CONSTANT DEATH RATE: "; nY$ (Y$,1)"Y"137 (Y$,1)"N"135 "'YES' OR '"E M(100),F(100),A(20),B(20),C(20),D(20),E(20),P(20),Q(20),W(100)W:936:::"DO YOU WANT A COPY OF THIS SIMULATION":"PRODUCED ON THE PRINTER ";:A$(A$,1)"Y"20"";"PR#1"25:50 936:3:5:"POPULATION PROFILES":5""" " " " " """""""""!!! ! ! ! ! !!!!!!!!!