' +JJJJ ?\>m0M='+l> /+l   dg]v@uLf]vuu]vLFeu f bL}bBBuLf]v X  `v wwwwwwwwwwwJJJJx wwL L]w8wwwwwwww wwvi w w8vw w`ww wwwwww`x }(`(8`uwwuIw`B` wv`ww`>J>|J>|{VU|)?|`8'x0||&HhHh x x x xV|Y{)z'&Y{)zx{ꪽ)z' x x x x x`Hh`V0{^|*^|*>&` aI꽌ɪVɭ&Yz&|&Yz&{z 꽌ɪ\8`&&꽌ɪɖ'*&%&,E'зЮ꽌ɪФ`+*xS&x'8*3Ixix&& 8 yz z' yz z& zx)*++`FG8`0($ p,&"ųųೳŪŪųųij  !"#$%&'()*+,-./0123456789:;<=>?   1 '" *"( (9"1 ( ,.(0# 2  /#0/#0 *?'#07#000'#07#0:"4<*55**5*%5)1)1)1)'#0/#0*5*75**5*:5/#0/#0'#07#0:::*::'#07#0"):$(%"%:$(%"%$$2%4%$$2%4%$(2()!)E(!8b $!H(+ "@H !D)"E` @ $ C ` DQ &J80^݌Hh | |݌ | | |A |D |? |AEDE?HJ>h | | | |`HJ>݌h Hh݌`葠葠ȔЖȔЖȠHIHHHHhHH݌hHhHh݌H6 VD{{P ~(ED Z~ $0x8x Dy- xDD# H8`?E V|k *xf???0xE   Hh Dy#-EEE8` Dy xx Dy - xx8`-0ݩ?ʥD EEE`   LDwcjpjqj` [gj` ~ns cs Ls\^^ujj`j]u^_"_._Q_`_p_Nedcddbbpbtbbeeeebbbme2bˆʎuuL d ]u ]uuuuu faju`ju` bLfu_jbjJLeujjLze`jj d _ QhlX]J̥KlV] d _ QhlV] eօ3L e3L &eRjL_ &eQjL_ dg bL4e Ngej)nju u f`@-ejfjfj ]u bLc bufj`L e.j ` jtjQjLd eLfjL]` bOjjPjjujj dg bLe Ngej)njojojnj f8ɍ` ^ff\juuuLf ^fNRj f bRjΩLf)\jZj ʽ L_Hjv 3h`0h8` b [gL_ f NgСuu fu`jAj@` kuL^vLvu`  \j j0 g\j g _ Qh ^f\jlZ]l^]?jcjqiH _cjh`fjuhjujju]u]u@OjAPj`uj@`@u&`QjRj`E gLsg g g @DAE@uj`8`]] %@ @A@`@`jj@jA`Mu ) bLf`8]@]AWjcj@8@-@HAȑ@hHȑ@ȑ@hHȑ@Ȋ@cjh8&ȑ@Hȑ@Ah@LgHȑ@ȑ@j htphso`hMhL`9]Vj8Uj]8]97]Tj6Sj]6]7`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-X (   Ϡ@wst~s!klWlol*mmll9lmnm~s~sllll~s~sllll~s_js jnu jHjH`Lcs (kLs kuuuuu q^s_j isJ QjL_sLsstts Drstuuutuuut 7p o w :osutututuututuuuusuL^ou-uIuuuu uu` o 4o r-u! o p8uuutut 7pLs (ku0+uBuCs r 7pLsu jHjH`LgsL{su0u jHjH` s luLs s q lH qhBLl p BH [q qh`Los su lLs s qB l qLlH phB@ uu [qLqss (kst) st 7pLs sLs (k puuLm (kstL{sstutttu 7p ^o* o sB0 HȱBh msuu m8 oLs8 ru` ku os /n /n s EwD Bn /n /n p]stS0Jt t) s tDtE Bn t  /n 0rLs Νs s`HD٤ssDEEhiHLGnh ` ouBu-` ouB-` k XpuIsss8s ssDH ot EpswttȌw Xpt0 w JwLsuBuC`,up` o Rp-uu`u0` Ko Rp-uu`uwuwuu` 4o Ko o( uuLoBȱBLou8` DrBHuBH :o wuBȭuBhhuu RpBumuuȱBumuu` oLRpuuwwuu`jwjwuLRp Ep(ss t8`tss Rp` EpssLRpjwjw`www uuuIwuwuwuwuwwjj wwuw`w Lsuuuuf ouuuuuuuu ^o`8uu i oBu8` 4qL quȱBu ouuuu ou`s DrsȑBuuBu o w uu`uuuuuuuuuu uuuu`uuu`uuBCuu`uuuu`Ls ouBuCsuu pQst0"Bt s` 0r۰ϬssBts8`si#`sЗLwsu!u0>uuuu`us osms s s7ssisu su8s osuЉLwsu`H ouh ruLo~ts uss`uuuuuuuuJumuumujnununuۭuumuuuumuumuu`"L u8uH ~n(s` i d ֠z# ]ujXWV`oxG?G|}x/o?_ow[>sl{}v{?X_s;ww|_>?gv|_x?o~?~}?__y_@_8{~??~wp`}xxs~xXc{o~_ow[k}_wwoO?w{nsox|?xO>n?_}xw|xA?ooo}@?Wt?~Ox?x|}{ p`ow`A{ p{}>?OO|O@_~{~?k{m?_}vw?|x~0W]v[k6wmo.{~?y>x`ow[m~awsownw_opq?xg~xA?oOoy]_{??oogO{}wv~_v~wqq`}Oox>?|}?~?xp~@|_>?7{ox?s}|q{m?_ow[>{m{=??oo~o@_~{~?g]{m?_}vw?~~~?~PO>zog>{k/{~?|>{o7ow[n}_wxo?~_|pn6|Xg]_cnw_opg?xw~xA?o/wu>o{{^o_k~s}wg?|{_:F1,79139,L3:(16384)127Ĺ16368,0:403774035RHC3Ē0:F1,79139,L3u22:14:958:"'B' = OA = ";BX1139:Y1L3:2022:14:958:"'C' = OF1 = ";CX1F1:Y179:20Y141,Y:Y  HI THEREf21:1:958:"THESE ARE THE DIFFERENT PARTS OF YOUR ELLIPSE:"22:14:"'A' = OB = ";AX1L2:Y179:2022:14:"'A' ALSO EQUALS AF1."24:16368,0:7:"PRESS 'SPACE BAR' TO GO ON.";-HC3HC:HCLEASE":10:22201010g DRAW AXIS ROUTINE. L1-L4 DEFINE WHICH PORTION OF THE AXIS TO REDRAW. L1,79L2,79:139,L3139,L4 X139L1NMD:X,77X,81:X X139L2NMD:X,77X,81:X Y79L3N:137,Y141,Y:Y  Y79L4N:137,Y(13);(4);"RUN HELLO"Z(Y$,1)"Y"Ģ13:1:"ANSWER 'YES' OR 'NO' PLEASE.":10:219013:1:958:"WOULD YOU LIKE TO DRAW ANOTHER GRAPH ON THE SAME SCREEN? ";Y$(Y$,1)"Y"Ĺ16304,0:1100(Y$,1)"N"Ģ15:1:"ANSWER 'YES' OR 'NO' PyxA?ooo}={{^o^k|sgww__w^_W~__wxO8oJV[_{]n]vox?>pp}xOwn?ow[>+m{}n}?X_{{@ww~_>?wvyx?o`}?__`_@_~{~?p_0G~~?]{o}_ow[g}_wgog?wox?o@?~?x>{m?_9vs}xA?ooo}];?oogy{swwv.w^ww^_wv6~_/?w~w~~~w?~oxp67\_{]qcfX10Y1159Y102170*044F1,79X0,Y0F2,79;>3RHXO,YOX0,Y0X1,Y1iRF1,79X1,Y1F2,79s\3010fXOX0:YOY0pX0X1:Y0Y1zTH104000:11:1:958:"DO YOU WANT TO TRY AGAIN? ";Y$(Y$,1)"N"Ĺ34,12:ABBR. FOR COSINE AND SINE -- X AND Y ARE ACTUAL VALUES, X1 & Y1 ARE ADJUSTED FOR THE SCREEN.xTH06.28318.1570795SN(TH):CS(TH)DM(B2CS2A2SN2)XABCSDMYABSNDM X1(XNMD139.5)Y1(79.5YN) X1279HER MAKE 'C' LARGER OR":"MAKE 'A' SMALLER.":]10:1100Z`F1139CMDN:F2139CMDNnjB((A2C2))tX0F1:Y079:XO139:YO79~L1139ANMD:L2139ANMD:L379BN:L479BN] WORKING LOOP. TH=THETA -- DM=DENOMINATOR -- CS & SN ARE 958:"'A' MUST BE LESS THEN "(M10.2)10" OR THE":"ELLIPSE WILL NOT FIT ON THE SCREEN.":10:1110uYII(AACC)ZIIM.751120[21:1:958:"B^2 = A^2 - C^2 = "(10II)10", WHICH IS TOO":"LARGE FOR THIS SCREEN.":10,\21:1:958:"EIT1:1:958:"ENTER THE VALUE FOR 'C':";C:22:1:"ENTER THE VALUE FOR 'A':";A$:A(A$)::AC(AACC)(M.75)2AM1.021120WACĢ21:1:958:"'A' MUST BE GREATER THAN 'C', SINCE":22:3:"'A'^2 + 'B'^2 = 'C'^2":10:1110cXAM1.02Ģ21:1:ɖ1:958:"THE DISTANCE BETWEEN THE TWO FOCI MUST":22:3:"BE GREATER THAN OR EQUAL TO ZERO.":10:1100NCMĢ21:1:958:"'C' MUST BE LESS THAN ";(10M)10;" OR THE ELLIPSE":22:3:"WILL NOT FIT ON THE SCREEN.":10:1100O(C)C$1100V2!21:958:"ENTER SCALE: ";M$@M(M$):(M)M$M11020LN100MXMD1.28tL10:L2279:L30:L4159$A139(NMD):B79N.83:1B3010:1100L21:1:958:"ENTER THE VALUE FOR 'C':";C$:C(C$):C0CM1110hMC0Ģ21:)(((Y$)))(Y$)1(Y$)26405(Y$)660,670>500Z(13);(4);"RUN HELLO" DATA INPUT. A, B, AND C ARE COEFFICIENTS, F1 & F2 ARE THE FOCUSES, (X0,Y0) IS THE LAST POINT, AND (XO,YO) IS THE POINT BEFORE THE LAST ONE (X0,Y0).::Y TO BEGIN ";:Y$:(Y$,1)"Y"1000cl(Y$,1)"N"Ģ7:5:"ENTER 'YES' OR 'NO' PLEASE.":10:610v7:5:958:"DO YOU WANT TO":8:8:"1) READ THE INSTRUCTIONS AGAIN":9:8:"2) RETURN TO THE MENU""11:5:958:"ENTER 1 OR 2, PLEASE: ";Y$:(Y$ARE GOOD STARTING VALUES." D11:5:"RUN THE PROGRAM 'ELLIPTICAL NATURE' TO LEARN MORE ABOUT THE PARTS THAT MAKE UP THE ELLIPSE." N15:5:"FINALLY, THE COMPUTER WILL DRAW YOUR ELLIPSE, AND DESCRIBE IT'S PARTS." X10:#b5:5:"ARE YOU READMUST FIRST ENTER THE SCALE OF THE GRAPH ON WHICH YOU ARE GOING TO DRAWTHE ELLIPSE. TEN (10) IS A GOOD SCALE TO BEGIN WITH." :6:5:"NEXT, YOU WILL ENTER THE VALUES OF 'C' AND 'A' FOR YOUR ELLIPSE. IF YOU ARE JUST BEGINNING, 'C' = 4 AND 'A' = 5 5:"THESE EQUATIONS ARE USUALLY WRITTEN WITH LOWER CASE (SMALL) LETTERS. SINCE THIS PROGRAM CANNOT USE LOWER CASE, IT" 20:1:"WILL PUT QUOTES AROUND A LETTER TO INDICATE THAT IT IS LOWER CASE (I.E. 'A'IS A SMALL A)." &10: 01:5:"YOU M YOU CAN DRAW ELLIPSES OF DIFFERENT SIZES AND SHAPES, BASED ON THE EQUATION" 8:12:"2 2":9:11:"X Y":10:11:"- + - = 1":11:12:"2 2":12:11:"A B" 13:1:"WHERE":14:12:"2 2 2":15:11:"A + B = C"x 17:  STARTING UP.9 ::1:12:"DRAWING ELLIPSES"g 4:5:"WOULD YOU LIKE INSRUCTIONS ";:Y$| (Y$,1)"Y"500 (Y$,1)"N"1000 6:5:"ENTER 'YES' OR 'NO' PLEASE.":10:410R ::1:12:"DRAWING ELLIPSES":4:5:"WITH THIS PROGRA 400? 24:16368,0:7:"PRESS 'SPACE BAR' TO GO ON.";^ (16384)127Ĺ16368,0:f 1124:16368,0:7:"PRESS 'SPACE BAR' TO GO ON.";HC3HC:HC:139,79X1,Y1(16384)127Ĺ16368,0:2421HC0Ē3:139,79X1,Y1        ox<@}~??|_Oox?g}xG{m_ow[>{m{]??go?~o@|?p>{m?_}vw?ppx?X_~zoo>{k/?{~?~>{o7owo}_~ox_8onV;W[]_]nw_ox?|g?~xc?oox p|ao?lxg}sO{_w_wv^F_w~G~o88`}~?~~gox?O}x~l_ow[>{m{m??|p{{@|~?~~1wvwg?o@q?|C>{m?_}~w?@~`?@_O~zog>{K/{~??~>{o7_ow[o{}?_gxs_X_nfWO{]_>nwOo?~?o?x?ocO}{o_wvv_7_wv^_?wv~_w~wv>wvwO0?~}~?_qwlw`\o>~`ox?a@}xx{ |`ox>{ |{??8o{;?o{~_}~.wvsw?o@G?xx>{m?_mvw??`@?`@?W~v[k>w-w.{~?> x`\o~`wpg_X_nvW_{]_~nwoo|?o?x?o~_}?@{?|c@ooo}}`|a?l?~gOwwv_W_7v^_vf~_/~~~wno_ |~?_?|k{o;_ow[o{=>_ox? }xc{m?ow[>[m{}^~?X_{{?ww~_>wv{w?o@?x?~>{m?_UvuG_@X~nx1{~?G wpO_X_lfW_{_>fwooq?o            ???ۀ::v-??%$$,?3n "ߓ"$<66$--MIIIIIIIIIIIIIII6?7??>?7?666666666666666.;??????ۀ?v-??%$$,?3n 66#$d-MIIIIIIIIIIIIIIIIM ---m 26v*"$l --??$$4.-M -v#$$,-MI!$-?? $MJ--:?766.-m d v66;???......>>>>7?7??>??>??7???7?????>>>>>>>>>>>>>7?>77?7??>???>?>77777777>67>67>6??>?7??>?7??>?7??>?7??>?7666666666666666--$$$$%-,667?>6.-%--,-%--,-%--,-%--,-%$$$$$$$$$$$$$$$$??>?7??>?7??>?7??>>>>>>....5-5--.--.--.--ۀR---5-----,---,--%--%--,-,%%%%7>>>>>>>>>>>>>R/....@d bc..................................&''''''''''''''''''''''''''''''''''<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<,.-.-5--5---???>>>>>>>>>>>>>>>>>>>>>>>>>>>>>  .-.-.-.-.-.66>66>666766766766?'?'?'?'?'?'?$$$6?'?'$$%$$%$$%$$%$$%$$666766766>66>66676&''''''''''$,$$$%$$%$$,$$,$$$5/5/5/5/5/5/5/5/5/5/5/566766766>66>666767'''''''''$d>$--5----.----,---%--%$$$$$'$$$$'$$$<$$$$$'$'$'$'$<$<$<$<$<$$'$'$'$'$'66>66>66>666766766766>66>66>666766766766>66>66>666766766>66>66676>???????????????'$$-5>?6>?$$%$$,$$,$$$%$$%$$,-----------------66>66>666766766>66?$$,$$,$$,$$$%$$%$$=???/$$$$<$$$<$$$<$$$'$<$<<7?>>67>6>6676>66767...5-.5-.5-.5-.RRRRR1656.6.6.6.6.6656565656.>>>7?7??7??''?<<''?<<''?<<-$$%$%,$,$%,$%,$%%,,,,%-,-..6666>666>66>66>66>66>667676767676767676767676767676767676767676767676767...5-5766766766>66>66>666766766766>66>66>N )-6-6-ҒҒҒ;????ߒ$$$-??666$?'466;?'$$,-?#$$&666??$$$--;???$$$??666--;?577?>?>??>???7??''''''''''''-,,%%-,-,-,-,-%--,-555-6.6.6.66$$'$'$'$?67>6777777?>>77?>>?.6565 d v6ۀ,    m ----m --?766.-d d 66#,-m-?d-NJ-??$$$--I)--------M --$66M!lI 1dMI $,?-'l-?d-66>66>66>666@"MqC j-967676767676767676767676767676767676767676767676767...5-5--5----.----,---%--%-%-,,<$$'$'$'$'$<$<$<$<$<$$'$'$'$'$<$<$<$<$<$$'$'$'$'$'M ---m 26v*"$l --??$$4.-M -v#$$,-MI!$-?? $MJ--:?766.-m  $$lI)66?$$II --?766n $$$.&%666MI-'$$<-MI666$$u5&$$lI)66?$$II --?766n $$ 66߀-mR d vnI)=$$$/mI -?v-!$46>?/'@#2?Jh_$$$66$??$$$-?-$$$ -?$$$-66?$$$--;?nII%66/=$$$--;?-mI --$$$-?d6&?$$$66e?$ -?------?$$$--;?-mI%66/=$$$-?$$$.&%666M $$ 66߀-Iq-  .5-%-%%%,$$$$<$<$<$<$<$$'$'$'$'$<$<$<$<$<$$'$'$'$'$'67676767676767676767676767676767676767676767676767...5-%$.--.---5----%----,--,-,%%%'$<$<$<$<$$'$'$'$'$'$<$<$<$<$$'$'$'$'$'$<$<$<$<$<-------------6767676767676767676767676767676767.....5-5--.---%--,-,%%%%$<$<$$'$'$'$'$<$<$<$<$<$$'$'$'$'$'676767676767676767676767676>65.65.655.....55-..5-.--%-,,$,$$=$<$<$<$$'$'$'$'$<$<$<$<$<$$'$'$'$'$'67676767676767676767676656656565.65.65.655..65555-''?????????????????????????66.655..655..655..655..65---$'<$'<--->??76*-----------------------6.6656.6656.6656.6656.665-------------------------$<$$'$<$$'$<$$'$<$$'$<$$'?????????????????????????>>656.6656.6656.6656.6656.6---$$<--uv;?76----------5.65.65.656-.5-5-.5-5-.5-5-.5-5-.5-5-------------------------?<'?'?<'?'?<'?'?<'?'?<'?'?????????????????????????6.5-5-.5-5-.5-5-.5-5-.5-5---%+---NN???------------------------..655..655..655..655..655-------------------------<<$''<<$''<<$''<<$''<<$<<$'<$'<%,,,,-,.-.5-..55-....65.65.6ҒҒҒҒҒ",$,$%,,$%%--5-..5555555..655.65.65.6565667>>>?>?<'?<<<<$''<<$'<$'<$'<$<$<$$?7676767676767676767676767...5-5--5----.----,---%--%-%-,,<$$'$'$'<<667>>>?><'?<<<<$''<<$'<$'<$'<$<$<$$/$%%-5-..5555555..65,,<$$'$'$'$'$<$<$<$'''??7?7?>>>.....5-5--.--%--,-,%%%%'''??7?7?77ҒҒҒҒҒ$,$%,,,,-,-.-.5-..55-...655.65.667677?>??'?<''?<<'''''<<$'<$'<4767676767676767676767...5-5--5----.----,---%--%-%-,,<$$'$'$'$'$'$76?6777??'?<''?<<'''''@ 2Q"` h67676767676767676767676767676767676767676767676767...5-5--5----.----,---%--%-%-,,<$$'$'$'$'$<$<$<$<$<$$'$'$'$'$<$<$<$<$<$$'$'$'$'$'--.-5-5-...6>>>>7?7??>???'??3( HXO,YOX0,Y0X1,Y18 fXOX0:YOY0H pX0X1:Y0Y1P zTHX 10c 34,23 (13);(4);"RUN ELLIPTICAL NATURE 2" DRAW AXIS ROUTINE. L1-L4 DEFINE WHICH PORTION OF THE AXIS TO REDRAW. L1,79L2,79:139,L3139,L4 SINE AND SINE -- X AND Y ARE ACTUAL VALUES, X1 & Y1 ARE ADJUSTED FOR THE SCREEN.l TH06.28318.1570795 SN(TH):CS(TH) DM(B2CS2A2SN2) XABCSDM YABSNDM X1(XNMD139.5) Y1(79.5YN) X1279X10Y1159"ON WHICH AN ELLIPSE IS DRAWN...". VA4:C3N `F1139CMDN:F2139CMDNb jB((A2C2)) tX0F1:Y079:XO139:YO79 ~L1139ANMD:L2139ANMD:L379BN:L479BNQ  WORKING LOOP. TH=THETA -- DM=DENOMINATOR -- CS & SN ARE ABBR. FOR COPUT. A, B, AND C ARE COEFFICIENTS, F1 AND F2 ARE THE FOCI, (X0,Y0) IS THE LAST POINT, AND (XO,YO) IS THE POINT BEFORE THE LAST (X0,Y0). M5 N100M MD1.28 L10:L2279:L30:L4159 $A139(NMD):B79N 83:1 B3010" L10:22:3: 100? 24:7:"PRESS 'SPACE BAR' TO GO ON.";:16368,0](16384)127Ė1:868:e20kdn21:1:958:"AN ELLIPSE HAS SOME SPECIAL":22:3:"CHARACTERISTICS:"x1021:1:958:"CONSIDER A RECTANGULAR AXIS..."  DATA IN     X1279X10Y1159Y102170$*0;4F1,79X0,Y0F2,79B>3YHXO,YOX0,Y0X1,Y1pRF1,79X1,Y1F2,79z\3010fXOX0:YOY0pX0X1:Y0Y1zTH104000:11:1:958:"DO YOU WANT TO TRY AGAIN? ";Y$(Y$,1)"N"SN ARE ABBR. FOR COSINE AND SINE -- X AND Y ARE ACTUAL VALUES, X1 & Y1 ARE ADJUSTED FOR THE SCREEN.TH06.28318.1570795SN(TH):CS(TH)DM(B2CS2A2SN2)XABCSDMYABSNDM X1(XNMD139.5)Y1(79.5YN) 8:"EITHER MAKE 'C' LARGER OR":"MAKE 'A' SMALLER."A]10:1100a`F1139CMDN:F2139CMDNujB((A2C2))tX0F1:Y079:XO139:YO79~L1139ANMD:L2139ANMD:L379BN:L479BNd WORKING LOOP. TH=THETA -- DM=DENOMINATOR -- CS & 1:1:958:"'A' MUST BE LESS THEN "(M10.2)10" OR THE":"ELLIPSE WILL NOT FIT ON THE SCREEN.":10:1110|YII(AACC)ZIIM.751120[21:1:958:"B^2 = A^2 - C^2 = "(10II)10", WHICH IS TOO":"LARGE FOR THIS SCREEN.":103\21:1:95C$1100V21:1:958:"ENTER THE VALUE FOR 'C':";C:22:1:"ENTER THE VALUE FOR 'A':";A$:A(A$)::AC(AACC)(M.75)2AM1.021120WACĢ21:1:958:"'A' MUST BE GREATER THAN 'C', SINCE":22:3:"A^2=B^2+C^2.":10:1110jXAM1.02Ģ210xMC0Ģ21:1:958:"THE DISTANCE BETWEEN THE TWO FOCI MUST":22:3:"BE GREATER THAN OR EQUAL TO ZERO.":10:1100NCMĢ21:1:958:"'C' MUST BE LESS THAN ";(10M)10;" OR THE ELLIPSE":22:3:"WILL NOT FIT ON THE SCREEN.":10:1100 O(C),Y0).::121:958:"ENTER SCALE: ";M$PM(M$):(M)M$M11020\N100MhMD1.28L10:L2279:L30:L4159$A139(NMD):B79N.83:1B3010:1100L21:1:958:"ENTER THE VALUE FOR 'C':";C$:C(C$):C0CM11EASE: ";Y$:(Y$)(((Y$)))(Y$)1(Y$)2640E(Y$)660,670N500j(13);(4);"RUN HELLO" DATA INPUT. A, B, AND C ARE COEFFICIENTS, F1 & F2 ARE THE FOCUSES, (X0,Y0) IS THE LAST POINT, AND (XO,YO) IS THE POINT BEFORE THE LAST ONE (X05:"ARE YOU READY TO BEGIN ";:Y$:(Y$,1)"Y"1000sl(Y$,1)"N"Ģ7:5:"ENTER 'YES' OR 'NO' PLEASE.":10:610v7:5:958:"DO YOU WANT TO":8:8:"1) READ THE INSTRUCTIONS AGAIN":9:8:"2) RETURN TO THE MENU"211:5:958:"ENTER 1 OR 2, PLND 'A' = 5 ARE GOOD VALUES TO START WITH." D11:5:"RUN THE PROGRAM 'ELLIPTICAL NATURE' TO LEARN MORE ABOUT THE PARTS THAT MAKE UP THE ELLIPSE." N15:5:"FINALLY, THE COMPUTER WILL DRAW YOUR ELLIPSE, AND DESCRIBE IT'S PARTS." X10:3b5:1:5:"YOU MUST FIRST ENTER THE SCALE OF THE GRAPH ON WHICH YOU ARE GOING TO DRAWTHE ELLIPSE. TEN (10) IS A GOOD SCALE TO BEGIN WITH."* :6:5:"NEXT, YOU WILL ENTER THE VALUES OF 'C' AND 'A' FOR YOUR ELLIPSE. IF YOU ARE JUST BEGINNING, 'C' = 4 A5:"BY THE WAY, THESE EQUATIONS ARE USUALLY WRITTEN WITH LOWER CASE (SMALL) LETTERS. SINCE THIS PROGRAM CANNOT USE" 20:1:"LOWER CASE, IT WILL PUT QUOTES AROUND A LETTER TO INDICATE THAT IT IS LOWER CASE(I.E. 'A' IS A SMALL A)." &10: 0M YOU CAN DRAW ELLIPSES OF DIFFERENT SIZES AND SHAPES, BASED ON THE EQUATION" 8:12:"2 2":9:11:"X Y":10:11:"- + - = 1":11:12:"2 2":12:11:"A B" 13:1:"WHERE":14:12:"2 2 2":15:11:"A + B = C"y 17:  STARTING UP.9 ::1:12:"DRAWING ELLIPSES"g 4:5:"WOULD YOU LIKE INSRUCTIONS ";:Y$| (Y$,1)"Y"500 (Y$,1)"N"1000 6:5:"ENTER 'YES' OR 'NO' PLEASE.":10:410R ::1:12:"DRAWING ELLIPSES":4:5:"WITH THIS PROGRA 400? 24:16368,0:7:"PRESS 'SPACE BAR' TO GO ON.";^ (16384)127Ĺ16368,0:f 1124:16368,0:7:"PRESS 'SPACE BAR' TO GO ON.";HC3HC:HC:139,79X1,Y1(16384)127Ĺ16368,0:2421HC0Ē3:139,79X1,Y1        z#??   ̠ŠӠ Ӡ ӠϠ" !Š "̠ŠǠӠ̠Š  ŠӠ ųŴŵŶŷĠ ű Ϡ ӠӠű űϠŲ  "HI"NSTRATES THE FORMATION OFCA HYPERBOLA BY THE INTERSECTION OF AcPLANE AND SYMMETRIC CONES. DRAWING ELLIPSESCDRAWING ELLIPSES PERFORMS THE GEOMETRICdCONSTRUCTION OF AN ELLIPSE.m ""| PARABOLAPARABOLA DEMONSTRATES HOW A PLANE ANDCONE MAY INTERSECT TO FORM A PARABOLA. "" HYPERBOLAHYPERBOLA DEMOVE""SKETCHING."" ". "ELLIPSE"Y"ELLIPSE FORMS ELLIPSES USING A CONE"m"AND A PLANE."v "" ELLIPTICAL NATUREELLIPTICAL NATURE DEMONSTRATES PARTS OFAN ELLIPSE SUCH AS THE MAJOR AND MINOR"AXES, FOCI, ETC."00*ZM:868:CV1(CV23):ZN(ZN$):C&CV1:36,CH:868:d "AESTHEOMETRY VOLUME 1",7q"CURVES"CURVES IS A TUTORIAL AND DEMONSTRATION""OF CURVE SKETCHING."" ""CURVE DEMO""CURVE DEMO IS A DEMONSTRATION OF CUR10:"GETTING THE PROGRAM..."I N$(Q,1)"CURVE DEMO"N$(Q,1)"CRVDEMO"` D$;"RUN ";N$(Q,1)v CH(36):CV(37) "";ZN$:(ZN$)(((ZN$)))520 (ZN$)0ZN$"0"540 ZN$"D"ZN0:ZM:"THAT IS NOT A NUMBER - TRY AGAIN";:550:5 6 23:"DO YOU WANT ANOTHER DESCRIPTION";:868> A$U (A$,1,1)"Y"330o (A$,1,1)"N"ė:280 "PLEASE ANSWER YES OR NO";:1:390 Q0QN1470 22:1:"PLEASE ENTER A NUMBER IN THE RANGE":"OF 1 AND ";N;".":16:280 ::3,9::: @QZN:450( J34,15:16:r T16:"TYPE THE NUMBER OF THE PROGRAM YOU"::"WANT DESCRIBED ";:868 ^490:QZN hQ0QN1380 r:"PLEASE TYPE A NUMBER IN THE RANGE OF"::"1 AND ";N:340 |:N$(Q,2):18:N$(Q,3):20:N$(Q,4) ) C T((N1)2)1Ģ52 T(N1)2Ė21B T10ĺ" ";S T" "N$(T,1)Z T 16:1:"TYPE THE NUMBER OF THE PROGRAM YOU WANT.":"(IF YOU WANT PROGRAM"::"DESCRIPTIONS, TYPE 'D'.) ";:868 "490 ,ZN$"D"330 6(ZN$,1)"E"Ĺ102 J1(16384)128:J127J132JJ1:J40030@ #16368,0F (P dZM24^ xN$(24,4)t D$;"NOMON,C,I,O" 1023,123 ::255: T$,N 1:20(T$)2 T$ 2:11:"AVAILABLE PROGRAMS" 5 T1N C14 N$(T,Cd  PROGRAM: HELLO4 VERSION: 2.0.2 (TMB)R LAST UPDATE: 7/01/80 X n (C) MECC, 1979y 22016230,32:62450D$(13)(4):1020,0:::255:(1023)123100:16302,0:::D$"BLOAD LOGO":16304,0:16368,02     @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@# 63@@@B@@ ??$!!!!??B@@)=$$$> ??$!) $;?2@@@0)- ') ??@@@@ !$=$433-@@@@@0)- $;?$--@@@@)- ?7&$ -@@@$ ??@`@@@@@)- ?& -6@@- $$;?2--@@@@ $$)-266? !! @@@@@@$,6.$,66@@@@@@@-%? %@$,6 ,@I$<> ?@$,2.,2@@@@@@@@@@@@@@@@@@@@@.-%$666@@@)=$$$=? 6) $$,?@@@@@@$$$6 @@--#$$$$$$ 666@@@@$$$.2111$$$@@@ $$)-266?@@@@$$$--2>?@@@@@@ $$)-266?%011@$$$--2?5@@@-- ?$)-@@@@@ $$$?--@@@@@@@ $$ 666;?@B@@ $#$ 66@B@@ $$$666@@$!!!!61111@@ $$#@E 08HXhx 0@P`p(8HXhx 0@P$$ 66$??@@$$$--26;?$,-@I ?$$ -@@@@$$$--266;?@@@@@$$$--;7--@@@@$$$--;7@@@@@@@d)5?$$ -@@@$$$6     Z1(Z$) :uZ3((Z$,Z,1))D ?uZ364ĔZ364Z1(Z1)7,Z2:30050U DuZ33230050n NuZ321Z1(Z1)7,Z2u buZ{ lu4 luZ luI050) DuZ33230050B NuZ321Z1(Z1)7,Z2I buZO lu)"` 20:3s "(REFERENCE:"~ 22:6 "SPACE CONCEPTS THROUGH AESTHEOMETRY" 24:10 "BY JAMES T. ANDERSON)" I14000:I (4);"RUN CURVE1" 0u (4);"BLOAD LETTERS,A$4000":232,0:233,64D Z$"AESTHEOMETRY"T Z190:Z275a 3:1:0l 30000 (4);"RUN CURVE1" 0uZ1(Z$) :uZ3((Z$,Z,1)) ?uZ364ĔZ364Z1(Z1)7,Z2:30050 DuZ33230050 NuZ321Z1(Z1)7,Z2 buZ PROGRAM: CURVES3 LAST UPDATE: 8/25/80M :(4);"NOMON C,I,O"U<:aA:8192hF6K0,00,150270,150270,00,0I10J1524515II100,I:J,150:JI160J2451515II10270,I:J,0:J.   Z321Z1(Z1)7,Z2buZ lu IS CALLED ---"&fZ$"ELLIPSE"7pZ1175:Z275Bz30000v10:"HIT ";::"RETURN";::" TO CONTINUE":A$" "(4);"RUN CURVE11"0uZ1(Z$):uZ3((Z$,Z,1))?uZ364ĔZ364Z1(Z1)7,Z2:30050DuZ33230050NuDuZ33230050'NuZ321Z1(Z1)7,Z2.buZ4luG(G71999::1)24:" PRESS '";::"SPACE BAR";::"' TO CONTINUE.";:16368,0*(16384)12841002+16368,0,:.";:16368,0*(16384)12841002+16368,0,:2/ \"THE CURVE FORMED WITHIN AN ACUTE ANGLE"K a" IS CALLED ---"\ fZ$"ELLIPSE"m pZ1175:Z275x z30000 41000 D$(13)(4) 1:D$"RUN CURVE1A"  0uZ1(Z$) :uZ3((Z$,Z,1)) ?uZ364ĔZ364Z1(Z1)7,Z2:30050" 195,1530,30 41000& 22S "SIMILARLY, CONNECT THE 8'S, 7'S, ETC."\ K30n I1753520} KK15:LK I,15K,L:I 41000 22 *"THE RESULTANT CURVE IS FORMED AS" 4"TANGENT POINTS TO THESE LINES" >41000 R2:Z163:Z285 30000/ Z$"5":Z178:Z2100: &30000R 0Z$"4":Z193:Z2115] :30000v DZ$"3":Z1108:Z2130 N30000 XZ$"2":Z1123:Z2145 b30000 lZ$"1":Z1138:Z2160 v30000 41000 22 "NOW CONNECT POINTS NUMBERED 9 rZ$"1 2 3 4 5 6 7 8 9"1 |Z130:Z210> 3:1:0I 30000T 41000\ 22 "AND THE OTHER SIDE IN REVERSE ORDER" Z$"9" Z118 Z240 30000 Z$"8":Z133:Z255 30000 Z$"7":Z148:Z270 30000 Z$"6"3 I3519520& I,17I,13:I/ J15@ I3015015H JI` I3,J3I3,J3:Ih 22 "WITH EACH SIDE DIVIDED INTO EQUAL PARTS" 41000 `22 b"WITH THE DIVISIONS NUMBERED ---" h23 m"ONE SIDE AWAY FROM THE VERTEX"! PROGRAM: CURVE15 LAST UPDATE: 8/25/80W D$(13)(4):D$"NOMONC,I,O"]<cAjF1uK15,15PI16230ZI,15:Id16,15nJ16xI16160I,JJJ1:I22"CONSIDER AN ACUTE ANGLE"41000      BAR";::"' TO CONTINUE.";:16368,0=*(16384)12841002K+16368,0S,:41002k+16368,0s,:I pZ175:Z275 z30000% 41000B 1::(4);"RUN CURVE1B"H W 0uZ1(Z$)k :uZ3((Z$,Z,1)) ?uZ364ĔZ364Z1(Z1)7,Z2:30050 DuZ33230050 NuZ321Z1(Z1)7,Z2 buZ lu (G71999::1$)24:" PRESS '";::"SPACE INTS" L3015015! II201 I,JK,L:L< 41000D 22l *"THE RESULTANT CURVE IS FORMED AS" 4"TANGENT POINTS TO THESE LINES" >41000 R22 \"THE CURVE FORMED WITHIN A RIGHT ANGLE" a" IS CALLED ---" fZ$"PARABOLA"30000 Z$"5":Z1220:Z294* &30000C 0Z$"4":Z1220:Z2109N :30000g DZ$"3":Z1220:Z2125r N30000 XZ$"2":Z1220:Z2141 b30000 lZ$"1":Z1220:Z2156 v30000 41000 I10:J15:K210 22 "CONNECT LIKE NUMBERED PO6 5 4 3 2 1"! |Z126:Z210. 3:1:09 30000D 41000L 22w "AND THE OTHER SIDE IN REVERSE ORDER" Z$"9" Z1220:Z231 30000 Z$"8":Z1220:Z247 30000 Z$"7":Z1220:Z262 30000 Z$"6":Z1220:Z278 3015015 207,J213,J:J% 22T "WITH EACH SIDE DIVIDED INTO EQUAL PARTS"` 24:10k 41000s ;22 @ --- DIVISIONS ARE MARKED `22 b"WITH THE DIVISIONS NUMBERED ---" h23 m"ONE SIDE AWAY FROM THE VERTEX" rZ$"9 8 7 U PROGRAM: CURVE1A4 LAST UPDATE: 7/25/80:<@AGF1RK15,15`PI16210nZI,15:Iyd16,15xJ16160I,JJ22"ALSO CONSIDER A RIGHT ANGLE"410003I3019020I,17I,13:I J     30050 NuZ321Z1(Z1)7,Z2% buZ+ luZ9 luU1::(4);"BLOAD LETTERS,A$4000"3 232,0:233,64I Z$"AESTHEOMETRY"Y Z190:Z275f 3:1:0q 30000~ 1020,57 G13000: 1::(4);"RUN CURVE2" 0uZ1(Z$) :uZ3((Z$,Z,1)) ?uZ364ĔZ364Z1(Z1)7,Z2:30050 DuZ332- PROGRAM: CRVDEMO5 LAST UPDATE: 8/25/80O :(4);"NOMON C,I,O"W<:]AdF6K0,00,150270,150270,00,0I10J1524515II100,I:J,150:JI160J2451515II10270,I:J,0:J   I9:JJ5 I,JK,L:L4 22:15:"HYPERBOLOID"E I14000:Ia 1::(4);"RUN CURVE3"IKK9:II9:JJ5 I,JK,L:L 22:15:"HYPERBOLOID" I14000:I 1::(4);"RUN CURVE3"Ic PROGRAM: CURVE23 LAST UPDATED: 7/1/80>*::2_40,00,150270,150270,00,0p0,0270,1500,150270,0I9:J5K135L7005KK9:II9:JJ5I,JK,L:LI9:J155:K135L801505 KK9:I I,JK,L:L h22:15& r"ASTROID"7 I14000:IS 1::(4);"RUN CURVE4" I,JK,L:L# I120:J157.5:L754 "K1282008@ ,JJ7.5P 6I,JK,L:Ke @I208:J75:K120x JL67.507.5 TII8 ^I,JK,L:L h22:15 r"ASTROID" I14000:I 1::(4);"RUN CURVE4"I JL67.507.5 TII8 ^ PROGRAM: CURVE33 LAST UPDATED: 7/1/80;<:BF3fK40,040,150200,150200,040,0d120,0120,150:40,75200,75I120:J7.5:L75K112408JJ7.5I,JK,L:KI32:J75:K120L82.51507.5II8    I14000:I- 1::(4);"RUN CURVE5"uOID OF ANOTHER TURN"W I14000:In (4);"RUN CURVE5"VE5"|1507.5 II8:JJ7.5:KK80 I,JK,L:LG I32:J157.5:K120[ "L82.51507.5s ,II8:JJ7.5:KK8 6I,JK,L:L @I208:J157.5:K120 JL67.507.5 TII8:JJ7.5:KK8 ^I,JK,L:L 22:6 "ASTROID OF ANOTHER TURN"/ PROGRAM: CURVE42 LAST UPDATED: 7/1/808<>AEF3iK40,040,150200,150200,040,0{40,0200,15040,150200,0I32:J7.5:K120L67.507.5II8:JJ7.5:KK8I,JK,L:LI32:J7.5:K120 L82.5  364ĔZ364Z1(Z1)7,Z2:300501 DuZ33230050J NuZ321Z1(Z1)7,Z2Q buZW lu7,Z2:30050y DuZ33230050 NuZ321Z1(Z1)7,Z2 buZ lu3 DuZ33230050 NuZ321Z1(Z1)7,Z2 buZ lu0L150757.5 II8) "I,JK,L:L> ,I200:J82.5:L0P 6K1921208\ @JJ7.5l JI,JK,L:Ky T3:1:0 ^Z$"CIRCLE" hZ1105 rZ275 |30000 I14000:I 1::(4);"RUN CURVE6" 0uZ1(Z$) :uZ3((Z$,Z,1)) ?uZY PROGRAM: CURVE52 LAST UPDATED: 7/1/80:A:AF3eK40,040,150200,150200,040,0xI128:J0:K40L7.5757.5II8I,JK,L:LI40:J67.5:L150K481208JJ7.5I,JK,L:KI112:J150:K200   I 1::(4);"RUN CURVE7"7 "QUADRIFOLIUM"H I14000:I_ (4);"RUN CURVE7" 50:K112 L75142.57.5, II8:KK8< I,JK,L:LR I200:J150:K112f L75142.57.5x JJ7.5:KK8 I,JK,L:L I200:J0:K112 L757.57.5 JJ7.5:KK8 I,JK,L:L 22:12 "QUADRIFOLIUM" I14000::II8 I,JK,L:J) I40:J0:K128< "L757.57.5N ,JJ7.5:KK8^ 6I,JK,L:Ls @I40:J150:K128 JL75142.57.5 TJJ7.5:KK8 ^I,JK,L:L hI40:J150:K128 rL75142.57.5 |II8:KK8 I,JK,L:L I200:J1  PROGRAM: CURVE62 LAST UPDATED: 7/1/80:A:AF3eK40,040,150200,150200,040,0w40,0200,15040,150200,0K40:L0:I128J757.57.5KK8:II8I,JK,L:JK200:L0:I112J757.57.5 KK8   "A SECOND DESIGN"# I14000:I? 1::(4)"RUN CURVEND"K SECOND DESIGN"g I14000:I (4);"RUN CURVE END" 150:K112 L75142.57.5. II10:KK8> I,JK,L:LT I200:J150:K112h L75142.57.5x JJ9:KK8 I,JK,L:L I200:J0:K112 L757.57.5 JJ9:KK8 I,JK,L:L 21:12 "QUADRIFOLIUM" 23:10 K10:II8 I,JK,L:J- I40:J0:K128@ "L757.57.5P ,JJ9:KK8` 6I,JK,L:Lu @I40:J150:K128 JL75142.57.5 TJJ9:KK8 ^I,JK,L:L hI40:J150:K128 rL75142.57.5 |II10:KK8 I,JK,L:L I200:JA PROGRAM: CURVE72 LAST UPDATED: 7/1/80<A::CF3gK40,040,150200,150200,040,0y40,0200,15040,150200,0K40:L0:I128J757.57.5KK10:II8I,JK,L:JK200:L0:I112J757.57.5 K   N HELLO")1023,9*:AIFERENT PROGRAM, OR"# :"3) END"N13:"PLEASE ENTER 1, 2, OR 3 ";:868_40000:ZEZNtZE0ZE443030:"PLEASE ENTER A NUMBER 1 - 3":43022Z31ĺ(4);"RUN CURVES"ZE343049:10:"GETTING THE MENU PROGRAM...":(4);"RUD$"RUN CRVDEMO"#$D$"RUN CURVES"?*1020,0:(1023)123ĀS4D$;"RUN HELLO"A"Y"ĺ(4);"RUN CURVES"(A$,1,1)"N"43050:"PLEASE ANSWER WITH YES OR NO":43005 "WOULD YOU LIKE TO:"::"1) RUN THIS PROGRAM AGAIN,"::"2) RUN A DIFCONTINUE.";:16368,0.*(16384)12841002<+16368,0D,:VD$(13)(4)jD$"NOMONC,I,O"r: 10:"DO YOU WANT TO TRY"12:868:"AGAIN (YES OR NO) ?";R$:R$(R$,1):R$"Y"R$"N"43030 :R$"N"43050"(1020)57ĺJ90100 EI,JI1,J1' JII1:J< T225,100245,100Q UI223:J40:K255` VL50904j WII2z XI,JK,L:L YI223:J100:K255 ZL90504 [II2 \I,JK,L:L (G71999::1)24:" PRESS '";::"SPACE BAR";::"' TO 10010 JJ10:KK5' I,JK,L:L; 220,40220,100P I220:J30:K220a L904010r JJ10:KK5 I,JK,L:L 225,40225,100 225,40245,40 I245 J4050 "I,JI1,J1 ,II1:J 1255,50255,90 6I255 @ 155,40185,40& I190:J40:K1555 L45705? II5O I,JK,L:Lb 155,70180,70w 155,100185,100 I190:J100:K155 L95705 II5 I,JK,L:L 190,40190,100 190,40220,100 I190:J110:K190 L50J6 I,JK,L:K$ 60,7090,706 95,4095,100H 95,40125,40\ I130:J40:K95k L45705u II5 I,JK,L:L 95,70120,70 95,100125,100 I130:J100:K95 L95705 II5 I,JK,L:L 155,40155,10060,4060,100 I60:J34:L70/ K637539 JJ6I I,JK,L:K] I60:J106:L70l K63753v JJ6 I,JK,L:K 90,4090,100 I90:J34:L70 K87753 JJ6 I,JK,L:K I90:J106:L70 K87753 JU PROGRAM: CURVEND3 LAST UPDATED: 7/1/80Md ENDING OF A PROGRAMUn:\s7mx25,4055,4040,4040,100I22:J40:K40L5210012II3I,JK,L:LI58:J40:K40L5210012II3I,JK,L:L      16368,0,:4:IE BAR";::"' TO CONTINUE.";:16368,0]*(16384)12841002k+16368,0s,:I ?uZ364ĔZ364Z1(Z1)7,Z2:300506 DuZ33230050O NuZ321Z1(Z1)7,Z2V buZ\ luf vu::y (G71999::1 )24:" PRESS '";::"SPACE BAR";::"' TO CONTINUE.";:16368,0 *(16384)12841002 +16368,0 ,:841002 +LED---" fZ$"HYPERBOLA"+ pZ1125:Z2756 z30000A 41000\ 1::(4)"NOMONC,I,O"f :: 10:"LET'S LOOK AT SOME COMBINATIONS"::"OF THESE CURVES..."  41000 1::(4)"RUN CURVE2"  0uZ1(Z$) :uZ3((Z$,Z,1))%$"2":Z115:Z268 b300002 lZ$"1":Z15:Z258= v30000H 41000P 22| "WHEN WE CONNECT LIKE NUMBERED POINTS" I10:J40:L130 K11522015 II10:JJ10 I,JK,L:K 41000 22 "THE RESULTANT TANGENT CURVE IS CAL" |Z1115:Z2145 3:1:0+ 30000C Z$"8":Z175:Z2128N 30000f Z$"7":Z165:Z2118q 30000 Z$"6":Z155:Z2108 30000 Z$"5":Z145:Z298 &30000 0Z$"4":Z135:Z288 :30000 DZ$"3":Z125:Z278 N30000 XZI,133I,127:I" I902010- JI30B I2,J3I2,J3I IQ 22 "WITH EACH SIDE DIVIDED INTO EQUAL PARTS" 41000 ;22 @ --- IDENTIFYING DIVISIONS `22 b"WITH THE DIVISIONS NUMBERED ---" rZ$"1 2 3 4 5 6 7 8 PROGRAM: CURVE1B5 LAST UPDATE: 8/25/80;<AAHF1UK100,130ePI99101pZJI30}_I,J:Id100,130xI101250I,130:I22"AND LET'S LOOK AT AN OBTUSE ANGLE"410003I11522015  +13:1:"ANSWER 'YES' OR 'NO' PLEASE."810:680"21:1:958:"HERE ARE A JUST A FEW DIFFERENT":22:3:"POSSIBLE ELLIPTICAL SHAPES."y260,50:3140,50:4220,5010:11:1:958:"DO YOU WANT TO TRY AGAIN? ";Y$(Y$,1)"Y"110(Y$,1)"N"Ĺ34,12:(13);(4);"RUN HELLO",100:3:5II,100'&II120Ĕ8150,50501150,50>:XIIFDIINN10X21:1:958:"...IS A SPECIAL ELLIPSE CALLED A CIRCLE. ------"bY4555l0:8150,Y5:3:8150,Y:2150,50vY10X0< 21:1:958:" IF A RIGHT CIRCULAR CONE, 'C',...":10 21:1:958:"...IS CUT BY A PLANE 'P'":22:3:"PARALLEL TO THE BASE OF THE CONE..." X35:5X,100 10 21:1:958:"...THE FIGURE THUS FORMED..." II34194200:5X ^0:7X,80:3:7II,802 hII120Ĕ10150,50@ r1150,50I |XIIQ IIY 10 21:1:958:"...MUST BE POINTS ON THE SURFACE":22:3:"OF THE CONE." Y4555 0:10150,Y5:3:10150,Y:4150,50 Y 10  1150,5AGAIN..." ,1150,50 1101 6X35:735,80 ;21:1:958:"THE PLANE MAY CUT THROUGH THE SURFACE":22:3:"OF THE CONE AT ANY 'ANGLE'..." @10 J21:1:958:"...BUT THE INTERSECTION OF THE PLANE":22:3:"AND THE CONE..." TII3419420II,85 II120Ĕ9150,50) 1150,502 XII: IIB 10 21:1:958:"...THE FIGURE FORMED IS AN ELLIPSE.":22:28:"-------" X4555 0:9150,X5:3:9150,X:3150,50 X 10  "21:1:958:"LET'S LOOK AT THAT 1:958:"CALLED CONE HEREAFTER,...":22:8:"----":10I X35:6X,85 21:1:958:"...IS CUT BY A PLANE 'P'":10:21:1:958:"SO THAT P CUTS ONLY":22:3:"THE SURFACE OF THE CONE...":10 24:1:868 II3419420 0:6X,85:3:6: 1006 24:7:"PRESS 'SPACE BAR' TO GO ON. ";U (16384)127Ĺ16368,0:] 11d(13);(4);"BLOAD ELLIPSE TABLES"n232,0:233,64:8191::0:1:3x1150,50}16368,08 21:958:1:"IF A RIGHT CIRCULAR CONE, 'C',":10:21:!! ! ! ! ! !!!1)"Y"đ:(13);(4);"RUN ELLIPTICAL NATURE"\(Y$,1)"N"Ĺ34,12:(13);(4);"RUN HELLO"13:1:"ANSWER 'YES' OR 'NO' PLEASE."10630Y";:22:3:"SUM OF THE DISTANCES TO THE FOCI...";SN7195,30:750,45:7110,145[X10b21:1:958:"...IS CONSTANT."g64,79195,35212,79117,13164,7957,48212,79l10q:v11:1:958:"DO YOU WANT TO TRY AGAIN? ";Y$,(Y$,78,55:185,58207,72:15205,70:0*:10v;0:48:15130,35:132,32104,50:0:895,55:93,5867,73:16:1570,70<32:15148,35:145,32173,50:0:8178,55:185,58207,72:15205,70:0:31D21:1:958:"FOR EVERY POINT (P) ON THE ELLIPSE, THE,87;22:3:958:"FOR ANY POINT (P) ON THE ELLIPSE..."X7120,45:48:15130,35`10&22:3:958:"...F1P + F2P = 2 * 'A'."00:0:7120,45:3:132,32104,50:895,55:93,5867,73:16:1570,70"132:15148,35:145,32173,50:0:819,87\16:11239,87:0:11132,30:132,30132,40:9130,50:132,55132,75:32:11132,7548:1164,67:64,6795,67:0:10100,70:110,67135,67:16:11135,67:48:11143,67:143,67170,67:0:10175,70:185,67212,6716:11212,67:0:3:23975,70:185,67212,67:16:11212,67:0.1021:1:958:"RECALL THAT...":22:3:"'C'^2 + 'B'^2 = (CF2)^2 = 'A'^2":100:48:1138,87:38,8780,87:0:885,90:95,87135,87:16:11135,87:48:11143,87:143,87185,87:0:8190,90:200,8723EMI MINOR AXIS,"Y0:11132,30:132,30132,40:9130,50:132,55132,75:32:11132,75a1022:3:958:"'C' IS HALF F1F2."3:48:1164,67:64,6795,67:0:10100,70:110,67135,67:16:11135,67&48:11143,67:143,67170,67:0:10110I 21:1:958:"LET'S LABEL:":22:3:"'A' IS THE SEMI MAJOR AXIS," 48:1138,87:38,8780,87:0:885,90:95,87135,87:16:11135,87 48:11143,87:143,87185,87:0:8190,90:200,87239,87:16:11239,87 1022:3:"'B' IS THE S,67:143,67170,67:0:10175,70:180,67212,67:16:11212,67:0p @3:125,75:2250,75:3145,20:4145,145 J21:1:958:"IN AN ELLIPSE...":22:3:"WITH VERTICES A,B,C,D..." T10 r22:3:958:"WITH MAJOR AXIS AB AND MINOR AXIS CD," |3:48:1164,67:64,6795,67:0:10100,70:110,67135,67:16:11135,67 48:11143,67:143,67170,67:0:10175,70:185,67212,67:16:11212,67:0 "10 ,0:48:1164,67:64,6795,67:0:10100,70:105,67135,67:16:11135,67A 648:1114380,20:15126,4 10n 21:1:958:"... THE MINOR AXIS IS PERPENDICULAR TO":22:3:"THE MAJOR AXIS..." 140,70149,70149,78 10 21:1:958:"...AND THE MINOR AXIS BISECTS":22:3:"THE SEGMENT F1F2." 0:140,70149,70149,78I  F2)"T 560,100:6210,100:61,7863,7863,8061,80:214,78216,78216,80214,80\ 10 22:3:958:"A MAJOR AXIS PASSING THROUGH THE FOCI" 12239,100:14239,110:32:15262,90 10 22:3:958:"A MINOR AXIS" 0:1380,10:14Ś 100B 24:7:"PRESS 'SPACE BAR' TO CONTINUE.";:16368,0a(16384)127:1:868:i20sd8191n(13);(4);"BLOAD ELLIPTICAL NATURE TABLES"x232,0:233,64:3:0:1 21:1:958:"AN ELLIPSE HAS...":22:3:"TWO FOCI (F1 AND"" " " " " """""""