765301,0:65305,2:(14):65297,15:3,900,15:800W ** ML STOP KEY DISABLE **"x=X` L4x1X`"xhhhhhhhhhhhHHX`111""hhhhhhh`1" ** 4 - POP ML SUBROUTINE ** **GENERAL INPUT ROUTINE **::# +++ INPUT SECTION +++5(UO,0:UR$"":UI$""E*UL0UL80X-" ";:UC,0l2UI$:UI$""507UI$(13)(UR$)1UC,1:" ";:85<UI$(20)105> (UR$)UL50A120: CHECK FOR VALID CHARACTERFUR$UR$UI$KUI$;P50)U +++ CHECK FOR HELP REQUEST +++QZUR$UX$195: EXIT TO HELP ROUTINE`_UF1240mdUF0::f ++ CHECK DELETE ++i(UR$)150nUR$(UR$,(UR$)1)s" ";:50x ++ CHECK FOR VALID CHARACTERS ++}(US$)0150 US1(US$)"UI$(US$,US,1)(5UI$"":P ** STANDARD INPUT **a(UI$)46rUI$(32)(UI$)48(UI$)57170(UI$)65(UI$)90180(UI$)193(UI$)218UI$"":(UT)UU%UI$((UI$)128):UI$"":7UF1: +++ HELP ROUTINE EXIT +++@250I245[UQUBUB915UQ%(UQUB)(UQ)::UQ%(U4%40U3%1)32:""UZ1:UV%(UT)300UZ0:US$UJ$:UG$UK$:UPUJ:ULUK(50003)053281,1:"";:53281,6:53280,14:220"";0UT$UL$:UT,UV%:UQUBUB915JUQ,UQ%(UQUB)::865VU1,U1%bU2,U2%nU4,U4%|U3,U3%135UD%((U2%256U1%U3%)UB)40:(UD$,UD%1):(UD$,24);"  HELP COMING ":U1%(U1):U2%(U2):U3%(U3):U4%(U4)EUJ$US$:UK$UG$:UL$UT$:UJUP:UKULK\, ** MENU **b-:."":UT,UU%:(50003)053281,9:53280,8/:1" MENU"6" --------------------------------------";" 1. BEGIN FISHERY/@" 2. STUDENT INSTRUCTIONS"YE" 3. TEACHER INSTRUCTIONS"uO" 4. QUIT"T" --------------------------------------"Y" PRESS A NUMBER KEY (1-4) ";^UL1:US$"1234":35: INPUT ROUTINE`US$""c(UR$)1000,400,500,396(h300O ** RE-ENABLE STOP KEY AND END **~(50003)1(50003)160(50003)0399UU71:(50003)053281,6:53280,14"":875: ** STUDENT INSTRUCTIONS **"":UT,UL%:(50003)053281,0:53280,00UP0:UG$"TUDENT NST":850Y" HIS IS A SIMULATION OF" A FISHERY WHERE YOU CAN" CONTROL THE BEST CATCH AND" ESCAPEMENT LEVELS." OUR GOAL IS TO FIND" THE OPTIMUM STRATEGY TO1" BE USED."?835:850l" OTE THAT THE STRATEGY WHICH" PRODUCES THE BEST CATCH MAY BE" DIFFERENT (NUMERICALLY) FROM" THE STRATEGY WHICH PRODUCES" THE BEST RUN (=ESCAPE+CATCH). 835:850N" N THIS SIMULATION, WE SHALLv" DEFINE THE OPTIMUM STRATEGY" TO MEAN ONE THAT PRODUCES THE" CATCH.835:850" EMEMBER TO HIT AFTER" " TYPING YOUR ANSWER.8" YPE AT ANY TIME TO RETURN"d" TO THE MENU FOR HELP. OU WILL"" BE RETURNED TO THE PLACE IN THE"" PROGRAM WHERE YOU LEFT OFF AS"" SOON AS THE OPTION FROM THE MENU"" IS COMPLETE." 835UZ1UP%:217#D ** TEACHER INSTRUCTIONS **t"":UT,UL%:(50003)053281,2:53280,10UP0:UG$"EACHER NST":850" O THE BEST OF OUR KNOWLEDGE,"" THIS PROGRAM IS IN THE PUBLIC"" DOMAIN. F THIS IS NOT THE CASE"5" PLEASE CONTACT:"_" OMMODORE USINESS ACHINES"" 3370 HARMACY VE." GINCOURT, NTARIO"" ANADA 1 24"" (416) 499-4292"@835:850:B" ROGRAM AME: ISHERYGD" RITTEN Y : INN AND CADDENbF" PGRADED Y : H" HIS PROGRAM WILL RUN ON ANYN" 64 P" 64 R835TUZ1UP%:217V X ** PROGRAM MODIFICATION INST **, Y"":UT,UL%L ]UP0:UG$"ROGRAM OD":850U 835i UZ1UP%:217o   ** TO USE 8032 LOAD CBM4032 ** "BEFORE RUNNING THIS PROGRAM ON AN 8032 !" LOAD THE 'CBM 4032' PROGRAM" !UU71!1!  ** T I T L E P A G E **e!""";:UT,UU%:(50003)053280,14:53281,6{!$I138:"";:!&I122:"";:!(I137:"";:!*I122:"";:!," "."  +"0" I"2" q"4"C O M M O D O R E"6"EDUCATIONAL"8"SOFTWARE": ** COMMODORE LOGO **#;(UD$,24);"PRESS SPACE BAR OR WAIT":I0(#<A$:A$" "II1:I250828L#>T1$"":T2$"":T3$"":T4$"":I0U#@300q#C ** SPACE BAR PRESS **#HUO,0:(UD$,24);"PRESS SPACE BAR TO CONTINUE ":2,800,2#LUI$:UI$" "844#N#R ** PAGE DESIGN ROUTINE **#TUPUP1)$W""(UT$UP$,21);(UP$UG$(UP),18)X$\" --------------------------------------"g$`UH0870$a(UD$,24);(UP$,7);"HELP - PRESS H "$fUH0:"":$k ** PLEASE WAIT REMARK **%p(UD$,24);" ONE MOMENT PLEASE... " %u&% ** SET UP VARIABLES **q%UX$"H":UQ%(1000):UB32768:U1196:U2197:U3198:U4216:UC167:UU1024%UT59468:UU%12:UL%14:UP%1146:UM32768:UO158: 50003,0%(50003)0UB1024:U1209:U2210:U3211:U4214:UC204:UU20481&(50003)0UT53272:UU%21:UL%23:UP%2139:UM1024:UO198U&UD$""&UP$" "&UT$" "&E(8),C(8):& ** SET VARIABLES **&900&SV$"FISHERY.C2& ** CHECK FOR 8032 **'"":"": SHIFTED SPACE2'(UB40)96700K' ** MEMORY CHECK **_' (0)2000937'"THIS MACHINE DOES NOT HAVE ENOUGH"'"MEMORY TO RUN THIS PROGRAM !"'UU71''"":(50003)0962 ( ** BASIC 2.0 OR 4.0 OR C-64 SETUP **I(1075,133:1076,144:1077,234:1079,4:1080,133:1081,145(1091,155:1098,133:1099,144:1100,234:1103,133(1104,145:1105,234:1082,234((50003)160955(1093,88:1094,228:1097,85:1102,228:965((50003)1990+)1093,49:1094,230:1097,46:1102,230:965e)2099,141:2100,20:2101,3:2103,8:2104,141:2105,21)2106,3:2115,145:2117,52:2118,234:2121,49:2122,141)2123,20:2124,3:2126,234:2127,141:2128,21:2129,3)UU48: DISABLE STOP KEY *800: TITLE*300: MENUK*"THE PGM WILL NOT WORK ON THIS MACHINE!":*UZ1UP%:UP%:UZ0: ** PROGRAM STARTS HERE ***"";::(50003)053281,6:53280,6*YR1983: SET THIS VARIABLE TO THE PRESENT YEAR!!!!!!!!!****************+L FISHERY MANAGEMENT SIMULATION'+M 4000L+V ADAPTED TO PET FROM HP AND MTSm+W REVISED BY ROBERT EGGLETON+` IN FEBRUARY AND MARCH OF 1978 BY TIM BERLA+j (WITH HELP FROM STEVE ANDRE).+t MINOR MODIFICATIONS BY ZINN MARCH 79,~ ORIGINAL VERSION WAS BY ZINN AND8, MCFADDEN ON IBM 7010 1965 AND[, PUT ON MTS (IBM 360/67) 1967,"":UT,UL%:UG$UT$:(50003)053281,6:53280,14,ZF0:UH1:850," OU WILL BE SHOWN A RECORD," OF THE PAST EIGHT YEARS OF%-" FISHERY OPERATION. HIS MAYN-" BE USED TO PLAN YOUR FUTUREe-" STRATEGY.-P11: PEAK AT THIS VALUE OF E-M30: MAX OFFSPRING, AT E=P-R18-E10 : T0 : C10-M1(MP)3- LM12-EP2-CO18.(CM1E(1).2 RC 1360$.<CC.3/.F 13309.PERCM.ZC(CO)C:E(CO)EW.d2360_.nCOu.xYYR8:ZF0835.3100.YC13:C(YC)C(YC5):E(YC)E(YC5)::YC4.865:" OULD YOU LIKE TO REGULATE/" ŒSCAPEMENT OR ÒATCH? ";,/US$"ECH":UL1:35:S$UR$:2970@/ S$"E" 1625x/2970:" ATCH LEVEL FOR"Y": ";/US$".0123456789H":UL6:35:C(UR$)/ERC/ E0 1580/" ONE ESCAPED; TRY AGAIN.":X11000:X:14900,E(YC)E:C(YC)C:YCYC1:2880#0@ 1740J0Y2970:10)"SCAPEMENT LEVEL FOR"f0[9)Y": ";0^US$".0123456789H":UL6:35:E(UR$)0h E0 16800r" OME MUST ESCAPE.":I11000::16250CRE0 C0 17200C01ER#1E(YC)E:C(YC)C:YCYC1:2880-1TTC?1 CL 1780j12970:" OW CATCH MADE FISHERY1" FURIOUS!!!":X11000:X1 18001 CM1 180012970:" EDIOCRE CATCH DISTURBED1" FISHERY.":X11000:X 2 23602YY1 2C1C1122& C15 1480;20C10G2:E1E1TR2D 2970z2I" OTAL CATCH AFTER 5 YEARS2K" WAS ";:F7T:33002N" OR ";:F7T5:3300:"/YEAR."2XT02b835:865:29703g" ŒXIT, ҒESTART, ÒONTINUE OR33l" ĒEFINE OPTIMUM STRATEGY? ";S3vUS$"ERCDH":UL1:35:C$UR$b3C$(C$,1)3 C$"R" 875:ZF1:12703 C$"C" 14103 C$"E" 329703" TRATEGY: WHICH SHOULD BE4" REGULATED, ESCPMT/CATCH? ";#4US$"ECH":UL1:35:S$UR$74 S$"C" 2150d42970:" SCAPEMENT SHOULD BE SET4" AT WHAT LEVEL? ";4US$".0123456789H":UL4:35:O(UR$)429704" ITH ESCAPEMENT AT"O",4D(OP)4 D.1P 2080"5 " THE CATCH SHOULD AVERAGEJ5" ABOUT"MP". LEARLY, YOUq5" HAVE MASTERED THIS GAME."|5 22805  D.3P 21105*" THE FISHERY COULD STILL DO5/" BETTER. OU REALLY SHOULD"61" GET MORE EXPERIENCE.64 189036>" THE FISHERY SOON FAILS.[6C" LEASE GET MORE EXPERIENCE6H" TO MAKE A BETTER ESTIMATE.6\ 18906f2970:" ATCH LEVEL SHOULD BE SET6h" AT WHAT LEVEL? ";7jUS$".0123456789H":UL4:35:O(UR$)/7n2970:" OR CATCH LEVEL AT"O",>7pD(MPO)V7z D.1(MP) 2210}7" FISHERY SHOULD BE , BUT7" SETTING ESCAPEMENT IS MORE7" SURE.718907 D.3(MP) 22308" THE FISHERY COULD STILL DO)8" BETTER. (RY SETTING THET8" THE ESCAPEMENT LEVEL.)":1890|8" THE FISHERY WILL NOT PROS-8" PER. ET MORE EXPERIENCE8" TO IMPROVE YOUR STRATEGY.":189088AE1(YYR)9 ---A, E1 ARE SOME PERFORMENCE INDICATORS---%9 1890N98 R(2MEP)(M((EP)2))(1)52.5i9B RM3 EP 2390s9L RM39V R0 24109` R09j 9 FORMAT VARIABLE F7 INTO F$ USING F8 AND F99 F7F710(1F9)9 F710F81 2840: F$(F710F8): F$(F$,(F$)2)+: F51 F81D: (F$,1)"0" 2790N: " ";c: F$(F$,(F$)1)k: F5{: F51 30: (F$,F5,1)"." 2820: F5: (F$,F5F9);: : F$(F7):" (F$,2,F81F9);:, :6 F$(F7).;@ SUBR TO PRINT OUT NEXT YEARS E AND C IN AN ORGANIZED WAYO;J (UD$,LN)7)((Y),2);"";^;T F7C:3200v;^ "";:F7E:3200; LNLN1:; 3200: SUBROUTINE TO CLEAN SCREEN; ""UP$:UP$:UP$:UP$"":; "";; I; < F83:F93: F7:"^";:2690:"^":3030,< UP1:UH1:850:LN10Y<& " <0 " EAR ATCH SCAPEMENT<: " FZ(((F7))):F$((F7.000001),2,FZ3)1> F$;:X>T1(1)31:""(UD$,(1)105)r>X(1)15(1)1020>X)" ߩ .  ">X)" ߩ . ">I18:I>X)" ߩ . "?X:I150 ?T?7?" EAR ATCH SCAPEMENT ":