' +JJJJ ?\>m0M='+l> /+l   d]@ŵLҦ]]LF L}BBL] X  ` 鷎귭෍ᷩ췩緈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)*++`FG8`0($ p,&"ųųೳŪŪųųij  !"#$%&'()*+,-./0123456789:;<=>?   1 '" *"( (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"):$(%"%:$(%"%$$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 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@ [_ /QSIRb_L`LLLL`ª`LQLYLeLXLeLee ў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 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õ`  \ 濭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- ( ?  Ϡ@跻~!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䵍䵩m嵍`"L ŵ8ŵH ~(` d ֠Ġz# u`iLeeLLLL0LLL5IL5IбLL8eL8iLIOOOWXYQRSTUVWXYYZSTUVWXYZTUVWXYZ[VWXYZ[\WLLLLLLLLL8iLuuYXWNOPQRSTUVXWOPQRSTUVOPQRSTUVPQRSTUVP('&%$#cDDCEEEFEFFGFGGHFGHGHIGHIHIJGHIJHIJKHIJKIJKLHIJKLJKLMIJKLMJKLMNIJKLMNKLMNOJKLMNOLMNOPJKLMNOPLMNOPQKLMNOPQMNOPQRKLMNOPQRNOPQRSLMNOPQRSNOPQRSTLMNOPQRSTOPQRSTUMNOPQRSTUPQRSTUVMNOPQRSTUVQRSTUVWOPQRSTUVWTUVWXPQRSTUVWX @ @ @ @ @ @ @WVWWVXWUVXWUVXWTUVYXWTUVYXWSTUVZYXWSTUVZYXWRSTUVZYXWRSTUV[ZYXWQRSTUV[ZYXWQRSTUV[ZYXWPQRSTUV\[ZYXWPQRSTUV\[ZYXWOPQRSTUV\[ZYXWOPQRSTUV]\[ZYXWNOPQRSTUV]\[ZYXWNOPQRSTUV]\[ZYXWMNOPQRSTUV]\[ZYXWNOPQRSTUV[ZYXWNOPQRSTUV%%%%%%&&&&&&&''''''' @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @  !!!!!!!"""""""#######$$$$$$$%PPPPPPPPPPPPPPPPPPPPPPPPPPPP                        }xrmga[UOJD=71+%  %+17=DJOU[agmrx}((((((((((((((((((((((((((((((((PPPP@ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @  %+17=DJOU[agmrx}}xrmga[UOJD=71+% 13500:B4KCU8141503U8HX24:VY10:SP5:13000DU"813500:B5KCOU,814150kU68HX24:VY11:SP5:13000|U@813500:B6KCUJ814150S4160T7HX24:VY5:SP5:130000T713500:B0KC;T714150VT7HX24:VY6:SP5:13000gT713500:B1KCrT714150T7HX24:VY7:SP5:13000T713500:B2KCT714150T7HX24:VY8:SP5:13000T713500:B3KCT714150T7HX24:VY9:SP5:13000 U81:VY13:130009S27"ENTER WHICH COEFFICIENT TO CHANGE":XS<7"(0 - 6 OR D IF DONE)->";tSF7HX23:VY15:SP2:13000SP7KB$:KB$;SZ7KB$"D"ıSd7KB$"0"KB$"6"ĺ(7):14150Sn7KB(KB$)1:KB14210,14240,14270,14300,14330,14360,14390Tx713000:183 STEVE ARMSTRONG LONGVIEW TXL5:13000VR60;11);"B0 = ";B0qR66);1;11);"B1 = ";B1R66);2;11);"B2 = ";B2R76);3;11);"B3 = ";B3R 76);4;11);"B4 = ";B4R76);5;11);"B5 = ";B5R76);6;11);"B6 = ";B6S(7HX Q2VY:HXQ2SP):HXQ29Q4 ---- ENTER A NUMBERDQ4N1$""MQ4N2$bQ4N2$(13)13600Q4N2$;:N2$"."N2$"-"13540Q4N2$"0"N2$"9"ĺ(7);:13000:13510Q4N1$N1$N2$Q413515Q 5KC(N1$):13000:KC;Q*53R COPYRIGHT (C) 193500:TDKC:KC012370(Pb012390:12382bPf0HX10:VY23:SP20:13000::"INVALID ENTRY";::(7);hPp0Pz0 RESET PARAMETERSP0XEXHXL:YEYHYLP0XTXL280XEP0YTYH192YEP0XF280XEP0YF192YEP0P2 PLACE CURSOR AT (HX,VY,SP(ACE)3000!O 013500:IRKC:IR012370\O*0HX10:VY23:13000::"INVALID ENTRY";::(7);:12310wO40HX15:VY8:SP1:13000O>0NS$:NS$"Y"NS$"N"ĺNS$:12370OH0(7);:12390:12340OR0HX10:VY23:SP20:13000O\012130O^0HX15:VY9:SP4:13000P`01 R0YF192YER08R2 PLACE CURSOR AT (HX,VY,SP(ACE)DR2VY:HXRR2SP):HXXR2rR4 ---- ENTER A NUMBER}R4N1$""R4N2$R4N2$(13)13600R4N2$;:N2$"."N2$"-"13540R4N2$"0"N2$"9"ĺ(7);:13000:13510R4N1$N1$N2$S41351SP20:13000Q\0121302Q^0HX15:VY9:SP4:13000OQ`013500:TDKC:KC012370aQb012390:12382Qf0HX10:VY23:SP20:13000::"INVALID ENTRY";::(7);Qp0Qz0 RESET PARAMETERSQ0XEXHXL:YEYHYLQ0XTXL280XEQ0YTYH192YEQ0XF280XEYHYLYL012370"P 012390:12280=P0HX15:VY7:SP5:13000ZP 013500:IRKC:IR012370P*0HX10:VY23:13000::"INVALID ENTRY";::(7);:12310P40HX15:VY8:SP1:13000P>0NS$:NS$"Y"NS$"N"ĺNS$:12370PH0(7);:12390:12340 QR0HX10:VY23:/13500:XHKC:XHXLXHO123702O/12390:12190MO/HX15:VY4:SP5:13000pO/13500:XLKC:XHXLXLO12370O/12390:12220O/HX15:VY5:SP5:13000O/13500:YHKC:YHYLYH012370O/12390:12250O/HX15:VY6:SP5:13000P013500:YLKC:7);:14230W7141000W7HX24:VY5:SP4:13000AW713500:IRKCZW7IR0ĺ(7);:14270eW714100W COPYRIGHT (C) 1983 STEVE ARMSTRONG LONGVIEW TX.,14230!VF7HX24:VY3:SP4:130003VP713500:XHKC:LVZ7XH0ĺ(7);:14150kVd7XLXH:YLXH:YHXH:14100Vn7HX24:VY4:SP4:13000Vx713500:TDKCV7TD0ĺ(7);:14190V714100V7HX24:VY6:SP1:13000V7NS$:NS$; W7NS$"Y"NS$"N"ĺ(R OF PARAMETER TO CHANGE"8U6"(1 - 4 OR D IF DONE)-> "UU6HX14:VY15:SP20:13000oU7"CURRENT FUNCTION":zU 713800U7HX24:VY10:SP2:13000U7CH$:CH$U(7CH$"D"İ10100:U27CH$"1"CH$"4"ĺ(7);:1410V<7CH(CH$):CH14150,14190,14270T6:11);"SCREEN PARAMETERS"TT6:"1. POLAR AXIS RADIUS : ";XH;" RADIUS > 0"T6"2. TIC DISTANCE : ";TD;" DIST > 0"T6"3. INCREMENT : ";IR;" INCR > 0"T6"4. NEW SCREEN ? : ";NS$;" Y(ES OR N(O"U6::"ENTER NUMBE"COS (";S$6B1ĺB;" * ";+S.6"THETA)";=S86C0ĺ:13999WSB6C0ĺ" - ";C:13999kSL6" + ";C:13999SV6"THETA":13999S`6"R*(";:A1ĺA;"*";Sj6"COS(THETA) + ";:B1ĺB;"*";St6"SIN(THETA)) = ";CS6S6 ---- CHOOSE SCREEN PARAMETERSN2$"-"135408R4N2$"0"N2$"9"ĺ(7);:13000:13510HR4N1$N1$N2$SR413515mR 5KC(N1$):13000:KC;sR*5R5 --- PRINT CURRENT FUNCTIONR5FC413830R5"R = ";R5A1ĺA;" * ";R6FC13840,13850,13910,13920R6"SIN (";:13860S6"D"ı)Qb/FC$"1"FC$"4"ĺ(7);:121007Qg/FC(FC$)ZQl/HX1:VY19:SP39:13000:13800eQv/12100Q2 PLACE CURSOR AT (HX,VY,SP(ACE)Q2VY:HXQ2SP):HXQ2Q4 ---- ENTER A NUMBERQ4N1$""Q4N2$Q4N2$(13)13600R4N2$;:N2$"."ETA) + C"!P/"3. R = A * THETA"QP/"4. R = A * SIN (THETA) + B * COS (THETA)"P/13:"ENTER NUMBER FOR CHOICE OF FUNCTION"P&/"(1 - 4 OR D IF DONE)-> "::P0/12);"CURRENT FUNCTION":P:/13800PD/HX24:VY14:SP1:13000PN/FC$:FC$QX/FC$19:VY6:SP5:13000+O+13500:BKC:11290FO,HX19:VY8:SP5:13000VO,13500:CKCO,HX1:VY20:SP39:13000:13800:11130O. ---- CHOOSE FUNCTIONSO.:12);"CHOOSE FUNCTIONS":O."1. R = A * SIN (B * THETA) + C" P."2. R = A * COS (B * TH15100#Qt;HX27:VYVX3:SP5:13000>Q~;13500:B(VX)KC:15100Q COPYRIGHT (C) 1983 STEVE ARMSTRONG LONGVIEW TXT$"B"ĺ(7);:15100CP$;NU$:NU$;:NU$"0"NU$"9"ĺ(7);:15100gP.;NU$"0"LT$"A"ĺ(7);:15100{P8;NU$"0"15190PB;HX9:VY3:SP5:13000PL;13500:A(0)KC:15100PV;VX(NU$):LT$"A"15220P`;HX9:VYVX3:SP5:13000Qj;13500:A(VX)KC:9O:" A";XX;" = ";A(XX);9O:22:"B";XX;" = ";B(XX)AO:XXfO::3);"ENTER LETTER AND NUMBER"O:3);"OF COEFFICIENT TO CHANGE"O::"(A0 - B9, B1 - B9 OR D IF DONE)->";O:HX35:VY17:SP3:13000O;LT$:LT$;O;LT$"D"ıP;LT$"A"L0,12870Y2VY2:12880'Y2VY5:128807Y(2VY8:12880HY22VY11:12880YY<2VY15:12880jYF2VY19:12880YP2HX3:SP11:13000YZ2N1$(FC);:VYVY1:13000Yd2N2$(FC);Yn2Yx2Y2 --- POSITION CURSORY2VY:HXY2SP);:HXY2Z4 ---- FC;X/:12800,X/HX39:VY23:SP0:13000";V/" PARABOLID".V/18);"X^2 Y^2 Z^2"[V&/"3.ELLIPSOID";7);"--- + --- + --- = 1"vV0/18);"A^2 B^2 C^2V:/:"4.HYPERBALOID X^2 Y^2 Z^2"VD/" ONE SHEET";7);"--- + --- - --- = 1"VN/18);"A^2 B^2 C^2":WX/"5.HYPERBALOID);:11110$U+HX19:VY8:SP5:13000GU+13500:CKC:C0ĺ(7);:11230RU+11090oU. ---- CHOOSE FUNCTIONSU.:12);"CHOOSE FUNCTION"U."1.ELLIPTIC"U." PARABLOID X^2/A^2 + Y^2/B^2 = Z":U/"2.HYPERBOLIC X^2/A^2 - Y^2/B^2 = Z"p+CH$:CH$;Tz+CH$"D"ıET+CH(CH$)64:CH1CH3ĺ(7);:11110_T+CH11180,11210,11225zT+HX19:VY4:SP5:13000T+13500:AKC:A0ĺ(7);:11180T+11090T+HX19:VY6:SP5:13000T+13500:BKC:B0ĺ(7);:11210T+11090 U+FC3ĺ(7FICIENTS <> 0":FC3ĺ:::110508S +14);"C = ";C::eS*+"ENTER LETTER OF COEFFICIENT TO CHANGE"S4+"(A/B";:FC2ĺ"/C";S>+" OR D IF DONE)->";::SH+12);"CURRENT FUNCTION"SR+HX11:VY17:SP29:13000S\+15000Sf+HX24:VY12:SP1:13000 T(104)6410030>R$'104,64:16384,0:103,1:(4);"RUN THREE.D"zR.'(2054)76ĺ(4)"BLOAD GRAPHIX II":(4);"BRUN AMPER"R8':RL'R* ---- ENTER COEFFICIENTSR+:11);"ENTER COEFFICIENTS"::R +14);"A = ";A:!S+14);"B = ";B:20);"COEF"PUSH ANY KEY TO CONTINUE":"PUSH 'S' TO SHOW GRAPH AGAIN"bQ CH$:CH$;:CH$"S"įWINDOFF:3020kQ 200}Q# ----- AXISQ#X10:Y10:Z10:X210:Y20:Z20Q#22Q#X20:Y210:22Q#Y20:Z210:22Q#Q' --- SET UP MACHINE ROUTINESR':E DISK, ENTER" ";:NM$P(NM$,1)"0"200P :10:10::"SAVING PICTURE":P(4);"BSAVE ";NM$;", A$2000, L$2000"P 200P ZZ11000::WINDOW;Q 24:2).001)BO22"OX1X2:Y1Y2*OX2EO&X2Z1ACZ1ACIXeO0Y2(C(Z2)A(X2).001)BmO:22}ODX1X2:Y1Y2ONX2OXX2Z1AC:Y2(C(Z2)A(X2).001)B:22ObZ2O ----- SAVE PICTURE TO DISKP:10:"TO SAVE A PICTURE TO THW COPYRIGHT (C) 1983 STEVE ARMSTRONG LONGVIEW TX3000V713500:B2KC V714150;V7HX24:VY8:SP5:13000LV713500:B3KCWV714150rV7HX24:VY9:SP5:13000V813500:B4KCV814150V8HX24:VY10:SP5:13000V"813500:B5KCV,814150V68HX24:VY11:SP5:13000V@813500:B6KCVJ814150IKB$"D"ı+Ud7KB$"0"KB$"6"ĺ(7):14150iUn7KB(KB$)1:KB14210,14240,14270,14300,14330,14360,14390{Ux713000:14160U7HX24:VY5:SP5:13000U713500:B0KCU714150U7HX24:VY6:SP5:13000U713500:B1KCU714150V7HX24:VY7:SP5:1;B2T76);3;11);"B3 = ";B39T 76);4;11);"B4 = ";B4TT76);5;11);"B5 = ";B5oT76);6;11);"B6 = ";B6T(7HX1:VY13:13000T27"ENTER WHICH COEFFICIENT TO CHANGE":T<7"(0 - 6 OR D IF DONE)->";TF7HX23:VY15:SP2:13000TP7KB$:KB$; UZ75S 5KC(N1$):13000:KC;!S*5:S6 ENTER COEFFICIENTSgS6:" COEFFICIENTS OF DENOMINATOR":S6HX4:VY3:SP0:13000S6"EXPONENT COEFFICIENT"S6HX7:VY5:13000S60;11);"B0 = ";B0S66);1;11);"B1 = ";B1T66);2;11);"B2 = "$N1$N2$V413515.V 5KC(N1$):13000:KC;4V*5SV: ------- SET COEFFICIENTSvV::12);"SET COEFFICIENTS"::V:11500::V:13);"A = ";A:V:13);"B = ";B:V:13);"C = ";C:::V:"ENTER LETTER OF COEFFICIENT TO CHANGE"W::5)2YEU0XF280XE U0YF192YE&U0KU2 PLACE CURSOR AT (HX,VY,SP(ACE)WU2VY:HXeU2SP):HXkU2U4 ---- ENTER A NUMBERU4N1$""U4N2$U4N2$(13)13600U4N2$;:N2$"."N2$"-"13540U4N2$"0"N2$"9"ĺ(7);:13000:13510 V4N140TR0HX10:VY23:SP20:13000*T\012130ET^0HX15:VY9:SP4:13000bT`013500:TDKC:KC012370tTb012390:12382Tf0HX10:VY23:SP20:13000::"INVALID ENTRY";::(7);Tp0Tz0 RESET PARAMETERST0XEXHXL:YEYHYLT0XTXL280XEU0YTYH19#S013500:YLKC:YHYLYL0123705S 012390:12280PS0HX15:VY7:SP5:13000mS 013500:IRKC:IR012370S*0HX10:VY23:13000::"INVALID ENTRY";::(7);:12310S40HX15:VY8:SP1:13000S>0NS$:NS$"Y"NS$"N"ĺNS$:12370TH0(7);:12390:123VY3:SP5:130003R/13500:XHKC:XHXLXHO12370ER/12390:12190`R/HX15:VY4:SP5:13000R/13500:XLKC:XHXLXLO12370R/12390:12220R/HX15:VY5:SP5:13000R/13500:YHKC:YHYLYH012370R/12390:12250S/HX15:VY6:SP5:13000Q:/"ENTER LINE NUM FOR CHOICE OF PARAMETER"MQD/:"(1 - 7 OR D IF DONE)->";iQb/HX24:VY13:SP2:13000xQl/SC$:SC$;Qv/SC$"D"12420Q/SC$"1"SC$"7"ĺ(7);:12130Q/SC(SC$):SC12190,12220,12250,12280,12310,12340,12382Q/12130R/HX15:";XH;" HI LIMITS > 0"1P/"2. LO X : ";XL^P/"3. HI Y : ";YH;" LO LIMITS < 0"wP/"4. LO Y : ";YLP&/"5. INCREMENT ";IR;" INCREMENT > 0"P0/"6. NEW SCREEN ";NS$;" Y(ES OR N(O"P2/"7. TIC DIST ";TD;" DISTANCE > 0":,:11560O"-C;O(-")":5OO--------- LOAD STRINGSOP-FC$(1)"SIN":FC$(2)"COS":FC$(3)"TAN":FC$(4)"CSC":FC$(5)"SEC":FC$(6)"CTN":A1:B1:C0:FC1OZ-O. ---- SET PARAMETERSO.:HX11:VY1:13000O."SCREEN PARAMETERS":P."1. HI X : aL;AA;!aV;HX17:FC3HXHX32a`;SP15:13000Haj;BB;:FC315240[at;HXHX6:13000da~;CCja;a COPYRIGHT (C) 1983 STEVE ARMSTRONG LONGVIEW TX5060,15070,15060#`:" + ";:15080/`:" - ";;`:"---";g`:FC15100,15100,15110,15120,15120,15120z`:" = Z":15170`;" + ";:15130`;" - ";`;"--- = ";`$;FC615160`.;" 0":15170`8;" 1"`B;HX11:VYVY2:SP20:13000:FC3ĺ3);80_4: RESET PARAMETERS8_9:TJPITH180:PJPIPH180N_>:S1(TJ):C1(TJ)d_H:S2(PJ):C2(PJ)j_p:_: ---- SHOW CURRENT FUNCTION_:FC3ĺ3);_:"X^2 Y^2";:FC2ĺ" Z^2";_::10);:FC3ĺ3);_:"---";`:FC15060,15070,15060,1KC ^J814180)^r8HX16:VY10:SP5:13000O^|813500:IXKC:IX0ĺ(7);:14450Z^814180v^8HX16:VY11:SP5:13000^813500:IYKC:IY0ĺ(7);:14480^814180^8HX16:VY12:SP1:13000^8NS$:NS$;^8NS$"N"NS$"Y"ĺ(7);:14510_8141"1"CH$"6"ĺ(7);:14180']7CH(CH$)S]7CH14270,14330,14390,14450,14480,14510n]7HX16:VY3:SP5:13000]713500:RHKC:RH0ĺ(7);:14270]714180]7HX16:VY5:SP5:13000]813500:THKC]814180]68HX16:VY7:SP5:13000^@813500:PHEW SCREEN? ";NS$;" Y(ES OR N(O"::O\27"ENTER NUMBER OF PARAMETER TO CHANGE"p\<7"(0 - 9 OR D IF DONE)-> ":\F712);"CURRENT FUNCTION"\P7HX11:VY20:SP20:13000\Z715000\d7HX24:VY16:SP1:13000\n7CH$:CH$;\x7CH$"D"İ14900:]7CH$AMETERS":=[6"1. RHO (> 0) ";RH;4);"DIST FROM ORIGIN":n[6"2. THETA";7);TH;4);"ANGLE FROM X AXIS":[6"3. PHI ";8);PH;4);"ANGLE FROM Z AXIS":[7" INCREMENT INCREMENT > 0"[ 7"4. X";8);IX[7"5. Y";8);IY$\7"6. NENTER A NUMBERZ4N1$"""Z4N2$7Z4N2$(13)13600XZ4N2$;:N2$"."N2$"-"13540Z4N2$"0"N2$"9"ĺ(7);:13000:13510Z4N1$N1$N2$Z413515Z 5KC(N1$):13000:KC;Z*5Z6 ---- CHOOSE SCREEN PARAMETERS [6:8);"CHOOSE SCREEN PAR    f0p@ C@~@@@  A@p@  @   $I&`ve"@"H` `x> p;xa@@C@@C@x~`~ ~@@ @I@pCbpdxf~ 0`    La00@LC@@ A pG 8`aH8 0@  `@pp C@00 !" $ !bz`; %H|0C+ cq_@@C@@C@ `x~`~ ~@@ @P 2I@"pgf~ 0`@ p   La00@LC@ "  DraO ""@@@  `@pp C@@ ! `' !h1x.@@~@C~C&`H@xl^| @p@CC@@C@ ` @ 0 `QaA@`bcl0 8~ ~~0@@ L  0<`0`0@<`f@ " HH " @ 0  `0`0@ C@ @! dIa2p~p@@~@C~C( 8,"Kq! ";7W:HX29:VY17:SP2:13000KW:CF$:CF$"D"ınW:CF$"A"CF$"C"ĺ(7);:15090W;CF$"A"15130W;CF$"B"15150W ;CF$"C"15170W;15090W;HX18:VY7:SP5:13000W$;13500:AKC:15190W.;HX18:VY9:SP5:13000:13000*Z713500:YLKC:YHYLYL014360";pX(7HX24:VY13:SP2:13000X27SC$:SC$;X<7SC$"D"14440XF7SC$"1"SC$"7"ĺ(7);:14120XP7SC(SC$):SC14180,14210,14240,14270,14300,14330,14380XZ714120Yd : ";XH;" HI LIMITS > 0"8W6"2. LO X : ";XLeW6"3. HI Y : ";YH;" LO LIMITS < 0"~W6"4. LO Y : ";YLW6"5. INCREMENT ";IR;" INCREMENT > 0"W7"6. NEW SCREEN ";NS$;" Y(ES OR N(O"X 7"7. TIC DIST ";TD;" DISTANCE >V4N2$(13)136006V4N2$;:N2$"."N2$"-"13540`V4N2$"0"N2$"9"ĺ(7);:13000:13510pV4N1$N1$N2${V413515V 5KC(N1$):13000:KC;V*5V6 ---- CHOOSE SCREEN PARAMETERSV6:HX11:VY1:13000V6"SCREEN PARAMETERS":W6"1. HI X7:13000:"ELLIPSE";:12570FU1VY12:SP9:13000:"HYPERBOLA";:12570qU1VY16:SP9:13000:"HYPERBOLA";:12570wU1U1A0A1U1B0B1U$1U2 --- POSITION CURSORU2VY:HXU2SP);:HXU2U4 ---- ENTER A NUMBERU4N1$""V4N2$D"ı'T/FC$"1"FC$"5"ĺ(7);:122002T/12500IT/FC(FC$)::12500TT/12145tT0 ----- SHOW WHICH FUNCTION}T0HX4T0FC12520,12530,12540,12550,12560T0VY3:SP8:13000:"PARABOLA";:12570T0VY5:SP6:13000:"CIRCLE";:12570U0VY8:SP^2"/SN/"5. HYPERBOLA - ------- + ------- = 1"KSS/17);"A^2 B^2":jSX/"ENTER NUMBER FOR CHOICE"Sb/"(1 - 5 OR D IF DONE)-> ";Sl/:12500Sq/HX1:VY22:SP39:13000:39):39);:13000:15000S/HX24:VY20:SP2:13000T/FC$:FC$;:FC$"(X-H)^2 + (Y-K)^2 = R^2"8R/:14);"(X-H)^2 (Y-K)^2"cR/"3. ELLIPSE ------- + ------- = 1"}R/16);"A^2 B^2"R&/:15);"(X-H)^2 (Y-K)^2"R0/"4. HYPERBOLA + ------- - ------- = 1"R:/17);"A^2 B^2"SD/:15);"(X-H)^2 (Y-K)Q,CH$"R"FC2ĺ(7);:11200;Q,CH$"R"ĺ(7);:11200UQ,HX8:VY9:SP5:13000xQ,13500:RKC:R0ĺ(7);:11450Q,11200Q. ---- CHOOSE FUNCTIONSQ.:12);"CHOOSE FUNCTION"Q.:"1. PARABOLA Y = A*X^2 + B*X + C":R."2. CIRCLE 350PB,HX8:VY6:SP5:130004PL,13500:CKC:11200TPV,CH$"H"FC1ĺ(7);:11200hP`,CH$"H"11390Pj,HX8:VY7:SP5:13000Pt,13500:HKC:11200P~,CH$"K"FC1ĺ(7);:11200P,CH$"K"11430P,HX8:VY8:SP5:13000P,13500:KKC:112001260O+HX8:VY4:SP5:13000AO+13500:AKC:A0ĺ(7);:11240LO+11200lO+CH$"B"FC2ĺ(7);:11200O,CH$"B"11310O,HX8:VY5:SP5:13000O,13500:BKC:FC1B0ĺ(7);:11280O$,11200O.,CH$"C"FC1ĺ(7);:11200P8,CH$"C"11 `x""<OFq $nph B ` r @~@~@@@pp@@C@@CaC@    0`0`8 @Pb#I @  x?tG   0`0`@" + ";H;:15290_;" - ";H;8_;")^2 / ";AA:12);Q_;FC4ĺ" - ";:15320]_;" + ";_;"(Y ";:K0ĺ" + ";K;:15340_;" - ";K;_;")^2 / ";BB;" = 1";_>_ COPYRIGHT (C) 1983 STEVE ARMSTRONG LONGVIEW TXR ^L;15999/^V; -- PRINT EQUATION OF ELLIPSEQ^`;"(X";:H0ĺ" + ";H;:15220_^j;" - ";H;^t;")^2 / ";AA;" + (Y";:K0ĺ" + ";K;:15240^~;" - ";K;^;")^2 / ";BB;" = 1"^;15999^; --- PRINT HYPERBOLA^;FC5ĺ"- ";_;"(X";:H05080]:" - ";B;" * ";.]:"X";:C015110G]:C0ĺ" + ";C:15110[]:C0ĺ" - ";C;f];15999]; --- PRINT EQUATION OF CIRCLE];"(X";:H0ĺ" + ";H;:15150]$;" - ";H;].;")^2 + (Y";:K0ĺ" + ";K;:15170]8;" - ";K;^B;")^2 = ";RTYH192YE\8XF250XE'\8YF192YE-\8N\: ---- SHOW CURRENT FUNCTIONt\:FC15020,15120,15190,15260,15260\: --- PRINT EQUATION OF PARABOLA\:"Y = ";\:A115050\:A;" * ";\:"X^2";:B1ĺ" + ";:15080]:B0ĺ" + ";B;" * ";:110:14330&[8HX10:VY23:SP20:130001["814120L[,8HX15:VY9:SP4:13000i[6813500:TDKC:KC014360{[@814410:14380[J8HX10:VY23:SP20:13000::"INVALID ENTRY";::(7);[T8[^8 RESET PARAMETERS[h8XEXHXL:YEYHYL[r8XTXL250XE \|8Yz#     ŮĠ#ǠϠ"àΠ!Ϡ̠ؠɠҠҠҠ̠"E(4);"RUN RATIONAL"/E(4);"RUN TRIG"EE(4);"RUN POLAR"cE(4);"RUN CONIC SECTION"{E(4);"RUN THREE.D"E(4);"RUN FOURIER"E COPYRIGHT (C) 1983 STEVE ARMSTRONG LONGVIEW TXXOUTINES":7DJ"ENTER CHOICE (1 - 7 OR D IF DONE)-> ";FDTCH$:CH$;jD^CH$"D"ė:10:"MY PLEASURE":DhCH$"1"CH$"7"ĺ(7);(8);:340DrCH(CH$)D|:10::"LOADING PROGRAM";::DCH400,410,420,430,440,450,460E(4);"RUN POLYNOMIALONS"!C"2. RATIONAL FUNCTIONS":C"3. TRIG FUNCTIONS"^C"4. FUNCTIONS ON A POLAR AXIS"wC"5. CONIC SECTIONS"C""6. THREE DIMENSIONAL FUNCTIONS"C,"7. FOURIER FUNCTIONS"C6"D. DONE": D@:"THESE PROGRAMS USE":" DR. CAT'S GRAPHIX R(4);"BLOAD LOGO, A$2000"BB49232,0:49236,0:49239,0:49234,0PBA$:A$:zB:"ADVANCED MATH GRAPHICS PACKAGE":B"THIS SYSTEM PROVIDES GRAPHING"B"CAPABILITIES FOR THE FOLLOWING TYPES"B"TYPES OF GRAPHS:":C"1. POLYNOMIAL FUNCTIONG ----A ----- LONGVIEW TX 1983 --------?A (104)6415mA104,64:16384,0:103,1:(4);"RUN HELLO"A(2054)76ĺ(4);"BLOAD GRAPHIX II":(4);"BRUN AMPER"A49232,0:49236,0:49239,0:49234,0A::10:10::"ONE MOMENT PLEASE"B: @:::1@" **************************"U@" * ADVANCED MATH GRAPHICS *"y@" **************************"@:::" DISTRIBUTED EXCLUSIVELY BY DYNACOMP":I13000:I@ ::10:10::"ONE MOMENT PLEASE":A ----- (C) STEPHEN ARMSTR     15:VY4:SP5:130007N/13500:XLKC:XHXLXLO12370IN/12390:12220dN/HX15:VY5:SP5:13000N/13500:YHKC:YHYLYH012370N/12390:12250N/HX15:VY6:SP5:13000N013500:YLKC:YHYLYL012370N 012390:12280O0HX15:VY7:SP5:1;Mb/HX24:VY13:SP2:13000,Ml/SC$:SC$;?Mv/SC$"D"12420bM/SC$"1"SC$"7"ĺ(7);:12130M/SC(SC$):SC12190,12220,12250,12280,12310,12340,12382M/12130M/HX15:VY3:SP5:13000M/13500:XHKC:XHXLXHO12370M/12390:12190N/HX LO LIMITS < 0"+L/"4. LO Y : ";YLXL&/"5. INCREMENT ";IR;" INCREMENT > 0"L0/"6. NEW SCREEN ";NS$;" Y(ES OR N(O"L2/"7. TIC DIST ";TD;" DISTANCE > 0":L:/"ENTER LINE NUM FOR CHOICE OF PARAMETER"MD/:"(1 - 7 OR D IF DONE)->"K`,13500:A5KCKj,111456Kt,HX24:VY11:SP5:13000GK~,13500:A6KCRK,11145lK. ---- SET PARAMETERSK.:HX11:VY1:13000K."SCREEN PARAMETERS":K."1. HI X : ";XH;" HI LIMITS > 0"K/"2. LO X : ";XLL/"3. HI Y : ";YH;"11145!J+HX24:VY6:SP5:130002J+13500:A1KC=J+11145XJ+HX24:VY7:SP5:13000iJ,13500:A2KCtJ,11145J,HX24:VY8:SP5:13000J$,13500:A3KCJ.,11145J8,HX24:VY9:SP5:13000JB,13500:A4KCJL,11145JV,HX24:VY10:SP5:13000E":#I+"(0 - 6 OR D IF DONE)->";?I+HX23:VY15:SP2:13000NI+KB$:KB$;]I+KB$"D"ıI+KB$"0"KB$"6"ĺ(7):11145I+KB(KB$)1:KB11200,11230,11260,11290,11320,11350,11380I+13000:11150I+HX24:VY5:SP5:13000I+13500:A0KCJ+Y5:13000!H*+0;11);"A0 = ";A0+6);2;11);"A2 = ";A2rHH+6);3;11);"A3 = ";A3HR+6);4;11);"A4 = ";A4H\+6);5;11);"A5 = ";A5Hf+6);6;11);"A6 = ";A6Hp+HX1:VY13:13000Iz+"ENTER WHICH COEFFICIENT TO CHANG:16384,0:103,1:(4)"RUN PARABOLA"`G'(2054)76ĺ(4)"BLOAD GRAPHIX II":(4);"BRUN AMPER"hG':nG'G* ENTER COEFFICIENTSG+:"F(X) = A6 X^6 + A5 X^5 + ... + A1 X + A0":G +HX4:VY3:SP0:13000G+"EXPONENT COEFFICIENT" H +HX7:VX1XL:X2XHFn#9000/Fx#Y1YL:Y2YH:X10:X209F#9000JF#Y1.5:Y2.5_F#LX(XLTD)TDpF#X1LXXHTDF#X2X1:9000F#X1F#X1.5:X2.5F#LY(YLTD)TDF#Y1LYYHTDF#Y2Y1:9000F#Y1F#F':(104)6410003$G'104,64M$E(NM$,1)"0"200 ";:N:HIRES:WINDOFF+CNS$"Y"įCLR,0:9050?CX2XL:Y2A(X2)PCX1XLXHIR^CY1A(X1)mCY2YH500|CY2YL500CY1YH500CY1YL500C9000CX2X1:Y2Y1CX1D24:"PRESS ANY KEY TO CONTINUE":"PUSH S TO SHOW THE GRAPH AGA":0B"ENTER CHOICE (1 - 4 OR D IF DONE)-> ";LBVY12:HX37:SP2:13000vB"CH$:CH$;:CH$"D"ĺ(4);"RUN HELLO"B,CH$"1"CH$"4"ĺ(7);:280B6CH(CH$):CH330,340,400,2000B@280BJ11000:200BT12000:200B --- GRAPHING LINEC"THIS PROGRAM GRAPHS POLYNOMIAL FUNCTIONS"SA" OF UP TO DEGREE SIX":yA"OPTIONS: 1. ENTER COEFFICIENTS"A" 2. SET SCREEN PARAMETERS"A" 3. GRAPH LINE"A" 4. SAVE GRAPH TO DISK":B" D = DONE4#@ ---- POLYNOMIAL PROGRAM ---.@ 10000T@ X(X1)XFX1XT:Y(Y1)YTY1YF@ A(X)A0A1XA2XXA3XXXA4XXXXA5XXXXXA6XXXXXX@dA11:YL30:YH30:XL30:XH30:IR1:NS$"Y":TD5@n12410@ ---- MAIN MENU ---+A::          @ @ @ @ @ @ @ @ @ @ @ @ @ @ @  !!!""""###$$$$%%%&&&&'''@ @ <P P P 2NТҠ*UU*ժ   !!!!"""####$$$%%%%&&&'''' @ @ @ @ @      `8 ! !  mLA` ` & & 8e e ȱȱȱee x8 G% _ `L L _Le LL L8ϐ˥88 _Lqee LL8 08 L8ee LL``A ! !ɌF@& 4 - c vL4) cFf((`Ff`Lx8 G9 H`J L1 I1``Q`888 L*8ILz L`8  LТ$L c cLC $`NnNn L LLC LC  Z`)L ((((    `` c`I88 ei e 8 ei8 8 e ei  8e08F8`L*`I` ` & & 8e e ȱȱȱee x8 G% v о`0iTiLex8 Ge`x8 Gx8 '۠'?`f !"  c!"   c   c  c`8 !" !"  mL`IYYYYYYYYYY Y Y Y Y YYYYYYYYYYYYYYYYYYL GI9 9 (0Iiex (Ii )Iie`]GZ Z 4 I4Ж]GI9Z Z `G  De" L1 E " L FfFf &L E "L !` [ [ `&'FfFfFfFf %%% e&&e''&% &0 'L &''`&'L JJJJJJ,(0)) )IixоLT 8 i  0 8 c8eee cLT +`` # ! ȱ e e!!"" E   ` E "# K  ee888 i L k/8\L  cLT 8 i c cLT c vLT e cLT c8880  vL eee cĥLcLvLLL L@ L LL3LL LL LLLL_LLLa,W,P`,Q`,S`,R` G`@G`,T`,U`L?x8 G*$  I1``Q`x8 G L1)``+      5 'L' '`  5 'L*  5 B 'L0  5 B ' 'L3  5 ' ' 'L6L9L@LDLHLLLRLXL\  5L`Δє +A[^adgjmps { 릡` ' '` ' '` 5L 5 'L 5 B 'L   5 ' ' ' ' 'L  'L 'LL 5 B ' 'L 5 ' ' 'LL 5 ' 'L!  5 ' ' 'L$}st`L:a):=aLȘe::HʽH`CHKDODOLINESELINCLSCFLIHISCROLBOSWITCHCHARSEBDRCIRCLPENGUICDOCLINCBOCCHARSEHIREHROFWINDOWINDOFDRWPGDRWPGDISPPGDISPPGFILNTm_  N4N2$N4N2$(13)13600>N4N2$;:N2$"."N2$"-"13540hN4N2$"0"N2$"9"ĺ(7);:13000:13510xN4N1$N1$N2$N413515N 5KC(N1$):13000:KC;N*5N: --- SET COEFFICIENTSN::6);"ENTER COEFFICIENTS":N:" A0 = ";A(0)O:XX1::"INVALID ENTRY";::(7);#Mp0:Mz0 RESET PARAMETERSPM0XEXHXL:YEYHYLbM0XTXL280XEsM0YTYH192YEM0XF280XEM0YF192YEM0M2 PLACE CURSOR AT (HX,VY,SP(ACE)M2VY:HXM2SP):HXM2M4 ---- ENTER A NUMBERM4N1$""ENTRY";::(7);:123102L40HX15:VY8:SP1:13000XL>0NS$:NS$"Y"NS$"N"ĺNS$:12370qLH0(7);:12390:12340LR0HX10:VY23:SP20:13000L\012130L^0HX15:VY9:SP4:13000L`013500:TDKC:KC012370Lb012390:12382Mf0HX10:VY23:SP20:130002220K/HX15:VY5:SP5:13000BK/13500:YHKC:YHYLYH012370TK/12390:12250oK/HX15:VY6:SP5:13000K013500:YLKC:YHYLYL012370K 012390:12280K0HX15:VY7:SP5:13000K 013500:IRKC:IR012370L*0HX10:VY23:13000::"INVALID SC$"1"SC$"7"ĺ(7);:12130YJ/SC(SC$):SC12190,12220,12250,12280,12310,12340,12382dJ/12130J/HX15:VY3:SP5:13000J/13500:XHKC:XHXLXHO12370J/12390:12190J/HX15:VY4:SP5:13000J/13500:XLKC:XHXLXLO12370K/12390:1" INCREMENT > 0"?I0/"6. NEW SCREEN ";NS$;" Y(ES OR N(O"mI2/"7. TIC DIST ";TD;" DISTANCE > 0":I:/"ENTER LINE NUM FOR CHOICE OF PARAMETER"ID/:"(1 - 7 OR D IF DONE)->";Ib/HX24:VY13:SP2:13000Il/SC$:SC$;Iv/SC$"D"12420J/H.': H8''H. ---- SET PARAMETERS?H.:HX11:VY1:13000ZH."SCREEN PARAMETERS":H."1. HI X : ";XH;" HI LIMITS > 0"H/"2. LO X : ";XLH/"3. HI Y : ";YH;" LO LIMITS < 0"H/"4. LO Y : ";YLI&/"5. INCREMENT ";IR;5G#LX(XLTD)TD%G#X1LXXHTD5G#X2X1:9000=G#X1OG#X1.05:X2.5_G#Y1YLYH1oG#Y2Y1:9000wG#Y1}G#G':(104)6410020G'104,64:16384,0:103,1:(4)"RUN FOURIER"G$'(2054)76ĺ(4)"BLOAD GRAPHIX II":(4);"BRUN AMPER"VE ";NM$;", A$2000, L$2000"$F200IF(# LINE (CONSIDERS 0,0 AT CENTER)aF2#X3X(X1):X4X(X2)yF<#Y3Y(Y1):Y4Y(Y2)FF#LINE,X3,Y3,X4,Y4,0FP#FZ# --- AXISFd#Y10:Y20:X1XL:X2XHFn#9000Fx#Y1YL:Y2YH:X10:X20F#9000G#Y1.05:Y2.0!E4 ----- SAVE PICTURE TO DISKSE>:10:"TO SAVE A PICTURE TO THE DISK, ENTER"EH"NAME FOR DISK FILE BELOW (ENTER A ZERO"ER"TO CANCEL THIS ACTION)":E\"NAME -> ";:NM$Ef(NM$,1)"0"200Ep:10:10::"SAVING PICTURE":Fz(4);"BSA2A(0)$D0XX1NT:Y2Y2F(X2):XX3D:Y1YL620BDDY1YH620QDNY2YL620`DXY2YH620jDb9000zDlX1X2:Y1Y2DvX2D24:"PUSH ANY KEY TO CONTINUE":"PUSH S TO SHOW GRAPH AGAIN";DWINDOWDYN$:YN$;:YN$"S"įWINDOFF:650E200VY7:SP5:13000GC|13500:NT(KC):13000:NT;:NT1NT9ĺ(7);:370PC310`C15000:200pC12000:200C ---- GRAPH FUNCTIONC:HIRES:WINDOFFCNS$"Y"įCLR,0:9050CX1XL:Y1A(0):XX1NT:Y1Y1F(X1):XXCX2XLIRXHIRD&Y"!B"5. SAVE GRAPHICS TO DISK"0B""D. DONE"_B,:"ENTER CHOICE (1 - 5 OR D IF DONE)-> ";{B6HX37:VY14:SP1:13000B@CH$:CH$;BJCH$"D"ĺ(4);"RUN HELLO"BTCH$"1"CH$"5"ĺ(7);:310B^CH(CH$)BhCH370,390,400,500,2100CrHX30:1A::"THIS PROGRAM GRAPHS FOURIER FUNCTIONS"?A:11);9nA"F(X)=A0 + SUM AN*COS(N*X) + BN*SIN(N*X)"A10);"N=1":A"1. CHOOSE NUMBER OF TERMS -> ";NTA"2. ENTER COEFFICIENTS"A"3. CHOOSE SCREEN PARAMETERS"B"4. GRAPH FUNCTION3@ ----- THIS PROGRAM GRAPHS FOURIER FUNCTIONS>@10000d@X(X1)XFX1XT:Y(Y1)YTY1YF@ XL10:XH10:YL3:YH3:NS$"Y":BIG99999:TD1.57:IR.25:A(1)1:B(1)1:12410:NT1@F(X)A(XX)(XXX)B(XX)(XXX)A ---- MAIN MENU --------      $"D"ı'N+FC11160,11160,11200,11160JN+CH$"A"CH$"C"ĺ(7);:11130UN+11210xN+CH$"A"CH$"B"ĺ(7);:11130N+11210N+CH$"A"ĺ(7);:11130N+CH$"A"11240N+HX19:VY4:SP5:13000N+13500:AKC:11290N+CH$"B"11270O+HXFC311070 M +14);"B = ";B:3M4+14);"C = ";CIM>+HX1:VY11:13000wMH+"ENTER LETTER FOR COEFFICIENT TO CHANGE"MR+"(OR D IF DONE)-> ";M\+HX13:VY18:13000Mf+"CURRENT FUNCTION":Mp+13800Mz+HX18:VY12:SP1:13000M+CH$:CH$;N+CHX II":(4);"BRUN AMPER" L8':&LL'HLt' -- RESET SCREEN PARAMETERS^L~'XEXHXL:YEYHYLpL'XTXL280XEL'YTYH192YEL'XF238XEL'YF192YEL'L* ---- ENTER COEFFICIENTSL+:11);"ENTER COEFFICIENTS"::L +14);"A = ";A: M+K#T102PIP63K#THT1TC:X1XR(R3):Y1YR(R3)VK#THT1TC:X2XR(R3):Y2YR(R3)`K$9000hK$T1pK$R3vK"$K' --- SET UP MACHINE ROUTINESK':(104)6410030K$'104,64:16384,0:103,1:(4)"RUN POLAR"L.'(2054)76ĺ(4)"BLOAD GRAPHIJ(# ----- LINE ROUTINE0J2#X3X(X1):X4X(X2)HJ<#Y3Y(Y1):Y4Y(Y2)`JF#LINE,X3,Y3,X4,Y4,0fJP#wJ# ----- AXISJ#R1XH:R2XLJ#TH05P6P6J#X1XR(R1):X2XR(R2)J#Y1YR(R1):Y2YR(R2)J#9000J#THJ# -- TICSJ#R3TDXHTDIL$I@ ---- SET UP FOR GRAPHING:IJ:HIRES:WINDOFFTITNS$"Y"įCLR,0:9100wI^7000: CALL GRAPHING ROUTINESI ZZ11000:I 24:"PUSH ANY KEY TO CONTINUE":"PUSH S TO SHOW GRAPH AGAIN":WINDOWI CH$:CH$;:CH$"S"įWINDOFF:8220I& -- R*(A*COS(THETA) + B*SIN(THETA))=C:HTH0:R1F4(TH)THX1XR(R1):Y1YR(R1)gHTHIR2PIIRvHR2F4(TH)HX2XR(R2):Y2YR(R2)H(X1)XH7470H(X2)XH7470H(Y1)XH7470H(Y2)XH7470H$9000H.X1X2:Y1Y2H8THR7500G\ --- R = A * THETAIGfTH0:R1F3(R1):X1XR(R1):Y1YR(R1)]GpTHIR12PIIRGzR2F3(TH):X2XR(R2):Y2YR(R2)G(X1)XH7350G(X2)XH7350G(Y2)XH7350G(Y1)XH7350G9000GX1X2:Y1Y2GTHG7500&HFTHF7500*F -- R=A*COS(B*X)+CWFTH0IR:R1F2(TH):X1XR(R1):Y1YR(R1)jFTHIR2PIIRFR2F2(TH):X2XR(R2):Y2YR(R2)F (X1)XH7230F(X2)XH7230F (Y1)XH7230F*(Y2)XH7230F49000F>X1X2:Y1Y2FHTHGSEbFC7020,7140,7260,73807El R=A*SIN(B*THETA)+CaEvTH0:R1F1(TH):X1XR(R1):Y1YR(R1)tETHIR2PIIRER2F1(TH):X2XR(R2):Y2YR(R2)E(X1)XH7110E(X2)XH7110E(Y2)XH7110E(Y1)XH7110E9000EX1X2:Y1Y2CTURE TO THE DISK, ENTER"GD"NAME FOR DISK FILE BELOW (ENTER A ZERO"gD"TO CANCEL THIS ACTION)":}D"NAME -> ";:NM$D(NM$,1)"0"ıD :10:10::"SAVING PICTURE":D(4);"BSAVE ";NM$;", A$2000, L$2000"D EX ----- GRAPH FUNCTION:SP2:13000CJCH$:CH$;:CTCH$"D"ĺ(4);"RUN HELLO"[C^CH$"1"CH$"5"ĺ(7);:320ChCH(CH$):CH12000,11000,14000,8000,2000Cr200C"4. R * (A * COS(THETA) + B * SIN(THETA)) = C"C ----- SAVE PICTURE TO DISKD:10:"TO SAVE A PI B13800 B9:"OPTIONS :"::B"1. CHOOSE FUNCTION"WB"2. ENTER COEFFICIENTS"zB"3. CHANGE SCREEN PARAMETERS"B""4. GRAPH FUNCTION"B'"5. SAVE GRAPHICS TO DISK"B,"D. DONE"B6:"ENTER CHOICE (1 - 4 OR D IF DONE)-> " C@HX37:VY18ALIZE VARIABLESpAXL10:XH10:YL10:YH10:NS$"Y":BIG99999:TD5:IR.1:A5:B1:C0:PI3.14159:P6PI6:TC.05{A10100A ----- MAIN MENUA::"THIS PROGRAM GRAPHS FUNCTIONS USING"A9);"POLAR COORDAINATES":A12);"CURRENT FUNCTION":1@ --- THIS PROGRAM GRAPHS POLAR COORDINATES<@d10000S@nXR(R)R(THETA)j@xYR(R)R(THETA)@X(X1)XFX1XT@Y(Y1)YTY1YF@F1(X)A(XB)C@F2(X)A(XB)C@F3(X)AX@F4(X)C(A(X)B(X))A --- INITI          FOR CHOICE OF PARAMETER":ND/:"(1 - 7 OR D IF DONE)->";VNb/HX24:VY13:SP2:13000eNl/SC$:SC$;xNv/SC$"D"12420N/SC$"1"SC$"7"ĺ(7);:12130N/SC(SC$):SC12190,12220,12250,12280,12310,12340,12382N/12130N/HX15:VY3:SP5:13000 O > 0"M/"2. LO X : ";XLKM/"3. HI Y : ";YH;" LO LIMITS < 0"dM/"4. LO Y : ";YLM&/"5. INCREMENT ";IR;" INCREMENT > 0"M0/"6. NEW SCREEN ";NS$;" Y(ES OR N(O"M2/"7. TIC DIST ";TD;" DISTANCE > 0":N:/"ENTER LINE NUMLB,13500:A4KCLL,111457LV,HX24:VY10:SP5:13000HL`,13500:A5KCSLj,11145oLt,HX24:VY11:SP5:13000L~,13500:A6KCL,11145L. ---- SET PARAMETERSL.:HX11:VY1:13000L."SCREEN PARAMETERS":M."1. HI X : ";XH;" HI LIMITS0:11150#K+HX24:VY5:SP5:130004K+13500:A0KC?K+11145ZK+HX24:VY6:SP5:13000kK+13500:A1KCvK+11145K+HX24:VY7:SP5:13000K,13500:A2KCK,11145K,HX24:VY8:SP5:13000K$,13500:A3KCK.,11145K8,HX24:VY9:SP5:13000+HX1:VY13:13000=Jz+"ENTER WHICH COEFFICIENT TO CHANGE":\J+"(0 - 6 OR D IF DONE)->";xJ+HX23:VY15:SP2:13000J+KB$:KB$;J+KB$"D"ıJ+KB$"0"KB$"6"ĺ(7):11145J+KB(KB$)1:KB11200,11230,11260,11290,11320,11350,11380K+13003:SP0:13000.I+"EXPONENT COEFFICIENT"CI +HX7:VY5:13000ZI*+0;11);"A0 = ";A0uI4+6);1;11);"A1 = ";A1I>+6);2;11);"A2 = ";A2IH+6);3;11);"A3 = ";A3IR+6);4;11);"A4 = ";A4I\+6);5;11);"A5 = ";A5If+6);6;11);"A6 = ";A6JpOAD MACHINE LANGUAGE ROUTINES4H':(104)6410003dH'104,64:16384,0:103,1:(4)"RUN RATIONAL"H'(2054)76ĺ(4)"BLOAD GRAPHIX II":(4);"BRUN AMPER"H':H'H* ENTER COEFFICIENTSH+:" COEFFICIENTS FOR NUMERATOR":I +HX4:VY--- AXIS"Gd#Y10:Y20:X1XL:X2XH,Gn#9000FGx#Y1YL:Y2YH:X10:X20PG#9000aG#Y1.5:Y2.5vG#LX(XLTD)TDG#X1LXXHTDG#X2X1:9000G#X1G#X1.5:X2.5G#LY(YLTD)TDG#Y1LYYHTDG#Y2Y1:9000G#Y1G#H' --- L":F"NAME -> ";:NM$/F(NM$,1)"0"200SF :10:10::"SAVING PICTURE":}F(4);"BSAVE ";NM$;", A$2000, L$2000"F 200F(# LINE (CONSIDERS 0,0 AT CENTER)F2#X3X(X1):X4X(X2)F<#Y3Y(Y1):Y4Y(Y2)FF#LINE,X3,Y3,X4,Y4,0FP#GZ# H S TO SHOW GRAPH AGAIN";4E XX11000:XX:WINDOWYECH$:CH$:CH$"S"įWINDOFF:530bE200E ----- SAVE PICTURE TO DISKE:10:"TO SAVE A PICTURE TO THE DISK, ENTER"E"NAME FOR DISK FILE BELOW (ENTER A ZERO"F"TO CANCEL THIS ACTION)DXDB(XL):XD0Y1BIG:4405DX1XL:Y1A(X1)XDFDX2XLXHIRfDXDB(X2):XD0Y2BIG:460wDY2A(X2)XDDY2YH500DY2YL500DY1YH500DY1YL500D9000DX1X2:Y1Y2DX2E24:"PRESS ANY KEY TO CONTINUE":"PUSSP2:130005C"CH$:CH$;:CH$"D"ĺ(4);"RUN HELLO"VC,CH$"1"CH$"5"ĺ(7);:280}C6CH(CH$):CH330,350,340,400,2000C@280CJ11000:200CT12000:200C^14000:200C --- GRAPHING LINEC:HIRES:WINDOFFCNS$"Y"įCLR,0:9050:-B"1. ENTER COEFFICIENTS FOR NUMERATOR"ZB"2. ENTER COEFFICIENTS FOR DENOMINATOR"zB"3. SET SCREEN PARAMETERS"B"4. GRAPH LINE"B"5. SAVE GRAPHICS TO DISK":B"D. DONE":B"ENTER CHOICE (1 - 4 OR D IF DONE)-> "; CVY16:HX37::YL30:YH30:XL30:XH30:IR1:NS$"Y":B11:BIG99999:TD5FAn12410_A ---- MAIN MENU ---A::"THIS PROGRAM GRAPHS RATIONAL FUNCTIONS"A"OF THE FORM: ":A" F(X)"A" P(X) = ------"B" G(X)"J2@---- THIS PROGRAM GRAPHS RATIONAL FUNCTIONS=@10000c@X(X1)XFX1XT:Y(Y1)YTY1YF@ A(X)A0A1XA2XXA3XXXA4XXXXA5XXXXXA6XXXXXX@ B(X)B0B1XB2XXB3XXXB4XXXXB5XXXXXB6XXXXXX;AdA11        X2Z1ACZ1ACIX6NY2(C(Z2)A(X2).001)B>N22NNY1Y2:X1X2VNX2NX2Z1AC:Y2(C(Z2)A(X2).001)B:22NZ2NZ2IXXHIXNZ1Z2:X1Z1AC:Y1(C(Z1).001A(X1))BNX2(Z1AC)IXZ1ACIX OY2(C(Z2)A(XY2D3(X2):Z2(A(X2)B(Y2).999)C.M226MX2@M3000[M@ ---- QUADRATIC CONEnMJZ2XHIXIXMTZ1Z2:X1Z1AC:Y1(C(Z1).001A(X1))BM^X2(Z1AC)IXZ1ACIXMhY2(C(Z2)A(X2).001)BMr22M|Y1Y2:X1X2MX2N2AIXXHIX@LZX1X2:Y1D3(X1):Z1(A(X1)B(Y1).999)C_LdY2D3(X1)IYD3(X1)IY~LnZ2(A(X2)B(Y2).999)CLx22LZ1Z2:Y1Y2LY2LY2D3(X1)D3(X1)IYLZ2(A(X2)B(Y2).999)CL22LZ1Z2:Y1Y2LY2&M999)C%KY2D3(X1)IYD3(X1)IYAKZ2(A(X2)B(Y2)1)CIK22YKZ1Z2:Y1Y2aKY2~KY2D3(X1)D3(X1)IYK Z2(A(X2)B(Y2).999)CK22KZ1Z2:Y1Y2K(Y2K2Y2D3(X2):Z2(A(X2)B(Y2).999)CK<22KFX2LPXJX2D2(Z1)D2(Z1)IX=JY2(1.001A(X2)C(Z2))BEJ$22UJ.Y1Y2:X1X2]J8X2JBX2D2(Z2):Y2(1.001A(X2)C(Z2))B:22JLZ2JV3000J --- HYPERBALOID TWO SHEETSJX2XHAIXIXKX1X2:Y1D3(X1):Z1(A(X1)B(Y1).2IZ1Z2:Y1Y2IY2!I X2+I3000;IY1Y2:Z1Z2\I --- HYPERBALOID ONE SHEETnIZ2XHXHIYIZ1Z2:X1D2(Z1):Y1(1.001A(X1)C(Z1))BIX2D2(Z1)IXD2(Z1)IXIY2(1.001A(X2)C(Z2))BI22IY1Y2:X1X2IX2A(X2).001B(Y2))CH22.HY1Y2:Z1Z26HY2hHY2D1(X1):Z2(1A(X1).001B(Y2))C:22pHX2zH3000H ---- HYPERBOLIC PARABLOID --HX2XHXHIXHX1X2:Y1YH:Z1A(X1)B(Y1)HY2YHYHIYHZ2A(X2)B(Y2)I2X2 GX2G&3000.G0 --- ELLIPSOID ----DG:X2AIXAIXIXxGDX1X2:Y1D1(X1):Z1(1A(X1).001B(Y1))CGNY2D1(X1)IYD1(X1)IYGXZ2(1A(X2)B(Y2))CGb22GlY1Y2:Z1Z2GvY2GY2D1(X1)D1(X1)IYHZ2(1:HIRES:WINDOFF*FNS$"Y"įCLR,O:9100LFFC460,700,560,950,1200,1600oF --- ELLIPTIC PARABOLOID ---zFX1XHFX2XHXHIXFX1X2:Y1YH:Z1A(X1)B(Y1)FY2YHIYYHIYFZ2A(X2)B(Y2)F22FY1Y2:Z1Z2FY2GX1X11:VY18:13000:150004EJHX37:VY13:SP1:13000CETCH$:CH$;bE^CH$"D"ĺ(4);"RUN HELLO"EhCH$"1"CH$"5"ĺ(7);:330ErCH(CH$)E|CH390,400,410,420,2000E12000:200E11000:200E14000:200E ---- GRAPH FUNCTIONSFONS :":"D"1. CHOOSE FUNCTION"?D"2. ENTER COEFFICIENTS"_D"3. SET SCREEN PARAMETERS"xD"4. GRAPH FUNCTION"D"5. SAVE GRAPH IMAGE TO DISK"D""D. DONE":D,"ENTER CHOICE (1 - 5 OR D IF DONE)->"D6::12);"CURRENT FUNCTION":E@H16:N1$(XX),N2$(XX):XX{CRH40:TH30:PH60:PI3.14159:NS$"Y":IX2:IY2:CX140:CY96:XH10:YH10:FC1:A5:B5:C5:D250C14900C ------ MAIN MENUC::"THIS PROGRAM GRAPHS THREE DIMENSIONAL"C8);"VIEWS OF CONIC FUNCTIONS"D:"OPTIB(Y)YY(BB):C(Z)ZZ(CC):D1(X)B(1A(X))hBZD2(Z)A(1C(Z)):D3(X)((XX)(AA)1)BBn "ELLIPTIC","PARABOLOID","HYPERBOLIC","PARABOLOID","ELLIPSOID","","HYPERBOLOID","ONE SHEET","HYPERBOLOID","TWO SHEETS","QUADRATIC","CONE"CxXXA(Y4190ı$A*LINE,X3,Y3,X4,Y4,0*A,AA7XE(X)XS1YC1LA810000cA9XE(X)XS1YC1A:YE(X)XC1C2YS1C2ZS2A;ZE(X)XC1S2YS1S2ZC2RHA<SX(X)DXE(X)ZE(X)CXAFSY(X)CYDYE(X)ZE(X)4BPA(X)XX(AA):¶!4@ ------ THIS PROGRAM GRAPHS THREE D FUNCTIONS<@55V@ ----- LINE ROUTINE}@XX1:YY1:ZZ1:X3SX(X):Y3SY(X)@XX2:YY2:ZZ2:X4SX(X):Y4SY(X)@X31ı@X3276ı@X41ı@ X4276ı@"Y31ı@$Y3190ı@&Y41ı             FC$;:FC$"D"ı3N\+FC$"1"FC$"6"ĺ(7);:11080`Nf+FC(FC$):HX1:VY16:SP39:13000:11500kNp+11080N, --- PRINT FUNCTIONN,"F(X) = ";N,A1ĺA;" * ";N-FC$(FC);" ( ";N -B1ĺB;" * ";N-"THETA";N-C011560O -C0ĺ" + ";C;E";12);"4. COSECANT":?M+5);"2. COSINE";10);"5. SECANT":lM +5);"3. TANGENT";9);"6. COTANGENT"::M*+"ENTER NUMBER TO CHOOSE FUNCTION":M4+5);"(1 - 6 OR D IF DONE)-> ";::M>+HX1:VY16:13000:11500MH+HX29:VY12:SP2:13000NR+FC$: TIMING DELAY"L%XX11000:XX:9L':(104)6410003eL'104,64:16384,0:103,1:(4)"RUN TRIG"L'(2054)76ĺ(4)"BLOAD GRAPHIX II":(4);"BRUN AMPER"L':L'L* ---- ENTER FUNCTIONL+:9);"FUNCTION TO BE GRAPHED":M +5);"1. SIN3,X4,Y4,0KP#KZ# --- AXIS8Kd#Y10:Y20:X1XL:X2XHBKn#9000\Kx#Y1YL:Y2YH:X10:X20fK#9000yK#Y1.05:Y2.05K#LX(XLTD)TDK#X1LXXHTDK#X2X1:9000K#X1K#X1.05:X2.5K#Y1YLYH1K#Y2Y1:9000K#Y1K# L% ----IR(JYYA(BX1C):YY0Y1BIG:60704JY11YYDJY1YH6120TJY1YL6120dJY2YH6120tJY2YL6120~J9000JY2Y1:X2X1JX1JJ(# LINE (CONSIDERS 0,0 AT CENTER)J2#X3X(X1):X4X(X2)J<#Y3Y(Y1):Y4Y(Y2) KF#LINE,X3,YIR)IYYA(BX1C):YY0Y1BIG:58705IY11YYEIY1YH5920UIY1YL5920eIY2YH5920uI Y2YL5920I9000I Y2Y1:X2X1I*X1I4Ip ---- COTANGENTIzX2XLIR:YYA(BX2C)IYY0Y2BIG:6040IY21YYJX1XLXHXLXHIR.HYYA(BX1C):YY0Y1BIG:5660:HY11YYJHY1YH5710ZH&Y1YL5710jH0Y2YH5710zH:Y2YL5710HD9000HNX2X1:Y2Y1HXX1HbH --- SECANTHX2XLIR:YYA(BX2C)HYY0Y2BIG:5840HY21YYIX1XLXHXLIR:YYA(BX2C)%G,X1XLXHIR8G6Y1A(BX1C)HG@Y1YH5490XGJY1YL5490hGTY2YH5490xG^Y2YL5490Gh9000GrX2X1:Y2Y1G|X1GG ----- COSECANT GX2XLIR:YYA(BX2C)GYY0Y2BIG:5635GY21YYHX120 F9000FX2X1:Y2Y1$F X1*F ";:NM$*D(NM$,1)"0"100ND :10:10::"SAVING PICTURE":xD(4);"BSAVE ";NM$;", A$2000, L$2000"D 100D ---- GRAPH FUNCTIONSD:HIRES:WINDOFFDNS$"Y"įCLR,0:9050DFC5030,5200,5400,5600,5800,60005E24:"PUS):220C11000:100&C"15000:1006C,12000:100EC65000:100]C  ----- SECANT ~C ----- SAVE PICTURE TO DISKC:10:"TO SAVE A PICTURE TO THE DISK, ENTER"C"NAME FOR DISK FILE BELOW (ENTER A ZERO"C"TO CANCEL THIS ACTION)":R CHOICE")B"(1 - 5 OR D IF DONE)-> ";ZBHX10:VY20:SP29:13000:"CURRENT FUNCTION"gB:11500BHX24:VY13:SP2:13000BMC$:MC$BMC$"D"ĺ(4);"RUN HELLO"BMC$"1"MC$"5"ĺ(7):220BMC(MC$):MC280,290,300,310,2000C(7RAPHS TRIG FUNCTIONS":*Ax"OPTIONS :":RA"1. CHOOSE FUNCTION TO BE GRAPHED"mA"2. SET COEFFICIENTS"A"3. SET SCREEN PARAMETERS"A"4. GRAPH FUNCTION"A"5. SAVE GRAPHICS TO DISK"A"D. DONE - END PROGRAM": B"ENTER NUMBER FOR YOU/@ ---- THIS PROGRAM GRAPHS TRIG FUNCTIONS:@10000`@X(X1)XFX1XT:Y(Y1)YTY1YF@ XL10:XH10:YL3:YH3:NS$"Y":BIG99999:TD1.57:IR.25:A1:B1:C0:12410@11600: --- LOAD STRINGS@d ------- MAIN MENUEAn::"THIS PROGRAM G     Rpa h` 5@CC@@C@l@ `@@  @@`~ ~~0@@ @`L  0<`0`0@<`f@@ 2HH<p 0  `0`0@ C@ @! $sO'cQa`A @@CCa@CCX~@,2 "@LPp@" Iq@x   ~@@@C@f@Caf@C @@ `  p@`     00`?x @|0 @ `@pp @C!@ `qR OG""  | x00@ C@@ !"@@>`{@@CCa@CCp$`@""@HH0x  $>y r0px   ~@@@ @yc@f@Caf@C pb?@? 80    00p0 @ `@pp @C !@ D@""   | x00@ C@ p@A@y`_@@C@@CaC@G`""@HIP  $"  @8B@   0`0`@ @ @~@~@@ p@x`  Bp` @P    0`0`@ppcB6@`br  p A @8`@>`    f0p@ C@|` @@  A            2ĺ"A/B/";!N+FC1ĺ"C";:111904N+FC1ĺ"H/K";EN+FC2ĺ"/R";_N+" OR D IF DONE)-> ";N+HX1:VY20:SP39:13000:39):39);:13000:15000N+HX32:VY14:SP2:13000N+CH$:CH$;N+CH$"D"ıN+CH$"A"FC2ĺ(7);:11200O+CH$"A"1C1ĺ:11060M.+" B <> 0"3M4+FC1ĺ:11080DM>+" C = ";CWMH+FC1ĺ:11100hMR+" H = ";H{M\+FC1ĺ:11120Mf+" K = ";KMp+FC2ĺ:11140Mz+" R = ";R;" R <> 0"M+13:"ENTER LETTER OF COEFFICIENT TO CHANGE" N+"(";:FC4)"RUN CONIC SECTION"QL.'(2054)76ĺ(4)"BLOAD GRAPHIX II":(4);"BRUN AMPER"YL8':_LL'}L* ---- ENTER COEFFICIENTSL+:11);"ENTER COEFFICIENTS"::L +FC2ĺ:11040L+" A = ";A;" A <> 0"L +FC2ĺ:11060L*+" B = ";B; M,+F000K#Y1.5:Y2.5)K#LX(XLTD)TD:K#X1LXXHTDJK#X2X1:9000RK#X1gK#LY(YLTD)TDxK#X1.5:X2.5K#Y1LYYHTDK$Y2Y1:9000K$Y1K$K' --- SET UP MACHINE ROUTINESK':(104)6410030L$'104,64:16384,0:103,1:(090J X2XL3090#J X2XH3090-J 9000=J X1X2:Y1Y2CJ \J(# ----- LINE ROUTINEtJ2#X3X(X1):X4X(X2)J<#Y3Y(Y1):Y4Y(Y2)JF#LINE,X3,Y3,X4,Y4,0JP#J# ----- AXISJ#Y10:Y20:X1XL:X2XHJ#9000J#Y1YL:Y2YH:X10:X20K#9I\"NAME -> ";:NM$+If(NM$,1)"0"300OIp:10:10::"SAVING PICTURE":yIz(4);"BSAVE ";NM$;", A$2000, L$2000"I300I --- CHECK FOR OUT OF RANGEI Y1YL3090I Y1YH3090I Y2YL3090I Y2YH3090I X1XL3090J X1XH3KEY TO CONTINUE":"PUSH S TO SHOW GRAPH AGAIN"UHCH$:CH$;:CH$"S"įWINDOFF:2020^H300H4 ----- SAVE PICTURE TO DISKH>:10:"TO SAVE A PICTURE TO THE DISK, ENTER"HH"NAME FOR DISK FILE BELOW (ENTER A ZERO"HR"TO CANCEL THIS ACTION)":0G ----- HYPERBOLA #5/GX1XL:Y1H1(X1)CGX2XLIRXHIRRGY2H1(X2)\G3000dGX2yGX1XL:Y1H2(X1)GX2XLIRXHIRGY2H2(X2)G3000GX2G --- TIME DELAY BEFORE WINDOWGXX11000:XX:WINDOW.H24:"PUSH ANY FX2ERIRELIR"F Y2E2(X2),F30004F X2BF%FC2680LF*2000cF4 --- HYPERBOLA #4xFHY1YL:X1H3(Y1)FRY2YLIRYHIRF\X2H3(Y2)Ff3000FpY2FzY1YL:X1H4(Y1)FY2YLIRYHIRFX2H4(Y2)F3000FY2G2002 E2000E --- CIRCLE2EASA:BSB:AR:BR_E690: CIRCLE IS ELLIPSE WITH A= B = RsEAAS:BBS:2000E ----- ELLIPSEEELH(A):ERH(A)EX1EL:Y1E1(X1)EX2ELIRERIREY2E1(X2)E3000EX2EX1ER:Y1E2(X1) GRAPH FUNCTION%D:HIRES:WINDOFF?DNS$"Y"įCLR,0:9100[DFC540,660,690,820,950mD -- PARABOLAD&X1XL:Y1P(X1)D0X2XLIRXHIRD:Y2P(X2)DDY2YH630DNY2YL630DXY1YH630DbY1YL630Dl9000DvY1Y2:X1X2EX";%C::15);"CURRENT FUNCTION":0C15000LCHX37:VY12:SP1:13000[CCH$:CH$;zCCH$"D"ĺ(4);"RUN HELLO"CCH$"1"CH$"5"ĺ(7);:410CCH(CH$)CCH470,480,490,500,2100C12000:300C11000:300C14000:300D ---HS CONIC SECTIONS"'B@:"OPTIONS :":ABJ"1. CHOOSE FUNCTION"^BT"2. ENTER COEFFICIENTS"~B^"3. SET SCREEN PARAMETERS"Bh"4. GRAPH FUNCTION"Bm"5. SAVE GRAPHICS TO DISK"Br"D. DONE WITH PROGRAM"C|:"ENTER CHOICE (1 - 5 OR D IF DONE)-> Y)A((YK)(YK)(BB)1)HEAH4(Y)A((YK)(YK)(BB)1)H\AP(X)AXXBXCAH0:K0:A1:B1:R1:FC1:YL15:YH15:XL15:XH15:TD4:IR.5:NS$"Y"A14430: -- RESET SCREEN PARAMETERSA, ---- MAIN MENUEB6::"THIS PROGRAM GRAP/@ --- THIS PROGRAM GRAPHS CONIC SECTIONS:@d10000\@iX(X)XFXXT:Y(Y)YTYYF@nE1(X)B(AA(XH)(XH))AK@xE2(X)B(AA(XH)(XH))AK@H1(X)B((XH)(XH)(AA)1)K@H2(X)B((XH)(XH)(AA)1)KAH3(