L%hh LHH` X% " ӠӠΠǠ ˮԠˠǠӬĠӠ٠٠ϠŮ+JJJJ ,,,L Lک ٥ҥ>ӥ? ( ㆭ  ؆` | A""""""QQQYV <"<Q '(h((QQQ`@GHOHO $"!$q}T@` `@@``p0 8p@@`00 |0@` `pppPox`D3 < p?|@@@|@`f ppn|>0p  qcs6<, 3['Nxxxpp0` ```@vl  ?`@:3q  AcqcCyO@  0p`@@q @p?|`3cC ? ?>|xp`p`@Acwsssssss__????????~^^ ?~~~~~~~?>~||xpp`@~| xyy{~|@`pp xpp`@yyyyyyyx~ ~x`|xpxqa` cqx|||||||cCC?>>>??<<|||~?`ppxx||<||xxpp`|||||||| |?|p`@@@@`p|? OOGgccqpxsssssssppxxx|<<~?>~||xxxxppp```@@@`?~|x|~|||||||p@@p|~><|xp`@>|x|xpx}yyyyyyyAA?~|xpp`ppx|~? ?? 33@``@@glloLL LlOgloloG @`@glolo@@gLLL GaamGGlg`GGlg`G  xL| x@@xMLLxMyyM MyxAxMx|Yq @lllLglllgG LlL`@GLOLo033366m~0>3>33~G<`G}rccb``acccq{{{{8008????~ |lL COoooog CgoooocCFFLLXXPpqa88`}}}}>????~ | ~FCCFL ____|GG|GGccp{{{{ ;1q``qp`aas{{{{8008 0y| |}}}}AAQg((h' $C@0j ed`y < I1@@q q s8EE9EE8> ` `$DC0ANPQN@'h(' WPG((H@stq q8AyEx:NPQ@GhHHG#$p# @ (*Y9AyEy: QQQO~C%%C~_DDD qAAAaq9`ppxxx|xxx|AsGN8088 Ccˆʎõĵ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 iõ`  \ 濭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- ( t Ϡ@跻~!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䵍䵐`"L ŵ8ŵH ~(` d ֠z# u`տժժժժժժ*ժѪժժԪժ*ժժŪժժժժժժժժժժժzժ׿Ϫժբժժժժ+U*UԪժժԪժ՚ׯݮժժժժժժժժժժժůժժתժժժժժѪժծժ߂ժժժժժժժժժժժժŪ߿ժժժըժժŪժժժѪժժժժ+׺ժժժժժժժժժŪժժѪժ+?ժժŪժժՂЪ߯ժժŪժժժՊժժժŪժժѪߪժת׊ժժժԪժתժըߪժժѪժժԪժժժժժժ׾ՊժժݪժՊժժըժժUժժժժժըժժժժժժժժժժժժժժժժߪѪժժժժբժժժŪժժѪժժՂժժժժժըժժըժժժժժժժժվժժժժժժ*ժѪժժժժ*ժժŪժժժժժժժժժժժjժժժբժժժժ+U*UժժժԪժժժժժժժժժժժժժժתժկժժժժѪժժժժժժժժժժժժժժŪ߿תժժժըժժŪժժժѪժժժժkժϿժժѪժժժժժ߫Ūժ۪ժ+?ժժժժժժժժժŪժժԊՊժժժŪժժѪߪժժՀԪժժԪժ߿ߪժըߪժժѪժժժժժժժժժ՚׾Պժժժժժժժըժ)UժժժժժժժժժժժժժժժժժժժժժժߪӪժժժժբժժժŪժժѪժժժժժըժժըժժըժժժժժժպݫժժժժժժkժѪժժժժ*ժժŪժժժժժժժժժժժժz*=ժݪԪժբժժժ+U*5ժժժԪժժժժժժժժժժժժߪժ߯ժתժժժѪժ݊ժժժժժժժժժժՀЪժŪ߿ժժժժժժժժժժѪժժժժkժͯժժѪժժժժŪժժ/?ժ߫ժժժժժժ߿ժժŪժժԪՊժժժŪժժѪߪբժժժժԪժ׿ߪժըЪժժѪժժժժժժժժժժ׾Պ߿ժժժժժժժըժZ*UժժժժժժժժժժժժժժժժժժժժժժߪӪժՊժժբժժժŪժժժժժժժժըժժժժժժժժժժժժ׺ߪժըժժժժ۪ժѪժժժժ*߿ժժŪժժժժժժժŪժժժժ*=ժԪժբժժժ+U*ժժժԪժժժժժժժժժժժժժժժתժժժѪժԪժתժժժժԪժժժժŪߪժժժժժժժժՂѪժՊժժjժժժѪժժժժŪߪժת/?ժ߮ժժժժժժժժժժժԪժժժժŪժժѪߪբߪժłժԪժߪժըժժժժժժժժժժժժժ׾Պ߿ժժժժժըժU&UժժժժݯժժժժժժժժժժժժժժժժժߪӪժՊժժբժժժŪժժժժժըժժժժժժժժժժժժժժժ08xp0@@@` @Ap< @A@@ xpp@0 `?`|`0@ @`y@8@a A@ @x0@c|p88``@}@@88@1 @@! ` `C@@@ B|`@ @ @@AXa|@@`0|`p0f0@@|y|p8p?p@0@`?pp @ @`0 A@0p@aN0@` @00`@8|~@ G`x c@`@1 0p<@q@@@ x@ @ h``p C@p3 @`?8@CapC ps0``| @@`@@@ @@0 A@ 0  @A<CH!|py`Ga? x`l`y0 @DFp 0@ @|p @@@0 x8x@`@  x@@!@@q?8pC~ @@`@pxz @ @@@x?@ @ Lsժժ٪ժՊժժըժժTժժժժժըժժժժժժժժժժժժժժժժߪժժժժժբժժժŪժժѪպժժժժժժժժժժժժժժժժժs|T@,` bw?`E @p@q0">p xpp@ p !@A `x@! q@.B  0@$ @ x@Xx} ``Dx @@() @X E`@8`"pC TPp@`a8p@` F@ 18P @p@@0 c~@h@ 2~T(~|@@p ~@xH8 { !p@A`' ?@A@3B  @к0< @` p8`x@`? `@(p *@PP@Goqp0 #@ q@a p@* xpvCw@~?xB@0@`A 0@|p|@# 0 @ @@ p T@@`c` X?|`]H`  ? !\@ C@|<~!Dp|@@B` `غ`p @@ p`?F(x8g >.) `p**|?@A`081@@ @((7BFxA@pp?b`@  x p@@K!f@@`` @p@ @ @0<@a`A!|A@ x`x`80 pq~p`0`8A@a @\0@@@ |C<`0@ pc9~pswL|?~c?|su}cGOGx/{O|c?|?|s?~~Gg_?sa|cyOyyG?~`?pG|'|9~G|Gc~?\~qy?~cpO?>|Gs|?~?|O}?sOGGsgx|gOcfy?~|pc`|}w||G|oq?|?~|xcOssyoC?x?|wc?~cxC~sO{ x8x~g|sOqsg1~pssH|~s?|sqyCG|{O|c?~?|s~~gs>s|C|syg|yyG?>xDG|~q~Gy~Gs?N|yy?~x?@O??~Og_|~~O}?{~OOGcsG||cOd?~|x?@||<|O`cp|xxgOccyoc?|?|wc?~GqG~sOylOq=|s|sswos|?XgsXx~q?|{qyGg|s|q?~?|s?~|cs?8~1px~~s}xG|yyG?~~G|cHy?`OsG?f8|yyO?~|~8@ `8pXc||p @!"@A@8 lMG` `@`>0 :c1>(|P1~@ `@` !@8n` @1|hB  l& ` | @;N 0~D` @`x) @H UB?@@"\8`(U`p88. @G\?@ # ?x`4``icծ>|Gת|?~?ԪժͭsOGժՊsgx|gO՚fy?~ժ|}w||G|Ϯ?|?~|xcժժţyoC?xժժժ|wc?~cC~ժժͫ x8x~gժ|sOqsg1ԪժpH|~Ӫժժժ|sqyCժժŨՊ{O|c?ժժժ|s~~ժs>s|C|ժժժyg|yyG?>xDGԪՂ~qȪy~GsժժժՊ?N|yy?~x?@ծ?~Oת|~֪ժͭ{~OOGժՊsG||c՚d?~|ժ@||<|Op|xxժժţyoc?|ժժժ|wc?~G~ժժũlOq=|ժ|sswosԪժXXx~Ѫժժժ|{qyGժժ՚s|q?ժժժ|s?~|ժs?81px~~ժժժxG|yyG?~~GԾՂcȪy?`Osժժժ?f8|yyO?~|~U~GG?dG?x||Gs_|ryyO?~G/~C|x~|'~aO?|O~8`qy/~O?>~|q|~?<qg|?w?O|sxqyycsGq~?|y8p_x?|ycy|G?x||?`?~|~?|sO3syGp?||sqW?~8~`~wOyG\~q<`p|~?|scx?xs8~aqGd?|?|g|sq}qcGOGxyOxGp?|s?~~Gg?DgAx|gsO~pyyO?~a|G||<~~g~cg?~>|uy?~`O?>|sy#~?|xo}?sOGs`gyxOGcq?|?~|G|p|ycx|G?|?pA?~||sOssyOGx|sqG?~1|a~sO{o>|@@@ GǪdG?x||ժժժ_|ryyO?~G/~CԪՊxԪ~aO?Ԫժժ~8`qy/~Oպ>~|qժ~?<ժ娕w?O|ժՊsxqyycq~?|8ժ|ycy|G?x|?`?~|~?|ժժţyGp?Ԫժ|sqW?~8`~wժժũ\~q<`p|ժժ|scx?xs8Ԫպd?|?|Ǫժժ|sq}qcGժժŨՊyOxGժժժ|s?~ԪgΪDgAx|ժժժO~pyyO?~a|GԪՂ|<֪~cg?֪ժժՊ>|uy?~`պ>|sժ~?|ЪժsOժՊs`gyxOGՊq?|?~ܪԪ|ycx|G?|pA?~||ժժţyOGxתժ|sqG?~1a~ժժͫ>|``G E,,@3```1^ @!!Ppv 20::: LOOP1CO1(*PA$(LO);24LOOP?>::580FH0uR"DO YOU HAVE ANY MORE SAMPLES (Y/N) ";Q$\(Q$,1)"Y"Ľ:PA$(255):210fp(20((A$)2)):A$z15:" ";:15:A$:SHE BORMUTH READABILITY INDEX IS: ";(A$,4):Q$""730JR100(1R)hG7.9601.440R.0072RR"APPROXIMATE GRADE LEVEL IS: ";(10G.5)10Q$""840:"DO YOU WANT A HARDCOPY? (Y/N) ";Q$35,24(Q$,1)"N"850 1 "AVERAGE WORD LENGTH=";(100LW)100;" LETTERS"f"AVERAGE SENTENCE LENGTH=";(10WS)10;" WORDS"vQ$""690R.886593(.08364(LW))(.161911(DLLW)3)(.021401(WS))(.000577(WS)2)(.000005(WS)3)A$((1000(1R))10)*:"TA$(LO):LOOP0 A,E,I,O,U(::Q$""ID"TOTAL NUMBER OF VOWELS=";VkN"TOTAL NUMBER OF LETTERS=";LX"TOTAL NUMBER OF WORDS=";Wb"TOTAL NUMBER OF SENTENCES=";Sl:vR.886593(.083364(LW))(.161911(W(1(.05((LW)3.25)))))0PA$(LO)"?")(X$"!"X$"."X$"?")WW1:SS1:550\(PA$(LO))65(PA$(LO))90540fLL1lxLP15CHECK$CH$PA$(LO)VV1:540LP(PA$(LO)" "X$" "X$","X$"."X$"!"X$"?")(PA$(LO)",")WW1 &X$P7):23:28:" ";:28:CO1;:CV1:CH1m CO1240Ģ24::"MAXIMUM # OF CHARACTERS -->254";::CV1:CH1} CO255430 270 34,0:5:1:X$" ":W0:L0:S0:V0 LOOP1CO1 :PA$(LO);:(8);::PA$(LO);7(PA$(LO)"!"PA$(LO)"."Y$ A(KEY$) "A13270, ,A27430E 6A32A8A21270S @A8350} JCO1COCO1:(8);:PA$(CO);:(8); T390 ^A21380 hPA$(CO)""PA$(CO)" " rPA$(CO);:COCO1:390 |KEY$;:PA$(CO)KEY$:COCO1( CH(36):CV(3 WHEN YOU ARE FINISHED."M A$"PRESS ANY KEY TO START PROGRAM":22:880:A$S { 23:"# OF CHARACTERS ENTERED -->0" "PRESS '";::"ESC";::"' WHEN FINISHED"; 35,22: A$"BEGIN TYPING.....":880: 34,1 COUNTER1:5:1 KECE"DE13000:470/XDE110000:5b;lQv" FINAL COUNT--"l:"WOLVES-- ";(W.5):"BUNNIES-- ";(B.5)XZED" " ON THE GRAPH"5 :"THE WOLVES IN GREEN"n :" THE GRAPH ";::"IS NOT ";::" PROPORTIONAL" :"PUSH ANY KEY TO RECIEVE " "THE EXACT # OF BUNNIES AND WOLVES" ZZ$ (21) 9 :" GIVE THE POOR BUNNIES A CHANTHEM"3 J:" ALSO IF THERE ARE FEWER RABBITS"M T"MORE WOLVES STARVE"z ^::"IF ONLY BUNNYS WERE ON THE ISLAND" h"THE POPULATION WOULD LEVEL OF AT 10,000" r:"SO HAVE FUN -- SADIST" |ZZ$  " THE RABBITS ARE REPRESENTED IN R RATE OF RABBITS "= " .02 * # OF RABBITS PER MONTH"` :" THE BIRTH RATE OF WOLVES" "" .01 * # OF WOLVES PER MONTHS" ,:" THE DEATH RATE OF THE FURRY" 6"ANIMALS IS DEPENDENT UPON THE NUMBER" @"OF WOLVES , WHO DEVOURE NIES ";(B.5)) d"WOLVES ";(W.5): iDE14000:Y n16302,0: FULL SCREE HGRg s16368,0o x75u " THIS PROGRAM SIMULATES THE " "POPULATION OF A ISLAND, WHERE ONLY" "RABBITS AND WOLVES LIVE, AND DIE !!" :"BIRTH002BB30WB10000 (AB.2+ -WBW.1: .WD200BWF 2BBAST 5WWWBWD` 6SCSC1} 7SC270SAC::SC0::25 A6 CSC,192W D5 ESC,192B55 FK(16384):K12780 K M600 P16301,0: TEXT/HGR U(21) Z"BUN 500200@ LIONEL TREPANIER RABBITS -- WOLVESX COMPUTER 4TH HOURe 1/8/81p :SA1 "# OF BUNNIES ? ";B DI2(B180.5)"# OF WOLVES ? ";W:"# OF MONTHS ? ";M16302,0CSAM #S.00  Tժժղժժժ|@ժժժ@ߪ@@0ժ @ժժժTժՊTժժժpժժժժժcP PDP PDЪժժժժ  0 L0  @ժ TPTPժժժ@p|p ||ppުժ@PTTPDЪժժժժժ>ժՒPDP@PЪժժ0ՒP P PPPDժժՒժժժTTPP PP@ժժժ@ժժժժPPDPPTDتժ PTDDPDPժժժPP PT`ժՊ(PTPժժժުժժժժժ@P PDP PDتժժժժ  0 L0  `ժʍ TPTP@ժժժ@p|p ||ppլPTTPDժժЪժժpժPDP@PЪժժ ՚0P P PPPD0ժ՚ժժժTTPP PP@ժժժժժժPPDPPTDܪժ PTDDPDPժժժPP PTժՊ(PTPժժժ`תժժժժժتժժժժ  0 <0   ժժ@@ժժժ@ 0  0p `վ ժժժժ@ת՚x DPЪժժ`Պ` `ժժՊժժժتPժժתժժժ Y((E)160)" X((E)160)+ X,YC X0Y0AA1:200[ X0Y0BB1:200y X2Y225600DD1:200 X2Y225600CC1:200 P4(A4B2C2D)(EZ) 21 "THE ESTIMATE FOR PI IS ";P Z A"LAURA ARENDSEN/ED ENGLEHART(<A0:B0:C0:D0B I3cX0159:X,0X,159:r0,0159,0(0,00,15920,159159,159<159,0159,159A0FX0159PY(25600X2)ZX,YdXn2sZ110xE1100  "AND ARE HOMOZYGOUS; ";(DOM$,1)(DOM$,1)\N:"---------------------------------------"fX1860b"IF ONE PARENT IS PURE DOMIANT AND THE"l"OTHER IS PURE RECESSIVE, PREDICT WHAT"v"OFFSPRING PHENOTYPES MAY BE EXPECTED.."2060 :ϠЍxժժժ5@ժժժ0 0  ppLժն~ժժժpժժ ߊDЪժժ|ժժժժժժՒتժժՒTժժժܪժժժ`6@ժժժx@@ ժ @ժժժTժՊTժժժժժժժժ&@ժժժ0 0  ppL@ժ|ժժժ@תժpDЪժժ@`ժժժժժՒتժժՒ vEA 139(D1X(N)),84(D1Y(N))139(D1X(1)),84(D1Y(1))I 22 "WOULD YOU LIKE TO TRY ANOTHER CONVEX POLYGON ? ";J$ J$"YES"J$"Y"710   80   KY(A1))C1C1(Y(A1)) A13 C2((C1)(10))B D1810C2k (84C1)10((C1)(10)1)2.2560| &D1(84C1)2 0 : D3 N0,84278,84 X139,0139,168 bE1N1 l139(D1X(E)),84(D1Y(E))139(D1X(E1)),84(D1Y(E1))))2(Y(1)Y(C2))2)& S.5(DEF)C G(S(SD)(SE)(SF))O ARARGV C| "THE AREA OF YOUR FIGURE IS ";AR "WOULD YOU LIKE TO SEE YOUR FIGURE ? ";I$ I$"YES"I$"Y"660 C10 A11N (X(A1))C1C1(X(A1)) ( (H) (3V) ",";Y(A)* HH35 (3V)> (H)G ")"Q "HH4_ ,F4340i 6VV1q @F0y JH1 TA ^AR0 hC1N2 rD((X(1)X(C1))2(Y(1)Y(C1))2) |E((X(C1)X(C2))2(Y(C1)Y(C2))2) F((X(1)X(C2Y(100)H P"HOW MANY VERTICES DO YOU HAVE IN YOUR CONVEX POLYGON ? ";N] ZN3(N)N130c d n"PLEASE REENTER THE NUMBER OF VERTICES YOU HAVE. ";N x90 V0 F0 H1 A1N FF1 (3V) (H) "(";X(A) HH3: PLYMOUTH CANTON H.S. R. CARLSON INSTRUCTOR R AREA OF A POLYGON"THIS PROGRAM FINDS THE AREA OF ANY CONVEX POLYGON AND DRAWS IT. YOU MUST ENTER THE VERTICES CONSECUTIVELY FOR IT TO WORK."(K12000.50:K2<X(100) F  )(DOM$,1)(RES$,1)MALE$FEM$1330b(DOM$,1)(RES$,1)(RES$,1)(RES$,1)MALE$FEM$1000:"OFFSPRING FROM THIS CROSS WILL BE""IN WHAT PHENOTYPE RATIO?"2060A$"C"1060(7):12:"YOU'RE DOING WELL!":TT1:1070$3"BUT HAVE THE GENOTYPE ";(DOM$,1)(RES$,1)d:"---------------------------------------"n1860(DOM$,1)(DOM$,1)(DOM$,1)(RES$,1)MALE$FEM$1160(DOM$,1)(RES$,1)(DOM$,1)(DOM$,1)MALE$FEM$1160%(DOM$,1)(RES$,1 THE OTHER IS ";RES$R20601\:A$"A"890Vf(7):15:"THAT'S RIGHT!":TT1_p900|z:13:"<<>>":"FROM PARENTS WITH GENOTYPES ";MALE$;" AND ";FEM$;":":"-------------------------------""ALL OFFSPRING ARE ";DOMT14:"ALL OFFSPRING ARE RECESSIVE, (";RES$;")"b "WITH THE GENOTYPE ";(RES$,1)(RES$,1)l*18604(DOM$,1)(DOM$,1)(RES$,1)(RES$,1)MALE$FEM$960>:"CHOOSE THE OFFSPRING PHENOTYPE RATIO IF"H"ONE PARENT IS PURE ";DOM$;" AND,1)9"----------------------------------------":1860v(RES$,1)(RES$,1)(RES$,1)(RES$,1)MALE$FEM$820:"IF BOTH PARENTS ARE ";RES$;" WHAT OFF-""SPRING MAY BE EXPECTED?"2060A$"B"790 (7):(15):"WAY TO GO":TA$"A"680.(7):16::"THAT'S RIGHT!":=TT1:680:"IF ONE PARENT IS ";MALE$;" AND THE OTHER IS ";FEM$;" THEN:":"---------------------------------------""ALL OFFSPRING ARE ";DOM$"BUT HAVE THE GENOTYPE ";(DOM$,1)(RES$YN(T);". I DID NOT ORDER A PIZZA."@"I LIVE AT ";A(1);",";A(2)I780:"HELLO ";N$;" THIS IS ";S$(S);", THANKS FOR THE PIZZA."I:"DO YOU WANT TO DELIVER MORE PIZZAS";A$A$"YES"750:"O.K. ";N$;", SEE YOU LATER!""GOOD LUCK!!!":I15/S((1)161):a:"HELLO ";N$;"'S PIZZA. THIS IS ";S$(S);"."}"PLEASE SEND A PIZZA."  :"DRIVER TO ";N$;". WHERE DOES ";S$(S);" LIVE";A(1),A(2)fTA(1)(A(2)1)4pTS920 z:"THIS IS ";S$"- "DRIVER TO "N$;". WHERE DOES J LIVE??"O "YOUR ANSWER WOULD BE 2,3":d "UNDERSTAND";A$v A$"YES"690 "THIS JOB IS DEFINITELY TOO DIFFICULT FORYOU. THANKS ANYWAY" 999 "GOOD. YOU ARE NOW READY TO START TAKING ORDERS.":";A$ A$"YES"590) :A$"NO"750U &"'YES' OR 'NO' PLEASE, NOW THEN,":520 N:"SOMEBODY WILL ASK FOR A PIZZA TO BE DELIVERED. THEN A DELIVERY BOY WILL ASK YOU FOR THE LOCATION.": l"EXAMPLE:" v"THIS IS J. PLEASE SEND A PIZZA.-----2-------3-------4-------":( A$q "THE ABOVE IS A MAP OF THE HOMES WHERE YOU ARE TO SEND PIZZAS.": "YOUR JOB IS TO GIVE A TRUCK DRIVER THE LOCATION OR COORDINATES OF THE HOME ORDERING THE PIZZA.": "DO YOU NEED MORE DIRECTIONSSON":5 "-------1-------2-------3-------4-------"= K4H I14V "-":"-"b @M$(K);r JS1164I1 T" ";S$(S1);" ";S$(S11);" ";S$(S12);" ";S$(S13);" ";M$(K) |KK1 I "-":"-" "-------1--RDERED PIZZAS.":: I116* S$(I)1 I< I14G M$(I)N I "A","B","C","D","E","F","G","H","I","J","K","L","M","N","O" "P","1","2","3","4" ::::: "PRESS ANY KEY TO CONTINUE":A$  "MAP OF THE CITY OF CAR:17);"PIZZA"::1S$(16),M$(4)S10);"PIZZA DELIVERY GAME":x2"WHAT IS YOUR FIRST NAME ";N$:P"HI, ";N$;". IN THIS GAME YOU ARE TO TAKE ORDERS FOR PIZZAS." Z"THEN YOU ARE TO TELL A DELIVERY BOY WHERE TO DELIVER THE O     YOU LIKE TO STUDY MORE OFFSPRING? Y/N ";YES$@"bYES$"Y"1560w"l::"WOULD YOU LIKE ANOTHER PROBLEM? Y/N...";YES$"vYES$"Y"ī20"X11000:X"(7)":" ENTER THE DOMINANT GENE FIRST!"":170"(7)#:" ENTER THE DOMPHENOTYPE AND GENOTYPE AND RE-"G!&"CORD THESE ONTO YOUR STUDY GUIDE"w!0"FOR DEVIATION CALCULATIONS. - GOOD LUCK!"!:255!D8::"YOUR SCORE IS ";(T3100);" % CORRECT"!N(DOM$,1)(RES$,1)(DOM$,1)(RES$,1)MALE$FEM$ī1900-"X:"WOULD,1760,1780- DOM$;20);(DOM$,1)(DOM$,1)7 1790Z DOM$;20);(DOM$,1)(RES$,1)d 1790 DOM$;20);(RES$,1)(DOM$,1) 1790 RES$;20);(RES$,1)(RES$,1) I 0: "COUNT THE ACTUAL NUMBER OF EACH OFF-"!"SPRING'S TX11000:X^1Ih:"---------------------------------------"Rr160~|:5:"FOR TWO HETEROZYGOUS PARENTS:"::"ACTUAL RATIOS OF PHENOTYPES MAY BE:":"PHENOTYPE";17);"GENOTYPE":I1NM(4((1))1) M1720,1740Y **DO NOT EXCEED 15 UNLESS YOU ARE GETTING A PRINTOUT** ? ";Nw"N100Ė10::"STUDY 100 OR LESS OFFSPRING!"::1560,:"WOULD YOU LIKE A PRINTOUT OF THE RESULTS? Y/N ";YES$6YES$"N"1640@:J:8:"TURN ON YOUR PRINTER";::" (SLOT #1)" NOT PRODUCED THEORETICALLY.":L"SPERM AND EGGS, LIKE HEADS AND TAILS,"i".....COMBINE RANDOMLY":"REVIEW THE LIKELY OFFSPRING FROM TWO ";"HETEROZYGOUS PARENTS AS FOLLOWS>>>">:"INPUT THE NUMBER OF OFFSPRING YOU WOULD LIKE TO STUDRETICAL RATIOS"4:"PHENOTYPES";18);"GENOTYPES"`:"1/4 ";DOM$;18);(DOM$,1)(DOM$,1)"1/2 ";DOM$;18);(DOM$,1)(RES$,1)"1/4 ";RES$;18);(RES$,1)(RES$,1):"(PRESS ANY KEY TO CONTINUE)"A$:"HOWEVER, OFFSPRING ARE4009d:(7):10:" YOU HAVE BEEN STUDYING!!":TT1PnX11000:X:1430gx:15:"INCORRECT"xX11000:X:"THEIR OFFSPRING WILL BE PHENOTYPICALLY: 3 ";DOM$;" : 1 ";RES$:"---------------------------------------":5);"THEOALL ";DOM$;18);"50 : 50"3 18);MALE$;23);FEM$a"--------------------------------------"k1860q(2:"THESE PARENTS ARE BOTH ";FEM$;". WHAT IS"<"THE EXPECTED RATIO OF PHENOTYPES"F"IN THEIR OFFSPRING?"P2060ZA$"D"1TT1:12301:10:"> > > > STUDY HARDER!"n:"FROM PARENTS WITH GENOTYPES ";MALE$;" AND ";FEM$;":":14:"==========":12);"THEORETICAL RATIOS""PHENOTYPE";18);"GENOTYPE":"-------------------------------------":":"1/2 ";RES$;21);(RES$,1)(RES$,1)Wj:"--------------------------------------"at1860k~1310:"FROM THE MULTIPLE CHOICE ANSWERS THE""THEORETICAL PHENOTYPES POSSIBLE ARE:"2060A$"A"1220:(7):15:"WAY TO GO"#$:12:"STUDY A LITTLE MORE!":\."FROM PARENTS WITH GENOTYPES ";MALE$" AND "FEM$":"8:"---------------------------------------"B:12);"THEORETICAL RATIOS"L"PHENOTYPE";18);"GENOTYPE"V:"1/2 ";DOM$;21);(DOM$,1)(RES$,1)'` X 16368,0:24:5:"PRESS THE ";::"SPACE BAR";::" TO CONTINUE";:O0$:936i O0$(32)ıq : 22,A8192" d5000 iD$;"BLOAD CRAYFISH,A8192"9 n500[ xD$;"BLOAD GRASSHOPPER,A8192"d 500l 30  CHANGED TO PRESS SPACE TO CONTINUE  TO CHANGE BACK TO TIMING LOOP ELIMINATE LINE 502 3000:"": A15000   As D$(4)C GRAPHICS FROM PLYMOUTH CANTON HIGH SCHOOLt DONATED BY INSTRUCTOR RON CARLSON TO MACULzD$;"BLOAD HEART,A8192"(5002D$;"BLOAD CANADA,A8192"<500FD$;"BLOAD INSECT,A8192"P500 ZD$;"BLOAD HEART  OT USE TRAITS WITH THE SAME STARTING LETTER!"5%p80SE"$H"WHICH ANSWER? ";A$"$R,$\(7)f$f:"DO NOT USE TRAITS WITH THE SAME STARTING LETTER!"n$p80INANT-1/2 RECESSIVE"$410);"D) 3 DOMINANT - 1 RECESSIVE"$>10);"E) NONE OF THESE"$H"WHICH ANSWER? ";A$$R$\(7)-%f:"DO NINANT GENE FIRST!"#:320Y# :5::"(POSSIBLE ANSWERS FOR ";MALE$;" X ";FEM$;")":w#:10);"A) ALL DOMINANT"# 10);"B) ALL RECESSIVE"#*10);"C) 1/2 DOMINANT-1/2 RECESSIVE"#410);"D) 3 DOMINANT - 1 RECESSIVE"$>10);"E) NONE OF THE61030DD3BB5#7801A71070;BB5ECC1N$860X.BB7f8A10780qBBB10zL790V" THE SCORE WAS ";2(H)`ZA3890 BB3 A1810* DD24 BB3: D *CC1N 4BB1[ >A2780f HBB11o R790y \CC1 fA2790 p780 zCC4 BB2 A5970 BB2 A5950 780 BB11 790 CC1 BB8A2000: & +ZZ12000:' 0150@ :::16)"...YES..."Q ?ZZ12000:Z D150e NN02r XM3630} b" "; l650 vMM4(M4) " O"; M2M N K5700 " ";    B6(7)6 C0 D0 K15& (L(K)1)(L(K)4)04206 L(K)5L(K)A ML(K)J 590Q KY :q "GUESS THE SCORE";x K K991110 H2(H) KH570  " NO,IT'S ";H; K2(K2)0550 " (THE SCORE IS ALWAYS EVEN) "; !ZZ10:G0:F0 :10 K150 A(12(8))9 720E F8FCQ G8GD[ HHBb Kj :u K15 L(K)F8(F8) "ML(K) ,590 6F(F8) @K JK15 TMG8(G8) ^590 hG(G8) rK |HH12(H12) d:"THE COMPUTER WILL ROLL FIVE DICE"Q i"AND ASK YOU FOR THE SCORE FOR THE"{ n"ROLL. THE SCORE WILL ALWAYS BE AN" s"EVEN NUMBER. GUESS 99 TO STOP PLAYING" x:" ** GOOD LUCK **" }::::"HIT RETURN TO CONTINUE";X$ L(7) H2 12:6)"** PETALS AROUND THE ROSE **"CZZ13000:M::o("DO YOU WISH INSTRUCTIONS ";w2A$<(A$,1)"N"140FP"THE NAME OF THE GAME IS 'PETALS AROUND"Z"THE ROSE. THE NAME OF THE GAME IS"_"IMPORTANT. "(     E D#(Y$)201(Y$)1935206(Y$)194530I(Y$)212540_"AT LINE 625",Y$nF$"RUN":~F$"BRUN":F$"EXEC":&056,72,132,208,160,0,145,209,230,209,208,2,230,210,104,164,208,96,169,160,96: LINE #20 = DISK TITL OR RUN ANY OF THESE PROGRAMS? (THERE ARE MORE.) ";:380I hZ$W rZ$"Y"ıh |Z$"N"360 32,0:34,3:33,19:: (Y$)201(Y$)193440 (Y$)194450 (Y$)212460 470 F$"LOAD": F$"BLOAD":F$"EXEC": (X$,1)"R"İ480:2800 (X$,1)"0"2709 190Q ::D$;"CATALOG":h (X$,2,1)"0"270 "((X$,2,1))0190 ,: 6D$;F$;(A$(X),7,31);",V0" @ J33,19:32,20:: T32,0:34,22:33,40:A ^384:" DO YOU WANT TO LOAD:J10T21 T:J;3);(A$(J),7,16):JJ1:140K 32,0:34,22:33,40: 384:" TO RUN OR LOAD - TYPE OR AND PROGRAM # FOLLOWED BY A .";:380:" ";X$ X((X$,2,4)):Y$(A$(X),2,2) XJ1190 (X$,1)"L"İ400:280Q1,3:Q2,18:Q3,3:34,3X n24:D$;"CATALOG":D$;"PR#0":D$;"IN#0"::33,20:34,3::~ x384:" 0 CATALOG ":380 J1:QQ0A$(0)B$" " (A$(J),7,15)" "190 J18J53İ330 J36İ340:Z$"Y"190 T1 (I10011:A$(I)B$C$:B 2QQ(977)185:QQ0A$(0)C$" "Z <QQ0A$(0)C$" "z FI768788:PP:I,PP:I:I0 PZZ3037:I0:R0:QQ(977)185:QQ0ZZ3220 ZQ(977)(978)256ZZ:Z(107)(108)2568 d(209),(Z):(210),(Z1):Q,0:";(2SN21)N2  0A "DO YOU WANT ANOTHER TRY ";A$J :5Z A$"Y"100 N l300 KN 300' K0N1- *: 4L0N1d 9C((Q(K,L))(10))((M)(10))1n :" ";u ;C <Q(K,L)101ĺ" ";Q(K,L);:840 =Q(K,L)1001ĺ" ";Q(K,L);:840 >Q(K,L); HL M RK : "THE MAGIC NUMBER = UMBER ";S 33,33 1) S0122: (S)S122C :3Q MN2S1Y C1a K1o L(N1)2 ,Q(K1,L1)S 6SS1 @MS800 CN500 C1 KK1 300 CC1 KK1 LL1 K0700 XLN300 bL1MUST BE AN ODD NUMBER" (:"IF A NUMBER LARGER THAN 9 IS USED YOUR PRINTER OR SCREEN MUST HAVE MORE THAN 40 COLUMNS" d: n"SIZE ";N y(N1)2((N1)2)125 z:"BAD VALUE, TRY AGAIN" {110 }N13122 :"STARTING N\Q(12,12) :5"THIS PROGRAM WILL GENERATE AN ODD ORDER MAGIC SQUARE OF THE INDICATED SIZE, USING A SET OF SEQUENTIAL INTEGERS BEGINNING WITH A SPECIFIED STARTING NUMBER" :"THE MAXIMUM SIZE IS 13 BY 13 AND     z#??Xõ Π Ϡ Ӡ Ƞ ӠϠéӠ Ӡ ΠĠȠ ҠŠɠҠ ԠӠ ٠ĮЮ  Š" ĠҠ Š ŠΠĠΠ!Ԡ""ҠҠҠàŠҠ̠Šà٠ ٠Š  Ƞ"ǠҠ"Ԡ"Ԡ٠Բ"ɠӠӠϠ Ġ̠ؠǠҠ زΠ"(Ԫ| ժժժ@@PժՊ @Pժժժ<ժժժժժժժتժժժժ  0 <0  0ժժ@`ժժժ@ 0  0p r `ժժղժժ֪Պ DPتժժ@ < ժժՊ`ժժժЪPժժ֪ժժժ(֪Lղ ժժժ@@Pժ @Pժժժժժժժժժղ@تժժժ p|  |pp|ժժ`tPT P@ժժժ0 0  0<@ժժժ`ժժպ|ՊDT تժժ@Ժ@WժՊ@ժժժp(PPժժ֪ժժժ@@֪HpՒ(@ժժժ@@Pժ T P@ժժժ|ժժժժժժՒ@تժժղ p|  |pp@תժժղ8?WPT P@ժժժ0 0  0<8@ժժժժժՊ@ՊDT تժժ|@ժՊ@ժժժ@(PPժժԪժժժ @@ת@(@ժժժ@@P0ժ T P@ժժժ                   3 255:::A$(100):D$(4):D$;"NOMON C,I,O":"----------------------------------------";:384:"FUN THINGS 3A NEW STUFF L058 ";:380:"----------------------------------------"C$" ":B$" " D$;"OPEN";F$;",L20"9"HOW MANY WORDS DO YOU HAVE? ";MDX1MT"WORD ";W$nD$;"WRITE";F$;",R";XvW$~D$X D$;"CLOSE";F$60PHE ROUTINE' X:"YOU ARE CORRECT !!!"0 b630T l:"I'M SORRY THE WORD WAS ";W$i vST1500:ST:Z| D$;"CLOSE";F$  D$(4) "DO YOU NEED TO MAKE A FILE? ";A$ A$"N"A$"NO"60 "WHAT DO YOU WANT TO CALL YOUR FILE ";F$)550  A  THE ABOVE LOOP IS TIMED FOR ABOUT 20 SEC.U L1(W$)620b &K1L1 0(W$,K,1)(LE(K))620 :K D PEEK -16384 LOOKS AT THE KEYBOARD:LE() HOLDS THE ASC VALUES N POKE -16368,0 CLEARS THE KEYBOARD:DON'T DISTURB TED LOOP 6 "YOU HAVE 20 SECS TO UNSCRAMBLE ";e :"JUST TYPE THE WORD DON'T HIT RETURN":s 16368,0 A1(W$) (W$,P(A),1); A  TIMER11100:X(16384) X127LE(L)X128:LL1:(X128);:16368,0 L1(W$ANDOM NUMBER 1-MM- D$;"READ";F$;",R";A(Z)5 W$= D$L A1(W$)W "P(A)A^ ,A 6 ARRAY P WILL INDICATE THE SCRAMBLE ORDER @A1(W$) JX((A)(W$))1 TDP(A) ^P(A)P(X) hP(X)D r |L1  DON'T DISTURB THE TIMBLED WORD THAT YOU WILL TRY TO GUESS."/ H D$;"OPEN";F$;",L20"] X1MM:A(X)X: SHUFFLE NUMBERS 1-MM FOR POINTERS X1MM R((X)MM)1 DA(X) A(X)A(R) A(R)D X Z1MM A(Z) WILL BE A NON REPEATING R  RON CARLSON. 44825 KIRK CT.H( CANTON ,MICH. 48187Q2660i<LE(30),P(30),A(30)F WORD FILES HAVE ALREADY BEEN MADEP"FILE NAME ";F$Z" HOW MANY WORDS ";MMdn"WELCOME TO WORD SCRAMBLE") x"I'LL PRINT A SCRAM TY FROM MPH TO METERS-PER-SECOND/ _VV.44707G dCOMPUTE WIND CHILLs iWC33(10.4510(V)V)(33T)22.03404 n CONVERT CELSIUS TO FAHRENHEIT sWCWC9532 x"WIND CHILL TEMPERATURE= ";WC ATURE.[ < (THE CONSTANTS IN THE PROGRAM ARE THOSE USED BY THE NATIONAL WEATHER SERVICE) F"TEMPERATURE IN DEGREES FAHRENHEIT ";T K"WIND VELOCITY IN MILES PER HOUR ";V P CONVERT FAHRENHEIT TO CELSIUS UT(T32)59 Z CONVERT WIND VELOCIT WIND CHILL FACTOR WHICH TAKES INTO CONSIDERATION THE AIR TEMPERATURE, WIND VELOCITY AND THE SKIN TEMPERATURE (TAKEN TO BE 33 DEGREES C). 2 THE FOLLOWING PROGRAM WILL TAKE INPUTS OF WIND VELOCITY AND AIR TEMPERATURE AND PRINT OUT THE WIN CHILL TEMPER :: *** IN THE COLD WINTER WEATHER, YOUR BODY GIVES UP HEAT TO THE AIR. IF THE AIR IS IN MOTION, THE HEAT LOSS IS MORE RAPID (UP TO A POINT) THAN IN STILL AIR.  TO IDENTIFY THIS PHENOMENON, SCIENTISTS USE A FIGURE CALLED THE QUIVALEN   ׍ٍ΍ōōٍҍٍǍAD AGAIN QUESTION&vD(40(M$(M)))2E21:"W";18);"N";19);"E"t23:(D));M$(M);37((D)(M$(M))));" "M$"ALL"ĂM24:"AGAIN (Y/N)? ";AG$AG$"N"AG$"NO"710 MUST RERUN TO AVOID ERROR FROM DATA IN 50::::X2(X1(A))(Y1(A))6&Y2((X1)(A))(Y1(A))Q0X(C)X2140:Y(C)Y280v:X(C)(X(C)).5X(C)(X(C)1)DY(C)(Y(C)).5Y(C)(Y(C)1)NX(C)(X(C)):Y(C)(Y(C))XCbl SETS UP BOTTOM OF SCREEN WITH DIRECTIONS, MONTH, AN6308 JANUARY IS ALREADY SHOWN SO SUB. IS BYPASSEDEM1380w SUBROUTINE FOR ROTATION OF POINT OF DIPPERS MULTIPLY ANGLE OF ROTATION PER MONTH BY NUMBER OF MONTHSM$"ALL"520AA(M1)C114X1X(C)140:Y1Y(C)80 " ^M212L h M IS NO. OF MONTH, (-1 SO FEB. DOESN'T ROTATE TWICE)U r470] |:  PLOTS OUT NEW DIPPER POSITIONS 1:0,159279,159 B114:7:X(B)0X(B)279Y(B)0Y(B)159430 X(B),Y(B)   BYPASS OF SUBROUTINEAT MONTH DO YOU WISH TO SEE? ";M$- K112D M$M$(K)MK:310J \ "M$"ALL"330e ,250z 6 WARNS OF DELAY @::10:"ONE MOMENT PLEASE...":370 J23:16:"JANUARY":21:"W";18);"N";19);"E" T22:" AR TO CONT.":SP$ / PLOTS OUT DIPPERSE 1:0,159279,159l B114:7:X(B),Y(B):X(B),Y(B): 140,80,137,82,136,85,137,88,133,90,140,94,136,96,194,109,204,116,170,158,169,145,174,134,184,128,195,130 ASKS WHICH MONTH! 22:"WH(NORTH STAR) IS AT CENTER OF SCREEN AT TAIL OF LITTLE DIPPER"p "6) TYPE IN NAME OF MONTH YOU WISH TO SEE" "7) SCENES ARE FOR 1ST WEEK OF THE MO." "8) TYPE 'ALL' TO SEE ALL MONTHS" "9) JAN. IS MONTH SHOWN INITIALLY" :"HIT SPACE B"::@ Z"1) YOU ARE SEEING NORTHERN HORIZON FROM LAT. 45N"o d"2) ZENITH IS AT TOP & HORIZON AT BOTTOM" n"3) EAST IS AT RIGHT, WEST AT LEFT" x"4) YOU ARE WATCHING URSA MAJOR (BIG DIP- PER) AND URSA MINOR (LITTLE DIPPER)"@ "5) POLARIS   X(14),Y(14),M$(12).A.5160567A( LOADS MONTHSV2B112:M$(B):<"JANUARY","FEBRUARY","MARCH","APRIL","MAY","JUNE","JULY","AUGUST","SEPTEMBER","OCTOBER","NOVEMBER","DECEMBER"F INSTRUCTIONS P3:"IN THE FOLLOWING SCENES...     ΠҠíˍΠխԍ N*--$$$$$?????76666.-- SE DIFFERENT":"SHUTTER SPEEDS AND DIAPHRAM OPENINGS."13:" THE PROGRAM WILL OUTPUT A BAR":"GRAPH FOR EACH TRIAL SO YOU CAN":"COMPARE AND EXPERIMENT A BIT."20:"TO CONTINUE WITH THE EXPERIMENT":14:"TYPE 'RETURN'";:A$:F,0<HRZHRZ1FKP=Z:2:14::"CAMERA DEMO":Dd5ln" THIS PROGRAM IS A DESIGNED "6x"EXPERIMENT TO EXAMINE HOW THE SHUTTER":"SPEED AND DIAPHRAM CONTROL LIGHT IN":"A CAMERA. YOU WILL HAVE FIVE TRIALS":"IN WHICH YOU CAN CHOO0,6144,7168!K1(DI$)VADD8192(VERT(VERT8)8)128HRZ(VERT8)40kPT((DI$,K,1))|PT66PT12PT32PT0PT60PT13PT46PT1 PT47PT58PTPT46L17ADDP%(L),S%(PT,L)(L2ADDP%(8),24,32,34,62'` 16,24,20,18,62,16,16Aj 62,2,30,32,32,34,28Zt 56,4,2,30,34,34,28q~ 62,32,16,8,4,4,4 28,34,34,28,34,34,28 28,34,34,60,32,16,14 30,34,34,30,34,34,30 8,12,14,255,14,12,8  0,1024,2048,3072,4096,5129J,I1010JI = LOAD IN CHAR GENERATORII013TJ17aS%(I,J)kJ:II18:P%(I):$ 0,0,0,0,0,0,0. 0,0,0,0,0,0,88 28,34,50,42,38,34,28B 8,12,8,8,8,8,28L 28,34,32,24,4,2,62 V 62,32,16:22fSS0940[p"CAMERA ON BULB, SHUTTER OPEN":9::"HIT A KEY TO CLOSE SHUTTER"cz:q16368,0}SSSS2(16384)127950900J11000SS:JSUM1:J1(V1V2)2:SUMSUM2:J1SUMJ191980 9J,I10"D"VERT9VERTVERT12 DI$"<":1220:HRZHRZ1;730W V2VERT1:FT(ST$(V2))s*DI$" ":1220:HRZHRZ1}4:21>"YOUR EXPOSURE IS THE FOLLOWING"H24:"SHUTTER SPD. >"SS;" FSTOP >"FTR"TO MAKE THE EXPOSURE HIT A KEY";:KEY$\RT11VERTVERT1-DI$"<":1220:HRZHRZ16620RV1VERT1:SS(SS$(V1))nDI$" ":1220:HRZHRZ1HRZ38:DI$"<"VERT4:1220:HRZHRZ1KEY$KEY$"L"800DI$" ":1220:HRZHRZ1KEY$"U"VERT1VERTVERT1KEY$ERTVERT1 &I 0I15( :DI$"<"3 DHRZ33N NVERT6:1220:HRZHRZ1c X22:"TRIAL #";I b24:" & POSITIONS POINTER TO LOCK" lKEY$ vKEY$"L"690 DI$" ":1220:HRZHRZ1 KEY$"U"VERT1VERTVERT1KEY$"D"VE1,5) |I I092 ST$(I)(FST$,I41,4)9 IC 1000_  HIRES CHAR GEN LOADED~  * DISPLAY SPEEDS & STOPS VERT1 I010 HRZ29 DI$SS$(I):1220:VERTVERT1 I VERT1 I08 HRZ35 DI$ST$(I):1220:V**** SET UP BAR GRAPH ,I15R 69,I10191,I10191,I10109,I10109,I10Y @I J "1000 500 250 125 60 30 15 8 4 2 1 " T " 22 16 11 8 5.6 4 2.8 2 1.4 " ^SHUTTER$,FST$ hI010 rSS$(I)(SHUTTER$,I5 & LENS[ 4,804,155:5,805,155:4,15532,15532,15070,150:5,15431,15431,14970,149 4,8020,8030,9040,9040,10070,100:4,8120,8130,9139,9139,10170,101 64,10170,11070,14064,149  ***** DRAW SHUTTER 40,10040,150 " *POSURE DEMO" x:4:13/ "BY SCOTT NEVIN": 10:5b "WOULD YOU LIKE INSTRUCTIONS ?";Y$y (Y$,1)"Y"İ1370 :7:0,0:62454 0 DRAW IN CAMERA,FILM,... ***** FILM PLANE 7,1007,140 8,1008,140 ***** CAMERA  ******************3 * WRITTEN BY *L * SCOTT NEVIN *e( * 40320 FERGUSON *~2 * PLYMOUTH MI *< * 48170 *F ****************** P:::F(0)ZP%(8),S%(15,7),SS$(12),ST$(9)d2::11 n"FILM EX     ׺ߪժըժժŪժժժѪժժժժ*}߫߿תժŪժժժժժժժŪժժժժ*?ժԪժբժժժ+U*ժժժԪժժժժժժժժժժժժժժժתժժժժժժժꟿתժѪժժԪժժժՊŪݫժՂժժժժժժժժѪժՊժժjժŪժժѪժժժժŪߪݪ??ժժժժժժժժժժժժժԪժՀЪժժŪժժѪЪߪբߪժŪժԪժߪժըŊժժժժժժժŪժժժժ׾Պ߿תժժժժըժU*UժժԪժժժժժժժժժժժժժժժժժѪժՊժժժժժժŪժժժժժըժժժժժժժժժժժժժժժߊժըժժŪժժժѪժժժժ*}ߪ߿תժժժժժժժտժŪժժժժ*?ժժբժժժ*UJժժժԪժ~ժժժժժժժժժժժժժժתժժժժժժՂЪתժѪժժԪժժժժĪ߫׿ժժժժժժժժժՊժՊժժkժŪժժѪժժժժժŪ߫ݪ?ժתժժժժԪժժժժŪժժѪտ燀բ׺ߪժŪՊԪժ߫ժըŪԪժժՊժժժŪժժժժծՊתժժժժժժ-U*UЪժժԪժՊժժժժժժժժժժժժժժժժ٪ժՊժժժժժժժժժժժ?ժըժժժժժժժժժժժժժժժߊժժըժժŪժժժѪժժժժ*߿תժժժժժժժתŪժժѪժ*?ժժժժժժ*URѪժժԪժ~ժժժժժժժժժժժժժժժժժժժժժժתժѪժժԪժժժժժݪׯժժժժժժѪժժժрԪՊժժzժժŪժժѪժժժժŪ߯ժתժժժժժժժՂժժŪժժѪծբߪժŪժԪժ߫ժըŪժժժՊժժժŪժժժժߪժ߿ߪժբժժժժkU*UЪժժԪժՊݪժժժժժժժժժժժժժժժժժ۪ժՊժժժժժʢժժժժժըժժժժժժժժժժժժժժժ߆ժժըժժŪժժժѪժժժժ+ݺժժժժժժժժժߪŪժժѪժ+?ժժժժժժ+UժѪժժԪժzժժŪժժժժժժժժժժժժժժժժժתժՈߪժժѪժժԪժժժժժՂ߮׿ժժժժժѪժժժՊժժzժժժժժժՂժժժŪ߿ժ תժժժժժբժժժŪժժѪծԢ6ժŪժժժ߯ժըŪժՀЪժՊժժժŪժժժժߪժ          `n @A@``0x`aXp| tA@c`!~?D pxq0x@gD 0`@ `@8LC @@`` 8`M@@@ 0`@ @ @`0 @cN`p`@a@|00@x~@ @pqz @@@@0@`8?C p @qq>D8@CxG `@1 `0 @@ 8p``|`c@~ 8`@@A p0xp@|8@ @ ``0 8@0@`01p~``` @`@@: `@@@>`@0x `1Bp0@qA~ p`L`xq@<`q8`@@ `@ t 0p@@0> <<@N0 @A x`3@x`@ @0@``x`` @8 @p`|@@@ ~@@@0@|0 @@@ 0@a@p0@ x`s@x?A@@?C8 @80p @@ @``@q|px8`G@Y@h 0`y @A @ @8`~0@@ @800`x             ΍΍΍΍̍ P(2)P(3) E2P(4)P(4). CP(1)P(4)8 DBCH "EP(2)P(4)[ ,A;V$(V);"^2";l 6D(D)360 @O$(1);D;V$(V); JE(E)380 TO$(1);E ^390 hD;V$(V); r330 |E  T(3)10)1 XYX1Y1120> P(1)X:P(2)Y:P(3)X1:P(4)Y1Q V((3)10)1f "(";P(1);V$(V);| O((3)2)1:DO O$(O);P(2);")(";P(3);V$(V); O((3)2)1:EO O$(O);P(4);")" PROBLEM: AP(1)P(3) D2P(2)P(2) B**************************************************************D ([ 2P(4),V$(10),O$(2)g <K110r FV$(K)x P Z A,B,C,M,N,P,Q,X,Y,Z dO$(1)"+":O$(2)"-" n FINDING THE ANSWER xX((3)10)1:Y((3)10)1 X1((3)10)1:Y1(P ************************************************************************ * FACTORING * * BY JEAN WINANS *>  **********   p`>@ @xg0 ~{>(A*x >` x8GG  | @!@B`Cp!Fb`b@  w@ @A @ 0`"`c8 d2 ) `'U `> 7@`08UTp, @@xx_sb ` (``~8``!xd`@ 8  R` 0@` \0 | p!@F``@aB@?rx"@`0\ @ApP`pc |~DN!) 8p8` l@ `P *>hp@{~@|#  pD@p ` w8`:8!@ @ `  |PP*p?@ 0P` N? !#@ D@88@`BB N"@@p  @app80Dx>|0x`|DB 0 `@@H@0@*`pX  @|@p1 0@**>>`]`A@! 0` >@# F> U 8`0 @ gy! !) @L Cp@`a@pba~c#@@ _@;80 @!88H f`  a`@ x8}7uD zUb0 0`w8@x`            G?~gx~Oy?|3pGOcq?~s~|~s?L?<~?H||?<~OCxGf~|ypgOcgyos|G?|wC~sO~sOq}}ga|s|s~cc|?Gqx~y?|{qy?~g|r|q?|s?||s{0|1pq~|s?p|C~yyG?x|O|@cIq?ayOGwqyyyO?~@pG?~N?x~OOy~|cGcOax?~sx<~q?~?L?<@?>~~|~OA?|G_H|xqqGOcGyO{~c?|sC~~c?~sOq|ywc~gq|s?|cg|?Oyyx?|yqy?|?~g|f|yxs||Os{qxcpA?|?|yp|c~yyG?@xO~?HGcp?D~yOoqyyO?~?x`G?~?p~gOyOO~CGaOx?x~s?x?~?<~q8~?~~?>~_q?~OG~|xqcGOqGyOyc?|sG??~~b?~?~sO|ysg~cx|sxGg|? yqx~yqy~x?<~gxf|xOzsx|{yayCp~x?|y`s~?|ywyyG?`?p~?p~?HGgr|?|}Gc_}ryyO?~~?O?~~p~gOyG`Gbqx~?~sp|?>~p9|?=|c1~?>~?>_?xOw|yqsgOOxOyOyOq?|sO?~?~|?`?~?|sO~{yGs?||wxW c| |#~qO|_~8xqyxq<~{cxf?||Gxsy}           ETICS"RX R \21:"H"J 23::7:"A LESSON WITH THE MONOHYBRID CROSS";:[ X12000:X 24:10:"(PRESS ANY KEY TO CONTINUE)" A$ D$(4): D$ IS A DOS COMMAND TO ACTIVATE DRIVE ::8:"LOADING THE MONOHYBRID CROSS..."D$"RUN GEN*  DRAWS RIGHT S IN LOWER RIGHT ZYGOTE8 32,3527F 28,3132T 33,3531b 32,3435p 32,3534y 840  DRAWS LEFT S IN LOWER RIGHT ZYGOTE 27,3027 28,3127 28,3031 *32,3430 427,2934 >900 HX1300:30,3315 12,1433 &840C 0 DRAWS T IN LOWER LEFT ZYGOTEQ :18,2226_ D26,3320h N840v X26,3011 b12,1728 l840 v DRAWS UPPER RIGHT S IN ZYGOTE 32,3511 12,1432 32,3515 16,1835 32,3518 840^840 h5,826 r26,295+ |5,8308 30,338D 5,833M 840d  DRAWS ZYGOTES TTr 12,1611 12,1714 840 18,2211 12,1720 840  DRAWS S IN LOWER LEFT ZYGOTE 12,1526 27,3012 13,1430  PROGRAM..."# D$;"RUN GRAPHICS"40C DRAWS TOP GAMETE SP 31,340\ 1,331i 31,343u 4,634 31,336 "840 , LINES 150-160 DRAWS LEFT GAMETE T 64,811 @12,176 J840 T LINES 200-240 DRAWS LEFT GAMETE S % 214,255 D$(4)(10010P(:"THE MONOHYBRID CROSS":Z2:12p<"COPYRIGHT 1984"zF:13P"BY DON BERG"Z:10d"MISSOULA, MT 59801"n20x5:"(PRESS ANY KEY TO CONTINUE)"A$ ::8:"LOADING THE    D$(4) '16302,0CD$;"BLOAD HEART,A8192"aD$;"BLOAD HEART2,A16384"i(21q2A$7A$"Q"100<16299,0FA$KA$"Q"100P16300,0Z50d::DՊ?~Ǫx~ժժũ|3pGOcժժ~s~|~sժL?<ժɪ||?<~OCتf~|ypժժͣyos|ժժժ|wC~~ժժš}ga|Ӫժ|s~ccԪժժx~٪ժժժ|{qy?~ժժՊr|qժժժ|s?||ת{0հpq~|ժѪժ|C~yyG?x|OԪ@cɪq?ayOժժժwqyyyO?~@pՊ?~Ϊx~Oժժũ~|cGcOaժժ~sx<~q?ժL?<@ժ>~~|~OA?ܪ_H|xqqժժͣyO{~ժժժ|sC~~c?~ժժšywc~gѪժ|s?|cgԪժOժyЪժժժ|yqy?|?ԪժgՊf|yժժxs||Oתs{qpA?|?|ժЪժ|c~yyG?xO֪HG㪕p?D~yOժժժqyyO?~?x`݊?~p~gժժũO~CGaOx?ժ~s?x?~պ<~q8ժ?~~?>~_q?֪G~|xqcժժ͡yOyժժժ|sG??~~b?~?~ժժšysg~cЪժ|sxGgܪժ ժqЪժժ՞~yqy~x?<ԪժՊf|xϪժժzsx|{yap~x?|תժ|ywyyG?`?~?p֪HG窕r|?|}ժժժ_}ryyO?~~??~p~gժժũ`Gbqxժժ~sp|պ>~p9ժ?=|ժ>~?>_?xժw|yqsgժժͨyOyOժժժ|sO?~?~|?`?~?|ժժšyGs?Ԫժ|wxW@ cԪ՚ ժ~qOԪժժ~8xqyxq<Ԫժժf?||Ǫժժxsy}          :A$"A"540?(7):16::"VERY GOOD!": BELL RINGS ONCENTT1:550p::8:"---->INCORRECT!"::&"FROM PARENTS EACH WITH GENOTYPE: "MALE$;" AND ";FEM$0:"---------------------------------------":"ALL OFFSPRING ARE ";DOM$+D:15:"INCORRECT":X1600:X[(DOM$,1)(DOM$,1)(DOM$,1)(DOM$,1)MALE$FEM$480(RES$,1)(RES$,1)(DOM$,1)(DOM$,1)MALE$FEM$610730"IF BOTH PARENTS ARE PURE ";DOM$;" WHAT OFF-""SPRING MAY BE EXPECTED?"2060OMOZYGOUS DOMINANT B)HETEROZYGOUS C)RECESSIVE ...";A$\ rFEM$(DOM$,1)(DOM$,1)G$"A" |FEM$(DOM$,1)(RES$,1)G$"B" FEM$(RES$,1)(RES$,1)G$"C" G$A$440 G$A$ĺ:B12:(7):B 15::"VERY GOOD!"::TT1 450NOTYPE OF THE FEMALE PARENT?"v J"EXAMPLE: ";(DOM$,1)(DOM$,1);", ";(DOM$,1)(RES$,1);" OR ";(RES$,1)(RES$,1) T:FEM$: FEMALE GENOTYPE ^(FEM$,1)(FEM$,1)(RES$,1)(DOM$,1)20307 h:"DESCRIBE THE GENOTYPE OF THE FEMALE PARENT: A)HIVE ";A$. MALE$(DOM$,1)(DOM$,1)G$"A"T MALE$(DOM$,1)(RES$,1)G$"B"z MALE$(RES$,1)(RES$,1)G$"C" G$A$300 G$A$ĺ:B12:(7):B 15:"GOOD WORK!":TT1 "310 ,:15:"INCORRECT" 6: @"PROVIDE THE GEXAMPLE: ";(DOM$,1)(DOM$,1);", ";(DOM$,1)(RES$,1);" OR ";(RES$,1)(RES$,1)^ :MALE$ (MALE$,1)(MALE$,1)(RES$,1)(DOM$,1)2000  "WHAT IS THE GENOTYPE THAT YOU HAVE JUST ENTERED? A)HOMOZYGOUS DOMINANT B)HETEROZYGOUS C)RECESS,1)2140 nT0 x:F "USE CAPITAL FIRST LETTERS TO REPRESENT"q :"THE DOMINANT AND RECESSIVE TRAITS" :"ALWAYS ENTER THE ";::"DOMINANT GENE ";::" FIRST" :13);"***********": "INPUT THE GENOTYPE OF THE MALE PARENT"Q " Eo  ::C"INPUT TRAITS BELOW WITH ";::"DIFFERENT":[("STARTING LETTERS"28:"WHAT IS THE DOMINANT TRAIT?"<:"EXAMPLE: DARK- ";DOM$FP:"WHAT IS THE RECESSIVE TRAIT?"Z:"EXAMPLE: LIGHT- ";RES$ d(DOM$,1)(RES$         70 >B,70C,60C,55A,55! H/ R JUMP IIf \E,50D,55C,55D,50C,45B,50C,55C,60D,65D,70 fB,70B,65C,60C,55B,55A,50 p z JUMP IV C,70C,55D,50C,45B,50C,55 D,60D,55B,55B,60 dF  STOP I: D,60D,55C,55D,50C,45C,60D,65D,70] B,70B,65C,60C,55B,55B,60c q  STOP II D,70C,60C,55D,50C,45B,50C,55C,60B,70 D,60D,55B,55B,60  * JUMP I & III 4E,55C,55D,50C,45B,50C,55C,60D,0E,55C,55D,50C,45C,60D,65C,70B vB,70C,65C,55B,55B,60H V  RUN V ~ E,55C,55D,50C,45C,60D,60D,65 B,70C,65C,55B,55B,60   RUN VI E,50D,55C,55D,50C,45C,60D,60D,65 B,70C,60C,55B,55A,60 C,60C,45D,50C,55E,55B,55B,601 B,70C,607 D  RUN IIl E,55C,55D,50C,45C,60D,65D,70 &C,70C,55B,55A,60 0 : RUN III DE,50D,55C,55D,50C,45C,60D,65C,70 NB,70C,60C,55B,55A,60 X b RUN IV$ lE,550,690 2X <FF20 F7( P730: UDE1150:DEA Z0J d730Q n7Z x770l }DE1150:DEz F40170 5 X3018020 AX:BX5:CX10:DX15:EX20 7 810 DE1100:DE X  RUN I" D,70D,65F180X1F10BAX:BX5:CX10:DX15:EX20I 7X10500,530,570,610,650,690,500,530,570,610,650,690,500,530,570,610,650,690DE1150:DE0 (X10500,530,570,610,650,690,500,530,570,610,650,690,500,530,570,610,6     GENETICS"TX R \21:"H"J 23::7:"A LESSON WITH THE MONOHYBRID CROSS";:[ X12000:X 24:10:"(PRESS ANY KEY TO CONTINUE)" A$ D$(4): D$ IS A DOS COMMAND TO ACTIVATE DRIVE  :7:"LOADING THE MONOHYBRID CROSS..." D$"RUN*  DRAWS RIGHT S IN LOWER RIGHT ZYGOTE8 32,3527F 28,3132T 33,3531b 32,3435p 32,3534y 840  DRAWS LEFT S IN LOWER RIGHT ZYGOTE 27,3027 28,3127 28,3031 *32,3430 427,2934 >900 HX1300:30,3315 12,1433 &840C 0 DRAWS T IN LOWER LEFT ZYGOTEQ :18,2226_ D26,3320h N840v X26,3011 b12,1728 l840 v DRAWS UPPER RIGHT S IN ZYGOTE 32,3511 12,1432 32,3515 16,1835 32,3518 840^840 h5,826 r26,295+ |5,8308 30,338D 5,833M 840d  DRAWS ZYGOTES TTr 12,1611 12,1714 840 18,2211 12,1720 840  DRAWS S IN LOWER LEFT ZYGOTE 12,1526 27,3012 13,1430  840 0,520! 18,220* 840C DRAWS TOP GAMETE SP 31,340\ 1,331i 31,343u 4,634 31,336 "840 , LINES 150-160 DRAWS LEFT GAMETE T 64,811 @12,176 J840 T LINES 200-240 DRAWS LEFT GAMETE S   9, DRAWS OUTSIDE BOX9(10,379B2840P<10,3738YF840fP9,3810oZ840|d9,3837n840x LINES 70-80 DRAWS INSIDE +10,36228409,3724:15 LINES 110-113 DRAWS TOP GAMETE T        *** ENJOY UR NAME OR PROGRAM TITLE IN ANY SIZE OR SHAPE BOX BY PLOTTING THE BOX FOR LINE 63 AND THE WORDS FROM LINE 70 ON... x *** QUESTIONS? WRITE IRMA THORNBURG,2817 TIMBERVIEW,RAVENNA,OHIO,44260...PLEASE DON'T FORGET YOUR S.A.S.E. *** ENJOYIA.S.E. THIS PLOTS TO THE TOP OF THE LETER'T': P90,45120,45l Y *** THIS PLOTS THE VERTICAL LINE IN THE 'T' Z104,45104,65 ^ *** THIS PLOTS THE FIRST PERIOD _79,6580,65 c *** THE SECOND PERIOD d124,65125,65r n *** YOU CAN WRITE YO100 TO 10,100 TO 10,10 - WILL DRAW RECTANGLE IN UPPER LEFT SECTION ***m >10,10200,10200,10010,10010,10 ? *** THIS WILL GIVE US A PAUSE AP12000: E *** THIS PLOTS THE THREE LINES TO DRAW AN I F45,4575,4560,4560,6545,6575,65( OOP LEFT TO RIGHT EDGE WITH TOP TO BOTTOM ALSO? -0,I279,I:I ; *** SET COLOR TO BLACK;OTHER COLORS WILL 'BLEED' ONTO BACKGROUND; WHITE WILL OMIT THE VERTICAL LINES--TRY THEM ANYWAY-CHANGE COLOR IN LINE 60 <0F = *** TRY 10,10 TO 200,10 TO 100, WILL NOT LOSE IT BECAUSE IT IS IN REM LINE 61 ~  ***NOW YOU CAN USE HPLOTS TO PLACE YOUR OWN DESIGN ON THE COLORED SCREEN   *** SET COLOR CHOICE FOR BACKGROUND 2 ' *** FROM TOP CORNER TO BOTTOM,VERTICAL (I0191- , *** FROM T  *** COLOR YOUR SCREEN **` *** CHANGE SIZE OF COLORED SCREEN BY CHANGING LINE 40 *** *** USE HGR IN LINE 20 TO USE TEXT SCREEN AT BOTTOM *** *** BECAUSE OF LINE 60 YOU CAN DRAW ON THIS COLORED SCREEN ***/  *** DELETE LINE 62,YOU  @E~(`A @XA pp8@>&` 8 xC`@X@@ @ `0@@@ e(p3 @l @`(@y#,`8`po@L0p@8`8`@@`PI%8f< 06 @`@,@L<8 @0@03 @xe` @`  @@@``PI$ 0 Lg Fa `p $`F'p`@ p@`@38`@!! ! ! ! ! !!!!!!!!!       E D#(Y$)201(Y$)1935206(Y$)194530I(Y$)212540_"AT LINE 625",Y$nF$"RUN":~F$"BRUN":F$"EXEC":&056,72,132,208,160,0,145,209,230,209,208,2,230,210,104,164,208,96,169,160,96: LINE #20 = DISK TITL OR RUN ANY OF THESE PROGRAMS? (THERE ARE MORE.) ";:380I hZ$W rZ$"Y"ıh |Z$"N"360 32,0:34,3:33,19:: (Y$)201(Y$)193440 (Y$)194450 (Y$)212460 470 F$"LOAD": F$"BLOAD":F$"EXEC": (X$,1)"R"İ480:2800 (X$,1)"0"2709 190Q ::D$;"CATALOG":h (X$,2,1)"0"270 "((X$,2,1))0190 ,: 6D$;F$;(A$(X),7,31);",V0" @ J33,19:32,20:: T32,0:34,22:33,40:A ^384:" DO YOU WANT TO LOAD:J10T21 T:J;3);(A$(J),7,16):JJ1:140K 32,0:34,22:33,40: 384:" TO RUN OR LOAD - TYPE OR AND PROGRAM # FOLLOWED BY A .";:380:" ";X$ X((X$,2,4)):Y$(A$(X),2,2) XJ1190 (X$,1)"L"İ400:280Q1,3:Q2,18:Q3,3:34,3X n24:D$;"CATALOG":D$;"PR#0":D$;"IN#0"::33,20:34,3::~ x384:" 0 CATALOG ":380 J1:QQ0A$(0)B$" " (A$(J),7,15)" "190 J18J53İ330 J36İ340:Z$"Y"190 T1 (I10011:A$(I)B$C$:B 2QQ(977)185:QQ0A$(0)C$" "Z <QQ0A$(0)C$" "z FI768788:PP:I,PP:I:I0 PZZ3037:I0:R0:QQ(977)185:QQ0ZZ3220 ZQ(977)(978)256ZZ:Z(107)(108)2568 d(209),(Z):(210),(Z1):Q,0:3 255:::A$(100):D$(4):D$;"NOMON C,I,O":"----------------------------------------";:384:"UTILITY MASTER DOS 3.3 JOHN L. MOORE ";:380:"----------------------------------------"C$" ":B$" "" """""""200* u:22:"YOUR ANSWER IS INCORRECT."G uA12000::LL1:10420DX10 0*D1$"D"YY10- *D1$"R"XX10A *D1$"U"YY10N \+XSXSc +X279SX279Sp $,YSYS ,Y159SY159S ,1X1,Y1 P-10500 @QXX(L)5XX(L)530100 QYY(L)5YY(L)530100 0u:22:"YOUR ANSWER IS CORRECT.":30,49 'D$(4):S3 t'S:0: 'D$;"BLOAD BOX29,A20000"N <(232,32:233,78] (X190:Y80e (L1 (:21:A$(L);40):: )1X,Y:X1X:Y1Y h)23:"DIRECTION(L=LEFT,R=RIGHT,D=DOWN,U=UP, S=STOP)?";D1$ )D1$"S"ĕ1X1,Y1:20800 )D1$"L"XH dD$(4):7,D$;"BLOAD GRASSHOPPER,A8192"C@L110XJA$(L),X(L),Y(L)^T^COMPOUND EYE,39,77,PALPUS,53,115,OVIPOSITOR,236,103,ABDOMEN,200,98,ANTENNA,13,56,THORAX,74,89 hHEAD,42,92,FORELEG,46,130,JUMPING LEG,245,98,FOREWING,173"" " "