9106"xX` L4x1X` a"xGX` LXxU䅑X` "xhhhhhhhhhhhHHX` "hhhhhhh` "Ȅ؅ 񷊢ȑ` "ȱ` #UW0UU,15(UC,0:UN,0:UR$"":UI$"":UL0UL39$-UI$:UI$""45Y2UA(UI$):UR(UR$):UA13UR0UC,1:" ";:707UA20(UR0)45:UR$(UR$,UR1):" ";:45<URUL45A95:UR$UR$UI$:UI$;:45FUR$UX$" ";:145KUIUR11:(UR$,UI,1)" " PUR$(UR$,UI)::_(US$)0110JdUI1(US$):UI$(US$,UI,1):UI$""Pi]nUA46psUA32UR0xUA47UA58}UA64UA91UA193UA218UI$"":(UT)UU%UI$(UA128)170:251,0:252,US256:253,0:254,UF:UVUZ1:UV%(UT):300IUZ0:US$UJ$:UG$UK$:UT$UL$:UPUJ:ULUKg"";:UW0UY,11:UX,11UT,UV%:251,0:252,UF:253,0:254,US256:UV:UW0UU,15U1,U1%:U2,U2%:U3,U3%1:U4,U4%:35U1%(U1):U2%(U2):U3%(U3):U4%(U4)&UJ$US$:UK$UG$:UL$UT$:UJUP:UKUL:K,"":UT,UU%:UW0UY,12:UX,6k1" M E N U"6" ---------------------------------";" 1. BEGIN POPULATION DYNAMICS"@" 2. STUDENT INSTRUCTIONS" E" 3. TEACHER INSTRUCTIONS"5 J" 4. QUIT"b O" ---------------------------------" T" PRESS A NUMBER KEY (1-4) "; YUL1:US$"1234" [35:US$"" ^(UR$)1000,400,500,390 c300 rUZ1UP%:155 w UE:"":UW0UY,6:UX,14:UU,14 :E "":UT,UL%:UW0UY,11:UX,12 UT$" OPULATION YNAMICS":UH1:UP0:UG$"TUDENT NST":850 " N THIS PROGRAM, YOU MAY EXPERIMENT" " WITH DIFFERENT FACTORS AFFECTING THE" " BALANCE IN AN ECOLOGICAL SYSTEM. OU"@ " MAY ONLY CHANGE FACTORS IN THE FIRST"j " YEAR. FTER THE FIRST YEAR, THE" " PROGRAM WILL RUN QUICKLY THROUGH A" " SIMULATION OF TWENTY YEARS, AFTER" " WHICH, YOU MAY HAVE THE RESULTS OF" " YOUR SYSTEM PRINTED ON THE SCREEN OR"6 " THE PRINTER.":835j UH1:850:"HIS PROGRAM SHOWS THE CHANGES" " THAT WOULD OCCUR IN A POPULATION IN" " THE WILD FROM YEAR TO YEAR, BASED ON" " FACTORS WHICH CONTROL POPULATIONS." " HE INITIAL POPULATION IS 100"I " SNOWSHOE HARES, WITH AN EQUAL NUMBER"h " OF MALES AND FEMALES." "HE POPULATION LIVES WITHIN AN AREA" " OF 1000 HECTARES, OF WHICH ONE HALF" " IS COVERED WITH BRUSH, AND THE OTHER"" HALF IS OPEN GRASSLAND.":835HUH1:850:"HE HARES EAT A VARIETY OF"u" PLANT SPECIES AND ARE THE PRINCIPAL"" PREY SPECIES FOR POPULATIONS OF HAWKS"" AND FOXES WHICH INHABIT THE AREA.""HE INITIAL PREDATOR POPULATIONS"*" ARE: 6 HAWKS AND 2 WOLVES. ACH HAWK"U" MUST CAPTURE 15 HARES PER YEAR TO"" BE REPRESENTED IN THE NEXT YEAR "" THROUGH REPRODUCTION OR SURVIVAL.":835:UH1:850" APTURING 25 HARES ALLOW THE HAWK"" TO BE REPRESENTED BY 2 INDIVIDUALS IN"@" THE NEXT YEAR. HE CORRESPONDING"n" NUMBERS FOR THE WOLVES ARE 25 AND 60"" HARES, RESPECTIVELY."" HE WOLVES ARE REPRESENTED BY 3""INDIVIDUALS IN THE NEXT GENERATION."835UH1:850:"HE HARES PRODUCE A MAXIMUM"L" LITTER OF 3 PER MATED PAIR PER YEAR."z"HE CARRYING CAPACITY OF THE RANGE"" IS GREATER THAN THE INITIAL":" POPULATION.""ACH HAWK MAY CAPTURE APPROXIMATELY"" 6 PERCENT OF THE POPULATION PER YEAR,"M" WHILE EACH WOLF MAY CAPTURE APPROXI-":" MATELY 12 ";"PERCENT OF THE POPULATION":" PER YEAR.":835:UH1:850" HEY WILL CAPTURE A CERTAIN"" PERCENTAGE DEPENDING UPON THE"" AMOUNT OF BRUSH AVAILABLE TO THE":" HARES.".AA1:835:XX0:Y01510C1520:AA1:2090V GOSUB835jUZ1UP%:155p"":UT,UL%:UW0UY,2:UX,10UT$" OPULATION YNAMICS":UH1:UP0:UG$"EACHER NST":850" O THE BEST OF OUR KNOWLEDGE,"-" THIS PROGRAM IS IN THE PUBLIC"X" DOMAIN. F THIS IS NOT TRUE,"v" PLEASE CONTACT:"" ŠӠ"" 3370 HARMACY VE." GINCOURT, NTARIO" " ANADA, 1 24"+" (416) 499-4292">UH1:835:850o" ROGRAM AME: OPULATION YNAMICS"" RITTEN BY : CHOLASTIC OFTWARE"" EVISED BY : . OSTER"" HIS PROGRAM WILL RUN ON ANY" à2.0 OMPUTER@" 4.0 ԠOMPUTERb" 8032 OMPUTER" OMMODORE 64 OMPUTERI835NUZ1UP%:155SUC$"BEFORE RUNNING THIS PROGRAM ON AN 8032" LOAD THE 'CBM 4032' PROGRAM":> "";:UT,UU%:UW0UY,1:UX,14T!I138:" ";:l"I122:" ";:#I137:" ";:$I122:" ";:%" &"  '"  O M M O D O R E(" >)"EDUCATIONAL^*"SOFTWARE|+"1983,(UD$,24);"PRESS SPACE BAR OR WAIT"UC$:UI0-UI$:UI$" "UIUI1:UI250813.300#CUN,0:(UD$,24);"PRESS SPACE BAR TO CONTINUE":HUI$:UI$" "840@MrRUPUP1:""(UT$UP$,21);(UP$UG$(UP),18)W" --------------------------------------"\UH0(UD$,24);(UP$,7);"HELP - PRESS H "aUH0:"":$k(UD$,24);" ONE MOMENT PLEASE... ":tUX$"H":US32768:U1196:U2197:U3198:U4216:UC167:UB1024:UD1084:UE1105UT59468:UU%12:UL%14:UP%1158:UN158:50003,0:UW(50003):UF(53) UW0US1024:U1209:U2210:U3211:U4214:UC204:UB2048:UX53280:UD2064UUW0UT53272:UU%21:UL%23:UP%2151:UN198:UY53281:UU2199:UE2087UC$(155):UV1214:UW0UF196:UV2238UD$"":UP$" "SP(20),HP(20),WP(20)900:"":"": SHIFTED SPACE+(US40)96700Q((0)(((0))0)65536)500935UC$"THIS MACHINE DOES NOT HAVE ENOUGH""MEMORY TO RUN THIS PROGRAM !":UE:""UC$:UW0965UF60UF108UF12495052,0:53,UF4::900/UW1601103,88:1104,228:1107,85:1111,228:965lUW1"THIS PGM WILL NOT WORK ON THIS MACHINE!":UE:1103,49:1104,230:1107,46:1111,230:965UD800:300UZ1UP%:UP%:UZ0""UC$;::UW0UY,11:UX,11RR(TI)+UT$" OPULATION YNAMICS":AA0:UP0:UG$""M:UT,UL%:UW0UY,11:UX,11b1510:XX1:1520| POPULATION DYNAMICS COPYRIGHT SCHOLASTIC SOFTWARE VERSION #1 MAY 25 1981SP100:HP6:WP2:WR1:PR1:SF3:HC6:WC12:Y1:3UHAA:850:"RESENT ONDITIONS";:" EAR:";Y<AA1j"ACTORALUE"" 1 ARE OPULATION ";SP" 2 AWK OPULATION ";HP" 3 OLF OPULATION ";WP "" 4 OODED TO PEN ATIO ";WR;":";PRK ," 5 ARE ECUNDITY ";SFw 6" 6 AWK APTURE ERCENT. ";HC @" 7 OLF APTURE ERCENT. ";WC:AO1835:1860 E XY1:Y20XY0: G XY1:Y1XY0:835:1860!JY1835:1860!OXX0835:XX1:C!T"O CHANGE ANY FACTOR, KEY IN ITS'"m!^" NUMBER OR TYPE '' TO CONTINUE. ";!rUS$"1234567HC":35!wA$UR$! A$"C"1860: IFY>1THEN1650!(A$)0 (A$)81710! A$"A"AO1:1860!1650"(A$)1720,1740,1760,1780,1800,1820,1840V"850:"EW VALUE FOR FACTOR 1 ";:4000:SPUR`"1520"850:"EW VALUE FOR FACTOR 2 ";:4000:HPUR"1520"850:"EW VALUE FOR FACTOR 3 ";:4000:WPUR"1520#850:"EW VALUE FOR FACTOR 4 ";:4000:PRUR&#1520^#850:"EW VALUE FOR FACTOR 5 ";:4000:SFURh#1520#850:"EW VALUE FOR FACTOR 6 ";:4000:HCUR#&1520#0850:"EW VALUE FOR FACTOR 7 ";:4000:WCUR#:1520 $DSP(Y)SP:HP(Y)HP:WP(Y)WP$IUH1.$NHBSP2(SF):SPSPHBi$XHKHC100HPSP(((PR)(WR))):HKHP25NHHP2:HI5$bWKWC100WPSP(((PR)(WR))):WKWP60NWWP3:WI5$lHI5 NH(HK15):HP1HP1$vWI5 NW(WK25):WP1WP1%SP(SPHKWK):SP1SP2-% SP2000SP(SP(SP1000)1.5)D% IFAO=1GOTO2040%UH1:850:"EARLY ALLIES";:" EAR:";Y%"ARE IRTHS.........";(HB)%"ARE APTURES.......";(WKHK)&"AWK NCREASE.......";(NHHP):HP(NH):HP1HP1K&"OLF NCREASE.......";(NWWP):WP(NW):WP1WP1&"ET HANGE..........";(HBWKHK):HI0:WI0:YY1&Y21835:2170&AO11520&835:1520&HP(NH):HP1HP1&WP(NW):WP1WP1& HI0:WI0:YY1'Y21835:2170"' AO11520X'*UH1:850:"F ANY OF THE THREE POPULATIONS"'4" IS REDUCED TO ZERO BY STARVATION OR"'>" OVER-PREDATION, THEY WILL BE REPLACED"'H" BY IMMIGRATION TO THE FOLLOWING LEVEL:"(R"ARES: 2 INDIVIDUALS"&(\"AWKS: 1 INDIVIDUAL"F(f"OLVES: 1 INDIVIDUAL"Q(p835:y(zUH0:850:"ATA UMMARY"("S A PRINTER CONNECTED? ";(US$"YNH":UL1:35:A$UR$(RR1: A$"Y"2350)UW0UY,11:UX,11:"EARLY OPULATION ATA";" UN #";R$)UH1:850K)" EAR#","ARES","AWKS","OLVES"o)T120:T,SP(T),HP(T),WP(T):T)835:850:"OPULATION ACTORS")"OODED TO PEN ATIO.....";WR;":";PR)"ARE ECUNDITY PER PAIR....";SF*"AWK APTURE ERCENT.......";HCA*"OLF APTURE ERCENT.......";WCm*" YPE '' TO CONTINUE OR '' TO"*" END THE PROGRAM. ";* US$"":UL1:35:" ";:A$UR$* A$"C"* UP0:1510:1520*$ FORT=1TO300:NEXTT:RETURN*. 4,49+8 4," YEARLY POPULATION DATA";" RUN#";R;(10);(10)s+B 4,"YEAR#"," HARES"," HAWKS"," WOLVES":4,(10)+L T120:T$(T):Y(T$)7:T$T$"":Y+V H$(SP(T)):Y(H$)7:H$H$"":Y+` K$(HP(T)):Y(K$)7:K$K$"":Y,j W$(WP(T)):Y(W$)7:W$W$"":Y-,t 4,T$,H$,K$,W$:Tc,~ 835:4,(10)(10)(10):4," POPULATION FACTORS"m, 2540, 4:4," WOODED TO OPEN RATIO.....";WR;":";PR:2540, 4:4," HARE FECUNDITY PER PAIR....";SF:2540 - 4:4," HAWK CAPTURE PERCENT.......";HC:2540A- 4:4," WOLF CAPTURE PERCENT.......";WC:2540:4H- 4w- 850:"RESS '' TO END THE PROGRAM OR"- "PRESS '' TO CONTINUE THE PROGRAM. ";- US$"":UL1:35:A$UR$- A$"C" - UP0:1510:1520- 4,(10):. :835. GOTO835<.UL4:US$"H1023459687.-+":35:UR(UR$):