' +JJJJ ?\>m0M='+l> /+l   d]@ŵLҦ]]LF L}BBL] X  ` 鷎귭෍ᷩ췩緈JJJJxL Lȿ L`lJJJJJ IL `L巬 췌`x (`(8`I`B` ``>J>J>VU)?`8'x0|&Hh VY)'&Y)xꪽ)' `Hh`V0^*^*>&` aI꽌ɪVɭ&Y&&Y& 꽌ɪ\8`&&꽌ɪɖ'*&%&,E'зЮ꽌ɪФ`+*xS&x'8*3Ixix&& 8  '  & x)*++`FG8`0($ p,&"`K ߼ 켩)```K ߼ 켩)`ij  !"#$%&'()*+,-./0123456789:;<=>?ֽ0LL𻽌ɪLFFB 췍@귎鷎lθҸ! 绠Ul\k 续k 续kUl\/8BθҸ!LLT L X -L[`RPL84:HH9 8L80^݌Hh ü ü݌ ռ ռ ռA ļD ļ? ļAEDE?HJ>h Լ ռ ռ ռ`HJ>݌h Hh݌`5`?`Ƞ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@ [_ /Q֩b_L`L[LLL`ª`LQLY[LXLeLee ў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 ``` 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`SAVLOAINIRUCHAIDELETLOCUNLOCCLOSREAEXEWRITPOSITIOOPEAPPENRENAMPROGRAMONOMOPRINMAXFILEFINBSAVBLOABRUVERIFp!pp 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𳈈췍Ȍ X0L 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#?Ϡ\\zz]]`z#     Ϡ ͮР̠Ϯà"ǠҠ٠Ǡ\MIIIIiIII-MIIII)MIIIIiIII)MIIII)MIIIIiIII)mIIII)MIIIIiIII mIIII)MIIIIiIIIIMIIIIMIIIIiIIIIMIIIIMIIIIiIIIIMIIIIMIIIIiIIIIMIIIIIIIIIIIIIIIII-MIIIIIIIIII ---MIIIIIIIIII --kIIIIIIIIIIII)-kIIIIIIIIIIIII-MIIIIIIIIIIIII)MIIII)----MIIIII)kIIII MI -mIIIIIMIIIIiII -MIIII IIIIiIIIIMIIII MIIIIiIIIIMIIII MIIIIiIII mIIIIIMIIIIiIII)mIIIIIMIIIIiIII-MIIII kIIII ------MIIII -MIIIIIIIIIIIIIIkIIIIIIIIIIIII -kIIIIIIIIIIII-MIIIIIIIIIIIIII)MIIIIIIIIIIIIII MIIII)-----MIIIII MIIIIiIIImIIIII MIIIIiIII)MIIIIIMIIIIiIII mIIIIIMIIIIiIIIIMIIII M----MIIIIIIIIII -kIIIIIIIIIIII-MIIIIIIIIIIII)MIIIIIIIIIIII -MIIIIIIIIIIIII-MIIIIIIIIIIIII)MIIIIIIIIIIIII -MIIIIIIIIIIIIIIMIIIIII MIIIIMIIIIMIIII MIIIIMIIIIMIIII MIIIIMIIIIMIIII MIIIIMIIIIMIIII MIIIIMIIIIMIIII MIIIIMIIIIMIIII MIIII-------mIIIII-------uK)-------------IIII MIIIIMIIIIMIIII MIIIIMIIIIMIIII MIIIIMIIIIMIIII MIIIIMIIIIMIIII MIIIIMIIIIMIIII MIIIIMIIIIMIIII MIIIIMIIIIMIIII MIIIIMIIIIMIIIIIII MIIIIIIIIIIIIII MIIIIIIIIIIIIII MIIIIIIIIIIIIII MIIII--------mIIIIkIIIIiIIIIIMIIIIMIIIIMIIII MIIIIMIIIIMIIII MIIIIMIIIIM---mIIIIkIIIIIIIIIIIIIIIMIIIIIIIIIIIIII MIIIIIIIIIIIIII MIIIIIIIIIIIIII MIIIIIIIIIIIIII MIIIIIIIIIIIIII MIIIIIIIIIIIIII MIIIIIII MIIIIMIIIIMIIII MIIIIMIIIIMIIII MIIIIMIIIIMIIII MIIIIMIIIIMIIII MIIIIMIIIIMIIII MIIIIMIIIIMIIII MIIIIMIIIIMIIII MIIIIMIIII-----V#  # --------MIIII -------kIIIIiIIIIIMIIIIMIIIIMIIII MIIIIMIIIIMIIII MIIIIMIIIIMIIII MIIIIMIIIIMIIII MIIIIMIIIIMIIII MIIIIMIIIIMIIII            J15:J I  2- I14000:I5 :N D$;"RUN DOG LOADER"16301,0 \1:0 ]31 _46,38:I1100:I? d16304,0O nI1900:I\ x193,38d 22r 2144,38z 22 3196,38 D$;"BLOAD FINAL LOGO.PIC" P$" A DIVISION OF HUMAN RELATIONS MEDIA" 21 I137 (P$,I,1); P :62450 P$(37)&L *** WRITTEN BY RON SPALDING ***i *** COPYRIGHT 1983 ***q25I1100:I:D$(4)12:5:"ONE MOMENT, PLEASE..."(D$;"BLOAD HRM.SHP"2232,0:233,86F16297,0P16300,0 Z  MIIIIIIIIiIIIIIIIMIIIIIIII MIIIIIIIIMIIIIIIIiIIIIIIII MI-------MIiIIIIIII MIIIIIIIIkImIIIImIiIIIIIII MIIIIIIIIkIMIIIIiIiIIIIIII MIIIIIIIIIIIImIIIIIIIIIIMIIIIIIIIIiIIIIImIIIIIIIII MIIIIIIII mIIIII MIIIIIIIIIkIIIIIIIIIMIIIIIIMIIIIIIIIIMIIIIIIIIiIIIIIIIMIIIIIIII MIIIIIIIIIIIIIIIIIIIIIIIII MIIIIIIIIIIIIIIIIIIIIIIIII MIIIIIIIIII ----mIIIIIIIIIIIkIIIIIIIIII)MII mIIIIIIIIII MIIIIIIIII)mMIIIIIIIIIIIIIIIIIIIIIIIII MIIIIIIIIIIIIIIIIIIIIIIIII MIIIIIIIIIIIIIIIIIIIIIIIII MIIIIIIIIIIIIIIIIIIIIIIIII MIIIIIIIIIIIIIIIIIIIIIIIII IIIIIIIIIIIIIIIIIIIIIIII MIIIIIIIIIIIIIIIIIIIIIIIII MIIIIIIIIIIIIIIIIIIIIIIIII MIIIIIIIIIIIIIIIIIIIIIIIII MIIIIIIIIIIIIIIIIIIIIIIIII IIIIIIIIII MIIIIIIIIIIIIIIIIIIIIIIIII MIIIIIIIIIIIIIIIIIIIIIIIII MIIIIIIIIIIIIIIIIIIIIIIIII MIIIIIIIIIIIIIIIIIIIIIIIII MIMIIIIIIIIIIIIIIIIIIIIIIIII MIIIIIIIIIIIIIIIIIIIIIIIII MIIIIIIIIIIIIIIIIIIIIIIIII MIIIIIIIIIIIIIIIIIIIIIIIII MIIIIIIIIIIIIIIIkIIIIIIIIIIIIIIIIIIIIIIIIIIMIIIIIIIIIIIIIIIIIIIIIIIII MIIIIIIIIIIIIIIIIIIIIIIIII MIIIIIIIIIIIIIIIIIIIIIIIII MIIIIIIIIIIIIIIIIIIIIIIIII MIIIMIIMIIIIMIIMIIIkIIIiIIiIIIImIIiIIIMIIIMIImIII MIIiIIIMIIIMIIiIII)MIIiIII------mII ------mII ------ ----------------------------------------IIMImIIIII mIiIIIMIIIMIiIIIII MIiIIIMIIIMIiIIIII MIiIIIMIIIMI)MIIII mI MIIIkIIIiIIMIIII MI MIIIkIIIiIIMIIII)MI MIIIkIIIiIImIIIIiIIiIIIIkIIIi mIIIIIIIi MIIIkIIIiIMIIIIII m MIIIkIIIiIMIIIIII M MIIIkIIIiImIIIIII M MIIIkIIIiIiIIIIII)M MIIIkIIIiIiIIIIIIiIiIIIMIMIII MIII)mIIII)MIIIkIIIimIII)MIIII-MIIIkIIIiiIII MIIII MIIIkIIIiiIIIIIIII) MIIIkIIIi)MIIIIIII MMIIIkIIIi MIIIIIII MMIIIkIIIi MIIIIIII)MMIIIIIIIIMIIIIIIIiIiIIIIIIIIkIIIIIII M mIIIIIIIIkIIIIIII m MIIIIIIIIkIIIiIIIIMiIIIIiIIIMIIImIII MmIIIImIIIMIII-MIIImMIIIImIIIMIIIIIIiIIIiIIIIIIIkIIIIII mII mIIIIIIIkIIIIIIIMIIiIIIIIIIMIIIIII MIIiIIIIIIIMIIIIII mIImIIIIIIIMIIIIIIIMI MIIIIIIIMIIIIIIImI)MIMIIII MIIIII kIIIIIIMIIII)MIIIII kIIIIIIMIIIIiIIIIIIMIIIII mIIIImIIIIIIMIIIIIIMIII MIIIIIIMIIIIIImIII MIIIIIIMIIIIIIiIII)MIIIIIIMIIIIiIIIIMIIIIMIIIIiIIIIMIIII)MIIIIiIIIImIIII MIIIIiIIIImIIII --------MIIII--------uK---------mIIIII ---------MIIIIIiIIIII MIIIIIMIIIII)ժՊՊժѪՀ@՚@ԪتժՊpתժՊժѪժ՚תԪժՊՊժѪՀ՚تՎԪժՊՊժѪժժժժ`ժժժժՊ`_?@|ppcg@|تժՊժժժѪՀ@ժ՚תժܪժժժՊ`֪ՊՊժѪժժժժժժժժՊpxx`x~C|C?~GxժՊՊժѪՀ@՚@Ԫ`ժՊ ժժՊժժժѪժ՚תԪժՊՊժѪՀ՚ܪՊԪ          MIIIIIIIIIIIIIIIIIIIIIIIII MIIIIIIIIIIIIIIIIIIIIIIIII MIIIIIIIIIIIIIIIIIIIIIIIII +----------------------------------------MIIIIIIIIIIIIIIIIIIIIIIIII MIIIIIIIIIIIIIIIIIIIIIIIII MIIIIIIIIIIIIIIIIIIIIIIIII MIIIIIIIIIIIIIIIIIIIIIIIII MIIIIIIIIIIIIIIIIIIIIIIIII IIIIIIIIIIIIIIIIIIIIIIIII MIIIIIIIIIIIIIIIIIIIIIIIII MIIIIIIIIIIIIIIIIIIIIIIIII MIIIIIIIIIIIIIIIIIIIIIIIII MIIIIIIIIIIIIIIIIIIIIIIIII IIIIIIIIIII MIIIIIIIIIIIIIIIIIIIIIIIII MIIIIIIIIIIIIIIIIIIIIIIIII MIIIIIIIIIIIIIIIIIIIIIIIII MIIIIIIIIIIIIIIIIIIIIIIIII MMIIIIIIIIIIIIIIIIIIIIIIIII MIIIIIIIIIIIIIIIIIIIIIIIII MIIIIIIIIIIIIIIIIIIIIIIIII MIIIIIIIIIIIIIIIIIIIIIIIII MIIIIIIIIIIIIIIkIIIIIIIIIIIIIIIIIIIIIIIIIIMIIIIIIIIIIIIIIIIIIIIIIIII MIIIIIIIIIIIIIIIIIIIIIIIII MIIIIIIIIIIIIIIIIIIIIIIIII MIIIIIIIIIIIIIIIIIIIIIIIII IIII mIIIII MIIIIIIIIIkIIIIIIIII)MIIII mIIIIIIIII MIIIIIIIII MIIIImIIIIIIIIIIMIIIIIIIIIImIIImIIIIIIIIII MIIIIIIIIII ----mIIIIIIIIIIIIIIIIII MIIIIIIIIMIIIIIIIiIIIIIIII MIIIIIIIIiIIIIIIIMIIIIIIII MIIIIIIIIiIIIIIIIMIIIIIIII MIIIIIIII MIIIIIIMIIIIIIIIIMIIIIkIMIIIIiIiIIIIIII MIIIIIIIIkIMIIIIiIiIIIIIII MIIIIIIIIkIMIIIIiIiIIIIIII MIIIIIIIIkImIIIImIiIIIIIII MIIIIIIIIkI)------mI MIIIIIIIiIժՊժժժՊ~ժՊՊժѪת՚Ԫ՚ԪժՊՊժѪՀ@՚ՂԪ@ժՊՊժѪՀժՆܪժܪժժժժՊxxp?``O?x?֪ժՊժժժѪߪժתժժժժՊx?x|{x|c|x`ժՊՊժѪժժժՀ@ժժժժժՊx~~|pxgs~xժՊ|@qo|`ժժժՊp@ժՊՊժѪժժ՚ԪպԪժՊՊժѪՀ@՚ՆԪժՊՊժѪՀتժՆتժتժժժժՊ|Oxp`aO?|֪ժՊժժժѪՀպժתתժժժՊx@?@ժՊՊժѪժժժ@ժժժժժՊx|~|pxGcx~p``ժՊՊժѪՀ@՚Ԫ@ժժժՊ`ժՊՊժѪժժ՚֪ժԪժՊՊժѪՀ`՚ЪՆԪժՊՊժѪߪժՂЪժتժժժժՊ|c_`~xpacxO?|~ܪժՊժժժѪՀpպ՚תת֪ժժժՊp@?ժՊՊժѪժժժժժժժժՊx|~x`xGc?@?~w`@ժՊՊժѪՀ@՚@ՀԪתժՊتժՊՊժѪժժ՚תԪժՊՊժѪՀp՚ЪՆԪժՊՊժѪժժժՂЪժժժժժՊ|a_?@~xpac`O?||تժՊժժժѪՀ`պ՚תժԪժժժՊ`@?תՊՊժѪժժժժժժժժՊx>x~x`xC?|A?~Gp103,33:104,12:3104,0 n7 768,PT:769,DU:770@ 200 ,770,173:771,48:772,192:773,136:774,208:775,5:776,206:777,1:778,3:779,240:780,9:781,202 6782,208:783,245:784,174:785,0:786,3:787,76:788,2:789,3:790,96: N(78)" PLEASE WAIT....HEREDITY DOG LOADING"C :103,33:104,12:3104,0^ ;D$;"RUN HEREDITY DOG" FI118:R(((1)15)1):R:J((I2)2):JIĠ0 KX3,X4Y3:Y3,Y4X4:X4,X3Y4:Y4,Y3X3:X3X31:X4X41:Y3Y31:Y4Y41 NJ1100:J:I:21:958 Z2,Y1X1:X1X12:X2X22:Y1Y12:Y2Y22: (J1100:J:I 221:8::" ":23:8:" ": 7100:22:8:" WELCOME TO HEREDITY DOG ":100: 8" "' 9" COPYRIGHT (C) 1983 JUDITH KINNEAR":" ":255:n--- DOG LOADER, MODS AS OF 8/31/83, J. HANLEY: ADJUSTS START OF PROGRAM TEXT PTRS WITHOUT PLAYING TUNE ::D$(4):300:X12:Y12:X237:Y236:X319:X420:Y319:Y419400:I19:R(((1)15)1)' R:X1,X2Y1:Y1,Y2X2:X2,X1Y2:YժՊժժժѪՀ@ժՊ֪ժ`ժժՊժժժѪժժ՚ժժ\ՊՊժѪժժժժժժժՊ`~p~|{~y?|ժՊՊժѪժժժժժժժժՊp?|ppgG@|@ժՊتժժժՊ@ժՊՊժѪՀܪ՚ܪ՚ԪժՊՊժѪՀ@՚`Ԫ`ժՊժժժѪՀ@ժՊԪժ|x@`?p`?@aO?@@ժժՊժժժѪժժ՚ժժ~@q@|`ժժժժՊ@`?|{|y|sժՊՊժѪժժժ`ժ@ժժժժՊ~??|ppOxժՊժժժՊ@ժՊՊժѪՀߪ՚ܪ՚ԪժՊՊժѪՀ@՚ԪժՊժѪՀ`ժՎܪժ֪ժժժժՊp~@pp?``gO?pתժՊժժժѪժժժת@ժժժժՊ~|{x~s|C~ժՊՊժѪժժժ@ժժժժժՊp?|ppgs|x:C30:B10:B284+LOC2C18:C28:C38:B11:B215Y0LOC3C18:C28:C38:B14:B210}5LOC4C10:C20:C30:B12:B29:LOC5C19:C20:C39:B18:B213?599DLOC1C40:C50:C60:B40:B58ILOC2C48:C58:C68:B41:B515NLOC35C19:C20:C39:B18:B28# 549GLOC1C40:C50:C60:B40:B50kLOC2C48:C58:C68:B41:B51LOC3C48:C58:C68:B44:B54LOC4C40:C50:C60:B42:B52 LOC5C49:C50:C69:B48:B58%&CT0580(LOC1C10:C20Y2,Y21X22>PEN1ĠB8:Y24,Y25X2:B9:Y24,Y25X22H3072X16300,0:fCT0530LOC1C10:C20:C30:B10:B20LOC2C18:C28:C38:B11:B21LOC3C18:C28:C38:B14:B24LOC4C10:C20:C30:B12:B22LOCC6110:135:3072LWALK13:FACEBKGD:MASKBKGD:SPOTBKGD:110:135~WW1:FACEC4:MASKC5:SPOTC6:110:125:3072FACEBKGD:MASKBKGD:SPOTBKGD:110:125WW1:FACEC4:MASKC5:SPOTC6:110:135:3072WALK B4:Y2,Y21X2:B5:00:120:30729^FACEBKGD:MASKBKGD:SPOTBKGD:100:120khXX1:FACEC1:MASKC2:SPOTC3:100:130:3072urWALK|B1:Y1,Y11X1:B2:Y1,Y11X12PEN1ĠB6:Y14,Y15X1:B7:Y14,Y15X123072W27:Z2:FACEC4:MASKC5:SPOT9:Y8,Y9X:Y8,Y9X4 4"JK1750:JK:G'JK150:JK:[*JK1375:JK:,::X1:Y2:FACEC1:MASKC2:SPOTC363072:30@100:130:3072JWALK13:FACEBKGD:MASKBKGD:SPOTBKGD:100:130 TXX1:FACEC1:MASKC2:SPOTC3:115X2:B9:Y14,Y15X4:298@MASK:Y1,Y2X6:Y,Y2X5kFACE:X3,X4Y:X3,X4Y1:X4,Y2I35:X,X2YI:I:X3,Y5:BODYY6,Y7X4:Y1,Y7X: LEGSSPOT:X3,X4Y3:X3,X4Y4:X4,Y5:X1,Y1X1,Y9:X5,YX2,Y12:=FACE:Z8,Z10W2:Z8,Z9W8:Z9,Z10W9SPOT:Z11,Z12W2:W1,Z12:Z11,Z12W9:W8,Z12:: FR LEG STRAIGHT FACEC4:MASKC5:SPOTC6: PUP DRAWB4:Y11,Y12X2:B5:Y11,Y12X4:298FLAG2ĠB8:Y14,YȏY11,Y12X2:X3,Y12:M }FACE:Z8,Z9W2:Z8,Z10W1:Z8,Z10W8 SPOT:Z11,Z12W1:W,Z12:Z11,Z12W8:W7,Z12:: FR LEG BENT FACE:Y8,Y10X8:Y8,Y9X2:Y9,Y10X1 SPOT:Y11,Y12X8:X9,Y12:Y11,Y12X1:W2,W3Z1:Z2,Z3W2: D2 HEADW pZ2,Z3W8:I47:W4,W8ZI::Z6,Z7W3y qMASK:Z1,Z3W1:Z2,Z3W sSPOT:W7,Z2:Z4,Z7W2:Z4,Z5W3: xFACE:Y8,Y9X8:Y8,Y10X9:Y8,Y10X2 zSPOT:Y11,Y12X9:X10,Y12:1BKGD10) #BKGD:I039:0,38I::b dFACE:X7,X8Y:X7,X8Y1:Y2,Y3X8: D1 HEAD fY2,Y3X2:I47:X2,X6YI::Y6,Y7X7 gMASK:Y1,Y3X9:Y2,Y3X10 iSPOT:X3,Y2:Y4,Y5X7:Y4,Y7X8:# nFACE:W2,W3Z:ARE YOU USING A":12:9:"1. COLOR MONITOR":14:9:"2. B/W MONITOR" 19:"TYPE 1 OR 2 THEN PRESS RETURN ";MN$:MN((MN$)) MN1MN2İ40050:19:958:18 19000 BKGD14:(LOC2LOC3)MN2PEN0BKGD10 (LOC1LOC3)MN2PENb -- MODS AS OF 8/31/83 BY J. HANLEY, HRM: LINES 19360 (MISPLACED LINE) AND 19422 (SPELLING)x ::50000:41000 X13:Y15:X233:Y25:U10:U20:U30:U40:H1$"HOMOZYGOUS ":H2$"HETEROZYGOUS ":D$(4) SC0:SUM0:S16336:PFLAG0F :10:"Y ********************7 * *R * HEREDITY *m * DOG * * *  * COPYRIGHT * * J F KINNEAR * * * ********************                                (79)256:R(N):((AB$,2,1)(AB$,4,1))(AB$,2,1)"2"E1R1:E2R1@%R(1)m%R.5(AB$,2,1)(AB$,4,1)E1D1:E2R1%R.5(AB$,2,1)(AB$,4,1)E1R1:E2D1%FLAG2(AB$,2,1)(AB$,4,1)(AB$,2,1)"1"E1D1:E2R1&"FLAG2(AB$,2,1)(AB$,4,1):D24:R215X$LOC4FA0:FB0:FC0:FI15:FJ15:FK15:FM8:FD8:FO8:FX15:FY15:FZ15x$LOC5D10:R18:D21:R213$LOC5FA0:FB0:FC0:FI13:FJ13:FK13:FM8:FD8:FO8:FX13:FY13:FZ13$ ((AB$,2,1)(AB$,4,1))(AB$,2,1)"1"E1D1:E2D15%MN2FI6:FJ6:FK63#LOC2D12:R19:D21:R215|#LOC2FA0:FB0:FC0:FI0:FJ0:FK15:FM9:FD9:FO9:FX9:FY9:FZ15#LOC3D14:R110:D21:R215#LOC3FA8:FB8:FC8:FI8:FJ8:FK15:FM10:FD10:FO10:FX10:FY10:FZ15 $LOC4D10:R18"2"(AB$,8,1)"2")U4U41""^"15:"CHOOSE THE LITTER SIZE (2-5) ";:UP$:UP((UP$))"UP2UP5İ40050:15:958:1300"("LOC1D10:R18:D24:R210:FA0:FB0:FC0"LOC1FI7:FJ7:FK7:FM8:FD8:FO8:FX10:FY10:FZ10#LOC1AB$,4,1)"1")((AB$,6,1)"1"(AB$,8,1)"1")U1U11!((AB$,2,1)"1"(AB$,4,1)"1")((AB$,6,1)"2"(AB$,8,1)"2")U2U21!((AB$,2,1)"2"(AB$,4,1)"2")((AB$,6,1)"1"(AB$,8,1)"1")U3U31"((AB$,2,1)"2"(AB$,4,1)"2")((AB$,6,1)CT5AB$GDAD$:1020+ FLAG2AB$GPUP$5 1500i `CT3B1E1:B2E2:B6E6:B7E7:C1J1:C2J2:C3J3 jCT5B4E1:B5E2:B8E6:B9E7:C4J1:C5J2:C6J3 tFLAG2B4E1:B5E2:B8E6:B9E7:C4J1:C5J2:C6J3 ~ AB$GPUP$5!((AB$,2,1)"1"(GDAD$"A1A2":D1$H2$A1$:PA$A1$LRX3GDAD$"A2A2":D1$H1$A2$:PA$A2$U995~RX1GDAD$GDAD$"B1B1":D2$H1$B1$RX2GDAD$GDAD$"B1B2":D2$H2$B1$RX3GDAD$GDAD$"B2B2":D2$H1$B2$3500CT3AB$GMUM$:1020 $A1$:MA$A1$8RX3GMUM$"A2A2":M1$H1$A2$:MA$A2$A995jRX1GMUM$GMUM$"B1B1":M2$H1$B1$RX2GMUM$GMUM$"B1B2":M2$H2$B1$RX3GMUM$GMUM$"B2B2":M2$H1$B2$3000:995RX1GDAD$"A1A1":D1$H1$A1$:PA$A1$!RX2(GPUP$,2,1)"2"B49:B52$Q8603RB48:B513TT(GPUP$,2,1)"2"B413:B58k\: PUP 1GENECOLORCT2940: MUMGENE2CT3960: DAD GENE1CT4980:DADGENE2RX1GMUM$"A1A1":M1$H1$A1$:MA$A1$ RX2GMUM$"A1A2":M1$H2(GPUP$,2,1)(GPUP$,4,1))U2U21:580D9LOC830,835,840,845,850R>B40:B58r@(GPUP$,2,1)"2"B48:B50{B860CB41:B515E(GPUP$,2,1)"2"B415:B51G860HB44:B510J(GPUP$,2,1)"2"B410:B54L860MB42:B59OP$EE$#R(1):SS$(GDAD$,JI,2)AR.5SS$(GDAD$,JI2,2)UGPUP$GPUP$SS$]JIp: PUP GENO  ((GPUP$,2,1)(GPUP$,4,1))(GPUP$,2,1)"2"İ630:U3U31:860*((GPUP$,2,1)(GPUP$,4,1))(GPUP$,2,1)"1"İ530:U1U11:860'4(GMUM$"A2A1":PMUM$H2$:MA$A1$TRX3T2$A2$GMUM$"A2A2":PMUM$H1$A2$:MA$A2$RX3T2$A1$GMUM$"A1A1":PMUM$H1$A1$:MA$A1$GPUP$"":LL(GMUM$)JI1LL4R(1):EE$(GMUM$,JI,2)R.5EE$(GMUM$,JI2,2)GPUP$GPUAD$H1$A2$:PA$A2$HRX3T2$A1$GDAD$"A1A1":PDAD$H1$A1$:PA$A1$Q699RX1T1$A1$GMUM$"A1A1":PMUM$H1$A1$:MA$A1$RX1T1$A2$GMUM$"A2A2":PMUM$H1$A2$:MA$A2$R(1):RX2R.5GMUM$"A1A2":PMUM$H2$:MA$A1$R.5RX2CT0680ERX1T1$A1$GDAD$"A1A1":PDAD$H1$A1$:PA$A1$zRX1T1$A2$GDAD$"A2A2":PDAD$H1$A2$:PA$A2$R(1):R.5RX2GDAD$"A1A2":PDAD$H2$:PA$A1$R.5RX2GDAD$"A2A1":PDAD$H2$:PA$A1$RX3T2$A2$GDAD$"A2A2":PD:C39:B19:B295lLOC5C19:C29:C39:B113:B213>q649bvLOC1C48:C58:C68:B48:B58{LOC2C48:C58:C615:B415:B515LOC3C410:C510:C610:B410:B510LOC4C49:C59:C69:B49:B59LOC5C49:C59:C69:B413:B513C48:C58:C68:B44:B510=PLOC4C40:C50:C60:B42:B59bRLOC5C49:C50:C69:B48:B513hWwXCT0630ZLOC1C18:C28:C38:B18:B28]LOC2C18:C28:C315:B115:B215bLOC3C110:C210:C310:B110:B210gLOC4C19:C295BR(1):R.5İ15050:YY6:15000:17190I5C15000:YY6:15050:17190O5&Cn50CR(1):R.5FLAG2:17250y5:CFLAG15DCR(1):R.5İ15100:YY6:15100:172905NC15150:YY6:15150:172905bCR(1):R.5İ15150:YY6:15100:172906lC15100:YY44:((402((T$)))2)1;4rBJJ1(T$)2:"=";:JJ::II4|BII119(T$)2:18:40II:(T$,II)" ":ZZ(S)(S)(S):295:II4B4BR(1):R.5FLAG2:171504BFLAG14BR(1):R.5İ15000:YY6:15000:171904B15050:YY6:15050:17190*3I338:2:I:"*"::I217:I:38:"*":I3>I3831:17:I:"*":I:I1721:I:3:"*":I:3t@Z183y@I338:2:I:"*"::I2Z:I:38:"*":I3~@I3831:Z:I:"*":I:IZ21:I:3:"*":I:4hBII34:II:Y9:" "X2K298:17:18:"OR":20:11:"DIFFERENT ALLELES"d>K120:21:11:"---------":255t> K295:42000> K(R$)8819600>K:T$" GENOTYPE ":4:6:"THE GENETIC MAKE-UP OF A DOG":10:8:"FOR EXAMPLE"2?KX7:Y22:15000:YY6:15050:16:0=J(R$)8819600]=J::1:7:28):2:7:" ** GENES OCCUR IN PAIRS ** ":3:7:28):=J6:9:"SO DOGS HAVE 2 COPIES":8:13:"OF EACH GENE.."=J11:4:"THE 2 COPIES OF EACH GENE MAY BE":298:14:11:"IDENTICAL ALLELES" >J120:15:11:"--BROWN":X16:Y20:15050:295:420007NLOC1A1$"BLACK":A2$"BROWN":B1$"DENSE COLOR":B2$"DILUTE COLOR"SBNLOC4A1$"BLACK":A2$"BROWN":B1$"COLORED":B2$"EXTREME SPOTTED"'TFNLOC5A1$"BLACK":A2$"BROWN19870RM(R$)8819600ARM21:868:BKGD:I2436:0,39I:ILRM19850R NPEN1::5:9:"YOU HAVE CHOSEN TO SEE":7:10:"TWO GENES IN ACTION":295R*N16:"SELECT A TWO-GENE SYSTEM ":18:"TYPE 1, 2, 3, 4, OR 5 ";:R$:LOC((R$))S4NLOC1LOCQMUP5X17QMKT1UP:700:800:200:XX8:298:KTuQM21::" P ";::" MORE PUPS ";::" T ";::" TALLY ";QM:" X ";::" EXIT ";:R$:QM(R$)80(R$)84(R$)88İ40050:21:958:19870RM(R$)84İ43000:290:40000::21:958::"HERE ARE.. MOTHER & FATHER":290:40000|PlM21:"PRESS ";::" P ";::" FOR PUPS"4);::" X ";::" TO EXIT ";:R$:PvM(R$)80(R$)88İ40050:21:958:19820PM(R$)8819600PMPFLAG1:21:868:X5:Y24PMUP2X13PMUP3X9 ;:40:"!"::21:868:19791POMM7:4:"FATHER: ";PDAD$:10:958:1300:40000YONM650pOOMRX1T1$A1$İ500OPMRX3T2$A1$İ500ORMRX2İ550OSMRX1T1$A2$İ600OTMRX3T2$A2$İ600OVMCTCT1OWMCT0CT219773OXM300:290:400,PbM21E 1, 2, OR 3";:RX$:RX((RX$))GNFMRX1RX3İ40050:21:958:19780PNHM650NIMCT0Ģ6:868:3:3:"GENE#";LOC;": ALLELES- ";T1$;" & ";T2$:5:4:"MOTHER: ";PMUM$NKMCT0Ģ1:I239:I:(95);::8:I239:I:(95);:OLMCT0āI28:I:1:"!"":255:12:4:"SHE CAN BE:":19775QM=M180:10:I424::I:" ";::I:" ";:IM>M120:10:4:"NEXT THE FATHER..":255:12:4:"HE CAN BE: "M?M14:12:"1. HOMOZYGOUS ";T1$:16:12:"2. HETEROZYGOUS ":18:12:"3. HOMOZYGOUS ";T2$ NDM21:" TYPEN":7:12:"HAS THE ALLELES:"?L2MR(1):R.5T1$A1$:T2$A2$ZL3MR.5T1$A2$:T2$A1$wL4M12:(40(T1$))2:T1$L5M14:19:"&":16:(40(T2$))2:T2$:40000L:M:6:8:"CHOOSE THE PARENT DOGS..":CT0#M