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`" READ-----HOW MUCH MONEY WILL YOU GET? WRITE----T=?"+ "BOX IN YOUR TRANSLATION AND WORK THE PROBLEM. AFTER YOU HAVE FOUND THE AN- SWER AND CHECKED IT, TYPRNED IS EQUAL TO THE PRINCIPLE TIMES THE RATE TIMES THE AMOUNT OFM"TIME"" READ-----IF THE INTEREST IS ADDED ON... WRITE----T=P+I FOR THE TOTAL IS EQUAL TO THE PRINCIPLE (P) PLUS THE INTEREST. "--WAS $500 WRITE----P=500"P"FOR A PRINCIPLE OF $500."A" READ-----IN THE BANK AT 5% INTEREST. WRITE----R=.05 FOR A RATE OF 5% INTEREST. ALSO-----I=P*R*T SINCE THE IN- TEREST EAE INTEREST IS ADDED ON WHEN YOU GET THE MONEY, HOW NUCH MONEY WILL YOU GET?"0"LET'S TRANSLATE THE PROBLEM NOW. READ-----PUT AWAY TWELVE YEARS AGO. WRITE----T=12 FOR A TIME OF 12 YEARS READ--- HAWAII. YOU HAVE COME TO VACATION WITH SOME MONEY THAT A FRIEND HAS PUT AWAY IN THE CAPITAL CITY, HONOLULU. THE AMOUNT THAT YOUR FRIEND PUT AWAY 12""YEARS AGO WAS $500."N"SHE PUT THE MONEY IN THE HONOLULU CITY BANK AT 5% INTERENT. IF TH TYPE IN THE NUMBER OF THE CORRECT ANSWER."MsCD\xCD1ī130}"SORRY, WRONG ANSWER. THE ANSWER IS NUMBER 1. LET'S GO ON."~" AHHHHH AHHHHHH""YOU ARE SUDDENLY IN THE BRIGHT SUNSHINE OFO NINE---NOVE"n"THE ANSWER FOR S3 IS WHAT I WANT. SINCE I GAVE YOU THE ANSWER, I WILL ONLY GIVE YOU ONE CHOICE OF AN ANSWER. "Eo" (1) S3= DUE . SEI OTTO RECT ANSWER ON THE KEYBOARD."i"THE ANSWERS ARE IN ITALIAN, SO YOU WILL NEED THE FOLLOWING NUMBERS: ONE---UNO TWO---DUE THREE-TRE FOUR--QUATTRO FIVE--CINQUE SIX---SEI"j"SEVEN--SETTE EIGHT--OTTE "b"WHICH IS 2.95 FOR A TOTAL AMOUNT SPENT OF $4.00. OUR ANSWER IS RIGHT!!!! ISN'T THIS EASY AND FUN!!!!!!!!"cd"TO MOVE ON TO SOMEPLACE ELSE, ALL YOU MUST DO IS TYPE THE NUMBER OF THE COR- CYL)XXC(L)YYS(L)8&XXXDX(EXL)(L)Q0YYYDY(EYL)(L)\:YZYZjDX1ĪX1|NX278ĪX278XYZ1ĪYZ1bYZ158ĪYZ158lX,YZvLCX,DY,EX,EY,ZC!PI3.1415926536)R7:RADR(2PI)ISTPPI256TAX140eZC0ĪAY80xAY8050(ZC)~:31,11,158278,158278,11,1AX,AYL0RADSTPC(L)AXLBX(CXL)ZZZCS(L)AYLBY(5 25 25 0"9," 2 2 1 1 25 25 25 25 0"d6" 4 4 1 1 25 25 6 6 0"j@pJT"NOTE: KEEP Z LESS THAN 1(E.G.:.1)"^h"NOW ENTER THESE OR YOUR OWN:"r" K1, K2, L1, L2, M1,M2, N1, N2, Z" |BX,BY,CX,CY,DMENSION)"="SEE WHAT CURVES RESULT WHEN YOU CHANGE"^"THE PARAMETERS K,L,M,N,Z."d" SUGGESTED STARTING VALUES ARE:"" K1 K2 L1 L2 M1 M2 N1 N2 Z""--- --- --- --- --- --- --- --- ---""" 2 2 1 1 5 :8"SINE CURVE SUPERIMPOSED ON A REGULAR SPIRAL"e:"HERE ARE THE COORDINATES YOU CHOSE:""X=K1*(ANGLE)*COS(L1*ANGLE)+M1*SIN(N1*ANGLE)*COS(ANGLE)""Y=K2*(ANGLE)*SIN(L2*ANGLE)+M2*SIN(N2*ANGLE)*SIN(ANGLE)" "Z=0 (0>Z<1 ADDS A 3D DI L0RADSTP! L(L)(1L). F1L(L); F2L(L)W C(L)AXF1BX(CXL)c XC(L) S(L)AYF2BY(CYL) YS(L) ZZZC YZYZ* X1ĪX14 X278ĪX278> YZ1ĪYZ1H YZ158ĪYZ158R X,YZ\ Lf  A ? ";CX3N " B ? ";CYSX " Z ? ";ZCgb PI3.1415926536ol R7v RADR(2PI) STPPI32 AX140 ZC0ĪAY80:3225 AY8050(ZC)  :3 1,11,158278,158278,11,1 AX,AYI, NEUN, SECHS, FUNF"0/7"WHAT IS THE ANSWER?"8/;AGG/@AG3ī335w/E"SORRY THAT IS NOT THE ANSWER, TRY AGAIN."/J311/O"YES, THAT IS CORRECT!"/S/T" CRUSE!!"/U0Y"BACK IN TIME YOU GO AND INTO 1810. YOU ARE AT A CAMP "THE NUMBERS THAT YOU WILL NEED TO KNOW ARE:---ONE=EIN---TWO=ZWEI---THREE=DREI---FOUR=VIER---FIVE=FUNF---SIX=SECHS------SEVEN=SIEBEN---EIGHT=ACHT---NINE=NEUN."/6"(1) EIN, ZWEI, DREI, VIER (2) NEUN, FUNF, SECHS, ACHT (3) DRE HE HAS. THE ANSWERS ARE GIVEN IN GERMAN."-,"THE ANSWERS ARE LISTED AS: FIRST THE NUMBER OF QUARTERS, THEN DIMES, THEN NICKELS, AND FINALY THE NUMBER OF PENNIES."--"PUSH NUMBER 3 WHEN YOU ARE THROUGH WITH THE TRANSLATION."-.H.1CKET AND HE WILL GIVE IT TO YOU","IF YOU CAN TELL HIM HOW MANY QUARTERS, DIMES, NICKELS, AND PENNYS THAT HE HAS. HE HAS A TOTAL OF 22 COINS, TWICE AS MANY NICKELS AS QUARTERS."--'"AND THE NUMBER OF QUARTERS SQUARED IS THE NUMBER OF DIMES THATIGHT!!!!!"+)+" FLASH"/+ ,"IT IS PRESENT DAY AGAIN AND YOU ARE IN GERMAN TOWN, CHICAGO, ILLINOIS. THE HOUSES ARE SO CLOSE TOGETHER THAT THEY ARE TOUCHING. AN OLD MAN WALKS UP TO YOU AND SAYS THAT HE HAS $2.00 IN HIS POFIRE NI . EN (3) EIGHT TWO . SIX-------- ATTE TO . SEKS"*"TYPE IN THE NUMBER OF THE CORRECT ANSWER."*AR*AR1ī275* "SORRY, THE ANSWER IS WRONG. PLEASE TRY AGAIN."*255 +"THAT IS RE TWO (2) HOURS, SO ALL YOU NEED FOR THE ANSWER IS THE NUMBER OF MINUTES ROUNDED TO THE NEAR- EST TENTH OF A MINUTE."_*" (1) THREE SEVEN . FIVE----- TRE SJU . FEM (2) FOUR NINE . ONE-------- K THE SOD IN HIS FIELD ASSUMING THE HORSES WORK AT A CONSTANT SPEED?"("I WILL WAIT UNTIL YOU ARE READY TO GO ON. WHEN YOU HAVE THE TRANSLATION DONE PUSH THE NUMBER 2."(My)" THESE ANSWERS ARE GIVEN IN NORWE- GIAN. THEY ALL INCLUDAM, WHEN YOU ARE ONE QUARTER DONE, YOUR NEIGHBOR OLE LETS YOU USE HIS HORSE AND YOU ARE DONE WITH YOUR FIELD BY 12:00 NOON. OLE HAS TWICE AS MUCH LAND IN HIS FIELD AS YOU DO, IF HE USES YOUR HORSES PLUS HIS OWN, HOW LONGJ("WILL IT TAKE HIM TO BREA " &&"IT IS 1885 AND YOU ARE AT A NORWEGIAN SETTLEMENT IN THE MIDWEST, NEAR SIOUX FALLS, SOUTH DAKOTA. YOU HAVE STAKED YOUR CLAIM AND NOW IT IS TIME TO PLANT. YOU BEGIN BREAKING THE SOD AT 10:00 AM."'"AT 11:00 (3) TEN------DIEZ HOURS (4) ELEVEN---ONCE HOURS "X%ACg%AC3ī225%"SORRY THE ANSWER IS WRONG, PLEASE TRY AGAIN"%205%"THAT IS RIGHT! "%&" ZZZZZOOOOOOOMMMMMM DIRECTION AT 5 MILES PER HOUR. IF YOUR, BOAT CAN GO 35 MILES PER HOUR, HOW LONG WILL THR TRIP TAKE?"P%" THESE ANSWERS ARE IN SPANISH, THE LANGUAGE OF CUBA. THE CHOICES ARE: (1) EIGHT----OCHO HOURS (2) NINE-----NUEVE HOURS THER PEOPLE. THE CUBAN LEADER, FIDEL CASTRO HAS ALLOWED YOU AND ANY- ONE WHO WHANTS TO GO, TO LEAVE THE COUNTRY."h$"YOUR BOAT IS GOING 200 MILES TO FLORIDA U.S.A. THE OCEAN CURRENT IS IN YOUR FAVOR, THOUGHT, AND IS MOVING IN THE RIGHT IN." "1655""THAT IS RIGHT!!!!!!! VERY GOOD!";""" VOOM VOOM ""{#" IT IS THE SPRING OF 1980, YOU ARE GETTING ON A BOAT AT HAVANA, CUBE WITH MANY OE HUNDRED--LIMA HANELE (6) SIX HUNDRED---ONO HANELE (7) SEVEN HUNDRED-HIKU HANELE (8) EIGHT HUNDRED-EWALU HANELE (9) NINE HUNDRED--EIWA HANELE"!EF!EF8ī185""SORRY THE ANSWER IS WRONG, PLEASE TRY AGAE IN THE NUM- BER OF THE CORRECT ANSWER." " THE ANSWERS INCLUDE: (1) ONE HUNDRED--HAWAIIAN--EKAHI HANELE (2) TWO HUNDRED-----LUA HANELE (3) THREE HUNDRED---KOLU HANELE"!"(4) FOUR HUNDRED--EHA HANELE (5) FIV"WISH TO REVIEW.":5 " 1. DEFINITION OF MATRIX."W " 2. EXAMPLES OF MATRICES."x " 3. DEFINITION OF EQUAL." " 4. EXAMPLE OF EQUAL." " 5. DEFINITION OF ADDITION."  " 6. EXAMPLE OF ADDITION."  " 7. MULTIPLICATION."  : YOU WANT TO REVIEW ANY OF THE":C "PREVIOUS FRAMES (Y-N)? ";B$T*B$"Y"3000`/D$(4)q4B$"N"2130>"PLEASE TYPE Y FOR YES, N FOR NO."H2070R"THANKS FOR YOUR TIME.": :670::: "TYPE THE NUMBER OF THE ITEM YOU" 8 !"%"! 2 4 ! ! 1+1 - !"A"! ! ! 2 !"]"! ! = ! !"y"! ! ! !""! 5 6 ! ! 6-1 6 !""! ! ! !""'- -' '- -'"::670:A$: :670:::!"DO MATRICES - TWO MATRICES ARE"NX:"ARE SAID TO BE EQUAL IF COMPONENTS IN":zb"THE SAME POSITIONS ARE EQUAL TO EACH"l:"OTHER.":::v670:A$670:::" E X A M P L E"::" - - - -" "! ! ! "A$@14:3:"5";:5:"6";:15:"1"Q12:15:"2"o:12:22:"22";:25:"8"14:22:"47"18:22:"ANSWER":23&A$:+20600670:::D" D E F I N I T I O N"::N" EQUALA$414:3:"5";:5:"6";:13:"2";:22:"47"E12:13:"7"X:12:15:"2"{14:3:"5";:5:"6";:15:"1"14:15:"1";:25A$18:1:"5 X 2 + 6 X 1 =10 + 6 = 16"A$14:25:"16":23:18:1:" 5:"4";:15:"2";:25:"8",614:15:"1"2;C@12:13:"7"kJ14:3:"5";:5:"6";:13:"2";:23sTA$^18:1:"5 X 7 + 6 X 2 = 35 + 12 = 47"hA$r14:22:"47"w23yA$|:18:1:" " "A$*12:13:"7";:22:"22"G14:13:"2";::15:"1"]12:15:"2";:25eA$18:1:"2 X 2 + 4 X 1 = 4 + 4 = 8"A$12:25:"8"23"A$':18:1:" ",:12:3:"2";:"=" n14:3:"5 6";:15:"1"1x12:15:"2"V:12:3:"2";:5:"4";:13:"7"g14:13:"2"s12:23{A$18:1:"2 X 7 + 4 X 2 = 14 + 8 = 22"A$12:22:"22":23A$18:1:" :0" MULTIPLICATION IS MORE DIFFICULT.":^ "PROCEED SLOWLY THROUGH THE FOLLOWING":"STEPS TO LEARN HOW TO DO IT."::(6702A$<:960F6:12:"MULTIPLICATION"P8:12:"E X A M P L E"Z970d13:9:"X";:19:"THAT IS VERY GOOD!!!!!! HASN'T THIS BEEN FUN. I HOPE YOU HAVE LEARNED SOMETHING, AND THAT YOU WILL TRAVEL WITH THE AJB SPACE MACHINE AGAIN!!!!!"5 Z4u"(3)EIGHT, SIX, FOUR, ONE,---------- SHA-HDOH-GON, SHOCK-PEH, TOH-PAH, WON- CHA"4w"TYPE IN THE NUMBER OF THE CORRECT AN- SWER."4|XY4XY2ī4004"WRONG THERE IS ONLY ONE OTHER ANSWER THAT MEANS 2 MUST BE THE RIGHT ANSWERE."5 TO YOUNGEST, FIRST IS ENGISH THEN IN LAKOTA."3r"(1) TEN, NINE, EIGHT, SEVEN----------- WEEK-CHIM-NAH, NOP-CHIN-WON-KAH, SHA-HDOH-GON, SHA-KOH-WIN (2) TEN, FIVE, THREE, TWO------------- WEEK-CHIM-NAH, ZOP-TON, YAH-MNE, NU-PAH "IS THE YOUNGEST. THE FOUR AGES TOTAL 20. HOW OLD IS EACH CHILD? I WILL GIVE YOU TIME ONCE AGAIN. PLEASE TYPE IN 5 WHEN YOU ARE READY TO GO AGAIN."2eT.3h"THE ANSWERS ARE IN THE LANGUAGE OF THE LAKOTA SIOUX. THE AGES ARE LISTED FORM OLDEST BEAR MAKE UP A STORY ABOUT THEIR AGES, WHILE"1^"THE OLD GRANDMOTHER IS MAKING COOKIES FOR ALL THE CHILDREN TO EAT LATTER. BENDING REED IS TWICE AS OLD AS FIGHTS BEAR, WHOS AGE IS THE SUM OF LITTLE POT'S AND YELLOW CAT'S AGES. "2c"LITTLE POT OF THE LAKOTA SIOUX INDIANS IN NORTH DAKOTA. THE CHILDREN ARE ALL PLAYING TOGETHER. BY THE EX- TENDED FAMILY TRADITION, EVERY CHILD IS WATCHED BY THE ENTIRE TRIBE.".1\"THREE OF THE CHILDREN, BENDING REED, LITTLE POT, YELLOW CAT, AND FIGHTSS SPACE BAR TO CONTINUE..>>"3(16384)271500Q756:(16384)321400c:16368,0:k:NFH"10);"5 STOP"4:12:"ENTER NUMBER ";AFA1A55050XA(A)5050yA6000,2000,2600,2900,200005050p DEMO VALUESuF10:F20:F30:F40vS$"+ "zMY2:MX3:B24:S100:MG232900 N:EBRA PROGRAM NUMBER 1"-14)"Y = M X + B"\:" THOMAS JACOBSEN 8-26-79"jA12000rDAyA:718);"MENU":10);"1 DEMO"10);"2 INPUT COORDINATES"10);"3 INPUT EQUATION"10);"4 PLOT GRAP(16384) 16368,0(* A1273260/4 09> 3320n CHANGE X Y COORDINATES TO HIGH RES COORDINATESX(F51)((XGS70).5)150Y(F51)(1)((YGS70).5)70F5F51 MENU AND MAIN CONTROL PROGRAM:108);"ALG, MG.05MG.05BS50B(1)S503300T "PRESS ANY KEY TO CONTINUE ";:R$^ :: FLASH LINE IF IT LIES ON AXIS "PRESS ANY KEY TO CONTINUE" X(1),Y(1)X(2),Y(2) D1100: 3 X(1),Y(1)X(2),Y(2) D1100:  A0 F513224 YGS* XG(YGB)MGA XG0XGSİ4000P F513224^ YG(1)So XG(YGB)MG XG0XGSİ4000 PLOT LINE X(1),Y(1)X(2),Y(2) F31X1(1)S35X1S353300 MG20F313300 MG20F313300 F50g XG(1)S"l YGMGXGB>q YG(1)SYGSİ4000Mr F503202Vs YGSgv XG(YGB)MGx XG(1)SXG0İ4000z F503202| YG(1)S~ XG(YGB)MG XG(1)SXG0İ4000 XGS YGMGXGB YG(1)SYGSİ400X ";S$;B 3150" F213120/! MGMYMXW& "EQUATION Y = ";MYMX;" X ";S$;Ba+ 3150n0 MGMYMX5 "EQUATION Y = ";MY;"/";MX;" X ";S$;BN PLOT LINES F313170U F50X XGX1:YGS:4000Z XGX1:YG(1)S:4000] 3250b * BOB SCOFIELD * * * ******************KDERSTAND YOUR EQUATION":1095,4#Q811330?7#E53E13350]<#ZH(37):ZH:1:868:ZHcF#Q5:868:5:"ANOTHER EQUATION ON SAME SCREEN?";A$:(A$,1,1)"N"1020:(13);(4);"RUN MENU"=ULT ACCOMPANYING WRITTEN"::"DOCUMENTATION FOR MORE INFORMATION":e"ON THIS PROGRAM.":8999:'#24:1:"PRESS 'SPACE BAR' TO CONTINUE";:X$:::(#768:E(222):E255ģ22015:43000-#(218)15ġ:Q902#E16Ģ23:868:23:"I CAN NOT UNU - LOOK ABOVE CURRENT SCREEN":5:"WINDOW":S"D - LOOK BELOW SCREEN WINDOW":{"L - LOOK LEFT OF SCREEN WINDOW":"R - LOOK RIGHT OF SCREEN WINDOW":"S - SHRINK (ZOOM IN)":"E - EXPAND (ZOOM AWAY)":32,0::8999E3:" CONSL EQUATIONS"::"MUST BE IN THE FORM:":v11:"Y = EXPRESION"::18:"- OR -"::9:"Y^2 = EXPRESION (FOR CONICS)":89993:" ONCE A RELATION IS PLOTTED, YOU MAY"::"CHOOSE ONE OF 6 OPTIONS CONCERNING THE"::"SCREEN WINDOW."-32,3::"$):(Z$,J,1)" "A$A$(Z$,J,1)1zJ:Z$A$:X:::3:15:"POLYGRAPH":::" POLYGRAPH WILL PLOT ANY MATHEMATICAL":b"RELATION EXPRESSED USING 'X' AS THE"::"INDEPENDENT VARIABLE, AND 'Y' AS":)l"THE DEPENDENT VARIABLE. ALZ4((MYR)100)100:1090JA$"":J1(Z$):(Z$,J,3)"SQR"A$A$"-"`A$A$(Z$,J,1):J3(A$):(A$,J2,3)"---"A$(A$,1,J2)(A$,J1,(A$)J):Z$A$:Z9(Z$):16:2:50Z$"Y=SQR("(Z$,5,(Z$)4)")":1098"pA$"":J1(Z!& N,!0 N650,741,1840,1920,870,959,1340;!: 670:::E!? 2060N!D 742T!'d!' MEL BAKERZC)":8000d2:4:"WHEN MULTIPLYING, USE FRACTIONS INSTEAD"::"OF DECIMALS WHEN NECESSARY.":80003:5:"NOW YOU SHOULD BE READY TO TRY SOME."814:7);"1) AX + B = D"::7);"2) AX + B = CX + D"::7);"3) A RANDOM SELECTION OF 1 AND 2"A-C)X + B = D":::"THEN WE ADD -B TO BOTH SIDES TO GET:"-:5);"(A-C)X + B - B = D - B"::"SIMPLIFIED: (A-C)X = D - B"/::"THEN WE MULTIPLY BOTH SIDES BY 1/(A-C)"::5);"1/(A-C) * (A-C)X = 1/(A-C) * (D-B)" 1:"SIMPLIFIED: X = (D-B)/(A-EPT WHERE THE COEFFICIENT"f%:"OF THE VARIABLE IS ONE) AND THEN"::"SIMPLIFY THE SOLUTION.":8000':"SAY OUR EQUATION IS AX + B = CX + D")::"FIRST WE ADD -CX TO BOTH SIDES TO GET:"::5);"AX - CX + B = CX - CX + D":+:"SIMPLIFIED: (D THEN SIMPLIFY THE EQUATION."z::"USE THE ADDITION PROPERTY OF EQUALITY"::"AGAIN IF THE VARIABLE APPEARS ON BOTH"!:"SIDES OF THE EQUAL SIGN AND THEN"::"SIMPLIFY THE EQUATION."#::"USE THE MULTIPLICATION PROPERTY OF"::"EQUALITY (EXC8000:k4:"WHERE X (OR ANOTHER LETTER) IS THE"::"VARIABLE AND A, B, C, AND D ARE"::"CONSTANTS."::"I WILL THEN ASK YOU ";N$;" TO SOLVE"::"THE EQUATIONS. IT IS DONE THIS WAY:":8000:"USE THE ADDITION PROPERTY OF EQUALITY"::"ANTHIS IS A DRILL ON SOLVING EQUATIONS"::"WITH VARIABLES IN THEM. I WILL THINK": "UP EQUATIONS, WITH ONE VARIABLE, THAT"::"WILL SOLVE NICELY. THEY WILL LOOK"::"LIKE THIS:" 16:10);"AX + B = D":18:14);"OR":20:10);"AX + B = CX + D" $"-" ,  ***THE PROGRAM STARTS HEREU :4:"WHAT IS YOUR FIRST NAME? ";N$f N$""ī1800 (N$)10ė:4:"PLEASE GIVE ME A SHORTER NAME? ";N$ 7:"WOULD YOU LIKE INSTRUCTIONS? ";S$:(S$,1)"N"ī1848 :4:"OKAY ";N$;",":6R ")R <N10ī01320 P3  ***SIGN SUBROUTINEH S3$S$(2(X)):j  ***REMOVE SPACES SUBROUTINEu S2$"" L1(S1$) (S1$,L,1)" "S2$S2$(S1$,L,1) ,L @ h ***COEF. SIGN SUBROUTINE V$(X) X1V$"" X1V,","GREAT,"Q t "SUPER,","OK,","GOOD,","ALL RIGHT,","OK,","FINE,","NICE WORK,"r  ***RANDOM COUNTER FUNCTION P(X)((1)X1) 1800  ***MINIMUM SUBROUTINE D0S0: SD:  ***RANDOM INTEGER SUBROUTINE (N1((1)R2.5IGNS FOR EQUATIONS: S$(1)" - ":S$(2)" ":S$(3)" + "f $ ***R$(20) ARE REINFORCEMENTS FOR WORK| 8L120:R$(L):L L "FABULOUS,","FANTASTIC,","SUPER,","GREAT,","EXCELLENT,","GOOD," ` "FINE,","GOOD WORK,","ALL RIGHT,","OK,","FINE,","GOOD2.5 COPYRIGHT MECC 1979 ALGEBRA 7/24/79 FPc AUTHOR: GREG THORNTON AND JOE DEMUTH  ASSOCIATED PROGRAMS AND FILES: NONE( WRITTEN FOR A MECC-UNIVAC MINI-GRANT PROJECT.d::255::ZM24S$(3),R$(20)  ***S$(3) ARE S                         pb1059zb16302,0&b16299,0/bAN$BbAN$"S"25900Pb16300,0^b16301,0gbAN$zbAN$"S"259008c16302,0Bc16299,0Vc25240,e::62450:6aSGSE:SHSFaFI1 a(24))aSW1Db"SECOND CHOICE FOR ";L b25Vb(23)\4bjHb16300,0xIb16301,0Rb60Tb:21UbHD$VbOS);SG,OT);SH;" (ON THIS SCREEN)"WbOS);SE,OT);SF;" (ON OTHER SCREEN)"\b"TYPE 'S' TO EXIT";((XA2)(A3X)))F2(X)(1(XA3))F3(X))34SOa **TWO HI-RES SCREENS:[a::10iaOS8:OT0raFI0ya2aHD$"HORIZONTAL UNIT VERTICAL UNIT"aX(NP),XP(NP),Y(NP),YP(NP),MS(50),HS(50)aa60a:21aHD$:SE;20);SF EF. NR!XR"THE PIECES ARE :"0bR1000,1003UlR"ENTER ENDPOINTS OF INTERVALS."vR"THERE ARE 3 ENDPOINTS; ENTER THEM"R"IN INCREASING ORDER : E1,E2,E3"RA1,A2,A3R1000-RA(X)0.5((1(A1X))F0(X)(1((XA1)(A2X)))F1(X)(1340&t C1$(B):XC:1680:C2$V$X$9 B10:13:W3$;A S$k (S$,1)" "S$(S$,1,(S$)1):2510} S$C1$05160 S$C2$02620 7800:2500( ***THE EQUATION HAS THE FORM '(A-C)X+B=(C-C)X+D'< :3:R$(P(20));N9$;E9$:5P X(CP(26),1)T21ė:3:3240M ***THE EQUATION HAS THE FORM 'AX+B=CX+D'`:B10:3:E9$XB:1460:5:A$;X$;S3$;B$;E$;C$;X$;:XD:1460:S3$;D$N1İ668010$ W1$;:S$. (S$,1)" "S$(S$,1,(S$)1):23508 S$"A"İ6800:2IS:":N9$" NOW "- ***PROBLEMS START HEREfNN1:R10:1320:XN1:R4:1320:AN1:R50:1320:BN1yR4:1320:CN1ACī2020 T13T2P(2) DAXB4T22DDCXHXA:1680:A$V$:B$((B)):XC:1680:C$V$:D$((D)) \X$(L$, WILL YOU USE"(13)(13)"('A', 'M', OR 'S')"tW2$"WHICH TRANSFORMATION NEXT"(13)(13)"('A', 'M', OR 'S')"W3$(13)"WHAT SHOULD BE ADDED TO BOTH SIDES"L9$" SIMPLIFY THE LEFT SIDE":R9$" SIMPLIFY THE RIGHT SIDE"E9$"YOUR EQUATION ?1930XD10:"WHICH TYPE OF PROBLEMS WOULD YOU LIKE"::"(ENTER 1, 2, OR 3)? ";T1vT10T14T1(T1)ī19351:10:868:12:868:1860216,0N0:T2T1:L$"ABCDEFGHXJKLMNXPXRSTUVWXYZ":E$" = ":M$" * "/W1$"WHICH TRANSFORMATION:tG)(XC(G)))D(G):6:YA(G)(B(G)(XC(G)))D(G):RD(B(G)(XC(G)))0440zNYA(G)1((B(G)(XC(G))))D(G):X(B(G)(XC(G)))0440bYA(G)1((B(G)(XC(G))))D(G):l(B(G)(XC(G)))0440vYA(G)1((B(G)(XC(G))))D(G)U'LL TYPE IN VALUES FOR A,B,C")GG1=A(G),B(G),C(G)HD(G)0\C(G)C(G)B(G)o16304,0:310"ANOTHER ";T$(Z);" FUNCTION? (Y/N)":N$N$"Y"N$"YES"ė:3:470G1::3:150&YA(G)(B(G)(XC(G)))D(G):0YA(G)(B(009X6.286.28P6Z550,560,570,580,600,620SX1X22140:Y180Y16hY10Y1159440sX1,Y1:"PUSH RETURN";:T$::3:G2520G3ė:3:150"I'LL GRAPH THE EQUATION "::6:"Y = A*";T$(Z);"(B*X+C):"IF YOY015916:140,Y:9 , NEED MACHINE LANG FOR PI,2, 1J 6 GRAPH s @22:CO$(1);" -> Y = ";T$(Z);"(X)" JG1370 TL2G ^21L:CO$(L);"->";:12:"Y = ";A(L);"*";T$(Z);"(";B(L);"X + ";(B(L)C(L));")" h rG|P.04:B2P.EC(X)") :" 7. END PROGRAM"= ::Z:Z7710W Z1Z6(Z)Z230 "YOU BLEW IT!! TYPE A NUMBER 1-6 NOT ";Z:200 AXIS 140,80 :6 0,80279,80:140,0140,159  SCALE 4:1,80:70,80 210,80:279,80 "OR NO":1106 :3:"YOU'VE COME TO THE RIGHT PLACE" G1::"STATE YOUR PREFERENCE BY TYPING THE CORRESPONDING NUMBER." :" 1. Y=TAN(X) 4. Y=COT(X)" :" 2. Y=SIN(X) 5. Y=CSC(X)" :" 3. Y=COS(X) 6. Y=SZ:"YOUR ANSWER ";T$;" DOES NOT COMPUTE. TYPE YES OR NO":60n d18:"IS ALL THAT GRAPHING GETTING TO YOU" nT$:T$"YES"T$"Y"140 xT$"NO"T$"N"ĺ"WELL, SMARTIE WATCH ANYWAY....":X13000:X:140 :"I CAN'T UNDERSTAND ANYTHING BUT YES CSC":T$(6)"SEC"9 A(1)1:B(1)1:C(1)0:D(1)0:G1? (m 210:"ARE YOU STUDING CIRCULAR FUNCTIONS"u <T$ FT$"YES"T$"Y"100 PT$"N"T$"NO"ĺ::"PROGRAM IS TERMINATED"::"***************************************":X11500::710?  **** MATH ANALYSIS ****@ *** CIRCULAR FUNCTIONS ***_ *** GRAPHING ***z *** FRIESEN *** *** 1979 *** CO$(1)"GREEN":CO$(2)"PINK":CO$(3)"WHITE" T$(1)"TAN":T$(2)"SIN":T$(3)"COS":T$(4)"COT":T$(5)"     (S$,1)" "S$(S$,1,(S$)1):3370<4 S$"A"İ6800:3360Yp B10:C1$(B):13:W3$;a S$ (S$,1)" "S$(S$,1,(S$)1):3510 S$C1$İ7340:3500 ***THE EQUATION HAS THE FORM 'AX+B-B=D-B':3:R$(P(20));N9$;E9$::A$;X$;/$S$C1$İ7500:3080?X ***THE EQUATION HAS THE FORM 'AX+B=D'Yl :3:R$(P(20));N9$;~ ***TYPE 1 EQUATIONS START HERE 1220:XS:1460:S1$S3$:1520 E9$::A$;X$;:XB:1460:S3$;B$;E$;S2$;D$ B10:9:N1T21İ6680 W1$;:S$#* S1$S3$:1520:C1$A$X$S2$B$<T B10:V13:V:R$(P(20));Jh L9$;:S$w| S1$S$:1520:S$S2$:C1$S$İ7500:2920 1220:XS:1460:S1$S3$:1520:C1$S2$D$ B10:V15:V:R$(P(20)); R9$;:S$ (S$,1)" "S$(S$,1,(S$)1):3090 ):1680:C1$V$Ld XC:1460:A$;X$;S3$;C1$;X$;:XB:1460:S3$;B$;E$;C$;X$;zn XC:1460:S3$;C1$;X$;:XD:1460:S3$;D$ B10:9 W2$;:S$ (S$,1)" "S$(S$,1,(S$)1):2750 S$"S"İ6800:2740 AAC XA:1680:A$V$:XB:1460:,0140,159::1 (4);"RUN MATH ANALYSIS CHAIN"73P0M.02,A$"COS"RWC(ZP)GA$"SIN"RWC(ZP)`XR(P):YR(P)|Y1809Y:X110X140Y10Y1159X10X1279750X1,Y1P:"PUSH RETURN WHEN READY TO CONTINUE":R$:100 :6:0,80279,80::140 FUNCTION...SIN OR COS?":A$Sl:"R= ";A$;"(Z*0) ... CHOOSE A VALUE FOR Z":Zv:"R= C*";A$;"(";Z;"*0). . . CHOOSE C":C"R= W + ";C;"*";A$;"(";Z;"*0). . . CHOOSE W":W"RADIANS":M22:"R = ";W;" + ";C;"*";A$;"(";Z;"*0)"770:CP(P)140:Y80CP(P)(X,Y:P5T1475@&TT1n021:"R=";C;"*0 ..... ARCHIMEDES SPIRAL":"PUSH RETURN WHEN READY TO CONTINUE";:T$D100N BUILD AN EQUATIONX::b"YOU'RE GOING TO BUILD AN EQUATION..... CHOOSE A ENTER WHEN READY TO CONTINUE":B$:1009 ARCH SPIRALt:6:17:"R=C*0":::5:"(RHO = A CONSTANT * THETA)":" CHOOSE A CONSTANT BETWEEN -5 AND 5":CC5C5ĺ"OUT OF RANGE":470M0:N12.56:Q.05770:7PMNQX80:22:"A HORIZONTAL LINE THROUGH THE POLE"::440 P90(P90)āX1900::2:140,0140,159:22:"A VERTICAL LINE THROUGH THE POLE"::440 R8080:XRW:YRV.85:X140,80Y:R 21:"0=";P;" DEGREES OR Y = TAN(";P;")*X" '"PUSHREADY TO CONTINUE";:B$:100@ T POLAR LINE 0=MEASURE OF ANGLE ^:4:17:"0 = C":::5:"THETA = DEGREE MEASURE OF AN ANGLE" h:"YOUR CHOICE . . .":P r770:1: |P1P.017453:W(P1):V(P1)3 P180(P180)āX1900::2:0,80279,70( "OUT OF RANGE... TRY AGAIN":2306 770:3:g P06.28.05:X8C(P)140:Y807C(P)w "X,Y:P:22 ,"R=";C;" OR X^2 + Y^2 =";C2 6:C0ĺ"A SINGLE POINT":330 @"A CIRCLE WITH A RADIUS OF ";(C) J"PUSH RETURN WHEN ": TE T0T5T(T)ĺ"YOU MUST TYPE IN 1,2,3,4 OR 5":180` T210,340,450,590,780 : RHO=A CONSTANT--CIRCLE 5:16:"RHO = C" :2:"(C IS A CONSTANT BETWEEN -10 AND 10)" : :"YOUR CHOICE ...":C C10C102PH THE EQUATION OF YOUR CHOICE."I n6:6:"1. R = C (RHO = A CONSTANT)"O x| 6:"2. 0 = C (THETA = DEGREE OF ANGLE)" 6:"3. R=C*0 (RHO = CONSTANT * THETA)" 6:"4. EQUATIONS INVOLVING SIN AND COS" :6:"5. END THE PROGRAM8  *** ADVANCED MATH ***#< ** POLAR GRAPHS **P( *** LEMKE ***e2 *** 1979 ***n7255t<F:6:16);"GRAPHS":12:18);"OF"P18:12);"POLAR EQUATIONS"ZX11000:X d::4:"YOUR WISH IS MY COMMAND":3:"I'LL GRA      WHAT SHOULD EACH SIDE"::"BE MULTIPLIED BY";5 S$_ (S$,1)" "S$(S$,1,(S$)1):4530x S$C1$S$C2$ī4640 7660:4520  ***THE EQUATION HAS THE FORM '1/A*AX=1/A*D' B10:1220:XS:1460:S1$S3$:1520!H:3:R$(P(20));N9$;E9$:XS:1460:S1$S3$:1520:S2$;D$&94W2$;:S$^(S$,1)" "S$(S$,1,(S$)1):4330wS$"M"İ6800:43200B10:ZD:DA:1220:DZ:XS:1460:S1$S3$:1520:C1$S2$"1/"((A)):C2$"1/"(A)lA1C1$"-1":C2$"-1"- 13:R$(P(20));" RM 'AX=D'+, ***AVOID MULTIPLYING BY 1/1;@A1ī4240J18:"THE MULTIPLICATION PROPERTY OF"::"EQUALITY IS SKIPPED SINCE THE"T:"COEFFICIENT OF ";X$;" IS 1.":8000:1:18:958:5080B10::3:R$(P(20));N9$;E9$:A$;X$;E$;:1220:(S$,1)" "S$(S$,1,(S$)1):3850BS$C1$(S$X$A1)ī3940R<7500:3840udB10:DDB:C1$(D):D$((D))V15:V:R$(P(20));R9$;:S$(S$,1)" "S$(S$,1,(S$)1):4050S$C1$İ7500:4040  ***THE EQUATION HAS THE FOXB:1460:S3$;B$;:XB:1460:S3$;B$;E$;:1220g.XS:1460:S1$S3$:1520:S2$;D$;:XB:1460:S3$;B$sLB10:9tW2$;:S$~(S$,1)" "S$(S$,1,(S$)1):3710S$"S"İ6800:3700B10:C1$A$X$:V13:V:R$(P(20));L9$;:S$$ NEG0(O2O5)YXī6023&60506SX:XY:YSEY0ī6050SX;:7000Y(CRA).1(CR)ī5100)ACR:SHAKY135999D PRINT 00PSL22a"XXX WRONG ";CRgopX((1)D1): SELECT #zY((1)D2){NEG0ī6020|Q((1)3)}Q0ī6020~XXQ((1)3)Q0ī6020YYWANT TO TRY THIS WITH ANOTHER EQUATION (YES OR NO)";B$B 1700L936VN 2a 1510l 1600 : 1: 0,3919 7: X 0 39Y (19(N3.1416(X39)))Y 19Y X,Y: X"@ "PLOT OF Y = SIN(X)": "WI DZ "COEF. OF X^";D1I;)d C(I)1n INx "CONSTANT TERM";C(D1)h "WHAT VALUE OF X";RsPC(1) I2 (D1)PPR C(I) I: "(";R;",";P;")": "WANT ANOTHER VALUE (YES OR NO)";A$ A$"YES" 14107 "PAGE 202)"b : "TO FIND VALUES OF Y CORRESPONDING TO GIVEN VALUES OF X WHEN: (FOR EXAMPLE)" (: " Y = AX^3 + BX^2 + CX + D" 2: "WHAT IS THE DEGREE (<=9) (THE HIGHEST POWER OF X)"; < D F: "TYPE IN THE COEFFICIENTS."P I 1 TO GO TO ANOTHER LESSON, TYPE '1' TO STOP, TYPE '2'"T ~B%:B%0Č936:1000i B%1Č936:120{  B%2 1190  1130  WAS PRINT "RUN MATHPAK": STOP D$"": CTRL D ENTERED D$;"RUN MTH-PAK" 1200  936:"( $M AEBD8 . M0 "NO UNIQUE SOLUTION": 1130G 8N1CEBFV BN2AFCDj L: "SOLUTION:" V 7) "(";N1;"/";M;", ";N2;"/";M;")" `: 4) "OR (";N1M;", ";N2M;")" j: "TO DO ANOTHER OF THESE PROBLEMS, TYPE '0'": t " A%1 1000# A%2 13005 A%3 1500? 180I 936  "(PAGE 109)":: "FOR A SYSTEM OF TWO LINEAR EQUATIONS:" : 7) "AX + BY = C"  7) "DX + EY = F" : "TYPE A,B,C,D,E,F (INTEGERS OR DECIMALS)"  A,B,C,D,E,FOLLOWING DO YOU WANT?"Y : "1.: SOLUTION OF 2 LINEAR EQUATIONS IN 2 VARIABLES"_ "2.: FINDING ORDERED PAIRS FOR POLYNO- MIALS BY 'SYNTHETIC SUBSTITUTION'" "3.: GRAPH OF Y=SIN(X) : "(TYPE 1, 2, OR 3)";A%V  2 A$ (3)!3 B$ (3)+c936}d "COMPUTER ACTIVITIES FOR ALGEBRA 2 ---------------------------------"n: "FROM'ALGEBRA AND TRIGONOMETRY, STRUCTUREAND METHOD, BOOK 2,' DOLCIANI, ET.AL. HOUGHTON MIFFLIN" x: "WHICH OF THE F      ***THE EQUATION HAS THE FORM 'AX=CX+D'@%0B10::3:XD:1460q%DR$(P(20));N9$;E9$::A$;X$;E$;C$;X$;S3$;D$x%l9%W2$;:S$%(S$,1)" "S$(S$,1,(S$)1):5770%S$"A"İ6800:5760%B10:XC:1680:C1$V$X$%13:W3$;% S$'&V:R$(P(20));$L9$;:S$F$(S$,1)" "S$(S$,1,(S$)1):5390_$S$C1$İ7500:5380$TB10:DDB:D$((D)):XD:1460:S1$S3$:1520:C1$C$X$S2$D$$V15:15:R$(P(20));$R9$;:S$$S1$S$:1520:S$S2$$S$C1$İ7500:5560(%X+D-B'#(B10::3:XB:1460G#<R$(P(20));N9$;E9$::A$;X$;S3$;B$;#PXB:1460:S3$;B$;E$;C$;X$;:XD:1460:S3$;D$;:XB:1460:S3$;B$#d9#xW2$;:S$#(S$,1)" "S$(S$,1,(S$)1):5250#S$"S"İ6800:5240$B10:C1$A$X$:V13:15:15:R$(P(20));""R9$;:S$L"(S$,1)" "S$(S$,1,(S$)1):5010d"S$D$İ7500:5000"18:R$(P(5));" THE RESULTING EQUATION IS"::"THE SOLUTION SET FOR ";X$;": ";X$;E$;(D)"8000:6580# ***THE EQUATION HAS THE FORM 'AX+B-B=C:S$;M$;A$;X$;E$;S$;M$;S2$;D$$!\92!pW2$;:S$\!z(S$,1)" "S$(S$,1,(S$)1):4730u!S$"S"İ6800:4720!B10:V13:V:R$(P(20));!L9$;:S$!(S$,1)" "S$(S$,1,(S$)1):4850!S$X$İ7500:4840!LB10:DDA:D$(D)"tV5M6vY2Y1:20Y1)21:1:F$6XBESBYA(X)J15QXW 25X6.F$"1X^3 - 2X^2 - 5X + 6 "4U"ENTER EQUATION NUMBER ";NfN0N2510lr&Y10:Y20:X1B:X2E:200X10:X20:Y1YS:Y2YL:20:Y1H1:Y2H2DX1M1M2M3NX2X1:20XX1bX1H3:X2H4lY1M4M510:PC.0000000001%N410,413.540<:21:F$FX099O100Xr255|"PRESS ";::" SPACE BAR ";::" TO CONTINUE.";I$:I$" "390230A(X)X23X2F$"1X^2 + 3X + 2 "A(X)X32X̱ I"PLOT SUBROUTINE ERROR":6d SCALE CONSTANTS=n3]xXS5:XL5:YS50:YL50:10qBXS(XLXS).3EXL(XLXS).3S(EB)280 X-AXIS MARKSM18:M28:M31:H11:H21 Y-AXIS MARKSM450:M550:M610:H3.1:H4.1Q2N166 8P1P260: 9G912:P3(G9)P1P3(G9)P264@ :d <G912:P3(G9)P1P3(G9)P264j =r ?73 @P3(G9),Q3(G9)P2,Q2: BP1P270 CP3(1)P3(2)71 DP3(1),Q3(1)P3(2),Q3(2): FP3(1)P3(2)68GP3(2),Q3(2)P3(1),Q3(1):8)G7 +PN0PN2457 ,G9G9G0:P3(G9)P:Q3(G9)N1C -G90ıc .P1N0P1N2Q1N0Q1N155q /P1P250 0G912:P3(G9)P1P3(G9)P253 1 2G912:P3(G9)P1P3(G9)P253 3 473 5P1,Q1P3(G9),Q3(G9): 7P2N0P2N2Q2N0 G80G8N1342 G9G9G0:P3(G9)N0:Q3(G9)G8@ !G9G045O "QG7N2G8a #QN0QN138 $G9G9G0:P3(G9)N2:Q3(G9)Q %G9G045 &PP1:G70PG8G7 'PN0PN242 (G9G9G0:P3(G9)P:Q3(G9)N0 )G9G045 *PP1:G70P(N1GX2G2:Q1G3Y1G4:Q2G3Y2G4, P1P228? P1N0P1N2ıP Q1N1Q1N1a Q2N0Q2N0r Q2N1Q2N1 Q1N0Q1N0 29 P1N0P1N2Q1N0Q1N1P2N0P2N2Q2N0Q2N130 P1,Q1P2,Q2: G7(Q2Q1)(P2P1):G8Q2G7P2:G90MENTS 240-360, 410-500, 210.:  EDITED BY CHUCK FRIESENM G1175(XLXS)] G252G1XSp G3159(YSYL)~ G4G3YL N00:N1159:N2279:G01: G5G1XG2:G6G3YG4 G5N0G5N2ı G6N0G6N1ı G5,G6: P1G1X1G2:P2G1X 100)"OPEN HIRES EXEC":33,33D"WRITE HIRES EXEC":_"CLOSE HIRES EXEC": ENTER MORE EQUATIONS IN STATEMENTS 400-500. REFLECT THESE ADDITIONS IN STATEMENT 210, PLEASE OR I'LL BE UP A TREE.  NEWTON'S METHOD BUT CHANGE STATE     ...SIMPLIFY":8000:1",8:958,10:"CHECK TO SEE WHICH STEP YOU ARE ON"::"AND FIGURE OUT THE CORRECT"::"TRANSFORMATION.",8000:1:9:958:,13:"'";S$;"' IS NOT RIGHT EITHER. THAT LEAVES"::"ONLY ONE MORE CHOICE. THINK OF WHY"J- RONG."::"WE WANT TO SIMPLIFY THE EQUATION BY":+"REMOVING TERMS COMMON TO BOTH SIDES."::"THIS IS DONE IN THE FOLLOWING MANNER:":+0"USE ADDITION PROPERTY...SIMPLIFY":T22ĺ:"ADDITION PROPERTY AGAIN...SIMPLIFY",X:"MULTIPLICATION PROPERTY PROPERTY"::"'M'..THE MULTIPLICATION PROPERTY"a*@:"'S'..SIMPLIFICATION":8000:9:1:958:*| ***TRANSFORMATION HINTS SUBROUTINE*S$"A"S$"M"S$"S"ī6680*B1B11:B16880,7160,72601+8:958:"NO, THE TRANSFORMATION '";S$;"' IS WS$)(S$,1)"Y"ī2000o)15:"GOOD-BYE THEN, ";N$;" ":24:"PRESS RETURN TO CONTINUE";:A$::255:43000) ***TRANSFORMATION OPTIONS SUBROUTINE)9:958:"THESE ARE YOUR OPTIONS FOR"::"EQUATION TRANSFORMATIONS."0*,15:"'A'..THE ADDITIONV15:V:R$(P(20));"(R9$;:S$L((S$,1)" "S$(S$,1,(S$)1):6430^((S$C1$04160n(<7500:6420(d ***ANOTHER EQUATION?(:5:"GOOD JOB ";N$;", YOU SOLVED THAT":("EQUATION OKAY. NOW DO YOU HAVE":)"TIME FOR ANOTHER ONE? ";S3$;D$ '9'W2$;:S$E'(S$,1)" "S$(S$,1,(S$)1):6110^'S$"S"İ6800:6100'8B10:AAC:XA:1680:A$V$:C1$A$X$:V13:V:R$(P(20));'L9$;:S$'(S$,1)" "S$(S$,1,(S$)1):6290'S$C1$İ7500:6280(B10:C1$(D):(S$,1)" "S$(S$,1,(S$)1):5910@& S$C1$İ6800:5760u&\ ***THE EQUATION HAS THE FORM '(A-C)X=(C-C)X+D'&B10:X(C):1680:C1$V$::3:XC:1460&R$(P(20));N9$;E9$::A$;X$;S3$;C1$;X$;E$;C$;X$;'XC:1460:S3$;C1$;X$;:XD:1460: 700Z11000:# COUNT<*(4)"RUN MATH MENU"L' * ERROR *Y'216,0:r'(4)"RUN MATH MENU" 35000::~:"WE WILL NOW DO A SERIES OF EXAMPLES WITH";W"DIFFERENT TRIANGLES.";gZ15000:vlCOUNT13400:"TRIANGLE AND ITS ALTITUDE."Z11500:"MOVE LEFT TRIANGLE OUT."200"FLIP IT OVER."Z1500:ATE THE LEFT TRIANGLE OUT.") .600:200X 8:"NOW WE FLIP IT OVER ONTO THE ORIGINAL" B"TRIANGLE TO SEE IF IT IS SIMILAR."; L600:700 V600 `:"THIS DOES NOT PROVE THEY ARE SIMILAR," j"BUT IT HELPS IN VISUALIZING THE POINT.";tZ1:2 "SIMILAR TRIANGLES"' 21:1U "HERE WE HAVE A RIGHT TRIANGLE WITH THE" "ALTITUDE LINE DRAWN IN. THIS MAKES 3" "SIMILAR TRIANGLES. TO SHOW THAT THEY" "ARE, WE MOVE ONE ON TOP OF ANOTHER."; Z18000: $:"FIRST WE ROT3,Y3  XZ12000:Z:6  ** SHOW SIMILAR **E PX3:OXX2Y XX2ABX145x 0:X1,Y1OX,Y2P,Y3X1,Y1 XABX1XABX1 PX1(X1X3)(X1X)(X1X2) C1:X1,Y1X,Y2P,Y3X1,Y1 OXX   400 Z$"M9" 2:4 ** SET UP ** C17:C260 X1140:Y1140B X5279:Y5140^ X4X1(1)(X5X110)5{ Y4Y1((X4X1)(X5X4)) X2X4:Y2Y4 X3X4:Y3Y1 AB((X1X2)2(Y1Y2)2) ACX3X1 I0 :34,20: C1:X4,Y4X1,Y1X5,Y5X4,Y4X4,Y4X1,Y1 II.016 0:X1,Y1X2,Y2X3,Y3X1,Y1F "YBY1340g ,C1:X1,Y1XB,YBXC,YCX1,Y1w 6X2XB:Y2YB @X3XC:Y3YC J200 T7 ^X2X1AB:Y2Y1 hX3X1(X4X1)ABAC rY3Y1(Y1Y4)ABAC |X1,Y1X2,Y2X3,Y3X1,Y1  t *** SIMILAR ***"9999/Z$(26)9d1000U ** MOVE TRIANGLE 2 **iSN(I):CS(I)XBX1(X2X1)CS(Y1Y2)SNYBY1(Y2Y1)CS(X2X1)SNXCX1(X3X1)CS(Y1Y3)SNYCY1(Y3Y1)CS(X3X1)SN C2:X1,Y1X5,Y5X    MULTIPLY"::"TO GET THE COEFFICIENT OF ";X$;" EQUAL TO 1."e1(:"WHAT IS THE RECIPROCAL OF ";A;:1d ***ADDITION HINTS SUBROUTINE (-CX) 1xB1B11:B17860,7260216:"NO, THAT IS INCORRECT. WHAT WE WANT"::"TO DO IS REMOVE A COMMON TERM BY":T'S TRY AGAIN."'08000:1:V:958:018:"PLEASE SIMPLIFY USING A PENCIL AND"::"PAPER, THEN WE'LL TRY ONE MORE TIME."08000:1:V:958:0 ***MULTIPLICATION HINTS SUBROUTINE0B1B11:B17700,7260<117:"NO, THAT'S NOT IT. WE MUSTE DONE IS TO REMOVE A COMMON":n/"TERM. WE CAN DO THIS BY ADDING A"::"FORM OF THAT TERM TO BOTH SIDES."/:"WHAT IS THE NEGATIVE OF ";B;:/8 ***SIMPLIFICATION HINTS SUBROUTINE/LB1B11:B17560,7600,7260018:"NO, THAT'S WRONG, BUT LEME"::"OTHER TIME.":15l.p"WHEN RUNNING THIS PROGRAM AGAIN, PLEASE ":"READ THE INSTRUCTIONS CAREFULLY!".L115000:L:255:43000. ***ADDITION HINTS SUBROUTINE (-B).B1B11:B17400,7260/16:"NO, THAT'S NOT RIGHT. WHAT HAS"::"TO B:"IT MUST BE THE THIRD TRANSFORMATION"::"AND WE'LL TRY IT ONCE MORE."b- 8000:1:9:958:|-H ***STOP SUBROUTINE -\:5:"YOU DON'T SEEM TO UNDERSTAND WHAT WE"::"ARE DOING. I WOULD LIKE YOU TO TALK".f:"TO YOUR TEACHER AND TRY AGAIN SOCTION:KB(16384)%16368,04KB127ı=AN$C`pXP,VCXP,YPH1,VCXP,VCfyX DRAW CIRCLE;]3bH1DFX(1),VCDFY(1)vIFILIH1DFX(I),VCDFY(I) JJ1250:J 5000 0& 6000- 33 ? XP,YPE T J120:Jh 0:XP,VCXP,YPq* 3: DRAW DOTTED LINE:LP15XW(X9X8)LP:YW(Y9Y8)LPXZX8:YZY8IZ0LP:XZ,YZ:XZXZXW:YZYZYW:h FREEZE AH1DFX(I):YPVCDFY(I) 3) 60009 J1250:JC 5000J 0T 6000[ 3a  XPH1DFX(I):YPVCDFY(I)& 30 6000: J1250:J? 5000D 0N 6000] 3b  XPH1DFX(I):YPVCDFY(I) 3 6000  IF$"Y"ĉ:100"N::62450:K"PLEASE! A NUMBER BETWEEN 1 AND 6!"T200gLA(X)RR(X)mV~A(X)RR(X)A(X)RR(X)3A(X)RR(3(X))A(X)RR(3(X))FA(X)RR(3(X))P XPY(I1). IFI1ēH1DFX(I2),VCDFY(I2)\ F1DFA((I.95)DT):F2DFA((I.05)DT)n (F1)78550 (F2)78550 3 H2I1,VCF1H2I,VCF2 !J1DL:J &I 0:33,33:34,0 :22:5:"MORE"; DF$:F$"N"F$"Y"580X,VCTH:I DF1:FI1:LINP1* 7000` 21:"PRESS RETURN TO STOP":"OR RESTART ACTION."m IFILI{ J15:J 3 (F1)(F5)İ3000 (F2)(F4)İ3100 (F3)(F6)İ3200 H1DFX(I),VCDFY(I) IFIēH1DFX(I1),VCDF F6İ1350 ,F$"N"$ 6DL0:< @(F$,1)"Y"DL100E :3\ VC80:H185:H2155n H2,VC278,VC RTRR3:(F1)(F2)RTRR H23,VCRTH23,VCRT:H23,VCRTH23,VCRT H2,0H2,159 DX20:TH3 I16:H2IDX,VCTHH2IDN" :"2.) COS"$ :"3.) TAN"5 :"4.) SEC"F :"5.) CSC"W :"6.) COT"b 1000u F$:F(F$)48 F1F6210 216,0 ((F6)(F1))(F(F))İ1000 F1İ1100 F2İ1150 F3İ1200 F4İ1250 F5İ1300:Y(I1)RR(IDT) PI X2 Z" TRIGO"U \"---------------------------"[ ] ^"CIRCLE DEFINITIONS AND GRAPHS OF": `"TRIGONOMETRIC FUNCTIONS DEVELOPED": b"SIMULTANEOUSLY.": cAN$ d x"PICK A FUNCTION :" :"1.) SI  FOR INFORMATION APPLY TO M.J. CHRISTENSEN, C/O SCHOOL OF MATHEMATICS, GEORGIA INSTITUTE OF TECHNOLOGY, ATLANTA, GA. 30332 X(121),Y(121),W(121)NP121PI(1)12RR60(DTPI(NP1)2NM1NP1<I0NM1 FX(I1)RR(IDT)     20010,20020,20030,20040,20050#dK9*NA(X)2(.5X2)J/NLX2:UX2:e4NA(X)XXX3XX2Xy9NLX.5:UX2.5:>NA(X)XXXX2XX1CNLX1.5:UX1.5:HNA(X)(X)XMNLX0:UX6:RNA(X)(X)WNLX2:UX2:R 4-PART FN. D = X^3 - 3*X^2 + 2*X"eJ?jJ"<3> F(X) = X^4 - 2*X^2 + 1"EoJdtJ"<4> F(X) = SIN(X) + X"jyJ~J"<5> F(X) = EXP(X)"JJ"SELECT FUNCTION BY NUMBER :";JSW0:KZ$:KZ(KZ$)48JKZ0KZ519120JKZ0ġ:SW1:17000KKZBITRARY FUNCTIONS":?EJ"IN RECTANGULAR COORDINATES, USING":jFJ"TWO SCREENS FOR TWO SEPARATE VIEWS."pHJyIJAN$JJLJ"FUNCTION CHOICES :"MJQJ"<0> YOUR OWN FUNCTION."SJVJ"<1> F(X) = 2/( 0.5 + X^2 )"[J`J"<2> F(X))I1000"?(CRDD)(D1)I1000)?I6?SFDD16<?BhBirB"INSERT A FUNCTION IN THE FORM :"|B:" 2 DEF FNA(X)=..."B:B"THEN TYPE 'RUN' ."B8JBJ" PLOTTER":"------------------------":DJ"PROGRAM GRAPHS ARXVCXD1(XVMX)s>XV,XATPXV,XABOy>>YVCYD2(YVMY)>YALE,YVYART,YV>H?DD1R?CRDDD.5\?CRDDD2f?I11000p?DDDDDz?(CRDD)(D1(<+XJXJXI:YJYJYI H+3IN PY(I)A(X(I)) ZI- _XA159:YA0E dXF1:XI1:YF1:YI1P n11000m ((V$)0)(V$"L")DO0~ V$"D"DO1 13200 MX(LXUX)2:MY(LYUY)2 13000 3 15000 CRUXLX:16200 15300:SESF CRUYLY FI0W$:W$"N"W$"Y"38) 'W$"N"AC0? (NP((BXAX)4)1E ) *21:FI1ĺ"UPON BEEP PRESS 'RETURN' FOR SECOND":"SCREEN. THEREAFTER PRESS":"'RETURN' TO SWITCH BETWEEN SCREENS." -X3LX 2IN(UXLX)(NP1) 9 <I1NP FX(I)X3:X3X1  "DOTS OR LINES ?";; V$:V$"D"V$"L"23C V$c SWĄ"LIMITS ON X ? ";LX,UX LXUXĺ"YOU REVERSED THE LIMITS. TRY AGAIN.":25 #LXUXĺ"SORRY, LIMITS CAN'NT BE EQUAL"::"TRY AGAIN":25 $AC1: %"INCLUDE ORIGIN?"; &24600:SW1:25000#190003AX2:BX277CAY1:BY157aCX(AXBX)2:CY(AYBY)2 :"EQUAL SCALES ON AXES ?":: " 'NO' WILL SELECT SCALING TO MAXIMIZE":"GRAPH FOR FIRST CHOICE OF INTERVAL." RA$:RA$"N"RA$"Y"13 SR       C)BC(BC)AAC:BBC:970%+6:N8G" ";N;:15ZB1ĺA;:1030yB0A0ĺ1;"/";B;:1030(A);"/";BK(K2(ABP)K1)KKKK40İ1420:6:35:"OFF->":1120$K40K39.K35(K)39KK358PROGRAM...":(4);"RUN HELLO")6)1023,916*:$ THIS PROGRAM AGAIN,"::"2) RUN A DIFFERENT PROGRAM, OR"I5 :"3) END"t513:"PLEASE ENTER 1, 2, OR 3 ";:868540000:ZEZN5ZE0ZE4430305:"PLEASE ENTER A NUMBER 1 - 3":430225ZE1Ĭ5ZE3430496:10:"GETTING THE MENU OF PROGRAM4::5-4(1023)12343020x45:"WOULD YOU LIKE TO RUN THIS PROGRAM"::"AGAIN - YES OR NO";:8684A$4(A$,1,1)"Y"Ĭ4(A$,1,1)"N"430504:"PLEASE ANSWER WITH YES OR NO":4300595 "WOULD YOU LIKE TO:"::"1) RUN:Q$3 16368,0:9:868:43@CH(36):CV(37)\3A"";ZN$:(ZN$)(((ZN$)))40003y3B(ZN$)0ZN$"0"400063CZM:"THAT IS NOT A NUMBER - TRY AGAIN";:40010:400013FZM:868:CV1(CV23):ZN(ZN$):3JCV1:36,CH:868: 4 END72"ADDING A FORM OF THAT TERM TO BOTH"::"SIDES."b2:"WHAT IS THE NEGATIVE OF ";C$;X$;:|2, ***PAUSE SUBROUTINE2@16368,0:24:9:"PRESS SPACE BAR TO CONTINUE";2TL111002h(16384)127ī82002|L324:15::"SPACE BAR";:36:ӠԠ٠)a(Š)oa(ӠàϠ)*ca(ӠŠҠϠŮ)`.?6@r$XM6`.?6@r $p M6[ XM6Q[]٠ҠϠ͢UVWde.?r Y M6["poa(àɠϠ)%zca(٠ Р͠Ϡ)a(ź)&cca(Ӡ͠Πàɠ)&a(Ϡ  Y []ŠUVWdede`%de Yde `%q`%qq\qq de *Y4[ ]Π q UVWX61 q.?r.?r q `$  q q de q8r$de.q 8YB[]Π qUVWX6+q.?r.?r q`$  q qrE()G!UVW` $:0`.?r %a()G:b.?rG DYNcXQ]ΠqqUVWq.?rqq\`%\`%\qq6*qq-r\`%\`$ ,Y]ԠŠccBa(ŠŠƠɠϠ)F8drE(̠Ӻ)cb.? `$2qdq8r!2qq q0-<qqq qq6FO4r-rq-rqd]Π}UVW \ \qq=]ŠɠΠٺ )]͠ϠϠǠǯԬM6\p3M6o Pa(נ٠ӠϠՠ)G=]ӠӠӬҠ٠ҠԠԡ T M6q     0:V1:Q1:ExL$(5)"N^2 / (N+1)":AN2:BN1:D999:P0:V2:Q20:L$(6)"1- N^2 / (N+1)":AN1N2:BN1:D999:P12:Q2:V2::6:" "(4);"RUN MATH ANALYSIS CHAIN"ELECTION":"3. END":I:I1I3I(I)ĺ:"TYPE IN 1-3":AFqPL$(1)"N/(N+1)":AN:BN1:D1:V1:P0:Q1:ZL$(2)"1/N":A1:BN:D0:V1:P0:Q1:dL$(3)"-1^N * 2N":A1N2N:B1:D999:V2:P10:Q10: nL$(4)"N/(2N+3)":AN:B2N3:D12:P11:35:J/ DJĺ:22:"CORRECT":1320N:22:"NO, IT'S ";D:13208:22:"SINCE IT'S":22:"DIVERGENT,"::22:"THERE'S NO LIMIT"(::22:"PUSH RETURN";:T$213407I90,650,1440;<:4:"1. MENU OF SELECTIONS":"2. SAME SV1Ė22:"WRONG!":22:"IT'S DIVERGENT"VV2Ė22:"WRONG!":22:"IT'S CONVERGENT"fZ11500:200:Z824:Z:22:" ":V213108:22:"SINCE IT'S":22:"CONVERGENT":22:"LIM ";L$(X);" = "24:"N-> INF"K0İ1420:6:1:"<-OFF":1120)B1420>L6:KK:"TERM";NMV5:K:"*"S`cjZ11500:t8:25:"IS THE SEQUENCE"~:25:"1. CONVERGENT":25:"2. DIVERGENT":25:"TYPE 1 OR 2 ";T:TVĺ:25:"CORRECT":1230( gW'  `^ :F Y %^LǏLZ^[_\Z][`1''I8Mt_=gH?J QVQT_ɕ%[^ZZ\[]^Z_[ 0W Г J1  @)ȹ@)ȹ@) q P^ɠ 0   qL MW'WП < XX QLiLLs4      z#???XIJ  Ϡ   ӠӠӠ Ҡ  Š̲ԠŠΠԠ!ŭĠΠҠ ŭĠԠԠ  Ҡ Ҡ ΠɠҠҠ Ҡ ŠΠԠŠӠ ҠŠĠҠȠǠ ؠŠ!ӭӠҠՠ ŠŠ/ Ӡ  ̠0̮ŮҠٯد̠ҠΠ $;"RUN HELLO"CFZM:868:CV1(CV23):ZN(ZN$):>JCV1:36,CH:868:PD$(13)(4)X:v 10:"DO YOU WANT TO TRY"12:868:"AGAIN (YES OR NO) ?";R$:R$(R$,1):R$"Y"R$"N"43030 :R$"Y"Ĭ*(1023)123D$(4):D$;"RUN MENU" 4D PRESS '";::"SPACE BAR";::"' TO CONTINUE.";:16368,0Q(16384)1281004_16368,0g:}@CH(36):CV(37)A"";ZN$:(ZN$)(((ZN$)))40003B(ZN$)0ZN$"0"40006CZM:"THAT IS NOT A NUMBER - TRY AGAIN";:40010:40001%"THAT EQUATION WILL NOT APPEAR ON THE":"ABOVE COORDINATE SYSTEM.";:1:240alUU1:U4UU1nmU7800uvU34,23:24:"DO YOU WANT ANOTHER EQUATION";:A$:(A$,1)"N"80034,0::240 1000::43000G71999::1924:" (B$,X,1)"/"480!X:B11:490?B1((B$,X1,(B$)X1))RB(B$):BBB1fX11:M2M1.5yX139139X1YMXB10X1X139Y179YY1159Y10ī600K60Ģ21:QQ$QQ$Q1$:QQ$K61&X1,Y1XXLYK60Ģ23:4407QQ$QQ$Q1$:21:QQ$:5:Y0159:B10139,Y:Y@62023:"X=";B;" WILL NOT APPEAR ON THE ABOVE":"COORDINATE SYSTEM";:1240 FIND BK(A$)B0:500B$(A$,(A$)K)(B$,1)"+"B$(B$,(B$)1)X1(B$):(A$):((A$,X,1))47((A$,X,1))574201XSX1(A$):(A$,X,1)"/"407_X:410wB1((A$,(A$)X))B(A$):BBB1K51430M0:50023:"PLEASE TYPE THE EQUATION IN THE FORM":"Y=MX+B OR X=B";:1:240B13B13:K1:450) h(A$,2)"-X"M1:K2:4508 rK1(A$)O |(A$,K,1)"X"390V }K_ ~400r M((A$,K1)) L1K1:(A$,L,1)"/"395 L 450  M1((A$,L1,K1L)):M10420 MMM1 450 B11:(A$)1410*X2" ":QQ "3300 ,A$(A$,I1)(A$,(A$)I)9 6280 J(A$,2)"Y="(A$,2)"X="Ģ23:"PLEASE TYPE THE EQUATION IN THE FORM Y=MX+B OR X=B";:1:240 K(A$,2)"X="340 LK51:A$(A$,3,(A$)):400 TA$(A$,(A$)2) ^(A$,1)"X"M1,83 I9 21:"WHAT IS THE EQUATION";:868:UU(0)M A$:K59:K60:v (A$,1)" "A$(A$,1,(A$)1):255 I1(A$) (A$,I,1)" "300 I (A$,1,2)"X="Q1$A$" ORANGE":287 Q1$A$" "C$(U) QQ1(20(Q1$)):Q1$Q1$1 k" Y=5"::" X=3"; m1000A xL zQQ$""[ ::1:U1l 0,79279,79 139,0139,159 I107910 135,I79145,I79 135,79I145,79I I I1013910 139I,74139I,83 139I,74139INEAR EQUATIONS"C f::"THIS PROGRAM WILL GRAPH UP TO 5 LINEAR":c g"EQUATIONS ON ONE AXIS.": h"TYPE IN THE EQUATIONS IN THE FORM:": i" Y=MX+B OR X=B": j"FOR EXAMPLE: Y=2X+4"::" Y=2/3X+6"::" Y=-1/2X-4": 4 COPYRIGHT MECC 1979 SLOPE 7/18/79 FPT AUTHOR: MARGE KOSEL, MECC ASSOICATED PROGRAMS AND FILES: NONE "GREEN","PURPLE","WHITE","","ORANGE","BLUE"C$(6):CC16:C$(CC):CCd:::255:ZM24: e10):"GRAPHING LI     "HELLO" 350>QP6K40K41:8500HK439K41860<RK4:Y;K\K3K3W:Tf110kp REDUCE FRACTIONSz:8:"# OF TERM A(N)"N114:X1360,1370,1380,1390,1400,1410ABR(A):930R(B)R2970CR21AC(A1 NUMBER LINE9X1360,1370,1380,1390,1400,1410W:2:13:"A(N) = ";L$(X)aK30x5:Z039:"-";:K1(40(QP)) K2(40K1(QP))2W1:QP6W2 4:YPQW:K4K2K3K1*Y0K4K414QP6K440K439:8DOMLY SELECTED."::"1. THE 1ST 14 TERMS WILL BE PRINTED OUT"j"2. THE 1ST 14 TERMS WILL BE GRAPHED":"3. YOU ARE TO DETERMINE THE LIMIT OF":" THE SEQUENCE IF IT EXISTS"::"READY":T$X(6(8)1):N0:C0:K10:K20:K30NOSITIVE NUMBER 'M' SUCH THAT"2b"ABS(A(N)-A)::"A SEQUENCE WILL BE RAN:SN5X20(X20)ĺ"PUSH RETURN TO CONTINUE":T$=:S&: SEQ LIMITS u02:10:"LIMITS OF SEQUENCES":::"AS YOU MAY KNOW...."D:"A SEQUENCE HAS A LIMIT 'A' PROVIDED EACH";N"POSITIVE NUMBER 'H' CAN BE PAIRED WITH A";X"P THE FIRST TERM":A15 "TYPE IN A COMMON RATIO":Rg "HOW MANY TERMS DO YOU WANT PRINTED OUT?":Nw :310:500 :"PUSH RETURN":T$ 1340 I90,370,1440 X1N:R1SNXA1 R1SN(A1A1RX)(1R)X;:6:A1R(X1);:2320)ĺ"PUSH RETURN TO CONTINUE":T$+ h:V r:2:"GEOMETRIC SEQUENCES AND SERIES" |4:"EXAMPLE..."::5:"1ST TERM =-4"::5:"COMMON RATIO = .5" : A14:R.5:N10 310 500 :"READY TO TRY A NEW ONE?":T$ :2:"TYPE INDO YOU WANT PRINTED OUT":N+ :310:330D :"PUSH RETURN":T$N "1340a 'I90,240,1440 ,2:10:"LIMITS OF SEQUENCES" 6"N";:10:"A(N)";:25:"S(N)" @: JX1N TX;:10:P(A1(X1)D);:25:P(X2(2A1(X1)D))# ^X20(XM = 5"::5:"COMMON DIFFERENCE = 3":A15:D3:N10= :F 310O 330t :"READY TO TRY A NEW ONE?":T$ :2:"ARITHMETIC SEQUENCES AND SERIES":"TYPE IN THE FIRST TERM":A1 :"TYPE IN THE COMMON DIFFERANCE":D :"HOW MANY TERMS ND SERIES"6 x:"2. GEOMETRIC SEQUENCES AND SERIES"W :"3. LIMITS OF SEQUENCES"l :"TYPE 1-3":I I0I3I(I)ĺI;" WON'T DO, ";:140 I170,370,550 :2:"ARITHMETIC SEQUENCES AND SERIES" 4:"EXAMPLE ..."5 :5:"1ST TER$ SEQUENCES, SERIES AND LIMITS> CHERYL LEMKE 1980_P(X)(X100000.5)100000h(175~2:5:"SEQUENCES"<10:"SERIES"F15:"LIMITS"PX12500:Z MENUd:4:"YOUR CHOICE..." n::"1. ARITHMETIC SEQUENCES A  "THE GREATEST COMMON DENOMINATOR OF"::X" AND "Y" IS ";::" "B" ";::"."~ ::"THAT'S HOW EUCLID'S ALGORITHM WORKS!!!"A IF A > = B"% Z" THEN A=A-B"? d" ELSE B=B-A"N n" GCD=B"Y "END" ::"PRESS SPACE BAR TO CONTINUE";:A$ :5 "X= ";X "Y= ";Y 15 AX:BY ABAAB:195 BBA "A="A" B="B A0180L  1/5/80 DENNIS WARD2 STEMS FROM APPLE K VOL 3 ISSUE 4 PG 7\ APRIL,1980::9:10::"EUCLID'S ALGORITHM"::12"GCD = GREATEST COMMON DENOMINATOR":("GCD OF (X,Y):"2" A=X"<" B=Y"F" WHILE A>0" P"    "SIDES","PERIMETER" 2 N4:SR(2.5)> K117Q N,(SN)(2R)] YSS4l H(RRY)v XRH S(XXY) N2N: R5d PROGRAM TO CALCULATE PI BY INSCRIBED POLYGONSJn GEORGE W. BALLbx ALFRED UNIVERSITYh"THE MACHINE VALUE OF PI IS ";4(1)"---------------------------------------" WE WILL USE A CIRCLE OF RADIUS 10 R10SSAJOUX" :14)"SPIRAL"W &:::"PRESS SPACE BAR TO END THIS PROGRAM. ":ANS$a 0::CSNX11,Y1SN AX,AYX,Y, AX,AYX,AY: X,AYX,YA LI 22x " DO YOU WANT TO DO THIS AGAIN ? ";B$ (B$,1)"Y"10 : 10 "THE FOLLOWING PROGRAMS ALSO ILLUSTRATE" :"THE USE OF POLAR COORDINATES:" :14)"LI STPPI64& X(L)AXBX(CXL)? Y(L)AYBY(CYL)H :3V "AXBX,AYh ,LANG0STPt 6XX(L) @YY(L) JX1X(LSTP) TY1Y(LSTP) ^0 hAX,AYX1,Y1 rX,AYX1,AY |X1,AYX1,Y1 3 SN((CYL)) X1,YSTART WITH A=1 AND B=1. THIS WILL GIVE"S "YOU A CIRCLE. THEN TRY OTHER VALUES:"} :" ENTER VALUE FOR A : ";CX :" ENTER VALUE FOR B : ";CY PI3.1415926536 AX140 BX79100 AY80 BY70 ANG2.01PIP11)"Y = SIN (B * ANGLE)"K Z:"THESE ARE THE HORIZONTAL AND VERTICAL"w d"LEGS OF THE RIGHT TRIANGLE FORMED BY" n"THE ROTATING ANGLE." s x" BY SPECIFYING DIFFERENT VALUES FOR" "A AND B,YOU CAN GET DIFFERENT CURVES." ' "b  :):12)"POLAR COORDINATES"Q:8)"H.EDELSTEIN OCT 22,1979"(:"ILLUSTRATES HOW CURVES AROUND A POINT"2"ARE BEST PLOTTED BY POLAR COORDINATES."<" THE X,Y COORDINATES HAVE THE FORM:"F:11)"X = COS (A * ANGLE)"      2,A,B."  6 " SUGGESTED STARTING VALUES ARE:"` " K1=30 K2=10 A=1 B=1 Z=0 "NOTE: KEEP Z LESS THAN 1(E.G.:.1)" & "NOW ENTER THESE OR YOUR OWN:"0 " ENTER K1: ";BX: " K2 ? ";BYD " "HERE ARE THE COORDINATES YOU CHOSE:"U :" X= K1 *LOG(1+ANGLE) * COS(A *ANGLE)" :" Y= K2 *LOG(1+ANGLE) * SIN(B *ANGLE)" :" Z=0 (01 ADDS THE 3D DIMENSION)"  "SEE WHAT CURVES RESULT WHEN YOU CHANGE" "THE PARAMETERS K1,K  XC(L)' S(L)AYF2BY(CYL)3 YS(L)> ZZZCI YZYZo (X100X400Y100Y300)2560} X1ĪX1 X278ĪX278 YZ1ĪYZ1 YZ158ĪYZ158 X,YZ L :  : 10)"LOGARITHMIC SPIRAL"& :3.1415926536 R2& RADR(2PI)5 STPPI256@$ AX140W) ZC0ĪAY80:2360j. AY8050(ZC)p8 yB :3L 1,11,158278,158278,11,1V AX,AY` L0RADSTPj E(L).1(L)t F1E(L)~ F2E(L) C(L)AXF1BX(CXL) Z=0"/H"NOTE: KEEP Z LESS THAN 1(E.G.:.1)"5RY\"NOW ENTER THESE OR YOUR OWN:"yf" ENTER K1: ";BXp" K2 ? ";BYz" A ? ";CX" B ? ";CY" Z ? ";ZC PI"0:" Y= EXP( K2 *ANGLE) * SIN( B *ANGLE)"^:" Z=0 (01 ADDS THE 3D DIMENSION)"d "SEE WHAT CURVES RESULT WHEN YOU CHANGE" "THE PARAMETERS K1,K2,A,B."*4" SUGGESTED STARTING VALUES ARE:">6)"K1=1 K2=1 A=5 B=5<XC(L)FYS(L)!PYZYZ/ZX1ĪX1AdX278ĪX278QnYZ1ĪYZ1exYZ158ĪYZ158pX,YZwL}:10)"EXPONENTIAL SPIRAL":"HERE ARE THE COORDINATES YOU CHOSE:":" X= EXP( K1 *ANGLE) * COS( A * ANGLE)CPI3.1415926536R7.RADR(2PI)<STPPI32GAX140^ZC0ĪAY80:1260qAY8050(ZC)w:31,11,158278,158278,11,1 AX,AYL0RADSTPC(L)AXLBX(CXL)(ZZZC2S(L)AYLBY(CYL) A=1 B=1 Z=0"7`"NOTE: KEEP Z LESS THAN 1(E.G.:.1)"=jat"NOW ENTER THESE OR YOUR OWN:"~" ENTER K1: ";BX" K2 ? ";BY" A ? ";CX" B ? ";CY" Z ? ";Z COS(A *ANGLE)"8 :" Y= K2 *(ANGLE)* SIN(B *ANGLE)"f :" Z=0 (01 ADDS THE 3D DIMENSION)"l $ ."SEE WHAT CURVES RESULT WHEN YOU CHANGE" 8"THE PARAMETERS K1,K2,A,B." B L" SUGGESTED STARTING VALUES ARE:"V8)"K1=2 K2=2 10) "NO ? THEN WE WILL SIGN OFF.": !P11500:PD "::c 6 ************************w @ SUBROUTINES J ************************ : 10)"REGULAR SPIRAL" :"HERE ARE THE COORDINATES YOU CHOSE:" :" X= K1 *(ANGLE)*:10)"2. EXPONENTIAL"3 :10)"3. LOGARITHMIC"[ :10)"4. SUPERIMPOSED SINE CURVE"g ::: "ENTER YOUR CHOICE(1,2,3, OR 4): ";CH CH1000,2000,3000,4000 22 "DO YOU WANT TO DO THIS AGAIN ? ";C$ (C$,1)"Y"170 : $ |" 4. SUPERIMPOSED SINE CURVE"U :" PRESS SPACE BAR TO GO ON ":ANS$o ******************** MENU FOR TYPE SPIRAL ******************** :: 5 " WHAT TYPE OF SPIRAL DO YOU WANT ? " :10)"1. REGULAR" A FUNCTION OF THE"; P"ROTATING ANGLE. YOU HAVE A CHOICE"] U"OF FOUR TYPES OF SPIRALS :"c Z _" 1. REGULAR : SPREADS OUT EVENLY." a d" 2. EXPONENTIAL: SPREADS INCREASINGLY." n x" 3. LOGARITHMIC: SPREADS DECREASINGLY." z 17)"SPIRAL"D8)"H.EDELSTEIN OCT 23,1979"J#y("PLOTS SPIRALS USING POLAR COORDINATES :"-2" X = K1 * F1(ANGLE) * COS(A * ANGLE)"7<" Y = K2 * F2(ANGLE) * SIN(B * ANGLE)"F K"WHERE F(ANGLE) IS           ""::"ENTER COMBINED FACTORS OF->(";M$;:")#";Q$:(Q$)0240DJ,:" MAKING AN ENTRY" 20:958:">WHICH INPUT-> (B-D-H)";M$:D(M$"D"):H(M$"H"):B(M$"B"):X(M$"X"):XBHD240 M$"X"300 P2(8D)(14H) 22:"(YOU MAY COMBINE FACTORS,EX:(N+N N-N*N)" 34,23>B$(1)"":B$(2) BINARY") :" DECIMAL"K " HEXADECIMAL"v 11:8)"<-OUTPUT IS IN ALL THREE->": :" ENTER DESIRED CONVERSION FACTOR CHOOSE":" FACTOR TO BE CONVERTED BY PREFEX" :" TO CHANGE MODES, PRESS RETURN WITHOUT"8)">BINARY NUMBER->";MI$;B$(1)+ j:250L BB((N(1,T)(PS))):SS1:Z N5190v SS(N3):PAT:FL1:22 :"ENTRY ERROR"::250 H$"0123456789ABCDEF":N(2,60):K7:L48:B$(2) 5:9)"<-INPUT IN IN EITHER ->": :" ((QHP)(QHP))HP:QB((QLP)(QLP))LP:N(Z,U)(QAQB)LPF TU:` VZ12:FHB:Z2FHH XT1F:QN(Z,T)1:L$(H$,Q,1) ZB$(Z)B$(Z)L$:T:Z d13:958:10)">DECIMAL LOCATION-> ";MI$;C: f8)">HEXADECIMAL ADDRESS->";MI$;B$(2): h% (AB:B0:S0:TPA111:130:T8 2AAA:SSAAAU 4MI$"":(BAA)0MI$"-"l 7C(BAA):C060 8B$(1)"0":B$(2)"0":100 <Z1:QP2:QC:80:HBH:QP16:Z2:80:HHH F86 PH(((Q)(QP))1):U1H:T1HU= RHPQPT:LPQP(T1):QAKl::1:" (BINARY-DECIMAL OR HEX CODE CONVERTER)":"---------------------------------------":34,2:200 FL0:Q(Q$):T1Q:N((Q$,T,(T1)))NN(K(N64))L:N0180N(1,T)N:T:FL30Q$Q$"+0":10 S0:B0:TQPA11:130:T S8:6: DR(Q)S2(2Q)) ES8:E FR(Q)((S2(2Q)))R G5:S8:e HR(Q)100QQo IS1:B3 4R(Q)(4(2Q)) 57 6R(Q)(2(2Q))= 7U 8R(Q)((Q)(Q))[ 9p :R(Q)((4)Q)v ; <R(Q)((S2(Q2))) =S7:A1:3: >R(Q)SQ100 ?S24:7: @R(Q)S(12(Q)) AS8: BR(Q)S(1(Q)) CX140X140 Y96Y960 Y95Y95E I0ē140X,96YV 140X,96Y] Im D1400:D| C1BB1 B16C1ī25 :20 ,R(Q)(4Q) - .R(Q)(2(2Q)) / 0R(Q)(2(Q)) 1 2R(Q)((8Q)) p%936:"PATTERN NUMBER 1-15 ";B-C0?B15C1:B1QA2:S75::2B300,302,304,306,308,310,312,314,316,318,320,322,324,326,328,330I0360ATI57.3YR(T)(T)XR(T)(T)Y(YS):X(XS)X138X138    2.68 POUNDS"a"FINALLY IT IS TIME TO CHECK OUR ANSWER IF THE SHELL SHAPED PASTA IS .35 CENTS PER POUND AND WE BUY 1.34 POUNDS, THE AMOUNT SPENT IS .47 CENTS. THE AMOUNT SPENT ON FETTICCINE IS .58 CENTS AND ADD ON THE AMOUNT SPENT ON FARFALL EQUATION (2) IS EQUIVALENT TO 4.00= 2.98S1 FROM THERE WE FIND THAT S1=1.34 "_" WHEN ROUNDED TO THE NEAREST HUND- REDTH OF A POUND. WE ALSO KNOW S1=S2=1.34 POUNDS AND S3=2S1= (1) 4.00 = .35S1+ .43S2+ 1.10S3 SINCE S1=S2 AND S3=2(S1), EQUATION (1) IS EQUAL TO (2) 4.00= .35S1+ .43S1+ 1.10(2S1)"]" THE PROBLEM."V"DRAW A BOX AROUND THIS INFORMATION AND USE IT TO SOLVE THE PROBLEM. YOU SHOULD NEVER HAVE TO LOOK AT THE PROBLEM AGAIN."Z"NOW THE NEXT STEP IS EASY, JUST SOLVE FOR S1, S2, AND S3. THE FIRST EQUATION YOU NEED IS:"[" COMBINED. WRITE----S3=S1+S2 AND SINCE S1=S2 S3=2(S1)" U" READ-----HOW MUCH OF EACH SHAPE OF PASTA SHOULD HE MIX? WRITE----S1=? S2=? S3=? NOW YOU HAVE TRANSLATED OUND. WRITE----P3=1.10"K" READ-----THE AMOUNT OF SHELL IS TO BE EQUAL TO THE AMOUNT OF FETTUCCINE. WRITE----S1=S2"iP" READ-----THE AMOUNT OF FERFALLE IS EQUAL TO THE AMOUNT OF THE OTHER TWO -THE SHELL SHAPED PASTA IS .35 CENTS PER POUND. WRITE----P1=.35 READ-----THE FETTICCINE IS .43 CENTS PER POUND. WRITE----P2=.43"=G" READ-----THE FARFALLE IS $1.10 PER P WRITE----T=4.00 AND T=P1S1+P2S2+P3S3 USE T FOR TOTAL AND P1-3 FOR THE PRICE PER POUND."B"P IS TAKEN TIMES THE AMOUNT OF EACH SHAPE SINCE THE PRICE IS LISTED PER POUND."F" READ---- READ-----A MIXTURE OF THREE SHAPES... WRITE----M=S1+S2+S3 USE SYMBOLS THAT MEAN SOMETHING TO YOU."?"LIKE M FOR MIXTURE, S1-3 FOR THE NUMBER OF POUNDS OF EACH SHAPE OF PASTA."A" READ-----TOTALING $4.00 "R 5 7"NOW LET'S WORK THE PROBLEM. THE FIRST STEP IS TO TRANSLATE THE WORDS TO MATH- EMATHICAL SYMBOLS."<" READ THE PROBLEM AND TRANSLATE AS YOU GO. SHAPED PASTA IS .35 CENTS PER POUND, THE FETTUCCINE IS .43 CENTS PER POUND, AND THE FARFALLE IS $1.10 PER POUND. HOW MUCH OF EACH SHAPE SHOULD BE MIXED?"L 4" THE MIXTURE IS TO INCLUDE THREE SHAPES OF PASTA AND TO TOTAL $4.00." -" THE AMOUNT OF SHELL SHAPED PASTA AND THE AMOUNT OF FETTUCCINE ARE TO BE EQUAL, WHILE THE AMOUNT OF FARFALLE IS TO BE EQUAL TO THE OTHER TWO COMBINED." 2"THE SHELL (" YOU ARE IN LITTLE ITALY IN NEW YORK CITY. ALONG THE STREET YOU SEE SEVERAL ITALIAN RESTAURANTS. ACROSSED THE STREET THERE IS A PASTA FACTORY WITH AN OUTLET STORE."I *" WHEN YOU GO IN, YOU FIND THAT THE WORKER IS MAKING A MIXTURE.U WILL NEED A PIECE OF PAPER AND SOME-THING TO WRITE WITH IF YOU CARE TO TAKE A TRIP WITH THE AJB SPACE MACHINE. IF YOU WANT TO ENTER IN JUST TYPE THE NUMBER 2 ON THE KEYBOARD." AB AB2ī1000  " FLASH!!!!!!!!!!" #- 90 "THIS IS THE AJB SPACE MACHINE. IF YOU WANT TO ENTER INTO IT, IT WILL TAKE YOU PLACES IN THE UNITED STATES AND THROUGH TIME. THE MACHINE WILL NOT LET YOU PICK WHERE YOU ARE GOING, IT ONLY TAKES YOU TO THE DIFFERENT PLACES." "YO                  "ANGLE D IS: 90 DEGREES"^@"TYPE 1 FOR ANSWERS REPRINTED, 2 FOR NEW PROBLEM, 3 FOR QUIT";MrJM1500,96,1700xWA(S): THIS T: "Y["CONVERT THE ABOVE DIM.(IF LESS THAN 1) TO DEGREES USING THE TRIG. SINE TABLES."tPAUSE14000:PAUSE"ANGLE F IS: ";Z "CONVERT THE ABOVE DIM.(IF LESS THAN 1) TO DEGREES USING THE TRIG. SINE TABLES." PAUSE14000:PAUSEAN S:}VC(1(S)): HYPOTENUSELH(V2)(C2)^W(H): BASEyY180(90F): ANGLE EXCZF"THE HYPOTENUSE IS: ";V"THE BASE IS: ";W"THE LEG IS: ";XPAUSE14000:PAUSE"ANGLE E ISWBZF1500KSE(3.14159309180): CONVERT DEG. TO RADIANSvVC(1(S)): HYPOTENUSEH(V2)(C2)#W(H): BASE(Z180(90E): ANGLE F-XC.YE21500xSF(3.14159309180): CONVERT DEG. TO RADIYPOTENUSEVH(V2)(B2),[X(H): LEGG`Z180(90E): ANGLE FOeWBWfYEaj1500SF(3.14159309180): CONVERT DEG. TO RADIANSVB(1(S)): HYPOTENUSE H(V2)(B2)X(H): LEGY180(90F): ANGLE EYWA: THIS IS ANGLE E"VA*ZF41500FG(B2)(C2)bV(G): THE HYPOTENUSEvYBV: ANGLE EZCV: THIS IS ANGLE F WBXC1500LSE(3.14159309180): CONVERT DEG. TO RADIANS QVB(1(S)):HIS T *H(A2)(W2)4/X(H): THIS IS THE LEGW4Z180(90E): THIS IS ANGLE F_9VAg:YEq>1500SF(3.14159309180): CONVERT DEG. TO RADIANSWA(S): THIS IS THE BASEH(A2)(W2)X(H): THIS THE LEG THIS IS ANGLE FqVA rWB*v1500<G(A2)(C2)ZW(G): THIS IS THE BASEvYWA: THIS IS ANGLE EZCA: THIS IS ANGLE F VAXC1500 SE(3.14159309180): CONVERT DEG. TO RADIANS%WA(S): TH600 A0C0ī700( A0E0ī800: A0F0ī900M ,B0C0ī1000` 6B0E0ī1100s @B0F0ī1200 C0E0ī1300 C0F0ī1400 E0F0ī100 XG(A2)(B2) ]X(G): THIS IS LEG C bYBA: THIS IS ANGLE ElZXA:R THE BASE";B3 g"TYPE IN THE DIM. FOR THE LEG";Cp h"TYPE IN THE DEGREES FOR THE ANGLE OPPOSITE THE BASE";E i"TYPE THE DEGREES FOR THE ANGLE OPPOSITE THE LEG";F jD90 nA0200 xB0300 C0400 E0500 F035 A0B0 U12,2615,26+ Z166,86160,86160,98> _160,92163,92n `"YOU MUST HAVE TWO DIM. FOR EACH TRIANGLE" a:"ONLY ONE ANGLE CAN BE USED" b:"IF THE DIM. IS UNKNOWN TYPE 0" e"TYPE IN THE DIM. FOR THE HYPOTENUSE";A f"TYPE IN THE DIM. FO1060,12265,12266,12166,11765,11660,116T -60,11065,11066,11166,11565,116e 290,3087,42v 590,3093,42 888,3892,38 <8,507,493,492,502,603,617,618,60 F12,8617,8618,8718,9717,9812,9812,86 P18,2012,2012,3218,32DING INPUT IS TO 5 DECIMAL PLACES":r "YOU WILL NEED A TRIG. SINE TABLE TO CONVERT ANGLE ANSWERS TO DEGREES": "YOU MUST GIVE TWO DIMENSIONS, ONLY ONE ANGLE CAN BE GIVEN" PAUSE112000:PAUSE :3 10,1010,100200,10010,10, (60,1 W"THIS IS A TRIGONOMETRY PROGRAM TO FIND ALL DIMENSIONS OF A RIGHT TRIANGE""PARTIAL ANGLES MUST BE GIVEN IN DECIMAL FORM, ANSWERS WILL BE IN DECIMAL FORM":$ "ANSWERS ARE ACCURATE TO 3 DECIMAL PLACES(BY ROUNDING OFF 4TH DECIMAL) PROVI     ~:14:5:"6";:15:"1";:25&A$?18:10:"6 + 1 = 7"GA$^14:25:"7"::23fA$14:5:"6";:15:"1"18:10:" ":14:23:"7":12:23:"9";:25:"6"18:22:"ANSWER":A$:670:::23"18:10:" "*$A$N.12:5:"4";:15:"2";:25:"6"j8:14:3:"5";:13:"2"v=14:23~BA$L18:10:"5 + 2 = 7"VA$`14:23:"7"::23e18:10:" "jA$t14:3:"5";:13:"2";:23:"7"3:"2";:13:"7";:23#A$<18:10:"2 + 7 = 9"DA$[12:23:"9"::23cA$12:3:"2";:13:"7";:23:"9";18:10:" ":12:5:"4";:15:"2";:25A$18:10:"4 + 2 = 6"A$12:25:"6"M P L E"610:" - -";:12:"- -";:22:"- -"AI15p"! !";:11:"! !";:21:"! !"v16:"'- -'";:11:"'- -'";:21:"'- -'":13:9:"+";:19:"="14:3:"5 6";:13:"2 1"12:5:"4";:15:"2";:TRICES ADD COMPONENTS IN SIMILAR":R"POSITIONS TO OBTAIN COMPONENT IN THAT":i"POSITION.":::r670zA$:960:961I14:I:"======================================="::6:14:"ADDITION"970:9858:12:"E X A 9 -1 6 2 0 1 !"/C"! !"KD"'- -'"SE:zF" IS A 2 X 6 MATRIX.G::H670:A$:f670p::z" D E F I N I T I O N"::"ADDITION OF MATRICES: TO ADD TWO":#"MA MATRIX."! 7 9 -1 !"."! !"A"! 0 4 3 !"T"! !"g "'- -'"o!:x"670$A$4:>" - -"?"! !"@"! 2 5 7 0 8 4 !"A"! !"B"! "! ! IS A 2 X 2 MATRIX.:"! 4 1 !"J"! !"Z"'- -'"d::m670uA$} :" - -""! !""! 2 3 1 !""! !""! 4 5 2 !""! ! IS A 4 X 3 ==============="%670/::\::" D E F I N I T I O N"::" A MATRIX IS A RECTANGULAR"::"ARRAY OF NUMBERS.":::670A$:670::" - -""! !""! 2 3 !"*7,69241,72239,76238,79239,83243,86249,88255,88256,90253,92247,92242,90239,95^ Ne X2 b0,0278,0278,1590,1590,0 l v600 650 1840 870 1255 2060 : 710 I14"========================72188,76 o &207,69207,97226,97226,92213,92213,86219,86219,80213,80213,74226,74226,69207,69u 0 :239,95245,97253,97259,95263,92263,86261,83257,81251,81247,79247,76250,74254,75258,79262,75X D262,75259,71254,6924137,76137,78134,81125,82125,74) Q 153,69159,69159,97153,97153,69W  188,76183,75179,76176,79175,83176,86179,90183,92189,88 189,88191,93187,96181,97176,95172,93169,90167,86167,81169,76175,71180,69187,69193,72,9768,8860,8857,9750,97; 62,8365,7967,8362,83A  83,69111,69111,74101,74101,9795,9795,7483,7483,69  119,69135,69140,70142,72143,76142,81137,85145,97139,97132,88125,88125,97119,97119,69# 125,74135,74 570 J1400: 0' 4000 4209 450B 470K 500T 520] 550f "570v #X(16384) $16368,0 %X127640 ,100 15,9715,6929,7745,6945,9739,9739,7829,8421,7821,9715,97  50,9765,6979,97f32 **** PROGRAMMER - MEL BAKER, UNION COLLEGE.s7 **** USER MAY PROGRESS THRU LECTURE BY HITTING SPACE BAR.yPZ\600d1n400s7x420}545034701500752035507      1,1)"Y"FA1:1020,(A$,1,1)"N"2010w5:868:5:"ANOTHER EQUATION ON SAME SCREEN?";A$:(A$,1,1)"N"1020(A$,1,1)"Y"20201090 Z3Z11.75:Z4Z21.75 15:868:15:"MEAN Y VALUE?";MY R(Z4Z3)2:Z3((MYR)100)100::Z2R1SX10:Z1R1SX10:1800zX$"E"R1(Z4Z3)2:Z4R1ST10:Z3R1ST10:R1(Z2Z1)2:Z2R110SX:Z1R110SX:1800::1:"ANOTHER GRAPH?";A$:(A$,1,1)"N"57(A$,1,1)"Y"2000FA0:3:868:3:"REUSE THE SAME EQUATION?";A$:(A$,""/vR1Z2Z1:X$"R"Z1Z1R1:Z2Z2R1:1800SX$"L"Z1Z1R1:Z2Z2R1:1800R1Z4Z3:X$"D"Z4Z4R1:Z3Z3R1:1800X$"U"Z4Z4R1:Z3Z3R1:1800SX(Z2Z1)2:ST(Z4Z3)2X$"S"R1(Z4Z3)2:Z4R1ST10:Z3R1ST10:R1(Z2Z1)2YZ3Z3Y(YZ4Z4Y'2XZ21310S<Q80:Z3(Z3):Z4(Z4.99):ZF1Z3Z4]F1100fxST1xV1V10ıV1VV10:STST10:1410VV10:STST10:1410:1096l16368,0:24:"PRESS U,D,L,R,S,E, OR 'SPACE BAR'";:X$::ZL$ЭZ3J01260ZC158ZC158AZZ,ZC1ZY,ZC1:ZZ,ZCZY,ZCJ:J0Z4ST:ZC159(Z3J)(Z4Z3)159:ZC0ZC1591290Z3J01290ZC158ZC158ZZ,ZC1ZY,ZC1:ZZ,ZCZY,ZC J:Z39999:Z49999:XZ11:Q81 XX1:15: ";(Z41000)1000;" SCALE = ";STOKZ1:XX0:JZ1Z2SX:KKSX:J0XXKSXyJ:Z5(Z1XX)(Z2Z1)279:Z50Z50Z5279Z5279ZZZ55:ZYZ55:ZZ0ZZ0ZY279ZY279J0Z3ST:ZC159(Z3J)(Z4Z3)159:ZC0ZC1591260 )(Z2Z1)279:ZC0ZC27912302ZC278ZC278TZC1,ZZZC1,ZY:ZC,ZZZC,ZYJ:J0Z2SX:ZC(Z1J)(Z2Z1)279:ZC0ZC2791242ZC278ZC278ZC1,ZZZC1,ZY:ZC,ZZZC,ZYJ!23:868:23:"VERTICAL: ";(Z31000)1000;" TOHORIZONTAL: ";(Z11000)1000;" TO ";(Z21000)1000;" SCALE = ";SXqKZ3:XX0:JZ3Z4ST:KKST:J0XXKSTJ:Z6159((Z3XX)(Z4Z3)159):Z60Z60Z6159Z6159ZZZ65:ZYZ65:ZZ0ZZ0ZY159ZY159J0Z1SX:ZC(Z1J2:(Z$,I,3)"SQR"ZF1:.KI:ZL$"Y"1300RL16304,0:2:1200:XZ1Z7:Q90~(Z3)(Z4)ē0,Z6279,Z6:0,Z61279,Z61(Z1)(Z2)ēZ5,0Z5,159:Z51,0Z51,1593:50V(Z2Z1)2:1400:SXST:V(Z4Z3)2:1400C22:868:22:"";Z39 $17:868:17:"MAXIMUM Y?";Z4:Z3Z4Z3Z41050h B19:868:19:"NUMBER OF PLOT POINTS?";ZP G16:FA1Ģ21:868:21:"INPUT YOUR EQUATION? ";Z$:6000 HZ7(Z2Z1)ZP:21:868:21:Z$:(Z$,2,1)"^"5000JZ9(Z$):2:ZF0:I1(Z$)2:Z1Z2Z1Z21020a 11:868:11:"SHOULD I COMPUTE THE Y LIMITS?";ZK$:(ZK$,1,1)"Y"1050 13:868:13:"EQUAL SPACING?";A$:(A$,1,1)"Y"3000 (A$,1,1)"N"1045 ZL$"Y":1090 (ZK$,1,1)"N"1040 15:868:15:"MINIMUM Y?91:50 PZC,ZD Z50e 8190:I768777:Y:I,Y:I:104,168,104,166,223,154,72,152,72,96:16 ZO$"+-*/^>=<":ZA$"SGNINTABSSQRRNDLOGEXPCOSSINTANATN":7000:9000 7:868:7:"ENTER MINIMUM X?";Z1:Q90:62450 9:868:9:"MAXIMUM X?";Z 2XZ253 3XXZ7:157 4ZC(Z1X)(Z2Z1)279^ 5XZ2ZF1XZ1Z7:ZF0:Q90:4000m 8XZ21900 9XZ2İ16:22016:43000 :ZC0ZC279Q90:50 <ZD159(Z3Y)(Z4Z3)159:ZD0ZD159Q90:50 BZ3Y0Q90:50 FQ90ēZC,ZD:Q,1)):ZHZH1:ZI:i ::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::: ZI23262406:ZI,58:: COPYRIGHT 1979 MECC NAME: POLYGRAPH VERSION 10/22/79 AUTHOR: DARRELL RICKE #LANGUAGE: APPLESOFT (FP) (1000:SEE LINES 20-35 FOR REMARKSkZH2326:ZI1Z9:ZJ010:(Z$,ZI,3)(ZA$,3ZJ1,3)ĂZJ:11 ZH,(210ZJ(ZJ2)5):ZIZI2:ZHZH1:ZI ZJ07:(Z$,ZI,1)(ZO$,ZJ1,1)ĂZJ:14 ZH,(200ZJ(ZJ4)2):ZHZH1:ZI ZH,((Z$,ZI          ""::"ENTER COMBINED FACTORS OF->(";M$;:")#";Q$:(Q$)0240NQ$"X"300V10\,U:" MAKING AN ENTRY" 20:958:">WHICH INPUT-> (B-D-H)";M$:D(M$"D"):H(M$"H"):B(M$"B"):X(M$"X"):XBHD240 M$"X"300 P2(8D)(14H) 22:"(YOU MAY COMBINE FACTORS,EX:(N+N N-N*N)" 34,23>B$(1)"":B$(2) BINARY") :" DECIMAL"K " HEXADECIMAL"v 11:8)"<-OUTPUT IS IN ALL THREE->": :" ENTER DESIRED CONVERSION FACTOR CHOOSE":" FACTOR TO BE CONVERTED BY PREFEX" :" TO CHANGE MODES, PRESS RETURN WITHOUT"8)">BINARY NUMBER->";MI$;B$(1)+ j:250L BB((N(1,T)(PS))):SS1:Z N5190v SS(N3):PAT:FL1:22 :"ENTRY ERROR"::250 H$"0123456789ABCDEF":N(2,60):K7:L48:B$(2) 5:9)"<-INPUT IN IN EITHER ->": :" ((QHP)(QHP))HP:QB((QLP)(QLP))LP:N(Z,U)(QAQB)LPF TU:` VZ12:FHB:Z2FHH XT1F:QN(Z,T)1:L$(H$,Q,1) ZB$(Z)B$(Z)L$:T:Z d13:958:10)">DECIMAL LOCATION-> ";MI$;C: f8)">HEXADECIMAL ADDRESS->";MI$;B$(2): h% (AB:B0:S0:TPA111:130:T8 2AAA:SSAAAU 4MI$"":(BAA)0MI$"-"l 7C(BAA):C060 8B$(1)"0":B$(2)"0":100 <Z1:QP2:QC:80:HBH:QP16:Z2:80:HHH F86 PH(((Q)(QP))1):U1H:T1HU= RHPQPT:LPQP(T1):QA]l::1:" (BINARY-DECIMAL OR HEX CODE CONVERTER)":"---------------------------------------":34,2:200 FL0:Q(Q$):T1Q:N((Q$,T,(T1)))NN(K(N64))L:N0180N(1,T)N:T:FL30Q$Q$"+0":10 S0:B0:TQPA11:130:T FF2 PFFN180* ZNF(NF)1305 dF",";? nNNFG x80T F2160^ FF2f 80n F3v 80~ N; NNR220 " IS PRIME" 230 " ARE THE FACTORS OF ";NR : TD14000: 20 :  :<"NUMBER TO BE FACTORED ";:"";N$:N$""ĉ::HN(N$)N(N)ĺ:"SORRY, ONLY NATURAL NUMBERS ":"MAY BE ENTERED!":TD13000::10N1ĺ:"THE NUMBER MUST BE GREATER THAN 1"::TD13000::10((37)22ė2<NRN "TO THE PROGRAM AUTHORS":11)"AND CONTRIBUTORS."b (::6)"";:A$: 2"ANY OF OUR PUBLIC DOMAIN PROGRAM DISKS FROM OUR LARGE LIBRARY CAN BE COPIED ONTO YOUR BLANK DISKS SENT TO US FOR A"Y <"COPY FEE OF ONLY 75 CENTSZ ::3:16)"75 CENT":6)"PUBLIC DOMAIN PROGRAM DISKS":::12)"DISTRIBUTED BY:"::12)"ASPEN SOFTWARE"::6)"729--1/4 E. PORTLAND STREET":8)"PHOENIX, ARIZONA 85006":7)"TELEPHONE: (602) 253-0651"1 ::10)"WITH SPECIAL THANKS":8) OR/NULL ENTRY TO END""34,2:9 BY WILEY JOHNSONdOWED ( ONE OF EACH LETTER OF THE ALPHABET )" :"WHEN THE RESULTS ARE DISPLAYED A '1' INDICATES A TRUE AND A '0' INDICATES A FALSE CONDITION":" EXAMPLE: -A.(B+(H@I))"24:"HIT ANY KEY TO CONTINUE";:Z$:"- NOT/. AND/@ XOR/+",:" PRIORITY OF EVALUATION"J:"'-' NOT HIGHEST"Z"'.' AND"j"'@' XOR""'+' OR LOWEST":"PARENTHESES ARE ALLOWED TO ALTER ORDER OF EVALUATION ( NO MAXIMUM )",:"ONE TO TWENTY-SIX VARIABLES ARE ALL."X4:640 NX$"@"X3:6405 XX$"+"X2:640J bX$"("X1:640_ lX$")"X0:640 v(X$)64ĭ(X$)91X(X$)  ::  INTRODUCTION"THIS PROGRAM WILL EVALUATE A BOOLEAN EXPRESSION FOR YOU. THE FOLLOWING RULES APPLY:"ERROR IN FORMULA.":20( S(S)1S(S)/ I9 " ";\ I1B:B(I);" ";:I:S(1) S1ĺ"ERROR IN FORMULA.":20 C11 IB11 C2((C1B(I))2) B(I)(B(I)C1):C1C2:I J &20 0X1 :X$"-"X5:640 DX$"0:I1P hP(I)5380; rSS1:S(S)B(V(P(I)64)):470K |P(I)5450m S2ĺ"ERROR IF FORMULA.":20 P(I)1410,420,430 S(S1)((S(S1)S(S)1)2):440 S(S1)(S(S1)S(S)):440 S(S1)((S(S1)S(S))2) SS1:470 S0PP1:P(P)S(S):SS1:210' I1PP P(I)64ĭP(I)91V(P(I)64)P(I)64W Ia " ";m I126} "V(I)0320 ,BB1:V(I)B 6(I64);" "; @I J"ANS." O"---------------------------------------" TJ1((2)B) ^SX:200* xS0ĺ"PARENTHESIS ERROR.":20A S(S)1SS1:200` PP1:P(P)S(S):SS1:120v SS1:S(S)X:200 S0190 XS(S)190 PP1:P(P)S(S):SS1:160 SS1:S(S)X I S0240 S(S)1ĺ"PARENTHESIS ERROR.":20 ; :700/ P(80),S(80),V(26),B(26)R::"BOOLEAN EQUATION :";E$:bP0:SP:BP(I126:V(I)P:B(I)P:I2(E$)0650<I1(E$)FX$(E$,I,1):560PX5110ZX1200dX1120,150,160,160,160,160 nPP1:P(P)     M TARGET = ";D;::B:BC"PRESS ANY KEY TO CONTINUE":A$:KD345Q RMETERS.":780@"SHOT TO RIGHT OF TARGET ";Y2;" KILOMETERS."N Z20810"SHOT ABOVE TARGET ";Z2;" KILOMETERS.":820*"SHOT BELOW TARGET ";Z2;" KILOMETERS."4"APPROX POSITION OF EXPLOSION: X=";X1;" Y=";Y1;" Z=";Z1>:" DISTANCE FRO";R;" SHOTS."5DR0:I15::I:"NEXT TARGET...":>N220dX2X1X:Y2Y1Y:Z2Z1Z:X20730"SHOT IN FRONT OF TARGET ";X2;" KILOMETERS.":740"SHOT BEHIND TARGET ";X2;" KILOMETERS."Y20770 "SHOT TO LEFT OF TARGET ";Y2;" KILO15 X1P2(B1)(A1):Y1P2(B1)(A1):Z1P2(B1)^ D((X1X)2(Y1Y)2(Z1Z)2)(12)l D20670 :"* * * HIT * * * TARGET IS NON-FUNCTIONAL ": &"DISTANCE OF EXPLOSION FROM TARGET WAS ";D;" KILOMETERS" ::"MISSION ACCOMPLISHED IN P1):390 wP3P15 " ESTIMATED DISTANCE=";P3{ "INPUT ANGLE DEVIATION FROM X, DEVIATION FROM Z, AND DISTANCE "; A1,B1,P2 :P220ĺ"YOU BLEW YOURSELT UP!!":580 A1A1R1:B1B1R1:"RADIANS FROM X XIS = ";A1; "FROM Z AXIS = ";B(1)(1):X(B)(A)P1:Y(B)(A)P14 "Z(B)P1< ': T"TARGET SIGHTED: APPROX COORDINATES X=";X;" Y= ";Y;" Z= ";Z YRR1:R5390 ^R355,360,365,370,375 cP3(P1.05)20:390 hP3(P1.1)10:390 mP3(P1.5)2:390 rP3(ED TO SHOOT AT THE TARGET UNTIL IT IS DESTROYED!"::" GOOD LUCK":: "PRESS ANY KEY TO PREPARE FOR ACTION":A$ : A(1)2P:B(1)2P:Q(AR1):W(BR1) "RADIANS FROM X AXIS = ";A;" FROM Z AXIS = ";B& P1100000OLD THE RADIAN OFFSET FOR THE X AND Z AXES, THE LOCATION OF THE TARGET IN THREE DIMENSIONAL RECTANGULAR COORDINATES." "THE APPROXIMATE NUMBER OF DEGREES FROM THE X AND Z AXES, AND THE APPROXIMATE DISTANCE TO THE TARGET"U "YOU WILL THEN PROCES ) 17)"TARGET "3::PdR1:R157.296:P3.141592n"YOU ARE THE WEAPONS OFFICER ON THE STAR-SHIP ENTERPRISE"x"AND THIS IS A TEST TO SEE HOW ACCURATE ASHOT YOU ARE IN THE THREE DIMENSIONAL RANGE"x "YOU WILL BE T   Y JOE ISHAM$ INFINITE PRECISION3 DIVISION 5% "ENTER NUMBER FOR DIVIDEND?";AI"ENTER NUMBER FOR DIVISOR ?";Bm"ENTER NUMBER OF DECIMALS ?";Nz(C(AB)2A;" / ";B;" = "C". ";<I1NFRA(BC)PAR10ZC(AB)dC;" ";nIx DIVIDE AND CONQUER B * * SUBROUTINE * * * ************************l10:958x12:13:" IMPROPER INPUT ":K13000::K ****************** * * * WRITTEN BY * T ME THINK "," KEEP YOUR SHIRT ON "," WAIT, I'LL GET IT " " WHAT'S THE RUSH! "," HOW MANY MORE? "," ISN'T IT TIME TO EAT? "," I'M GETTING TIRED "" I KNOW- I'M SLOW "," IS THIS THE END? "^ ************************ * * * ***********************K:(4);"CATALOG": *********************** * * * DATA SECTION * * * ***********************: " THAT'S A TOUGH ONE "," NOW LE" ";B2H19[R"RETURN TO CONTINUE, ESCAPE TO CHANGE BASE, CONTROL-C TO QUIT.";:Q$c\:ufQ$(13)450pQ$(27)P1:90zQ$(3)9208403 *********************** * * * THE END * D(DB2) D0770* *********************** * * * PRINT RESULTS * * * ***********************415:1:S$;" ";::" BASE ";::" ";B1;" = ">17:18:A$;" ";::" BASE ";::!DD(((J1)(B1(LK)).5))(J/K *********************** * * * CONVERT FOR OUTPUT * * * ***********************A$" "X(((DB2)(DB2))B21.5) A$(N$,X,1)A$  ************************ * * * THE HEART OF THE * * PROGRAM * * THE NEXT 7 LINES * * * ************************D0K1LJ1B1(N$,J,1)(S$,K,1)730 * FIRST CONVERT * * TO BASE 10 * * * ************************{bY1Y11l19:10v:MG$(Y1):Y110Y10L7Ģ23::" ANSWER MAYBE WRONG, NUMBER TOO LONG ";K1500L:K0 K1Lb(S$,K,1)"."Ģ12:958::"WHOLE NUMBERS ONLY, NO DECIMALS":J03000:J::450iKqQ0|&K1L0J1B1:(S$,K,1)(N$,J,1)QQ1DJ:KNLQİ980:450oX ************************ * * B2$) B21440 23K " BASE 2 THROUGH 36 ONLY. SELECT AGAIN. ";T 320b B2M410~  *** INPUT NUMBER *** 12:958 "VALUE IN BASE ";B1;" TO CONVERT"; S$  *** TEST INPUT *** L(S$) S$"0"450S$""45": 6180 @8:26+ J"CONVERTED TO"= T26:"BASE ";F ^B2$W hB2$"0"160g rB2$""160 | ************************ * * * TEST BASE 2 * * * ************************ B2(0)160 B1$"0"160  ************************ * * * TEST BASE 1 * * * ************************ B1(B1$) B11B137320 "23:2: ,"BASE 2 THROUGH 36 ONLY. SELECT AGAIN" BASE CONVERSION ": n3 xK110:MG$(K):K@ P1150S K02200:;: N$"0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZ" 4:958 M(N$) 5:10 "USE BASE TEN NOTATION" 8 "CONVERT FROM" "BASE "; B1$ B1$(ANY REM WITH' MA GOTO OR GOSUB, THEY@ NCAN ALL BE DELETED. P ************************* * * * BASE CONVERTER * * TITLE PAGE * * * ************************* Z d2:12::LSEND TO MAGAZETTE  90OA110,120,610,630,640,670,930,940,950,960lDELETE ALL LINES LISTED(IN THE ON 'A' GOTO2THEN DELETE LINE 10 THRU<THIS ONE, TO MAKE A GOODFUTILITY PROGRAMKTHIS PROGRAM DOES NOT LREFERENCE      103045 BGBG10 SS10) 30203 :21Z "EACH DIVISION = ";S10;" UNITS." PRINT EQUATION AND SET UP FOR POLTTING LINE F313080 "EQUATION X = ";X1 3150 F413100 MGMY "EQUATION Y = ";MY;" | 148,A152,A& 80A,6880A,72, J 127,7131,7:129,5129,9o 133,4136,7139,4:136,7136,10 232,70236,70:234,68234,72 238,67244,73:238,73244,67 DESIDE MAGNITUDE OF GRAPH BG(B):S10 F31BG(X1) BG Y = "; F412810* MY;" X ";S$;B4 2850C F212840] MY;"/";MX;" X ";S$;Bg 2850} MYMX;" X ";S$;B" :"PRESS ANY KEY TO CONTINUE"' R$, T DRAW GRAPH^ c 3h 150,0150,140m 80,70220,70r A01407 2 FRACTION" F4$ F4127503 F422760? :2720U "ENTER M ";MY_ 2770y "CHANGE IN Y ";MY "CHANGE IN X ";MX F10:F20:2400 :"B = Y INTERCEPT" "ENTER B ";B S$"+ ":B0S$"" :"EQUATION X INTERCEPT ";n X15x :"EQUATION X = ";X1[} :"PUSH ANY KEY TO CONTINUE ";c R$i  :"EQUATION FORMAT IS Y = M X + B" "M = SLOPE = CHANGE IN Y / CHANGE IN X" "HOW DO YOU WANT TO ENTER M?"  " 1 DECIMAL":" XA:F11 2465 -( INPUT EQUATIONE2 F10:F20:F30:F40< :"THIS PORTION OF THE PROGRAM ALLOWS YOU TO ENTER THE EQUATION OF A STRAIGHT LINE"F "IS THE LINE PARALEL TO THE Y AXIS?"P R$Z (R$,1)"Y"2700d F31i :"INPUT ,7,11,13,17,19,23,29,31,37,41,43,47,53,59,61,67,71,73,79,83 89,97,101,103,107,109,113,127,131,137,139,149,151,157,163,167 173,179,181,191,193,197,199 A:A1992510 AMYAMX2510 MYA(MYA)MXA(MXA)2460 MYMYA:MXMES ARE LIMITED TO SAVE TIME.^b THEREFORE LOWEST COMON DENOMINATOR MAY NOT ALLWAYS BE FOUNDre MX0MY0F11j MYMX02430t MY(MY)(1):MX(MX)y 2435~ MY(MY):MX(MX) MYMX(MYMX)2450 F21:F11  ; 2,3,5COORDINATES GIVEN")3 S$"+ ":B0S$""84 F202370`8 :10);"Y = ";MYMX;" X ";S$;" ";Bj= 2380B :10);"Y = ";MY;"/";MX;" X ";S$;" ";BL :"PRESS ANY KEY TO CONTINUE"Q R$V ` FIND LOWEST COMON DENOMINATORa NUMBER OF PRIM2400 F102300% F2022900 4:15G " = ";MYMX:2300R 4:15g " = ";MY;"/";MX~ "B = Y INTERCEPT"  "SUBSTITUTE TO SOLVE FOR B"  "B = Y - M X = Y1 - M X1"  MGMYMX  BY1MGX1 $ "B = ";B. :"EQUATION FOR TE SLOPE FLAG F31 23808 15);"Y = M X + B"] "M = SLOPE = (Y2-Y1) / (X2-X1)"s MYY2Y1:MXX2X1 "M = ";MY;"/";MX F10:F20  F1 IS CHANGE IN MY OR MX FLAG  F2 IS WHOLE NUMBER FLAG  FIND LOWEST COMON DENOMINATOR )  DEVELOPE EQUATION FROM COORDINATESc :"(";X1;",";Y1;")";28);"(";X2;",";Y2;")":F30:F40t X1X22220 :"THESE COORDINATES CAN NOT BE DEFINED BY Y = M X + B. THE EQUATION FOR THIS LINE IS:" :" X = ";X1  F3 IS INFINA21 " ENTER Y1 ";Y18 15);"(";X1;",";Y1;")"? 8d "SECOND COORDINATES (X2,Y2)"} " ENTER X2 ";X2 9:21 " ENTER Y2 ";Y2 X1X2Y1Y22046 15);"(";X2;",";Y2;")" %A11000 *DA /A 02200 423 S$"+ " (5000>  INPUT TWO SETS OF COORDINATES :"THIS PORTION OF THE PROGRAM GENERATES A STRAIGHT LINE EQUATION FROM TWO SETS":"OF COORDINATES SUPPLYED BY YOU." :"FIRST COORDINATES (X1,Y1)" " ENTER X1 ";X1 6:***********************;** ALGEBRA 1 **X** BY **u** TOM JACOBSEN **** THE GREEN APPLES **** CEDAR FALLS IOWA *************************F10:F20:F30:F40