' +JJJJ ?\>m0M='+l> /+l  H d@hLҦ L~ L  ﵪ*i BB䵊嵰`72µ- i ư&( Rp s P  LLʬLoō 鷎귭෍ᷩ췩緈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)*++`NG8`0($ p,&" ۿ ۿڿL흍ٿ vLQ  !"#$%&'()*+,-./0123456789:;<=>?  ( 9 +"  "*  (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).).*#!.*'!.8)(#/-)(#/-,,eb)++$ h( ,!!"@h !D)"E` @ $ C ` DQ &J80^݌Hh ü ü݌ ռ ռ ռA ļD ļ? ļAEDE?HJ>h Լ ռ ռ ռ`HJ>݌h Hh݌`HH ᥠ L\HIHHHHhHH݌hHhHh݌H6 ˆʎõĵL õ ĵµ aµ`` L̦µ_bJLuLz`  ȟ QLȝJ̥KlV  ȟ QlV eօ3L׭Lܫ &RL &QL d L4 We)n `@-eff L f`L . tQLѤ LҦL` OPu d L Ne)noon 8ɍ` ^f\õL ^NR  RΩLҦ\L \ şL_ NLjHv 3h`0h8` [L NС õ`A@` ŵL]Lõ`  \ 濭0 ş  Q ^\lZl^\8  ş Lȟ`fhjõĵ@OAP`u@`@&`QR`F Ls  @DAF@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@ ,\Z[PRR3\ɄSɊ"RQJ(0Fw6. ^-%p 㩠RP.Q I* P\L˵B̵C8pB߮Z\ @ յյ\BIR Z-^ Jp\IZLLӜv  ϳ@跻~!Wo*9~~~~ɬƬ~_ j ʪHɪH`Lc (L ܫ㵮赎 ɱ^_ J LsL Q(`贩紎 DǴҵԵƴѵӵµȴ 7 ַ :ŵƴѵǴҵȴµ納贍﵎ٵ്ᵭⳍڵL^ѵ-I `  4 ò-յ!  8صٵ紭ﵝ 7L (0+BC  7L HH`LgL{0 HH` õL H hBL BH [ h`Lo õ ڬL B ڬ LH hB@ յյ [L (ȴ) ȴ 7L L ( L (ȴL{ƴѵ洩ƴǴҵ 7 ^* B0 HȱBh ӵԵ 8 L8 ݲ` ܫ  / / şFD B / / ]ƴS0Jȴ ȴ)  紅D贅F B ƴ  / 0L Ν `ND8HFFhDh N ş`, ŵBѵ`, ѵB8`  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˵̵ֵ׵`LzĪLR E( 8` R` ELRŪƪ`췌 յյI뷭鷭귭ⵍ㵍跬ª 뷰` Lf ݵܵߵ޵ ^`8ܵ i B8` 4L ֵȱB׵ ܯ䵍൭嵍 ` DȑB׵Bֵ  ַ յյ`` ᥠ hh`ĵµ`ڿ8.ڿ.ۿ`êL`õĵ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 x(`# d£àĠz# u` @@A` @A@  B C BBCLCLfBL ީLhh`LLN7ɿLݍҭ -A@@i@@@i@AAݣ@ݢΩDDLeA@@lL /?@Hɷ@#@h@!ɵ@ɥͰi+hɝi@@/8e@@DAA͈@̈DDL܇@BA݅C@BAC濽տ`xxlt]iVȿQkKRE;BY;LꍁlL<ԍL WLHr7s8 LH HLݍ ,,(`l8 LH e UL׉ LH LH,, sL,,, t鍁` H `Le HL H LL H QL H Llש B\ȹ'ȹ' (LRANGWRITE PROEND DATFILE NOT FOUNVOLUMI/O ERDISK FULLOCKESYNTANO BUFFETYPE MISMATCTOO LARGNOT DIREC q`QrU`)`\N|Lي80ʭ) $% B橠 B  ` L߭ɍ_LةحW`8& 9ʩ8`WL () ~ۭ N N L,H whLZ؍^؍_`$,,L`hhhL٭0 ,0L,Ƀɛɍ8ɠnɻɺ: n(8l mnحuIn Lw8n {۠u  {ۥgh,,0۬ۍ،؍La8 L߭ u ب H بh,8m l بNۘHج,8۰h Z wةͼH h بLZ8Ѕυ Z0 Z LڭٍَٺHץ9ɾIn0 hH )? @(I7n׽Nשn I-- h+( ,,0 ,Hّ(ho Lލ ׭,0 )?( Ɉoɀ@MםH Ihh0 Lڊʰڍ,עLڍhhیڬ<۠x )ڠ8۬ڰ(HH `ȹ0,Ȍ ɍ  ɠ )?, @, LB LƠ LLւ&LݩLL#B B!P`L?>  33>> >ЪՂ3 ?3  33 3ЪԪժՂըՂ0 03 3 33>Հ>> 3 3 33>ժՊԊ3 ?>>> 3>>333333 6 3333063 3ԪժԂ33 33  3 ЪԪժՂՠՂ33> >363 83 833 ; 333ՂЪ33 63 ; 333ժՊՊ33333 33336 333 336?3;HHWHHL ٩xIIୂL(((ЫȱLSOUNF  ȱ!8`ȱ0 `zα) )0^ eeeυر)00  4МαC Dae΅ 8΅ΠȱϩHHLSLOT!ȱ8!` (c61qd1q ȱJJJJ,- Nwxh`op op oqo̓o8popNq8rqr`p% oqprpo`qrop`0 qe$$`  Aȱ)p ɛzj )Β`vvv輍`p`w/wvzy}|`w `LLLH  qo Nh`  L)H j j)8!8$8r,8(JHxw ah p pi!`oͲ芮r`NsFLa pmqqe$!rN Nop`om  qp u; sr LxwNywzxxwzw,y 0 8ny`  ~ ) v L  )8n0 aL ~ )LT ɍH,0 ~ )LT,s0" t. :!? 8ns`   )Ns`ɑ,$qe$i!8n LT ɠqLHtov h    , a )Ns`    )NsLLTquouoH  Nh`qe$,# ! `llH (hL(iH  (h`YHHHHHHY hhhhhhY`JFY U0 d'T  ) atoqprNsN`LH ht` ɍɈHqqqhL Ɋ mestic"42"cats, of your choice, and observe the"c2"kittens produced by those matings. You"2"select the cats on the basis of coat"2"color, pattern, and tail. In using"3"the program you will develop a better"3"understanding of t/12320/X/Y:0; 0QW:QWQW1:QW13QW14A0P 0KOUNT13g*00:X,Y2:X2,Y2~40PAUSE150:PAUSE>013:X,Y2:X2,Y2H0KOUNTR02N01:C8$"1;14fExplanation";:90,8166,82C8$"3;1fCATLAB allows you to mate do5,102,5,96,5,85,5,76,5,68,5,64,5,57,5,51,5,48,5,43,5,38,5,34,5,32,5,0,0M/:a/QW6:Y42319o/X1338/12300:MUSİ12050/X,Y:X2,Y:X1,Y2:X,X2Y1:X,X2Y3/N15:Y4,Y7XN:N/Y8,Y11X1:Y8,Y11X5:Y3,Y3X5,0&X/ 76,10,85,10,91,10,102,10,0,0Jb/ 102,10,91,10,81,10,76,10,0,0ml/ 68,10,76,10,81,10,91,10,0,0v/ 96,10,85,10,76,10,72,10,0,0/ 64,10,72,10,76,10,85,10,0,0/ 85,10,76,10,68,10,64,10,0,0G/ 64,20,85,20,102,20,128,60,114,0.:9.:("X-G-")::GT1:13:21:"<<< CATLAB >>>"D.12200^.N00:200:100:13000/PI,DU:PI0įSOUND(PI,DU):12050/:/ 128,10,114,10,102,10,96,10,0,0D/ 85,10,96,10,102,10,114,10,0,0N/ 114,10,102,10,91,10,85,10,0the menu screen.":S94:11050n +P816:S9$(2)"the student may still turn":S9$(3)"the sound on or off.":S93*+800:C8$"8;";LX"f";:10004+R9110030:SDSD:RFLAG3>+D$;"OPEN SOUND":D$;"WRITE SOUND"H+SD;:D$;"CLOSE SOUND"R+MUSSD:1003 *FF$;d+C8$"7;13fDo you want":C8$"8;5fto turn the sound ";TGL$(SD);"? (Y/N)";:LX(36)1 +S9$(1)"If you answer 'Yes',"+SDP815:S9$(2)"the sound option will be removed":S9$(3)"from the menu. To restore it":S9$(4)"type Control-S at ժժժժժժժժժժժժժժժժժժժժՂ 33 3 3 333> 3 3 ЪѪժՂ`ՂՂpժժժժժժժժժժժՂժժԊՀՀ 333 3 3 33?0 ?3 33ЪѪժՂ`cՠՂ8ժՊԊ;MS$;" selected cats.";:!j:d!o ---------------------------GET CAT NUMBER---------------------!tYY13ĴL901160:JK(S8$):((JKL7)(L8JK)0)1170:B8$;:1000!yYY47YY58L92S8$S8$YY$:C8$;LXL9"`"YY$;:L9L91:10153"~YY8YY95ĭ095 =(NS%(KK)0)1100" BHC6+ G950@ L:SEL(3,P9%):] QT70:C8$"21;1f"C8$"J"; V"Type a NUMBER and press RETURN,"; [C8$"22;5fto select or remove a cat to ";MS$;"."; `NPUSS4įC8$"23;1f"USAD$;!eC8$"24;1fPress E to end and ":K -------------------------NEW PAGE SUBROUTINE-------------------Q$:)KK4PG:YP2:SEL(1,P9%):C8$"2J": LINE (0,Y6)-(319,Z6),0,BF.KNT14:KKKK1:KKNPUSS11003915:MENU1080,1085 8(KKQM)1090:(KKQD)1100:HC5:1---INPUT-------------------IL90:S8$"":C8$;LY";"LX"f"C8$"K";:Q6,0lYY$:YY(YY$):YY90YYYY32YY69Ē6:MENU1275,21940(F8$,YY$,1,T8):T811140,1030,1040PGPG1:PG0PGPE 1045PGPG1:PGPEPG01065:1000----INITIALIZE----------------5Y623:Z6156:Y93VKNT0:PG0:PE((NPUSS1)4)tLY21:LX37:L71:L8NPUSSC8$"3;1fNo. Sex Phenotype";:0,Y6RW,Y6:0,Z6RW,Z6:1065:1105: LIST CATS,TYPE BOTTOM ---------------------------------"9`"(T9$,N9):T9$(T9$,(LN9)):m ----------------------------------DRAW BOX-------------------------R91:Y732KNTY9:Y8Y726:HC2,Y7RW,Y7RW,Y82,Y82,Y71,Y71,Y8:277,Y7277,Y8:: ---------------------------------------:YPYP4:C8$;YP";2f"KK;C8$"6`"SX$(GE%(KK,0));xT9$PO$(PO%(KK))PT$(PT%(KK))PM$(GE%(KK,6))PS$(PS%(KK))L(T9$):LN8N71:935:925C8$"9`"T9$;:T9$"":XX(0):(T9$,BL$,N7,N9):N9N8ĭN90N7N91:935!N9N72:C8$6,Y6X8,Y6X8,Y8X6,Y8X6,Y6:X61,Y61X81,Y61X81,Y81X61,Y81X61,Y61:Wz:v:SEL(0,P9%):0:0,3939BK:I038:0,39I::("X-")16301,0:16298,0: ---------------------------------LIST ONE CAT---------------91M9:M9$(I9)""::T8(T8$):6&R,W:?\ BLOCK TEXTEa:PfFF$;kH640:K1S9:H721((S9$(K))2):C8$;P8K";"H7"f"S9$(K);:H7H6H6H7:H8(36)1p:P6P81:P8P6S9tX6H6717:Y6P6820:X8H873:Y8P884:X60X60QvXC8$;P9";2f"T9$:0,R7RW,R7P4C8$;V9";3fPress a NUMBER key to make or change"9C8$;V91";5fyour choice, then press RETURN.";>MENU1ē0,S7RW,S7:C8$"24;4fPress ESC to return to this menu.";CS90P8((27M9)2):875H705 MS90:IHC6:775:725QV6(V9(R9)1)85:H6(J91)74:V7V614:H7H6(M9$(R9))77x HC:H6,V6H7,V6H7,V7H6,V7H6,V6H71,V6H71,V7:H61,V6H61,V7::  MENU%:*FF$;:T9((242M9S9)2):P9T93:(T9$)40P9P91/o the pool."<4::"If you press ESC while selecting new"~4"parents, the previous parents will be":"kept.":200:10030:::F9159:3288:N02:GT100:X(222):(EC$,(X),1,YY):(X20)(X255)10.:YY0įFF$;C8$"10;1fError number '3"each piece of information.":200?3C8$"2;1f"C8$"2J";q3C8$"7;1fIn most places in the program, you"3"may press ESC to return to the "3"previous menu."3::"If you press ESC while adding a cat," 4"the cat will not be added t"7;2f- add the cats you want to study by"Y3" specifying coat color, pattern, tail,"y3" and sex for each cat."3:" - mate the cats and observe and record"3" the resulting litter(s)."3C8$"16dThe program will prompt you to enter"3C8$"1`Refer to the Student Notes for"W^3"information on CATLAB's conventions for"h3"coat color and pattern, as well as for"r3"suggested hypotheses to test."::200|3C8$"2;1f"C8$"2J";3C8$"4;1fTo use the program, you must:")3C8$he principles of"B3"genetics and gain practice in scientific";b"3"reasoning and inquiry.":,3C8$"1`Before using the program, you should"63"have a working knowledge of beginning"@3"genetics and be familiar with common"J3"cats.":(T LINE (8,9)-(319,179),0,BF:1,:SEL(3,P9%):PP01645^110,R6RW,R6:C8$"23;1f"C8$"J";16C8$"3`Be sure the printer is on and online.";:C8$"24;2f"PE$;ES$;:1;1151@1690:II160:UL$;:::1E"No. Sex Phenotype":II160:UL$;: 2J3:FF$;:SEL(2,P9%):37,0V0Y8(37)87:C8$"1`No. Sex Phenotype";:0,Y8RW,Y8q0Y8(37)1:YPY8:KNT10KKH1H2L109150"KNTKNT11'KNT5KKH2TMPN0:N02:SEL(3,P9%):100:N0TMP:KNT1:SEL(2,P9%):C8$"3;1f"C8$"J";:YPY8: P:14853/FF$;C8$"3;9fYou have "NPUSS" cats.":a/C8$"6`Choose 1 - "NPUSS" cats to list."s/L71:L8NPUSS/C8$"11;9fStarting number = ";:59205:T8271480/H1S8:L7H1:C8$"15;9fFinishing number = ";:59205:H2S8:T82714800 L11:N0G: You must have a printer":S9$(2)"attached and turned on, or the ":S9$(3)"program may stop. To recover, ":S9$(4)"you must restart the program. ":875.S90:C8$"23;1f"(RET$(0),31);" or";:C8$"24;8fESC to cancel the printer.";:110/PP1Plist":C8$"2;3fto the screen will be printed":C8$"3;3fon the printer, until you choose:"-C8$"6;9f- option 4 to turn the":C8$"7;11fprinter off"-C8$"9;9f- option 5 to return to":C8$"10;11fthe simulation menu.".S94:P813:S9$(1)"WARNINt of phenotypes":M9$(3)"Display cats":M94:XDDRM9$(M9)"Turn "TGL$(PP)" printer":M9M91,M9$(M9)"Return to simulation menu",H94:810:H96:R91545,1520,250,1495,10010[-(M94)10010:PP1515:N00:FF$;C8$"1;3fFrom now on, everything you IT6+X.25NKIT30+X.25XHALFNKIT4J+XHALFX.75NKIT5s+GE%(Q1,6)2GE%(Q2,6)2NKITNKIT1|+570+:+ LIST OF CATS MENU+:+H11:H2NPUSS],T9$E9$:M9$(1)"See complete list of phenotypes":M9$(2)"See partial lis570g*T9$"What litter size do you want to use?":M92:M9$(1)"Variable":M9$(2)"Constant":MENU0:810*R91430,1420,10010*FF$;C8$"10;1fWhat size litter do you want? (3-8) ";:L73:L88:59205:T8271330*NKITS8:LSIZENKIT:570+X(1):NK$"Chosen Parents":H1QM:H2QD=)_H2H1TMPH1:H1H2:H2TMP)dFF$:SEL(2,P9%):C8$"1;13f"S9$;C8$"4d";:L1H2H1:N01:1550)i:)n * SUBROUTINE TO GET LITTER SIZE IN RANGE 3 TO 8 *)s:)xQ1QM:Q2QD*}LFLAG1NKITLSIZE:NKIT01430:0:R91405,1365,1345,10010O(ACFLAG1:S9$"Current Parents":H1Q1:H2Q2::1375(FNPUSS21365:QM1:QD2:GE%(QM,0)1QM2:QD1(K1370(P:(UMENU1:QM0:QD0:KM0:KD0:FF$;C8$"1;12fChoose parents.";:77,8175,8:77,10175,10:975)ZCFLAG2:S9T811300,10010:1105:1000"':6'# NEXT LITTER?<'(:N'-LFLAG01350'2RFLAG3:T9$E9$:M94:M9$(1)"Mate same parents":M9$(2)"Mate new parents":M9$(3)"List details of current parents":H94'7M9$(4)"Return to simulation menu":MENU1(<81U81:U98F&CH$"a "FE$(3JK)" cat too.":MN$(QD):JK1MN$(QM)o& MN$"only the "FE$(JK)" cat #"MN$&B8$;C8$"21;1f"C8$"J"C8$"22;"U8"fYou have chosen ";MN$;".";:C8$"23;"U9"fChoose ";CH$;&C8$"24;1f"RET$(0);'T8$:(F9$,T8$,1,T8):KDKNT1000:KD0KDKNT:1000F%PGPCTMPKD:KDKNT:KNTTMP:1265]%QDJK:KDKNT:1270q%HC0:950:1000%PGPC:1065:1000%((QM0)(QD0))1370:QMQD0U84:U99:MN$"neither parent":CH$"both parents.":1295 &JK2:U83:U97:QMJK1:5:1270B$PGPCHC6:950:QMJK:KMKNT1000:KM0KMKNT:1000i$PGPCTMPKM:KMKNT:KNTTMP:1265$QMJK:KMKNT:1270$C8$;2";32f"C8$"K";:FM$(2)" #"JK;$QDJKQD0:KD0:C8$;2";30f"C8$"K";:PGPC1265:1270%PGPCHC5:950:QDJK:PGPCPGPC:PCKNT:1065:KNTPCJ#HC6NS%(JK):HC01190:CTCT1:1195V#CTCT1#NS%(JK)HC:C8$;1";33f"C8$"K";:CT;CA$;:CT1ĺS$;#950:1000#:#C8$;1";30f"C8$"K";:FM$(1)" #"JK;$QMJKQM0:KM0:C8$;1";30f"C8$"K";:PGPC126L90L9L91:S8$(S8$,1,L9):C8$;"D"C8$"K";:1015S"YY27ĴRFLAG31330:10010c"B8$;:1015" ------------------------SAVE OR RELEASE CAT-------------------"KNTJK4(JK4):KNT0KNT4"PC(JKKNT)4:MENU1ĴGE%(JK,0)1215,1240 #A(1)W5D1A+A * AGOUTI *4AAG2FA(1)W6AG1LAzA *SUBROUTINE O D & A FOR ORANGE CATS*AOSX3:D4:LL2195:2100AA *SUBROUTINE O A & D FOR NON-ORANGE TABBY CATS*AOSXSX1:D4:(LL2)2195:FF2215G1@CXU3XU4AG2#@HW4ı8@M * O LOCUS *C@RX(1)S@WSX1ī2155[@\O3j@aXW1O5t@f2170@kXW2O1@pXW2XW3O2@uXW3O4@z@ *MACKEREL*@T2@(1)W4T1@1890@ *NON-DILUTE*AD2 *S LOCUS*?X(1):S4*?XV2S1>?XV2XV3S2Q? *D LOCUS*`? X(1):D4n?XV4D1?XV4XV5D2? *T LOCUS*? X(1):T4?%XU1T1?*XU1XU2T2?/W4ı?4 *A LOCUS*?9X(1):AG4@>XU3A)AG:GE%(JK,4)T:GE%(JK,5)O:GE%(JK,6)M:GE%(JK,7)W:180>NPUSSM81970:FF$;C8$"10dDo you want to add another cat?(Y/N)";:59000>R91735,1970,10010>H1NS:H2NPUSS:CDH2H11:250>:> *SUB W LOCUS*>W1>(1)V1W2 ?as on this tortie cat show tabby stripes?":M92:M9$(1)"Show tabby stripes":M9$(2)"Show no stripes"=810:AG4:R9M910010=R92215=NPUSSNPUSS1:JKNPUSS:SX1952:MSOM1:1955=FSOM19>GE%(JK,0)SX:GE%(JK,1)S:GE%(JK,2)D:GE%(JK,3LL2İ2235:FF1950:WW1:P89:S9$(1)"All"PO$(LL2)" cats ":S9$(2)"have tabby stripes.":S9$(3)"Give your cat a tabby pattern.":S93:870:S90:N01:100:1875<LL4İ2250:1950<O2:D4:LL42195:FF21950j=T9$"Do the black or grey areM9$(3)"Black"R;qM9$(4)"Grey":M9$(5)"Black and orange":M9$(6)"Grey and cream";vSX2S93:S9$(1)"The very rare male torties with":S9$(2)"black and orange stripes or":S9$(3)"grey and cream stripes are sterile!":M94;{810:LLR9:R9M9100108S94:810V8!R91840,1830,10010^8&S4h8+185580T9$"How much of the body do the white areas cover?":M92:M9$(1)"Less than half the body":M9$(2)"Half or more of the body":81095R9M910010Not all-white":810+7R91800,1805,10010;72020:1950C7 W47T9$"Does the cat have white areas?":M9$(1)"Some white areas":M9$(2)"No white areas"08S9$(1)"White areas refer to white regions":S9$(2)"on feet, legs, face or flanks.":S9$(3)"I:S9$(3)"of this cat.":S93:870:S90:100N6T9$"Does the cat have a tail?"k6M92:M9$(1)"Has a tail"6M9$(2)"Lacks a tail (manx)"6810:MR9:R91780,1780,100106M1M46T9$"Is the cat all-white?"7M92:M9$(1)"All-white":M9$(2)"$5870:S90:N00:100:MENU0:V923O5M92:T9$"What is the sex of the cat?"o5M9$(1)FM$(1):M9$(2)FM$(2)5810:SXR9:R93100105NPUSS11760*6P89:S9$(1)"Now, answer the following questions":S9$(2)"about coat color, pattern, and tail"s ESC to halt.";44SEL(0,P9%):("X-"):D$"PR#1":4@4:]4 *RECORD OF PHENOTYPE*c4:~4NSNPUSS1:NPUSS17354P89:S93:S9$(1)"You can enter up to 91 cats.":S9$(2)"For each cat you must decide":S9$(3)"on its sex and its phenotype."ist menu or Main menu*3wCFLAG1330,140003y:3D$" PR#0":("X+G+F+"):SEL(3,P9%):YY1680:C8$"23;1f"C8$"J"C8$"7`TERMINATE PRINTING? (Y/N)";359000:R911690::164533:4C8$"23;1f"C8$"J"C8$"11`Wait for printer.";C8$"24;11fPres::KNT12OIH1<2TYY(Q7):YY127Ĵ(YY155)1670:Q6,0Z2Y" "I" "SX$(GE%(I,0));2^" "PO$(PO%(I));PT$(PT%(I));PM$(GE%(I,6));PS$(PS%(I)):2`II1:IH216202cYY1:16702h:2mGTER$EL$3r100:CFLAG0ĴRFLAG01480:10010: LL$(1),PO$(6),PT$(2),PM$(4),PS$(2)9QlM8$(0)(31)"YyNn"JQvM8$(1)"Yes"ZQM8$(2)"No"yQTGL$(0)"on":TGL$(1)"off"QGT1((1101)6): (II+) = 1 , (IIE OR IIC) = 0Q:QK05:RET$(K):KQ " Press RETURN to continue."3R(4):F9$(27)R8$:UL$(95):BL$" "hPXE9$"Choose one of the following.":PE$"Press RETURN when ready"PbM999:GE%(M9,7),A(32),PS%(M9),PO%(M9),PT%(M9),NS%(M9),SC%(M9),P9%(28)!QfRET$(5),M9(5),M9$(6),V9(6),S9$(4),FE$(2),MF$(2),SX$(2),FM$(2),M8$(2),TG90)59215:S8$(S8$,L9):592150OcT82759245AOhB8$;:59215SOmFMT("C0"):YOr:_OB:O0("X+"):SLOT(1,XDDR):XDDR2XDDR3XDDR0O:("G+E1F+"):C8$(155):FF$;C8$"10;10fOne moment, please.";ODFF$(12):B8$(7):R8$(13)#PND$R8$("C1")5NJQ6,0:L90:S8$"":C8$;LY";"LX"f"C8$"K";HNOT8$:T8(T8$)NTT813Ĵ(L90)159240:S8(S8$):((S8L7)(L8S8)0)59245:B8$;:59210NYT847T858L92S8$S8$T8$:T8$;:L9L91:59215O^T88T8127ĭL90L9L91:C8$"D"C8$"K";:(L1:C8$;24";1f"C8$"K";:"Press 'Y' or 'N', then press RETURN.";:RFLAGē0,R6RW,R6^M59040uMR9R91:R91R92M59010MT71įC8$;24";1f"C8$"K";C8$;1"e";MR6170:M@ ------------- INTEGER INPUT -------NELY(37)1:LX(36)1:FMT>L毺C8$;V7";"H7"f"BL$;BL$;BL$;:R9įC8$;V7";"H7"f"M8$(R9);QLT8$:YY(T8$)oLYY13ĴR9059140:59120L(M8$(0),T8$,1,T8):T8R9(T82):59010LYY27R93:59140LR9059120:YY859134LYY127R90:T70:59010SMB8$;:T70T7 KZX(222):(X20)(X255)10AK_ï("X+G+E1F+"):FMT("C0S0")KdïC8$"10;1fError number "X" in line number "(219)256(218):100:10Kn:KxR6180:R90:T70:Q6,0:V7(37)1:H7(36)1LT71įC8$;24";1f"C8$"K";:T70:RFLAGĒ0:0,R6RW,R6:6UN00:1008JULFLAG0:LSIZE0:MS$"mate":STCT1NPUSSUJUII07:GE%(ST,II)0::|JUNPUSSCT:MSOM0:FSOM0:CT010010JUII1CT:GE%(II,0)1FSOM(11):MSOMIICT1JUGE%(II,0)2MSOM(11):FSOMIICT1JU:10010KP×:3288:N00:RFLAG2ST1CT0IUII07:GE%(ST,II)GE%(SC%(ST),II):sIUPO%(ST)PO%(SC%(ST)):PS%(ST)PS%(SC%(ST)):PT%(ST)PT%(SC%(ST))IUC8$;VT";5fOld cat no. ";SC%(ST);" is now cat no.";ST".":VTVT2IUKNTKNT1IUKNT9STCTKNT1:VT3:N02:100:FF$;IUST JHT:dHTI1NPUSS:NS%(I)0::FF$;C8$"1;7fChoose cats to save.";:42,8175,8:42,10175,10:975HU ---------------------------------START AGAIN----------------HUCT0:I1NPUSS:NS%(I)CTCT1:SC%(CT)IHU:CT021990IUFF$;:VT3:KNT1:;4fand save the current set of cats.";C8$"9;"LX"f";JGT0,R7RW,R7:59000dGTR921675,21990,10010GTNPUSS1įFF$;C8$"10;10fYou have only 1 cat.":C8$"13;6fCat number 1 has been saved.":CT1:21985GTMENU2:MS$"save"HT SELECT CATS TO SAVE 'FF$;C8$"10;10fOne moment, please.";:F'D$;"RUN MENU"@F*:XFT SAVE CATS MENU^FT:FTCT0:FF$;C8$"7;1fDo you want to save some cats for your"C8$"9;1fnext investigation? (Y/N)";:LX(36)13GTC8$V9";7fPress ESC to return to menu";C8$V91"'E'R9M9(1)MENU0:R7172:V923:1720HE'R9M9(2)N03:RFLAG0:1480[E'R9M9(3)1325oE'R9M9(4)21655E'R9M9(5)įC8$"21;1f"C8$"J"C8$;V9";7fAre you sure you want to";C8$;V91";7fend the simulation? (Y/N)";E'59000:R910200,10010,10010'FNPUSS0NPUSSM8M9M91:M9(1)M9:M9$(M9)"Add another cat"pDj'NPUSS0M9M91:M9(4)M9:M9$(M9)"Start again"Dt'M9M91:M9(5)M9:M9$(M9)"End this simulation"Dv'FF$;C8$"1;13fSimulation Menu";:83,8189,8Dx'T913M9:P9T93:R7156:V921D~'815:M9(R9)0::C8'N00:PP0:S90:M90:RFLAG1:MENU1:CFLAG0lCB'NPUSS0M9M91:M9(1)M9:M9$(M9)"Add a cat"CL'MSOMFSOMNPUSSM8M9M91:M9(3)M9:M9$(M9)"Produce a litter of kittens"CV'NPUSS0M9M91:M9(2)M9:M9$(M9)"Recall the list of cats">>"zM.12200M.N00:200:100:13000M/PI,DU:PI0įSOUND(PI,DU):12050M/M:/ 128,10,114,10,102,10,96,10,0,0ND/ 85,10,96,1m the menu. To restore it":S9$(4)"type CONTROL-S at the menu screen.":S94:11050L +P816:S9$(2)"the student may still turn":S9$(3)"the sound on or off.":S93L*+800:C8$"8;";LX"f";:1000L4+R9110030:SDSD:RFLAG3 M>+D$;"OPEN SOUND":D$;"WR"; K(2200K(:1012,(1011):(4)256(3)6K*:AK*FF$;K+C8$"7;13fDo you want":C8$"8;5fto turn the sound ";TGL$(SD);"? (Y/N)";:LX(36)1K +S9$(1)"If you answer 'Yes',"SL+SDP815:S9$(2)"the sound option will be removed":S9$(3)"fro'10,MUS:RFLAG2:D$;"RUN CATLAB"(J2(:IJ<(M9310400:MUS1MUS:10030OJ(:J(FF$;C8$;"10;5fTurn off the computer, or insert"::" another disk and press RETURN."J(2,64276,64276,1002,1002,64K(3:24:"Press ESC to return to the menu.RET$(2)" Press RETURN to continue."]"RET$(1)"Press RETURN to go on or ESC to menu.""RET$(0)RET$(1):((1101)6)63000:UPSH(RET$(0))":"Q616368:Q716384:V921:H96:R6176:R7156:RW279:RFLAG1"":A ZILLES@:A 54915:$(7):BL$" "!71008!:R8$(13):D$R8$(4):F8155F!DEC$"468"v!bRET$(2),M9$(4),V9(4),S9$(4),M8$(2),TGL$(1)!lM8$(0)(31)"YyNn"!vM8$(1)"Yes"!M8$(2)"No"!TGL$(0)"on":TGL$(1)"off"!:!T9$"Choose one of the following.")"or is securely closed.";C8$;"13;2fTry again. If it continues to fail";R8$;" then you may have a bad disk." :RFLAG3N01:F9F8 :200:RFLAG10010,10030,11070 .: 0R8$(13):D$R8$(4):F8155 2:D$;"BRUN CAT.KIT"!5FF$(12):C8$(155):B8"X" in line number "(219)256(218):200:10:YY1įFF$;C8$;"10;6fRemove write protection tab";R8$;" from the edge of the diskette";R8$;" and try again."j :YY1įFF$;C8$;"10;2fBe sure the CATLAB disk is in DRIVE 1";R8$;" and the drive doD=1; NO SOUND=0)XDMUS(10)9XN 48,110,50,80,50,30PXX 56,110,59,100kXb 64,100,60,110,56,200Xl 64,80,64,30,60,100Xv 56,100,53,100,50,200X 0,0X 0,0XoSION AUG., 1986 BY BARBARA ZILLES@:@: AW " grey and cream tortie"8WK02:PT$(K):KjW ""," mackerel tabby"," blotched tabby"WK02:PS$(K):KW "",", with extensive white ",", with some white "WPM$(4)"":PM$(2)" manx"W:X& SOUND PARAMETER (SOUN(163)" or "(164)" key to see more cats."=VMS$"mate"]VM892: MAX TOTAL # CATSVF8$(11)(10):GTF8$(8)(21)V:VK06:PO$(K):KV " white"," black"," grey"," orange"V " cream"," black and orange tortie"":W5.49:W6.15UJ:*UYCA$" Cat":S$"s"DU^SX$(1)"F":SX$(2)"M"fUhFE$(1)"female":FE$(2)"male"UrFM$(1)"Female":FM$(2)"Male"U|MF$(1)"mo":MF$(2)"fa".VUSAD$"Press the "(161)" or "(162)" key to see more cats.":GTUSAD$"Press the ".TBL32:Q616368:Q716384:RFLAG1:6:BK14TNPUSS0:FSOM0:MSOM0:G2:H6:N833:LFLAG0:LSIZE0:RFLAG1:H96:V921:R7172:S7180:R6170:RW278T"V1.02:V2.1:V3.54:V4.43:V5.88:U1.084:U2.49:U3.07:U4.47:HALF.5U,W1.83:W2.68:W3.97:W4.17 to continue.")SES$" or ESC to menu."fSGT1āK45:UPSH(RET$(K))::EL$ER$:EC$ER$:UPSH(EC$)lSR:S\FMT("WT1 WD21 WL1 WW40 S0 C0"):C8$;" F";:SET(2,P9%)SfFMT("WD24"):SET(3,P9%)SpFMT("WT4 WD16"):SET(1,P9%):SEL(3,P9%)S: "Press RETURN to continue or ESC to menu."eR " Press RETURN to see more of the list"R " Press D to display cats"R " Press P to list phenotypes"R " Press RETURN to display more cats"SER$"or RETURN3333  33?3> >ԪժԂ? ?3ЪԪժՂŪբՂ333 33 >3 >33 33>ժժ33 3 33>ժՂՊ3;33 33> 33> 3?>33333  33330 0ժժՂ3 3ԪժŪՂՂ333 3?3 33 330Ԫժ33 ? 330ժՂ3?33 3330 330 330ժժժժժժժժժժժՂ3>>33 ժժՂ33 33ժժԊ? 333 >3>3 3ЪѪժՂ338 3333Ԫժ3>Ūբ33733 >3 33ժժժժժժժժժժժՂժժժժժժժժժժժժժժժժժժժժ0?0   ՊЪՂ`c?ժժԊ 333 3 306 636333 6333 330 ЪѪժՂ p<3 ЪՊժժժժժժժժժժժՂ<0 ?3 ՠ33??0                ` ( ( ( ( ( (L(Uг p  p p p p p p`L, 3FL3H 3h 0 3mL3   ȱ >Б     Z H)hZ % $mZ  3; 3) 0 3 w ` H -h`  8`H h8`WXiWiWXNXnWWi WXXȱWLWXXȭW눭X`!V8`ȱ`ȱi`ȱ#i i mТ `SET 6' SEL : ENQ%S  V  `LVH 30 3 whH ) 3H hh "   ;" #(!) )|  2 3, 1L  JL  JL L JL  JL  ;L  JL`$0 :) mmLO `-` `! -0+10 : ) !8``H ,h`0LLm) @!8`W%L*S CnPT O?X+BDBLLL0L'LL  ) L - )L  )L\-  L ?   jjjL\ȢS Q H DL L TDL"W1L> ;/&`LL  A`  $%61,;A {$0 4 L; `$ !i)$ )(8`(ʊ$ LC ^ 檠^ ^ IFMTe E(ȱȱ F)/ʽG&$0 L7968 L.$ ) ^L) L $@L )TL )RL )PW0  L--LJJ)2 )7 L i /. L 0. `+ 1- 02!8`EE@ $ }׮)Jjע@|}IFLH$0F GXCDEF L/CDE ( P 8pICKHSEIXWPDFGM ^ ````L`T ! ,0L`ȍ5ʆ5L ,ԩB8`$ L80 `!8` ]L Lqq΅ȥr΅`J2`ȱȱ`UPSH!DNSH ,ȱŰů# RqqȥrA[a {)` )  #3 @ٕM@ HHyȱ8i 8 8qqȱHHH8 qHȱLTRAN!΅ȱ΅ȱ΅Űů# R  _ _ 0 _ ) 0L_ 8Єτ 枱0枱0 _ LH _ HHHHHHH hhhhhhh` HQhhh$8`h hΈh`hh eΪeϨ +` +7íֱéԍّLf +Lf  L @ ߩȥ%$  %Lvݩ ߩȥL+ ȥ) iLa eȱel  _ &8'ȱ ] eȱe` qɻȱHV _ hHJJJJ  . _ h   `H h` ` m  eȱe ei ޠ>Ȅ0m к t $L ڭ _ WLԩ ` ޤ)ץ) JJ X_LD H,(h  AL { lݠURLf gh ȥ &'  `L+L =   (  : ( )*4 L"  Lt eȱeƭɯ+ɼL ɀ(ɻ  L AL ?Ly                 fand save the current set of cats.";C8$"9;"LX"f";HGT0,R7RW,R7:59000bGTR921675,21990,10010GTNPUSS1įFF$;C8$"10;10fYou have only 1 cat.":C8$"13;6fCat number 1 has been saved.":CT1:21985GTMENU2:MS$"save"GT SELECT CATS TO SAVE 'FF$;C8$"10;10fOne moment, please.";9F'D$;"RUN MENU"?F*:VFT SAVE CATS MENU\FT:FTCT0:FF$;C8$"7;1fDo you want to save some cats for your"C8$"9;1fnext investigation? (Y/N)";:LX(36)11GTC8$V9";7fPress ESC to return to menu";C8$V91";4E'R9M9(1)MENU0:R7172:V923:1720GE'R9M9(2)N03:RFLAG0:1480ZE'R9M9(3)1325nE'R9M9(4)21655E'R9M9(5)įC8$"21;1f"C8$"J"C8$;V9";7fAre you sure you want to";C8$;V91";7fend the simulation? (Y/N)";E'59000:R910200,10010,10010&FNPUSS0NPUSSM8M9M91:M9(1)M9:M9$(M9)"Add another cat"oDj'NPUSS0M9M91:M9(4)M9:M9$(M9)"Start again"Dt'M9M91:M9(5)M9:M9$(M9)"End this simulation"Dv'FF$;C8$"1;13fSimulation Menu";:83,8189,8Dx'T913M9:P9T93:R7156:V921D~'815&M9(R9)0:9C8'N00:PP0:S90:M90:RFLAG1:MENU1:CFLAG0kCB'NPUSS0M9M91:M9(1)M9:M9$(M9)"Add a cat"CL'MSOMFSOMNPUSSM8M9M91:M9(3)M9:M9$(M9)"Produce a litter of kittens"CV'NPUSS0M9M91:M9(2)M9:M9$(M9)"Recall the list of cats";D`' MAIN DRIVER & MENUB':*B'62000:1720B'(NPUSSM8)10030:S9$(1)"You have reached the limit of cats":S9$(2)"allowed in the simulation."B$'S9$(3)"Start again with fewer than 91 cats.":P89:S93:870:N00:RFLAG2:100:RFLAG1 C.'T9$E9$:R915:mwyw0 , 0Φ` e$e%$%`$%$H+!#3)%$!!ʩ ## +, I--, -m,e" -m, -m, e h$+` &'`#L v wJxw vO ! ,% QQ! QQ00! ,  0 xL`I` I``ϥ ϕe Υi` vvʆx9 I`e hM 歕`%%8 F %e"#i Fi  `@ e @ %Έ  @ ` I``H,hQ`H ,hQ`h` )@`  p w ) ) 8LHH  hh`1984 CONDUIT`$! e  yp l^$Ze x mΥ%'8  Υ )   `Ά8)* & &yȥyHp ywL)-0 0``   ɶvmxwyLLL8$Im`ppIȢ  p` ޴p58pʠ) ޴pȢ8pȈ8pȈrʩLpIp`pG* , RpllR bHaH`Fll ``ѶѶȶȶge3 JKS`adefmDBCAvٳvɴ9촩  ɶmL8 p wv yxp p mvx  w y LOAD G0 IN PLACE OF G1 FOR ERROR MESSAGESo @(4);"BLOAD G1,A$BC00" B(4);"BLOAD G0,A$B900" F(4);"BLOADDD.LOADER" P45056:TURN ON DISPLAY DRIVER Q1010,248:1011,31:1169 RY171:6 T0,Y27: 54915 214,255g 8184,32:8185,234:8186,3:8187,162:8188,20:8189,76:8190,18:8191,212 1010,248:1011,31:1169 :45056 12:11:"ONE MOMENT, PLEASE." ((4);"BLOAD TITLE.PIC" *230,32:SET GRAPHICS PAGE POINTER$ 21 8" Program: BIO391A^ PACKAGE: BIO391A: CATLAB SECOND EDITION v2.0/8-86  COPYRIGHT (c) 1982,1986 by J. K. Kinnear Published by CONDUIT - The University of Iowa Last revision JUNE, 1986 by Barbara Zilles etics Simulation";:0,0RW,0:0,2RW,2:0,34RW,34:0,36RW,36a`'T915M9:P9T93:F9F8:RFLAG2wj'700:YY1911000t'R912000,10200,10300,10400':'FF$;C8$"10;10fOne moment, please.";'10,MUS:RFLAG2:D$;"RUN CATLAB"2(:<(M93104;"OPEN SOUND":D$;"READ SOUND"?$'SD:MUSSD:D$;"CLOSE SOUND"`.'M9$(1)"Read an explanation"8'M9$(2)"Run the simulation"B'M9$(3)"End this session"L'M93:SDM94:M9$(4)M9$(3):M9$(3)"Turn sound "TGL$(MUS)>V'6:FF$;C8$"3;6fCATLAB: A Gen27R93:1130'.R901090:YY81110C8YY127R90:T70:1010BB8$;:T70T71:C8$;24";1f"C8$"K";:"Press 'Y' or 'N', then press RETURN.";L1030VR9R91:R91R92`1010jT71įC8$;24";1f"C8$"K";t~:'15000'D$Q6,0:V7(37)1:H7(36)1]T71įC8$;24";1f"C8$"K";:T70: -----?23? and in 1090,1130C8$;V7";"H7"f"BL$;BL$;BL$;:R9įC8$;V7";"H7"f"M8$(R9);T8$:YY(T8$)YY13ĴR901130:1090(M8$(0),T8$,1,T8):T8R9(T82):1010 $YYK))2):C8$;P8K";"H7"f"S9$(K);:H7H6H6H7:H8(36)1O *:P6P81:P8P6S9 4X6H6717:Y6P6820:X8H873:Y8P884:X6,Y6X8,Y6X8,Y8X6,Y8X6,Y6:X61,Y61X81,Y61X81,Y81X61,Y81X61,Y61: >:  YES/NO INPUT :R90:T70:  :  MENU :A C8$;P9";2f"T9$:6:0,R7RW,R7w C8$;V9";3fPress a NUMBER key to make or change" C8$;V91";5fyour choice, then press RETURN."; 500:T9(T8$): :  BLOCK TEXT :8 H640:K1S9:H721((S9$(YY127R90:HC0:640:540( DYY19ı7 NB8$;:540K XR90HC0:640Y bR9(T8$)l lHC6:630:540 vV6(V9(R9)1)85:H6(J91)74:V7V614:H7H6(M9$(R9))77 HC:H6,V6H7,V6H7,V7H6,V7H6,V6 H71,V6H71,V7 H61,V6H61,V7:N00100:RFLAG3SDSD% 10030+ :D  INPUT SUB FOR MENUJ :S R90| I91M9:C8$;T9";"H9"f"I9;:". "; M9$(I9);:V9(I9)T9:T9T92::J9H94 Q6,0 T8$:YY(T8$) &YY13ĴR90670:590 0YY48YYM948600 :YY80000 c:4 d::("X+G+E1F+"):FMT("C0S0"):GT0: x@ : ----------------------------------CONTINUE OR ESCAPE----- : 24:1:RET$(N0); N0ē0,R6RW,R6 Q6,0 YY(Q7):YY128230:YYF9250:YY141240:B8$;:220   10 PROGRAM: MENUG PACKAGE: BIO391A: CATLAB V2.0/8-86v COPYRIGHT (C) 1982,1986 BY J. F. KINNEAR PUBLISHED BY CONDUIT - THE UNIVERSITY OF IOWA LAST REVISION SEPT, 1986 BY BARBARA ZILLES: 54915:62000 1           *M9$(I9);:V9(I9)T9:T9T92::J9H944Q6,0GT8$:YY(T8$)cYY13Ĵ(R90)790:755|YY48YYM948760YY0ĭ((T8$,1))83YY8YY8YY127R90:HC0:780:725YY27ĭMENU0R9M91:790B8$;:725R90HC0:%(JK,5)5:660$GE%(JK,5)GD:6604GE%(JK,5)2A180:JKaNPUSSH2:LFLAG1:MUS0680PI,DU:PI0įSOUND(PI,DU):670MUS0CFLAG0:RFLAG1:250: INPUT SUB FOR MENU:R90I91M9:C8$;T9";"H9"f"I9;:". ";)HALFGD1/]GE%(JK,I)2:GMGDGE%(JK,I)GM6bITgGMGE%(Q1,5):GDGE%(Q2,5)slGM2GM1:(1)HALFGM4vGD3GD1:(1)HALFGD3:GE%(JK,0)2{GD5GD4:(1)HALFGD3:GE%(JK,0)2GMGDGE%(JK,5)GM:660(GD3)655:GM4GE KITTIES' GENOTYPE *0:N:FF$;C8$"11;6fPlease wait. Kittens coming.";k<H1NPUSS1:H2NPUSSNKITy?JKH1H2DGE%(JK,0)1II17:I5I6NGMGE%(Q1,I):GDGE%(Q2,I):GM2GM4:(1)HALFGM1:I6GE%(JK,6)2:610 XGD2GD4:(12:G6,HI:+A(8):I222:G6,HI:YG3(G2):JK;BL$;SX$(GE%(JK,0));:GG10tG42G2:H23:22:1:GTER$EC$ G2:H6:N04:150: PRESS RETURN TO SEE MORE:!KNT0:15:G2:H6:N05:150&:+ * GETH,H1G:H,H1G20A(2):G1,H2:G,G2H3GA(3):H8,H9G1`A(4):H10,H11G1wA(5):H8,H9G6A(6):H10,H11G6NW4:NX1I932A(I)GNX,HNWNWNW1NW8NW4:NXNX1I A(7):I33:A(6)CV#PS%(JK)1425,395,4209I212:A(I)15:PI2732:A(I)15:iI15234:A(I)15:I16244:A(I)15:425A(4)15:A(6)15:A(9)15:A(10)15GE%(JK,6)2A(7)BK:A(8)BKA(0):G,H2:G2,H2A(1):G1,H1::CV15OPT%(JK)1365/TI132:A(I)CU:MYA(2)CV:A(7)CV:A(32)CV:u^A(14)CV:A(15)CV:A(18)CV:A(19)CVcI22282:A(I)CV:h385mI132:A(I)CU:rA(2)CV:A(8)CVwI13298|KII3:A(K)CV::PO1PO3A(3)CVPO%(JK):PO6CU5:CV13:3006PO5CU0:CV9:300JPT%(JK)0315_"CU0:PO2CU10z'I132:A(I)CU::390,I132:A(I)CU1X(1):XHALFA(I)CV6I:390;CU9:CV13@PO4CU13:CV15EPO1CU0:CV10JPO2CU10(JK)1:AFLAG(AG4). D4PO%(JK)PO%(JK)1R AFLAGPT%(JK)1:T4PT%(JK)2X ^ :r Display Catsx : 900 KNT0:JKH1H2 KNT0Ė1:21:"CAT #"; A(0)12:KNTKNT1:KNT8545 PO%(JK)0āI132:A(I)15::425POа: *ASSIGN PHENOTYPE*% :G PO%(JK)0:PT%(JK)0:PS%(JK)0Z GE%(JK,7)4ı SGE%(JK,1):DGE%(JK,2):AGGE%(JK,3):TGE%(JK,4):OGE%(JK,5) S4PS%(JK)S O2PO%(JK)5:AFLAG(AG4):215 O4PO%(JK)3:AFLAG(11):215 PO% 9)ER$;39); Q6,0 YY(Q7):(YY128)160:YYYY128:((YY13)(YY27)(N05)((YY80)(YY112))(N04))165:B8$;:158 ("X+G+E1F+")::SEL(3,P9%):RFLAG0ĭYY13ĭN05İ900:260 ((YY13)(YY27))175:1545 RFLAG10010:1480 (YY$):YY27ĴRFLAG2135::RFLAG10010,1330,1330:1480X xYY13135:YY90YYYY32p }N03ĭYY68ġ:250 B8$;:115 : -------------------------LO-RES CONTINUE OR ESCAPE----- 23:1:RET$(N0);:41:N05ĺ11)ES$;40);:158 :54915 62000" 50000, 17202 Z:| _ ------------------------------CONTINUE OR ESCAPE---------------- a: dC8$;23";1f"C8$"J";:RET$(N0);:(N02)įC8$"24;11f"ES$; i(N03)įC8$"24;9f"ER$; n0,R6RW,R6:Q6,09 sYY$:YYP 10$ PROGRAM: CATLABQ PACKAGE: BIO391A: CATLAB V2.0/8-86 COPYRIGHT (C) 1982,1986 BY J. F. KINNEAR PUBLISHED BY CONDUIT - THE UNIVERSITY OF IOWA LAST REVISION AUG., 1986 BY BARBARA ZILLES::                          ,0&X/ 76,10,85,10,91,10,102,10,0,0Jb/ 102,10,91,10,81,10,76,10,0,0ml/ 68,10,76,10,81,10,91,10,0,0v/ 96,10,85,10,76,10,72,10,0,0/ 64,10,72,10,76,10,85,10,0,0/ 85,10,76,10,68,10,64,10,0,0G/ 64,20,85,20,102,20,128,60,114,0.:9.:("X-G-")::GT1:13:21:"<<< CATLAB >>>"D.12200^.N00:200:100:13000/PI,DU:PI0įSOUND(PI,DU):12050/:/ 128,10,114,10,102,10,96,10,0,0D/ 85,10,96,10,102,10,114,10,0,0N/ 114,10,102,10,91,10,85,10,0the menu screen.":S94:11050n +P816:S9$(2)"the student may still turn":S9$(3)"the sound on or off.":S93*+800:C8$"8;";LX"f";:10004+R9110030:SDSD:RFLAG3>+D$;"OPEN SOUND":D$;"WRITE SOUND"H+SD;:D$;"CLOSE SOUND"R+MUSSD:1003 *FF$;d+C8$"7;13fDo you want":C8$"8;5fto turn the sound ";TGL$(SD);"? (Y/N)";:LX(36)1 +S9$(1)"If you answer 'Yes',"+SDP815:S9$(2)"the sound option will be removed":S9$(3)"from the menu. To restore it":S9$(4)"type Control-S at 00:MUS1MUS:10030(:x(FF$;C8$;"10;5fTurn off the computer, or insert"::" another disk and press RETURN."(2,64276,64276,1002,1002,64(3:24:"Press ESC to return to the menu.";(220(:1012,(1011):(4)256(3)*:etics Simulation";:0,0RW,0:0,2RW,2:0,34RW,34:0,36RW,36a`'T915M9:P9T93:F9F8:RFLAG2wj'700:YY1911000t'R912000,10200,10300,10400':'FF$;C8$"10;10fOne moment, please.";'10,MUS:RFLAG2:D$;"RUN CATLAB"2(:<(M93104;"OPEN SOUND":D$;"READ SOUND"?$'SD:MUSSD:D$;"CLOSE SOUND"`.'M9$(1)"Read an explanation"8'M9$(2)"Run the simulation"B'M9$(3)"End this session"L'M93:SDM94:M9$(4)M9$(3):M9$(3)"Turn sound "TGL$(MUS)>V'6:FF$;C8$"3;6fCATLAB: A Gen27R93:1130'.R901090:YY81110C8YY127R90:T70:1010BB8$;:T70T71:C8$;24";1f"C8$"K";:"Press 'Y' or 'N', then press RETURN.";L1030VR9R91:R91R92`1010jT71įC8$;24";1f"C8$"K";t~:'15000'D$Q6,0:V7(37)1:H7(36)1]T71įC8$;24";1f"C8$"K";:T70: -----?23? and in 1090,1130C8$;V7";"H7"f"BL$;BL$;BL$;:R9įC8$;V7";"H7"f"M8$(R9);T8$:YY(T8$)YY13ĴR901130:1090(M8$(0),T8$,1,T8):T8R9(T82):1010 $YYK))2):C8$;P8K";"H7"f"S9$(K);:H7H6H6H7:H8(36)1O *:P6P81:P8P6S9 4X6H6717:Y6P6820:X8H873:Y8P884:X6,Y6X8,Y6X8,Y8X6,Y8X6,Y6:X61,Y61X81,Y61X81,Y81X61,Y81X61,Y61: >:  YES/NO INPUT :R90:T70:  :  MENU :A C8$;P9";2f"T9$:6:0,R7RW,R7w C8$;V9";3fPress a NUMBER key to make or change" C8$;V91";5fyour choice, then press RETURN."; 500:T9(T8$): :  BLOCK TEXT :8 H640:K1S9:H721((S9$(YY127R90:HC0:640:540( DYY19ı7 NB8$;:540K XR90HC0:640Y bR9(T8$)l lHC6:630:540 vV6(V9(R9)1)85:H6(J91)74:V7V614:H7H6(M9$(R9))77 HC:H6,V6H7,V6H7,V7H6,V7H6,V6 H71,V6H71,V7 H61,V6H61,V7:N00100:RFLAG3SDSD% 10030+ :D  INPUT SUB FOR MENUJ :S R90| I91M9:C8$;T9";"H9"f"I9;:". "; M9$(I9);:V9(I9)T9:T9T92::J9H94 Q6,0 T8$:YY(T8$) &YY13ĴR90670:590 0YY48YYM948600 :YY80000 c:4 d::("X+G+E1F+"):FMT("C0S0"):GT0: x@ : ----------------------------------CONTINUE OR ESCAPE----- : 24:1:RET$(N0); N0ē0,R6RW,R6 Q6,0 YY(Q7):YY128230:YYF9250:YY141240:B8$;:220   10 PROGRAM: MENUG PACKAGE: BIO391A: CATLAB V2.0/8-86v COPYRIGHT (C) 1982,1986 BY J. F. KINNEAR PUBLISHED BY CONDUIT - THE UNIVERSITY OF IOWA LAST REVISION SEPT, 1986 BY BARBARA ZILLES: 54915:62000 1        z #??      R"Ġ¬ĠΠԠéȠҠֲϳǰDZĮҠ ԮԠŮà!ՠ???L0>3>333330>333>33>0?333 33 ??33333333333>33>00063333>333 33??3 3333>0? ?8  8 0???? 3;;33?33333333333???>;3333?333 <3;3???33337?;3333333333;>33333? 3333333 333??3 333 ? ? 0  3 66( >0 363?> 00  ?? ? > 0 3;738<630?0333?0 33333>8   >>  3    L ? ? ? 33367 63763 663 666766 336666> 3666?77 ; ? 3?> 6II63<6?3  0 00  < << <<      `0?663??3 3??66666? ??  ? ? ~ ? ????AUEEUA 66> ? ?????  >0 0>? ? 330?33???33??0 ??? ??6666663333??3333>??>?00?0>?   mwyw0 , 0Φ` e$e%$%`$%$H+!#3)%$!!ʩ ## +, I--, -m,e" -m, -m, e h$+` &'`#L v wJxw vO ! ,% QQ! QQ00! ,  0 xL`I` I``ϥ ϕe Υi` vvʆx9 I`e hM 歕`%%8 F %e"#i Fi  `@ e @ %Έ  @ ` I``H,hQ`H ,hQ`h` )@`  p w ) ) 8LHH  hh`1984 CONDUIT`$! e  yp l^$Ze x mΥ%'8  Υ )   `Ά8)* & &yȥyHp ywL)-0 0``   ɶvmxwyLLL8$Im`ppIȢ  p` ޴p58pʠ) ޴pȢ8pȈ8pȈrʩLpIp`pG* , RpllR bHaH`Fll ``ѶѶȶȶge3 JKS`adefmDBCAvٳvɴ9촩  ɶmL8 p wv yxp p mvx  w y Б     Z H)hZ % $mZ  3; 3) 0 3 w ` H -h`  8`H h8`WXiWiWXNXnWWi WXXȱWLWXXȭW눭X`!V8`ȱ`ȱi`ȱ#i i mТ `SET 6' SEL : ENQ%S  V  `LVH 30 3 whH ) 3H hh "   ;" #(!) )|  2 3, 1L  JL  JL L JL  JL  ;L  JL`$0 :) mmLO `-` `! -0+10 : ) !8``H ,h`0LLm) @!8`W%L*S CnPT O?X+BDBLLL0L'LL  ) L - )L  )L\-  L ?   jjjL\ȢS Q H DL L TDL"W1L> ;/&`LL  A`  $%61,;A {$0 4 L; `$ !i)$ )(8`(ʊ$ LC ^ 檠^ ^ IFMTe E(ȱȱ F)/ʽG&$0 L7968 L.$ ) ^L) L $@L )TL )RL )PW0  L--LJJ)2 )7 L i /. L 0. `+ 1- 02!8`EE@ $ }׮)Jjע@|}IFLH$0F GXCDEF L/CDE ( P 8pICKHSEIXWPDFGM ^ ````L`T ! ,0L`ȍ5ʆ5L ,ԩB8`$ L80 `!8` ]L Lqq΅ȥr΅`J2`ȱȱ`UPSH!DNSH ,ȱŰů# RqqȥrA[a {)` )  #3 @ٕM@ HHyȱ8i 8 8qqȱHHH8 qHȱLTRAN!΅ȱ΅ȱ΅Űů# R  _ _ 0 _ ) 0L_ 8Єτ 枱0枱0 _ LH _ HHHHHHH hhhhhhh` HQhhh$8`h hΈh`hh eΪeϨ +` +7íֱéԍّLf +Lf  L @ ߩȥ%$  %Lvݩ ߩȥL+ ȥ) iLa eȱel  _ &8'ȱ ] eȱe` qɻȱHV _ hHJJJJ  . _ h   `H h` ` m  eȱe ei ޠ>Ȅ0m к t $L ڭ _ WLԩ ` ޤ)ץ) JJ X_LD H,(h  AL { lݠURLf gh ȥ &'  `L+L =   (  : ( )*4 L"  Lt eȱeƭɯ+ɼL ɀ(ɻ  L AL ?Ly            3333  33?3> >ԪժԂ? ?3ЪԪժՂŪբՂ333 33 >3 >33 33>ժժ33 3 33>ժՂՊ3;33 33> 33> 3?>33333  33330 0ժժՂ3 3ԪժŪՂՂ333 3?3 33 330Ԫժ33 ? 330ժՂ3?33 3330 330 330ժժժժժժժժժժժՂ3>>33 ժժՂ33 33ժժԊ? 333 >3>3 3ЪѪժՂ338 3333Ԫժ3>Ūբ33733 >3 33ժժժժժժժժժժժՂժժժժժժժժժժժժժժժժժժժժ0?0   ՊЪՂ`c?ժժԊ 333 3 306 636333 6333 330 ЪѪժՂ p<3 ЪՊժժժժժժժժժժժՂ<0 ?3 ՠ33??0           02,10,91,10,85,10,0,09X/ 76,10,85,10,91,10,102,10,0,0]b/ 102,10,91,10,81,10,76,10,0,0l/ 68,10,76,10,81,10,91,10,0,0v/ 96,10,85,10,76,10,72,10,0,0/ 64,10,72,10,76,10,85,10,0,0/ 85,10,76,10,68,10,64,10,0,0Z/ 64,20,85,20D"R+MUSSD:10030.:L.:("X-G-")::GT1:13:21:"<<< CATGEN >>>"W.12200q.N00:200:100:13000/PI,DU:PI0įSOUND(PI,DU):12050/:/ 128,10,114,10,102,10,96,10,0,0D/ 85,10,96,10,102,10,114,10,0,0N/ 114,10,1"type Control-S at the menu screen.":S94:11050 +P816:S9$(2)"the student may still turn":S9$(3)"the sound on or off.":S93*+800:C8$"8;";LX"f";:10004+R9110030:SDSD:RFLAG3>+D$;"OPEN SOUND":D$;"WRITE SOUND"H+SD;:D$;"CLOSE SOUN4)256(3)*:*FF$;w+C8$"7;13fDo you want":C8$"8;5fto turn the sound ";TGL$(SD);"? (Y/N)";:LX(36)1 +S9$(1)"If you answer 'Yes',"0+SDP815:S9$(2)"the sound option will be removed":S9$(3)"from the menu. To restore it":S9$(4)2(:&<(M9310400:MUS1MUS:10030,(:(FF$;C8$;"10;5fTurn off the computer, or insert"::" another disk and press RETURN."(2,64276,64276,1002,1002,64(3:24:"Press ESC to return to the menu.";(220 (:1012,(1011):($"3;6fCATLAB: A Genetics Simulation";:0,0RW,0:0,2RW,2:0,34RW,34:0,36RW,36t`'T915M9:P9T93:F9F8:RFLAG2j'700:YY1911000t'R912000,10200,10300,10400':'FF$;C8$"10;10fOne moment, please.";'10,MUS:RFLAG2:D$;"RUN CATLAB" 'RFLAG11'D$;"OPEN SOUND":D$;"READ SOUND"R$'SD:MUSSD:D$;"CLOSE SOUND"s.'M9$(1)"Read an explanation"8'M9$(2)"Run the simulation"B'M9$(3)"End this session"L'M93:SDM94:M9$(4)M9$(3):M9$(3)"Turn sound "TGL$(MUS)QV'6:FF$;C83:1130".R901090:YY81110>8YY127R90:T70:1010BB8$;:T70T71:C8$;24";1f"C8$"K";:"Press 'Y' or 'N', then press RETURN.";L1030VR9R91:R91R92`1010jT71įC8$;24";1f"C8$"K";t~:'M94:62000:15000V7(37)1:H7(36)1XT71įC8$;24";1f"C8$"K";:T70: -----?23? and in 1090,1130C8$;V7";"H7"f"BL$;BL$;BL$;:R9įC8$;V7";"H7"f"M8$(R9);T8$:YY(T8$)YY13ĴR901130:1090(M8$(0),T8$,1,T8):T8R9(T82):1010$YY27R9):C8$;P8K";"H7"f"S9$(K);:H7H6H6H7:H8(36)1J *:P6P81:P8P6S9 4X6H6717:Y6P6820:X8H873:Y8P884:X6,Y6X8,Y6X8,Y8X6,Y8X6,Y6:X61,Y61X81,Y61X81,Y81X61,Y81X61,Y61: >:  YES/NO INPUT :R90:T70:Q6,0: :  MENU :< C8$;P9";2f"T9$:6:0,R7RW,R7r C8$;V9";3fPress a NUMBER key to make or change" C8$;V91";5fyour choice, then press RETURN."; 500:T9(T8$): :  BLOCK TEXT :3 H640:K1S9:H721((S9$(K))227R90:HC0:640:540# DYY19ı2 NB8$;:540F XR90HC0:640T bR9(T8$)g lHC6:630:540 vV6(V9(R9)1)85:H6(J91)74:V7V614:H7H6(M9$(R9))77 HC:H6,V6H7,V6H7,V7H6,V7H6,V6 H71,V6H71,V7 H61,V6H61,V7 0100:RFLAG3SDSD 10030& :?  INPUT SUB FOR MENUE :N R90w I91M9:C8$;T9";"H9"f"I9;:". "; M9$(I9);:V9(I9)T9:T9T92::J9H94 Q6,0 T8$:YY(T8$) &YY13ĴR90670:590 0YY48YYM948600 :YY8YY1 c:/ d::("X+G+E1F+"):FMT("C0S0"):GT05 x; :z ----------------------------------CONTINUE OR ESCAPE----- : 24:1:RET$(N0); N0ē0,R6RW,R6 Q6,0 YY(Q7):YY128230:YYF9250:YY141240:B8$;:220  :N0 10PROGRAM: MENU W PACKAGE: BIO391A: CATLAB SECOND EDITION V2.0/8-86COPYRIGHT (C)1982,1986 J. F. KINNEARPUBLISHED BY CONDUIT - THE UNIVERSITY OF IOWALAST REVISION AUGUST,1986 BY KEN DAIKER: 54915:10000             9(I9)T9:T9T92::J9H94$Q6,07T8$:YY(T8$)SYY13Ĵ(R90)790:755lYY48YYM948760YY0ĭ((T8$,1))83YY8YY8YY127R90:HC0:780:725YY27ĭMENU0R9M91:790B8$;:725R90HC0:780R9(T8$GE%(JK,5)GD:660$GE%(JK,5)21180:JKQNPUSSH2:LFLAG1:MUS0680uPI,DU:PI0įSOUND(PI,DU):670MUS0CFLAG0:RFLAG1:250: INPUT SUB FOR MENU:R90I91M9:C8$;T9";"H9"f"I9;:". ";M9$(I9);:VGE%(JK,I)2:GMGDGE%(JK,I)GM&bIDgGMGE%(Q1,5):GDGE%(Q2,5)clGM2GM1:(1)HALFGM4vGD3GD1:(1)HALFGD3:GE%(JK,0)2{GD5GD4:(1)HALFGD3:GE%(JK,0)2GMGDGE%(JK,5)GM:660(GD3)655:GM4GE%(JK,5)5:660PE * 0:>:FF$;C8$"11;6fPlease wait. Kittens coming.";[<H1NPUSS1:H2NPUSSNKITi?JKH1H2yDGE%(JK,0)1II17:I5I6NGMGE%(Q1,I):GDGE%(Q2,I):GM2GM4:(1)HALFGM1:I6GE%(JK,6)2:610XGD2GD4:(1)HALFGD1]A(8):I222:G6,HI:IG3(G2):JK;BL$;SX$(GE%(JK,0));:GG10dG42G2:H23:22:1v:GTER$EC$ G2:H6:N04:150: PRESS RETURN TO SEE MORE:!KNT0:15:G2:H6:N05:150&:+ * GET KITTIES' GENOTY2 A(2):G1,H2:G,G2H37A(3):H8,H9G1PA(4):H10,H11G1gA(5):H8,H9G6A(6):H10,H11G6NW4:NX1I932A(I)GNX,HNWNWNW1NW8NW4:NXNX1IA(7):I332:G6,HI:%(JK)1425,395,420)I212:A(I)15:@I2732:A(I)15:YI15234:A(I)15:rI16244:A(I)15:{425A(4)15:A(6)15:A(9)15:A(10)15GE%(JK,6)2A(7)BK:A(8)BKA(0):G,H2:G2,H2A(1):G1,H1:H,H1G:H,H1GJK)1365TI132:A(I)CU:=YA(2)CV:A(7)CV:A(32)CV:e^A(14)CV:A(15)CV:A(18)CV:A(19)CV~cI22282:A(I)CV:h385mI132:A(I)CU:rA(2)CV:A(8)CVwI13298|KII3:A(K)CV::PO1PO3A(3)CV:A(6)CVPS5:CV13:300&PO5CU0:CV9:300:PT%(JK)0315O"CU0:PO2CU10j'I132:A(I)CU::390~,I132:A(I)CU1X(1):XHALFA(I)CV6I:390;CU9:CV13@PO4CU13:CV15EPO1CU0:CV10JPO2CU10:CV15 OPT%(4) D4PO%(JK)PO%(JK)1B AFLAGPT%(JK)1:T4PT%(JK)2H N :b Display Catsh :q 900 KNT0:JKH1H2 KNT0Ė1:21:"CAT #"; A(0)12:KNTKNT1:KNT8545 PO%(JK)0āI132:A(I)15::425 POPO%(JK):PO6CUSIGN PHENOTYPE* :7 PO%(JK)0:PT%(JK)0:PS%(JK)0J GE%(JK,7)4ı SGE%(JK,1):DGE%(JK,2):AGGE%(JK,3):TGE%(JK,4):OGE%(JK,5) S4PS%(JK)S O2PO%(JK)5:AFLAG(AG4):215 O4PO%(JK)3:AFLAG(11):215 PO%(JK)1:AFLAG(AG; Q6,0s YY(Q7):(YY128)160:YYYY128:((YY13)(YY27)(N05)((YY80)(YY112))(N04))165:B8$;:158 ("X+G+E1F+")::SEL(3,P9%):RFLAG0ĭYY13ĭN05İ900:260 ((YY13)(YY27))175:1545 RFLAG10010:1480 : *ASFLAG2135::RFLAG10010,1330,1330:1480H xYY13135:YY90YYYY32` }N03ĭYY68ġ:250o B8$;:115u { : -------------------------LO-RES CONTINUE OR ESCAPE----- 23:1:RET$(N0);:41:N05ĺ11)ES$;40);:158 9)ER$;39) : 54915: 10000" Z:l _ ------------------------------CONTINUE OR ESCAPE----------------r a: dC8$;23";1f"C8$"J";:RET$(N0);:(N02)įC8$"24;11f"ES$; i(N03)įC8$"24;9f"ER$; n0,R6RW,R6:Q6,0) sYY$:YY(YY$):YY27ĴRP 10 PROGRAM: CATLAB Y PACKAGE: BIO391A: CATLAB SECOND EDITION V2.0/8-86COPYRIGHT (C) 1982,1986 BY J. F. KINNEARPUBLISHED BY CONDUIT - THE UNIVERSITY OF IOWA LAST REVISION AUG., 1986 BY BARBARA ZILLES & KEN DAIKER:!! ! ! ! ! !!!!!!!!!                    mwyw0 , 0Φ` e$e%$%`$%$H+!#3)%$!!ʩ ## +, I--, -m,e" -m, -m, e h$+` &'`#L v wJxw vO ! ,% QQ! QQ00! ,  0 xL`I` I``ϥ ϕe Υi` vvʆx9 I`e hM 歕`%%8 F %e"#i Fi  `@ e @ %Έ  @ ` I``H,hQ`H ,hQ`h` )@`  p w ) ) 8LHH  hh`1984 CONDUIT`$! e  yp l^$Ze x mΥ%'8  Υ )   `Ά8)* & &yȥyHp ywL)-0 0``   ɶvmxwyLLL8$Im`ppIȢ  p` ޴p58pʠ) ޴pȢ8pȈ8pȈrʩLpIp`pG* , RpllR bHaH`Fll ``ѶѶȶȶge3 JKS`adefmDBCAvٳvɴ9촩  ɶmL8 p wv yxp p mvx  w y