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`eʵ``` f f` &L L fLC`8i`uu  ee`` ` 0` ` ` 5I` 5Iй` f f`L ?5=ɥD 5 5 D4ɻɍЀL\ɠ` }Ɏ$ ``LXWVhY `XWYHV(` Jhh LH) JQ JJJH`HJ`hh ?l8e` %GQ/[҅n3pJ?>ʊ:>Ș;k/=:   S;:L 4 40K14 L= BC D..=D5֤4 J :3 g ɠɤ ɓՊ x= 4   &B&C= 44ݴ 4ݺ ɤ4&D`L# ȱ0` 4 `u` 7$ 8`0 &&` { %Ppĥ uv` 2e   %F8 2 8Hh&&&&& 0hhI`LLLHxܥyݥPQLuƵPxLhQεyϱΠ L 4) ؘ 甠` uHɃLh` ☪ T`  甠`ѥ΅ ΅ҥυө 甠0ХҠ ӕ "L 4i` F`ٚ .L 4 `$$L$Ն$L,L 8!$ L赟0L0ܤ } L赟L0ܤ } L ` ` [ S oP YVPL6 O 5OPL Ι_LfP0Q@PPxA@QPa`qp`HP8εxh`Ʌ۰եڅʥۅ , ` :L΄<Ȅ>=?`ʕ>?>`8M˕   , ` L:L``F`$ ܪȱ 婠Lܤ`Ś25 a0 穠LJKH۰hЅѠȱ0@ȱHШhh0JL JLKMMLILLILLLLy 2L,PQ܅x݅yL آ8ЕNЕKʵ˕ە LkLMNܕ`LΥΥLMLʥMː ʥ˰JυKL  8MϕڥL 4΅` ȑ` l΅υLD L4 xPiڄeΕPeϕxPȵxڰL# N ONi)OO i@ &N&O ϕLz JKLυML LMJυKL qL ȩ` 6 6P`JLKMLxL L6 L[` Oڵw۴Nv L`xw8OPL# (` 40!(L 4LdF`  %L"wL{ TL~&&&ڥې څΈ` l 4Ȑ,` 40L 4Ȑ-` 4(L(n ㊨ rLa ?&0ΰ` Δ䮥G 0 #gMghghPcQ)Wqqqqhhq`uuuQ줰䮲륥Q9O/Q) WjB`O~5'Q 䯭䮡ޜݜݞGg` ` `嶡䡯z~" `P O䯭䮡𥴳\@`` ~3`Gg壡yi壡yi` @Gh X{gggggg'(dgxkg~9g'7(*7ϠGX͠LϠ٠SGϠDĠHSĠNSĠTĠ 5EMҠL Šō?FِLϚΠ κ f ٢  ٦Τ ȹɀI ȄȹH h3 oLB oTMɅ"3J[NSJIfmzq# [$NYP;#o6#"#!0 9@0Ӷ:Pyإ<[(N>W']5Kgvq ʤ  Y YoܹݾЇ`TP@xL` Ιϙ_oܙݙᙯ` ??<<<<<<<0UUUUUUUUWΤ PڵxۥΑȥL`hh$ F`` %ֈ`ʤZA^ܙ ݙ0  m7;܄iȢٚ . y$IqܤݐLM͠1FLJܹ/ݾLuc ܪȱ L[ĨP?xO_ڹo  l`w0P`fLPεϵxϱHȱ΅hΈ` J  畠P` Y $0`  畠$0 8 P# o ΅ڥυ e epݕ` 4LL$ `  rPՆϦ ` ΅υȩ ` Ӡȱ0I@iHeШiH˰hhЈЈ͑Ј̑ЈЈ0JKЬ@iHe eѕxh$0 xx ԅբ H 0  敠$ ( x$0  xx 0$FԨֹ)U h)װ H ֐ι LhޤȄ h󰩠ɩch cɰ$0 $` d'ʅ˅LM&ȱϰqȥȥ`FLʥM˥J̥Kͩ`Lkȱ0@hJHȱШhЄ0)ȆȘHJI@hL`ȩ)?Jжi?oiO iȱ) zȵх 8 05X~")XȔ) v*Ȇ0LJɢ  Ȉ ϴX)HЄ ȹ)eHe0 ̥͐Eʑ˥ʥ˰ਈ$ u~q  u  mʥ` ȹ0 L uߙ`` $0LL*iS 0wh(VP`΅h(OM L6 T&ϐ eڅeۅ &L~ 畠(LoU [΅ڥυ   o ` l3 3` 4J G 4&(JJJJ) 甠` F٩ $ 婠 Ȣ ii)ɰLPx+L 4P xL# 48` PxL PeHxeH˰iکeۅȱhڙ`ꠀЕ x ت3 Q3ؕxQεy NvNδPPPL#Q8yڅ`Sε{ϵQڵyxȔPMuHOL L3L`) #L $  `  v mL;ʅ˅LM  mdžة * * *     % 0LH΢QPHΪ0h$0 )?i h](Њ q L H ϐ { lhHHH hHL? hυυ Ljݥ ,L mݰ % LߩƉ 慝 憨80 ў*%L L ު `  }LޢٹHH ޥLLޥШh^^h_H r륡HHHHHl^h#d j݄hJhhhhhhE` LJ }d.U"i L=8,LLTҐL {ݩ),(,,ѸLLԠhhL ߅` ȱLL  ߅ ei` 꺽  ' 8 uvL׊i , {$8$0`LԦƹƸ$HH `ީ 8ϐ*IEʼna Lݦ,{iweLi^ e^hٲаg jH hV_F*ƹƸٲаH $P )0 Z ۆ $1$P 膸 ": ,i = {LrH0h J c ,Lqۥ 3 LۥL Ȫ*ȱ_ȱ{ȱȅ| L+ܥLSؠߠL:`?EXTRA IGNORED ?REENTER  \I`$ !i)$ )L(ʊ$ L W 檠^ \ LD۩ ,? ɠ )H h`0{|uvLh$L :ۥyz` @ `" ީ; =L Z , ,խLc ZL,զ}~, ߅hL* ,h`PQ/ Q^ԥP &^ &^ePP^eQQP&QPe PQ L ߅ ޥHH {h* mh r ȥ`L'hpoj iLڠ 㥌 婝 5ȱȱ` = $)94,;D {$0 4 Lک?`gh<=ij>?`v(Le lL5٩ ӥHHvHuHH >L ٥vQ 8egh ֐` eӚɰ ,ZLLhhB;uhvhh ٘e`:,  "hhh` { ɫ ޥ L>L( HɰɫЉơ" -";B:440/" -";BI" --------"`" ";Qy ANSWER CORRECTQABPP1:500:420P0PO1 FIND COMPLIMENTA$:10000 PRINT COMPLIMENT TIME LOOP SUBTRACTION!6X1N:PP1:OPP FINDING NUMBERSlA(H(1)):B(H(1)) 1ST# - 2ND# = +#AB410:"WHAT IS ";AB10ĭA99ĺ" -";B:440B100ĭA99435B10ĭA9435 ANSWER CORRECT.hQABPP1:500:320>jP0PO1Xl FIND COMPLIMENTgmA$:10000p PRINT COMPLIMENTq TIME LOOPrA$:T11000:T{ CLEAR SCREEN|T125::TX:700:1 STARTING OF 1ST# HAVE MORE-C DIGITS THAN 2ND#ED THEN GOTO 335nEB10ĭA99ĺ" +";B:340FB100ĭA99ī335GB10ĭA9335J" +";B:340O" +";BT" --------"^" ";Qg @( @aFCGE"(37"2E#,06" 1eIqa2 !25PZSRPXRRQeXp `0Q0*Qb8p`FAFD@#/- D!--6,(/"-1gt ` @XPRRPQbp`@BAFD03/-0DY--6,8.")1"p`DAEE4// 0+**1ta AY PRTPRZ!bpCDEqB +#5E6 s"$)apaRRXZ!br8ZӹPPZbwbp `CDABD16G07.(`---"" ";B2:" ";QK ANSWER CORRECTgABQPP1:500:220wP0PO1 FIND COMPLIMENT A$:10000  PRINT COMPLIMENT  TIME LOOPA$:T11000:T CLEAR SCREEN ON#X1N:PP1:OP= FINDING NUMBERSYA(H(1)):B(H(1))q 1ST# < 2ND# ?~AB210 DIVIDE BY 0B0210 1ST#/2ND# = INTEGERAB(AB)210:"WHAT IS ";A" ----T ? QABPP1:500:120/ P0PO1I FIND COMPLIMENTX A$:10000s PRINT COMPLIMENT TIME LOOP A$:T11000:T SCREEN CLEAR T125::T X:700:1 STARTING OF DIVISIE { DIGITS THAN 2ND# ?5 | THEN GOTO135^ }B10ĭA99ĺ" X";B:140t ~B100ĭA99ī135 B10ĭA9ī135 " X";B:140 " X";B " -------" " ";Q ANSWER CORREC d e STARTING OF4 f MULTIPLICATION: g@ hU iX1N:PP1:OPo m FINDING NUMBERS nA(H(1)):B(H(1)) pC99115 qAC:120 r 1ST# < 2ND# ? sAB110 x:"WHAT IS ";A z DOES 1ST# HAVE MOR4 @ THEN IT GOES TO 904 A(W2)(W4)090G E DECISIONm F"DO YOU WANT ANY CERTAIN # ?";A$ J DECISION CHECK KA$"N"ĭA$"O"90 O DECISION P"WHAT IS THAT # ?";C Y BRANCH TO PROBLEMS ZW100,200,300,400 ' DECISION. ("HOW MANY PROBLEMS?";NG , DECISION CHECKS -N140f 1 DECISION 2"HIGHEST NUMBER OF DIGITS YOU CAN DO," 3"EX.(1,2,OR 3)?";U:H10U 6 DECISION CHECK 7U150 <U190 ? IF DECISION IS 2 OR  *** CREATED BY ***> *** DANIEL R CARRIKER ***DUT125::ThP0:Z0:C99:n *** DECISION *** "MULT.=1,DIV.=2,ADD.=3,SUB.=4?";W SEEING IF DECISION WAS A LEGAL ONEW410W110      $v# \ۦuv $ W (Lb-逐@ HHLLF:L8gh}~`Ƀ` Sբ$Lׅ ׅLԱJHȱJh`LNפ0`L,׈L20`LF׈LL ׅJF8ȹe8ИL`Lø{{ttmnghab\\WWRRMNIIEEAA=>::673401..+,))&'$%"# !:23,265:6,27:23,2678v9,1225:23,279:23,2712d14,1723:14,1727:23,2714:23,271719,2223:19,2227:23,2719:23,272224,2723:24,2725:23,2724:23,252729,3223:29,3225:29,3227:23,2529:25,2732A110006,1927:21,2427:23,2721MD29,335:29,318:5,829:5,831:7,32:8,33N10,1229:10,1233:29,3311:14,1729:14,1733:29,3314:31,3317:16,31X29,3319:29,3322:19,2231:24,2829:29,3326bI11000:I:130l1:23,263:4,27ANSWER$K(16384):K27128860216368,0l2:25,2710:25,2714:10,1426:11,24:12,23:13,24A(A%,B%)A(A%,B%)1A%1B%1A(A%,B%)A(A%,B%)1&A%10B%10A(A%,B%)A(A%,B%)10A%2B%2A(A%,B%)A(A%,B%)1:23,2716:1DECENT""---WOW---WOW---"="YOU SHOULD BE A TEACHER"Q"UNBELIEVABLE"h(# FLAGING DATAx-#"TERRIFIC"'A$"TERRIFIC"Į':N ""SUPER"'$"YOUR GETTING GOOD":."GROOVY WORK"K8"EXCELLENT"`B"YOU'RE MOVING"kL"WOW"V"YOU'RE THE BEST"`"YOU'RE REALLY TRUCKING"j"SUPERIOR"t"YOU'RE INTELLIGENT"~"YOU GOT LUCKY""GEE, THAT WAS GOOD""17:X,26:X:X2326:X,26:X>u14,27:15,27:25,27:26,27Pz14,28:26,28d TIME LOOPyT15000:T::  COMPLIMENT DATA"THAT WAS GREAT""FANTASTIC""FAR OUT""THAT'S GREATX1921:X,Y:X:Y4HY1415:X1822:X,Y:X:YJMX1129:X,16:X`RX1228:X,17:XvWX1327:X,18:X\X1525:X,19:XaY2021:X1624:X,Y:X:YfY2224:X1525:X,Y:X:YkX1418:X,25:X:X2226:X,25:XpX14UARE $%X832:X,7:X@*Y830:X83224:X,Y:X:YU/X832:X,31:Xi3 TIME LOOPz4T15000:T9:"BUT SO WE WON'T MESS UP THE SCREEN":"I WILL DO IT FOR YOU"< - - - STAR - - ->K:20,10:20,11CY1213:HT GREEN":K12:790+B$"PINK":K11:790W"YOU DIDN'T GET ENOUGH RIGHT TO GET A"p"STAR, SORRY ! ! !" TIME LOOPT15000:T: S T A R - - -"YOU CAN COLOR IN A ";B$;" STAR" :7!"# PLOTTING SQST TRY"P1PN100.P190ĭP100710EP180ĭP190720\P170ĭP180730sP160ĭP170740P150ĭP160750760 STAR COLORSB$"WHITE":K15:790B$"AQUA":K14:790B$"YELLOW":K13:790B$"LIGA$:T11000:T) CLEAR SCREEN:T125::TIX:700:1] REPRIMAND"THAT WAS NOT QUITE RIGHT, TRY IT AGAIN": END OF SET, PRINTING STAR"YOU GOT ";PN100;"% OF ";N;" PROBLEMS""RIGHT ON THE FIRXXR vII1 RR1" 330E U1N(1)N(2)N(1)(N(1)1)2Xh U2N(1)N(2)N(2)(N(2)1)2Yn  "FIRST SAMPLE PRECEEDING, U = "U1 "SECOND SAMPLE PRECEEDING, U = "U2 "RUNHELLO" I1 JJ1 IN(1)4803 X(I)X(I1)480= II1F 510V JN(2)550l Y(J)Y(J1)550v JJ1 R1R1R RR1 KK1 440 &XX(IM)R1K 0YY(JL)R1K :330 DJN(2)660 NYYR XJJ1 b640 l Y(K1)C K J! . I2270< J1N(1)J X(J)Y(J)Q JX I` R1h "I0p ,J0z 6II1 @JJ1 JIN(1)580 TJN(2)480 ^X(I)Y(J)620 hY(J)X(I)590 rK2 |MI LJ R12R1 RR2 I "MANN-WHITNEY U-TEST""3X(25),Y(25)=(N(2)H2I12[<"SAMPLE "I":"jF" SIZE ";tPN(I)ZJ1N(I)d" DATA "J;nY(J)xJJ1N(I)K1N(I)JCY(K)DY(K1)Y(K)Y(K1)200 Y(K)Y(K1)   * *2 ' * PAUL BRAUN *N ' * & *j ' * GEOFFREY GENZ * ' * * ' * AGES 15 & 14 *' * *' *********************:"THE CORRECT ANSWER IS ";X&1680?"?WRONG KEY ERROR"EKn' ' *********************' * *' * MATH *' * *' * BY *'6R$@R$"E"1650'JR$"M"16608TR$"H"1670B^1760Lh1580ZrW4:1680h|W9:1680wW49:1680X(W(1))1:Y(W(1))1XY;" / ";Y;" ="AAAAXİ690AAXī1680AAXİ620"SORRY, THAT IS WRONG"(1)):R(P(1))$Q;" X ";R;" ="+S;SQRİ690KSQR1480\SQRİ620"SORRY, THAT IS WRONG ":"THE CORRECT ANSWER IS ";QR::1480","WOULD YOU LIKE EASY,MEDIUM,":"OR HARD PROBLEMS(E,M,OR H)"WRONG.":"THE CORRECT ANSWER IS ";JK/P::5Z;d}n"WOULD YOU LIKE EASY, MEDIUM,":"OR HARD PROBLEMS(E,M,OR H)"xO$:O$"E"1450O$"M"1460O$"H"147017601390P5:1480P10:1480P50:1480Q(PER IS ";NO::1120&L6LONİ690FLON1120WLONİ620s "SORRY, THAT IS WRONG""THE CORRECT ANSWER IS ";ON1120("SORRY, THAT IS WRONG ":"THE CORRECT ANSWER IS ";KJ2::<%F"SORRY, THAT IS ENZ *" ' * & *= ' * PAUL BRAUN *X ' * *t ' * AGES 14 & 15 *' * *' ******************** K:I'"TOTAL NUMBER RIGHT, "TT".":J' e' ********************' * *' * MULTIPLICATION *' * *' * BY *' * * ' * GEOFFREY G15,2114:16,2016:16,2019:17,1815:17,1821:PW PRINTOUT CORRECT TABLE}\16368,0:::" ";:I110:" "I;:I:f:I110:I;:4pJ110z(J1J2I1I2I10J10)A(I,J)0A(I,J)1A(I,J)0TTTT1A(I,J)" ";J:21:15,1816:18,2119:T*4:16,1915:16,1918:16,1921:18,2119:15,2116:44:16,1915:15,1719:18,18:19,2117:>4:16,1915:16,1918:16,1921:15,2116:15,2119:H4:16,1915:16,1918:16,1921:15,1816:15,2119:3R4:0,450,460,470,480'A13000:A:120K4:15,2118:17,16:17,1921:4:16,1915:16,1918:16,1921:15,1819:18,2116: 4:16,1915:16,1918:16,1921:15,2119:4:15,1816:15,2119:16,1918: 4:16,1915:16,1918:16,19:A:A2327:0:0,39A:A.ZZ1:Z2ī7107490R PRINT CORRECT ANSWER~::23)"^":"THE CORRECT ANSWER IS !"D%A%B%10:D%0740D%760,770,780,790,800,810,820,830,840,850E%(A%B%)(10D%):1E%380,390,400,410,420,430,44@"INTERPOLATION: (ENTER X=0 TO END PROGRAM)"< J"X = ";XI ^X0390[ h"Y = ";ABXa rj |330{ "RUNHELLO" )BJ)N / "F(X) = ";A;" + (";B;" * X)"B JB(R2JKN)P MMK2NZ KMJ` k R2JM "COEFFICIENT OF DETERMINATION (R^2) = ";R2 ""COEFFICIENT OF CORRELATION = "(R2) ,"STANDARD ERROR OF ESTIMATE = "((K(N2))) 6. } "LINEAR REGRESSION" ?"NUMBER OF KNOWN POINTS";F(NN2J0V<K0^FL0fPM0oZR20zdI1Nn"X,Y OF POINT ";I;xX,YJJXKKYLLX2MMY2R2R2XYIB(NR2KJ)(NLJ2) A(K  "SIXTEENTHS = ";M::~ "AT SAME BEVEL":"IF YOU KNOW BASE HIT (1)":"IF YOU KNOW RISE HIT (2)":"IF YOU KNOW SLOPE HIT (3) M M11300 M21400 M31500 TTED:"BASE = " 200 DA 1ETTD:BE 2"RISE = "::500 ; RISE(FEET, INCHES, SIXTEENTHS)":"IF NONE ENTER (0)":@ Q200H VEAc `BB((D2)(E2)):BBBt e"SLOPE :":} j500 o"BEVEL : ": qTTED rSSBBD sCCED tJTT12 ~K(J) L((JK)16).5 M(L) "INCHES = ";K 2) AA(C192) # U(B)2 V(BU)12= W(V)Q X((VW)16).5\ Y(X)m "FEET = ";U &"INCHES = ";W 0"SIXTEENTHS = ";Y :: "ENTER BASE (FEET, INCHES, SIXTEENTHS)":"IF NONE ENTER (0)": 200 DA7 L"ENTER@ <"TO FIND BASE WHEN SLOPE AND RISE":"ARE KNOWN HIT (2)": F"TO FIND RISE WHEN SLOPE AND BASE":"ARE KNOWN HIT (3)":: PA ZA11000 dA22000 nA33000 "FEET = ";A "INCHES = ";B "SIXTEENTHS = ";C  AA(B1o  FRED L. MORING4 2321 LEE STREET N WACO, TEXAS 76711b :::::::t"PROGRAM:":"RIGHT TRIANGLE SOLUTIONS"("************************"::::::: 2"TO FIND SLOPE WHEN BASE AND RISE":"ARE KNOWN HIT (1)":        ) 169,0,160,0,32,113,248,141,42,3,96G I784 794:J:I,J: IM5:I1RA:J1RA:" ";(A(I,J)100.5)100;:::_::"HIT RETURN TO CONTINUE ";:X$:1012:18);::"SMILE"::24:X1RA:J1RA:(J1)81);((C(I,J)),7);::::"THE INVERSE OF A":I1RA:J1RA:(J1)81);((A(I,JRA)),7);:::::"HIT RETURN TO SEE THEIR PRODUCT"I1RA:J1RA:S0:T1RA:SSA(I,RAT)C(T,J)::A(I,J)S::X$:34(J)0 960 I2C1- A(I,J)19504 IH B(J)A(I,VC1)O J` ZA(1,VC1)f  "FUNCTION = ";Z(1) I1V "X(";I;")=";B(I) I  M1880 B(R)0 ZA(P,R)% I1VC19 A(P,I)A(P,I)Z@ IM I1C2Z IP820g ZA(I,R)v J1VC1 A(I,J)A(I,J)ZA(P,J) *J 4I >440 H"INFEASIBLE" R1030 \"UNBOUNDED" f1030 pJ1V zB(J)0920 B70 M1880% A(M,P).0001840- &M16 0440> :P1K DI2C1^ NA(I,R)0640v XZA(I,CV1)A(I,R) bP1630 lZA(P,CV1)A(P,R)640 vPI I P1860 I1VC B(I)1690 A(P,I)1700 I B(I)1 I1V TB(I)1 ^I$ hI2C1< rA(I,VI1)1430K |B(VI1)1X J1CVu A(C2,J)A(C2,J)A(I,J)| J MC2 I P1 R1 I2CV A(M,I)A(M,P)490 PI A(M,I)A(M,R)510 RI I A(M,R)05 (1 OR -1)"; A(I,V1). " CONSTANT ";< A(I,V2)T A(I,CV1)A(I,V2)c A(I,V2)0p I2240 A(I,VI1)A(I,V1) A(I,V1)0 I "FUNCTION:" I1V " COEFFICIENT ";I; "A(1,I) ,I 6 @M1 J "LINEAR PROGRAMMING"!5A(10,14),B(13)Q("NUMBER OF VARIABLES";X2Vv<"NUMBER OF CONSTRAINTS";}FCP"MATRIX ELEMENTS:"ZI2C1d"CONSTRAINT ";I1nJ1Vx" COEFFICIENT ";J;A(I,J)J " RELATION     IHm "AT SAME BEVEL":"IF YOU KNOW BASE HIT (1)":"IF YOU KNOW RISE HIT (2)":"IF YOU KNOW SLOPE HIT (3) t M M13300 M23400 M33500 TTBBI:"BASE=" 200 IA BBTTI:BBB "RISE="::500 HSSI:BH "SSIXTEENTHS)":"IF NONE HIT (0)":*! 2002& IAH0 BB((H2)(I2))Q2 BBBb5 "RISE = ":k: 500}? "BEVEL = ":A TTBBIB SSHID JTT12N K(J)X L((JK)16).5] M(L)b "INCHES = ";Kl "SIXTEENTHS = ";M::v CC"::500 2200 ' "SLOPE ="0 2008 SAZ BBSSS::"BASE= ":BBB:500{ RTTBB::BR:"RISE= ":500 2200  "ENTER SLOPE(FEET, INCHES, SIXTEENTHS)":"IF NONE ENTER (0)": 200 HA! "ENTER BASE(FEET, INCHES, M12300M22400%M325004"BASE = "= 200F BBAV RTTBB:BRl "RISE = "::500|# SSSBB:BS$ "SLOPE ="::500_ 2200` "RISE = "e 200f RA} BBRTT:BBB:"BASE= "::500 SBBCC BS "SLOPE= YTTRBBZSSSBB$[CCBBS0\JTT12;fK(J)OpL((JK)16).5ZuM(L)mz"INCHES = ";K"SIXTEENTHS = ";M::"AT SAME BEVEL":"IF YOU KNOW BASE HIT (1)":"IF YOU KNOW RISE HIT (2)":"IF YOU KNOW SLOPE HIT (3) M 12001200X"ENTER SLOPE(FEET, INCHES, SIXTEENTHS)":"IF NONE ENTER (0)":a200iSA4"ENTER RISE(FEET, INCHES, SIXTEENTHS)":"IF NONE HIT (0)":9200>RAHBB((S2)(R2)):BBBM"BASE= ":R500W"BEVEL :":BBSSD:BBB" <"SLOPE ="::500, w1200; x"RISE = "D }200L ~EAm DETT:BD:"BASE = "::500 BBSSD:BBB:"SLOPE="::500 1200 "SLOPE =" 200 BBA DBBSS::BD:"BASE=":500 ETTD::BE:"RISE =":500 ...8 r PROGRAM CLASSIFIED - PUBLIC DOMAIN -> | "Ā  CONTROL C X2 ":"JOB DONE."::8 'K , BY ED HANLEYY 6 BOX 437r @ CARTHAGE, TN 37030x J T 'QUADRATIC SURFACE' ^ h THIS PROGRAM GIVEN TO APPLE CORE OF SAN FRANCISCO FOR USE OF MEMBERS BY AUTHOR: ED HANLEY" X "," Y ","F(X,Y)"/ "---","---","------"? YYSYFSYf FAB1XB2YB3X2B4Y2B5XY ROUND F TO 2 PLACES F(F100.5)100 X,Y,F II1 I21ĺ"(HIT ANY KEY.)":T$:I0 T$""Ā: 'CONTROL C' Y A$:A$"B4 n"B5";:B5 s? x GET LIMITS ON X,Y ACROSS SURFACEi "X DIRECTION (E-W): FROM,TO";:XS,XFz "STEP";:SX "Y DIRECTION (N-S): FROM, TO ";:YS,YF "STEP";:SY CALCULATE VALUES, 1 E-W ROW AT A TIME XXSXFSX I0 ? s"THIS PROGRAM WILL GIVE POINT VALUES":"AT REGULAR INTERVALS OVER A QUADRATIC":"SURFACE, DEFINED BY:"(:"F(X,Y)=A+B1X+B2Y+B3X^2+B4Y^2+B5XY"2 GET VARIABLES7:<"A";:AF"B1";:B1P"B2";:B2Z"B3";:B3 d"B4";:  (1=YES, 0=NO)"; Z ( Z170F "NEW LINE (1=YES,0=NO)";M ZY Z120j "RUNHELLO" Ol "LINEAR INTERPOLATION"#>"X,Y OF FIRST POINT";I(X1,Y1e2"X,Y OF SECOND POINT";p<X2,Y2F"INTERPOLATE: X= ";PXZYY1(Y2Y1)(X2X1)(XX1)d" Y= ";(Y1000.5)1000n x"MORE POINTS ON THIS LINE  NNTINUE";:X$::"ITERATION";20);"X-LEFT";32);"X-RIGHT"::I%1]XMXLFL(XRXL)(FRFL)oXXM:20:FMYFLFM0FRFM:XRXM"FLFM0FLFM:XLXM,5);I;16);XL;29);XR#6(XMX0)ACCĺ:" *** DESIRED ACCURACY ATTAINED ***"::":100009"WHAT IS THE MAXIMUM # OF ITERATIONS ";:MAX"HOW MANY DECIMAL PLACES IN YOUR ANSWER ";:N:N1N9ĺ:" *** BETWEEN 1 & 9 PLEASE !! ***"::4080I%18ACC.1NX0XLI1MAX@I%I%1:I%19Ģ24:"HIT RETURN TO CO"WHAT IS THE RIGHT HAND ENDPOINT ";:XRXLXR0ĺ:"*** ENDPOINTS IN THE WRONG ORDER !! ***"::"HIT RETURN TO CONTINUE";:X$:10000XXL:20:FLY:XXR:20:FRYFLFR0ĺ:" *** NO ROOT IN INTERVAL ***"::"HIT RETURN TO CONTINUE";:X$SITION METHOD, YOU":"MUST GIVE ME THE ENDPOINTS OF AN":"INTERVAL CONTAINING A ROOT, THE MAXIMUM":"# OF TIMES THE ALGORYTHYM IS ITERATED &""THE NUMBER OF DECIMAL PLACES YOU WANT":"IN THE ANSWER.":::"WHAT IS THE LEFT HAND ENDPOINT ";:XL*ES HALVED";18);"X-LEFT";28);"X-RIGHT"::I%1M XM(XRXL)2:XXM:20:FMYm! FLFM0XRXM:FRFM:3120" FLFM0XLXM:FLFM0 5);J;16);XL;28);XR: J::"*** DONE ***"::"HIT RETURN TO CONTINUE ";:X$:10000:" FOR THE FALSE POFRFL0ĺ:"THERE'S NOT AN ODD NUMBER OF ROOTS IN":"THE INTERVAL YOU GAVE ME.":"":"HIT RETURN TO CONTINUE ";:X$:10000 J1:I150:JJ2:BJSIG3090 I I50 I%18. J1I:I%I%1:I%19Ģ24:"HIT RETURN TO CONTINUE";:X$::"TIM:5003200+& FRED L. MORING:& 2321 LEES& WACO, TEXAS 76711n' JULY 24, 1979ALOPE = "::500G 3200(H "RISE = "1M 200:N BBATR I((H2)(BB2)):BIme "BASE= ":BI::500p HSSI:BH:"SLOPE="::500u 3200 "SLOPE =" 200 HA IHSS::BI:"BASE =":500 BB((H2)(I2)):BBB "RISE=":x"MORE DATA (1=YES,0=NO)";# X/ X120@ "RUNHELLO" LB% "ROOTS OF QUADRATIC EQUATIONS"+F"COEFFICIENTS A,B,C";Q(A,B,Ca2SB24ACo<R((S))|FS0100P"ROOTS (REAL): ";(BR)(2A);", ";(BR)(2A)Z110d"ROOTS (COMPLEX): ";B(2A);" + OR - ";R(2A);" I"n ,10 NOM 0 TO";F9) M"1 STAR=";F966;"UNITS."/ T: ^I1NI cTX(I)F9Y hI;4);"!";m mJ0(T660.5)w r"*";~ wJ | I 24 42,29,36 30,27,33 29,21,23 24,20,20 25,11,15 14,12,10 18,10,11 17,08F }F0150" F999999150+ 200< *DATA ERRORX "ERROR IN DATA ITEM";I "FREQUENCY OF";F;"IS OUT OF BOUNDS (0-999999)" FF9250 270 F9F X(I)F I ,**SCALING FOR WIDTH: /F10 @ J"SCALED FR '**PRODUCES HISTOGRAMS (SIDEWAYS)3 X(100)Q**READ NUMBER OF SCORES:XNdN150r#N10050{(1002"ONLY 1 TO 100 SCORES, PLEASE"<"RE-EXAMINE DATA STATEMENTS"Fd**FIND MAXIMUM FOR SCALING:nF90xI1N z  H ֥ h ߦ>  E֥ E & > ` E  E  H ֥ h ֥  ֥ -L L -EF# =Pi  ֤Lְ ׅ! ׅ  "A*B=";Y1Z2Z1Y2;",";Z1X2X1Z2;",";X1Y2Y1X2: x[ "MORE DATA? (1=YES, 0=NO)";b Xn X120 "RUNHELLO"1" "OPERATIONS ON TWO VECTORS"(L"VECTOR A: X,Y,Z COORDINATES";Z(X1,Y1,Z1~2"VECTOR B: X,Y,Z COORDINATES";<X2,Y2,Z2FP"A+B=";X1X2;",";Y1Y2;",";Z1Z2Z"A-B=";X1X2;",";Y1Y2;",";Z1Z2d"A.B=";X1X2Z1Z2Y1Y24 n  Z0 50' "RUNHELLO" WA1200 &"RUNHELLO" 2HIT RETURN TO CONTINUE";:X$:10000-;X0XM4@IJ:" *** DESIRED ACCURACY NOT ATTAINED ***"::"HIT RETURN TO CONTINUE";:X$:10000':10:"DO YOU WANT TO GO AGAIN ";:X$:(X$,1)"Y"1000'(X$,1)"N"10000$':"-" : A BX138 L"-"; V# `"-") / H  DISPLAY COMMENTARYN  "THIS PROGRAM WILL TAKE ANY INTEGER AND CALCULATE ITS PRIME FACTORS. "  SUBHEADING ((40(ARG$))2) ARG$  X138  "-"; &  0 S0170D - PRINT FACTORS WITH EXPONENTS; I^S = I TO THE S POWERQ I;"^";SX I^ v - RESTART PROGRAM~ 40   SCREEN HEADING   BELL$(7): BELL SOUND BELL$ ((40(ARG$))2) $ .ARG$ 8 A FACTOR F(Z)? O - USE ABSOLUTE VALUE FOR CALCULATIONSJ PZ(Z) Y - LOOP TO TEST ALL INTEGERS (2 THRU Z) AS PRIME FACTORS ZI2Z dS0 n(ZI)(ZI)150 xZZI SS1 110 - FIND A PRIME FACTOR? IF YES, PRINT , ARG$"PRIME FACTORS OF INTEGERS":1000W ARG$"ADAM OSBORNE & ASSOCIATES":3000]g2000"(ENTER 0 TO END PROGRAM)"#((7): BELL-"ENTER NUMBER:";Z; - END PROGRAM<Z0200 E - THE SIGN OF THE NUMBER IS ALWAYS   "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"  / ) ) "&6 B /`TLՆ8M˕  Tբ , Tզ`  . $ ; E.. 4L& >`Lk 34 Lh856!;<79)F:&8J9j*0v 婭   +<; LhLk'cg=%;!,<+k,w(gG gG]$ t < N8i| (|`ܠLդ4ɪ 4<`<  $ H h .Ю#` L}Э%J u ӊH Өh dѮ#` L Q ;Ү#` Q Ү#`#2 Ӎ'( H() 91 eȱm)h`JJ`#JȱJLh `#  <(eΨ=)eϰ%Hh>?iJK̅  #& ')*& "'JJ) ""% m% ʥ0)J!m%! `JJJJS)фPIȄR%*QTU'T8ePT UeRU QJJJ`JJJJS)фPIȄR%*QTU'T8ePT UeRU QJJJ` ӥ',"&,i8i#H&ii&hif&i'`'i,&i,.&iPII&&if&H !"hH8 H!S hIiHSQUhPTh !"IiR"fS8PQ% 8TeRTUU&E%0Q&&kS TePTUeQPفŴxaI1( &WSP& )`" !H)&JJ&&h' &' &' f&') &'#i%Ѕ0J$)` .ХQ&%0Q&&`$0JI0`'0% I`0 I0ܩ(ߠQ)'%01&*%0Q)&E%0*Q&&QeS)j00                ààH /Ѽdd`dЅ deԄ8ҍӍd`D}Tߥ҅ީd LԦ}dҍ` ǠҠÍǠԠÍϠٮLLO" N" "PRIME FACTORS OF INTEGERS"(H"(ENTER 0 TO END PROGRAM)"V("NUMBER"]2Zj<Z0200tF(Z)PZ(Z)ZI2ZdS0nZI(ZI)150xZZISS1110S0170I;"^";SI40 "RUNHE (K(N2))) J? T"INTERPOLATION (ENTER 0 TO END PROGRAM)"M ^"X = ";XZ rX0410n |"Y = "(A)XBt } 350 " CATALOG" J2KJ)(NLJ2) A(KBJ)N& C "F(X) = ";(A);" * X^"BV JB(R2JKN)d MMK2Nn KMJt  "R2JM ,"COEFFICIENT OF DETERMINATION (R^2) = ";R2 6"COEFFICIENT OF CORRELATION = "(R2) @"STANDARD ERROR OF ESTIMATE = "( "GEOMETRIC REGRESSION"#B"NUMBER OF KNOWN POINTS";I(NQ2J0Y<K0aFL0iPM0rZR20}dI1Nn"X,Y OF POINT ";I;xX,YY(Y)X(X)JJXKKYLLX2MMY2R2R2XYI B(NR  0&⽌D}T L֠ $Ȅф(0PLddLԩՠԑihL* ۄکڍ ȱڍ `D`ߠ h  *L`,0,0I,0`d hhLd t Ld L di#Ld)ʽdʽdȄф L Pd0G  @dd0 RHDThЮ$0lp  :DL DLld 4ILILHUЍ`(S(L Lީߩ$, Lީߩ$hL  % "  hH ބ ބߩdҩ Ȍ    B(20((A$)2)):B0B1( B:A$:)  :D$(4): CTRL-D92:A$"APPLE II":1000j(4:A$"DOS VERSION 3.3 SYSTEM MASTER":100027:A$"JANUARY 1, 1983":1000<D$;"BLOAD LOADER.OBJ0"F4096: FAST LOAD IN INTEGER BASICd(4);"BRUNMENU" CENTER STRING A$   NT TO CONTINUE?" A$' A$"Y"ī8- 3 : 3G X1190V YAO(XA)b Y190Yq Y1ī2090z X,Y X *E11000:E / X"R-SQUARED = ";RS |Y0:X0% }R ~"Y=A*(X^B), TO FIGURE Y, ENTER IN X ";Xa YAO(XA) "Y = ";Y:"X = ";X:"SLOPE = ";A:"INTERSEPT = ";A0 "DO YOU WANT THE GRAPHED RESULTS?" B$ B$"Y"İ2000 B$"YES"İ2000 "DO YOU WAXY(EXEYN))(SX(EX2N)))0 nYAEYN:XAEXNC pAO (YAAXA)Y uZA(EEEXEYN)2n vZB(SX(EX2)N) wZC(SY(EY2)N) xRS((ZA)((ZB)(ZC))) y"SLOPE =";A:"Y-AVERAGE = ";YA:"X-AVERAGE = ";XA:"INTERCEPT = ";XA:"INTERCEPT M = ";AD zXA0:RS0:AO0:N0; ("ENTER IN NUMBER OF PAIRS OF X AND"S )"Y COORDINATES ";N^ *I1N 2"ENTER IN X,Y FOR POINT ";I 3X,Y 4Y(Y):X(X) FEXEXX:EYEYY:EEXYEEXY(XY):SXSX(X2):SYSY(Y2):SSXYSSXY(XY)(2) P I dA ((EE::::::::::68);"POWER CURVE FIT"Q8);"BY T.D. MOTELES"o8);"AND NEIL D. LIPSON":8);"COPYRIGHT 10,9,78"8);"ALL RIGHTS RESERVED":X11300:X:: EX0:EY0:EEXY0:SX0:SY0:SSXYO:N0 A0:B0:YA0:  ))2)))! "GEOMETRIC MEAN = "M@ "GEOMETRIC DEVIATION = "RF N 40_ "RUNHELLO" a% "GEOMETRIC MEAN AND DEVIATION"+X"(TO END PROGRAM ENTER 0 OBSERVATIONS)"w("NUMBER OF OBSERVATIONS";~2N<N0200FP1NPM1ZI1Nd"ITEM "I;nDxMMDPQQ(D)2I R((Q(N1)(N(N1)((M  XKXY0 I1 D114YYB(I)X(I1)< IG 3010P KXVt"ERASE LAST PLOT?";: Z$ Z$"NO" 4700 0 4002\787,XX:785,YY:784 (810)13 CC1 D1784:D2785:D3787:D4810:D5127 13 YPYY1% XXX1C XXXXSCALE:YYYPYSCALE P YY39YYk XX 39 XX0 3090 YY39 YY0 3090 4800 CC1 3075 XX,YY CC0 3100 "OFF SCALE !"  D11KXX1 X2 X3  I C(1)1C(1) 660 - I2 D2BB(I1)B(I)B(2)J IXB(D22)Y`R0p I1 D22  JI D22RR1 C(R)C(R)B(I)B(J)* J4 I>S1S1B(2)HS2S2B(2)2RS3S3Y\S4S4YYfS5S5B(2)YBPS L J#VT(D21)(D22)23` I1 D21?jTT1IOtC(T)1C(T)_~ J1 D2InPD21IJPP(D21(P1)2)IRPJS0UIJ1VP K1 JVVUKSSC(RK)C(V) KC(P)SC(R) JOUGH POINTS"P1:W1*D2D219 J1 D2JC(P)(C(P))\ I1 D2J1sC(PI)C(PI)C(P){ IRPISR L1 D2JPP1 M1 D22JLC(RM1)C(RM1)C(P)C(PM1)$ M.RRM18 L2# "FINISHED WITH GRAPH";: Z$9  Z$ "YES" 750D  4000O  4500Y  620_ v "COEFFIECIENTS ="|   I1 D11 "B(";I1;")=";B(I)  I  "R SQUARE = ";R1T0   600   ND2 930 "NOT EN11 B(I)0!  J1 D1I2? R(IJ1)(D22.5(IJ))Y B(I)B(I)C(TJ)C(R)a  Jv TI(D2(3I)2)~  I R10  I2 D11 MZI(D2(3I)2) R1R1C(MZ )2  I MX(D21)(D22)2 T0C(MX) T0T0C(D21)S3N;"STD DEV=";S9* 0"CORR. COEFF.=";R9K :"ENTER 1 TO CONTINUE";: Z$a X N (D2W) 620z ]"NOT ENOUGH POINTS" b l"ENTER DEG REGRESSION"; v D1  D1D2W 650 "MAX DEG =";D2W  620  W0 900 T0  I1 D POINTS"  410!  QQ 1 N= "ENTER X,Y POINT #";QQJ  B(2),YU XB(2)`  3000k  2000t  QQ S8((S2S12N)(N1)) S9((S4S32N)(N1)) R9(S5S1S3N)(N1)S8S9 "X: MEAN=";S1N;"STD DEV=";S8 &"Y: MEAN=";"ENTER X MIN, X MAX";% X1,X2 @ "ENTER Y MIN, Y MAX";L Y1,Y2b DXX2X1:DYY2Y1 XSCALE39DX:YSCALE39DY X3DX50 14 0,3939: 0,390 "ENTER NUMBER OF POINTS";  N  ND2 460 "NOT ENOUGHO  C(253),B(22) 5000- I1 22?C(I)0:B(I)0G( IX2 I23 253c<C(I)0kF IvPB(1)1ZW0:N0:S10:S20:S30:S40:S50_"INPUT 1 TO PLOT";` K3d"MAX DEGREE=";n D2x D220 100 K31 410    J  RRPS% TT2S, IA "INTEGRAL = ";RG i "CHANGE DATA AND RECOMPUTE?" "(0=NO,1=NEW INTEGRATION LIMITS, 2=NEW NO. OF INTERVALS)"; "S ,S180 6S2100 @"RUNHELLO" S91223443A F .062672048,.96397183,.04060143,.9931286,.017614007j P"INTEGRATION LIMITS (LOWER,UPPER)";s ZX,Y d"NUMBER OF INTERVALS"; nN xS(YX)N2 TXS R0 I1N P0 J110 A,B PPB(C(SAT)C(TSA))) "INTEGRATION: GAUSSIAN QUADRATURE"/a - ENTER FUNCTION HEE (DEFFNC(X)="FUNCTION")( .076526521,.15275339,.22778585,.14917299,.373706092 .14209611,.510867,.13168864,.6305368,.11819453 < .74633191,.10193012,.83911697,.083276742,.    :"HIT RETURN WHEN FINISHED"% ; "X=";X$:X$""ıG X(X$)O Y0] IN11p YA(I,N1)XYw I 998:15:"Y="Y 3010DL4:5000:922:::LCNTLCNTDLLCNT22ıA$:LCNT1:DA(MI,J):A(MI,J)A(K,J):A(K,J)SWAP)J9JN1K1RA(K,J)A(K,J)A(K,K)YJnI1N:IK1058~JN1K1A(I,J)A(I,J)A(I,K)A(K,J) J"I$K.:M$"?";:A$:A$A$"Y"F1:A$"N"F0:2000VALUES IN "A" FOR+ COEFF'S AND TOTALS,F GOSUB 1000, AND FINDc UNKNOWN XI IN A(I,N+1)nK1N}FIND ROW MA0IKNAI(A(I,K)):AI(MA)MAAI:MIIIDO ROW PIVOT--ROWS K&MIMIK1040 J1N1" SWAPRINT"Q$"2) DO ANOTHER POLYFIT, OR"Q$0 "RUN"DD$"CLOSE TEMP"WD$"EXEC TEMP"]uGAUSS ELIMINATION.SOLVES N EQUATIONS IN N UNKNOWNS.EQUATION I (1<=I<=N): A(I,1)X1 + A(I,2)X2 + ...A(I,N)XN = A(I,N+1)PUT M$"DO YOU WANT TO DO ANOTHER FIT":2000:F14 K D$"NOMON C,I,O":` D$"DELETE TEMP"s D$"OPEN TEMP" D$"WRITE TEMP" "LOAD GRAPH/2" "60 "C$ "90 P$="Q$"POLYFIT"Q$ "210 "F$:"520 "F$ "610 PRINT"Q$;F$;Q$%"806 PED BASIC FORM IT IS:" :F$0 ILAST0480K DL4((C$)40):5000x :"THE VALUES OF THE COEFFICIENTS ARE:" :C$ DL1:5000:M$"DO YOU WANT TO CALCULATE POINTS":2000:Fİ3000 M$"DO YOU WANT TO PLOT THE FUNCTION":2000:F500. 6)332(I10)İ4000::4303 (36)0İ4000:430G A(I,N1)0442V FTĺ" +";s " A";:922:I1;:998 I1ĺ" X"; I2Č998:I1;:922 FT1 II1 420 DL3:5000 922:: DL4((F$)40):5000 "IN NESTC$""C$C$":"& rC$C$A$"="(A)- |I: F$F$P$@ K LCNT0 "IN EXPANDED ALGEBRAIC FORM,":"THE POLYNOMIAL IS:"  ILAST2ĭA(1,N1)A(2,N1)0ĺ ILAST0ĺ"Y=0"::460 "Y ="; FT0 I1 IILAST450 (3=":C$"":P$"" @ILAST0% BI1N> DA(I,N1)0ILASTIE FI` HILAST0F$"Y=0":400o JI1ILAST TI1F$F$"X*" ^AA(I,N1) `A0380 hI1IILASTF$F$"(":P$P$")" jA$"A"(I1) lF$F$A$ nIILASTF$F$"+" p  "D$(4):Q$(34): "# OF POINTS = ";NF N110TA(N,N1)ZedI1Nwn"POINT # "I;p14:"X=";Xr998:28:"Y=";YxPWR1J1NA(I,J)PWRPWRPWRXJA(I,N1)YI1000 6F$"Y  310 ,X1X& 6"PERCENTILE = ";1X@ @"TAIL-END VALUE = "XF EN J40_ T"RUNHELLO"1 200 SD2 TD1% Z1F1 J29S= K29Tg Y((1K)Z(13)1J)(KZ(23)J)t T4270 X.5(1Y(.196854Y(.115194Y(.000344Y.019527))))4 X(X10000.5)10000 290 YY(1.08Y4T3) 240 "F1a "F-DISTRIBUTION"K"(TO END PROGRAM ENTER AN F-VALUE OF 0)"[("F-VALUE";b2Fo<F0340F"DEGREES OF FREEDOM IN NUMERATOR";PD1Z"DEGREES OF FREEDOM IN DENOMINATOR";dD2nX1xF1170SD1TD2 ZF  M(2)0310< J(X(1)X(2)Y(1)Y(2)Z(1)Z(2))M(1)M(2)J J0300S J90\ "310r ,J((1J2)J)S 6"ANGLE BETWEEN VECTORS: ";J @ J"MORE DATA? (1=YES, 0=NO)"; TZ ^Z140 h"RUNHELLO"220 x"VECTOR ";I;":"/ "MAGNITUDE: "M(I)> S57.29578N JX(I)M(I)q "ANGLE WITH X-AXIS: ";A(J)S JY(I)M(I) "ANGLE WITH Y-AXIS: ";A(J)S JZ(I)M(I) "ANGLE WITH Z-AXIS: ";A(J)S I J0 M(1)0310  :+A(X)(X(XX1))1.5708J "ANALYSIS OF TWO VECTORS"cX(2),Y(2),Z(2),M(2)i#("VECTOR 1: X,Y,Z";2X(1),Y(1),Z(1)<"VECTOR 2: X,Y,Z";FX(2),Y(2),Z(2)PZI12dM(I)(X(I)2Y(I)2Z(I)2) nM(I)0 ST J060$ X(S)J830. "+";= KSTP1P X(K)X(S)810X SKa 840h *Kq 4840{ >"*"; HJ R"X"; \ fI p30);"Y" z"RUNHELLO" 40 X(TL1)A X(TL)C% L, &J: 0I18730C :L1K DS0X NK0P1j XX(TK)L690w bLX(TK) lL30660 vL30670 S1670 30);"*"; S1 L60860 L);"+"; K S1860 30);"*"; 8600320 6P @I036$ JTTP, TP09 ^TN370I hY(T)I420W rI18400f |30);"*";o 860y SN1 740 LTN Y(L)Y(T)460 PP1 L P1560 J1P L1PJ CX(TL1) AX(TL) CA05NCTION OF D)- X(I)(((F(D)Z1)30).5)O Y(I)(((F(D)Z1)18).5)V Ia J1Nn I1NJy AX(I) BY(I) BY(I1)260 X(I)X(I1) Y(I)Y(I1) X(I1)A Y(I1)B I J T1 "P0N1 ,Y(P1) "PLOT OF POLAR EQUATION"%6X(91),Y(90)?(N90c2"ABSOLUTE VALUE OF ENDPOINTS";j<ZpFP"INCREMENT OF X-AXIS = ";Z30Z"INCREMENT OF Y-AXIS = ";Z18dnI1NxD.06981317I - ENTER FUNCTION HERE (F AS A FU  ))) J8 T"INTERPOLATION: (ENTER 0 TO END PROGRAM)"F ^"X = ";XS rX0410k |"Y = ";(A)(BX)q z 350 " CATALOG" @LJ2) A(KBJ)N , "A = "(A)9 "B = "BL JB(R2JKN)Z MMK2Nd KMJj u "R2JM ,"COEFFICIENT OF DETERMINATION (R^2) = ";R2 6"COEFFICIENT OF CORRELATION = ";(R2) @"STANDARD ERROR OF ESTIMATE = ";((K(N2 "EXPONENTIL REGRESSION"$C"NUMBER OF KNOWN POINTS";J(NR2J0Z<K0bFL0jPM0sZR20~dI1Nn"X,Y OF POINT ";I;xX,YY(Y)JJXKKYLLX2MMY2R2R2XYI B(NR2KJ)(N  z#?XIJ"Ǡ̠ҠӠҠӠՠ ɠŠΧӠŠӠӠԠԠԠԮؠ̠Š ŠӠ ŠӠ ŠӠɠ à àŠԠŠҠԠҠӠƠ٠ƠӠƠӠ ΠΠɠ"ΠΠ ҠΠԠ Ԡ  ̠Π ҠŠԠ ŠӠɠ ΠɠҠɠ ŠҠΠ ̠Π ȠҠΠ ҠӠԠ ΠΠɠ  Ƞ̠ɠ Ƞ٠̠ ȭӠˠ Ӡ  ؠΠɠؠΠ ؠΠŠ àΠ ԠΠҠ ͠ ҠΠҠǠҠΠΠ٠ՠԠ Š!Ԡ"̠ΠҠϠ ̠ΠƠΠΠŠɠ àΠ ̠Π٠ɠŠΠɠŠԠŠΠŠԠҠΠ Ϡ ҮʰȠӠ à*ŠΠϠϠàɠ ƠΠ2122:B4:21,2415:21,2418:21,2421:15,2121:15,2124:}4:21,2415:21,2418:21,2421:15,1821:15,2124:4:15,2121:15,2123:15,2125:23,2515:23,2521:C%:C%A%B%620 ASK FOR ANSWER THEN CHECK FOR WRONG 18,2121:<4:21,2415:21,2418:21,2421:15,2124:c4:15,1821:15,2124:21,2418:4:21,2415:21,2418:21,2421:15,1821:18,2124:4:21,2415:21,2418:21,2421:18,2124:15,2121:4:21,2415:15,1724:23,18:19,113:Ah4:10,1315:10,1318:10,1321:15,1810:15,2113:{r4:15,219:15,2111:15,2113:11,1315:11,1321:|4:22,2315:22,2321:16,2021:16,2024:4:15,2123:22,16:22,2421: 4:21,2415:21,2418:21,2421:15,1824:4:15,1810:15,2113:10,1318' 6b @4:10,1315:10,1318:10,1321:15,1810:18,2113: J4:10,1315:10,1318:10,1321:15,2110:18,2113: T4:10,1315:15,1713:12,18:19,2111:^4:10,1315:10,1318:10,1321:15,2110:15,28,19:19,16:19,20* 27,3017:27,30193 490d 4:11,1215:11,1221:16,2010:16,2013: 4:15,2112:11,16:11,1321  4:10,1315:15,1813:10,1318:18,2110:10,1321: 4:10,1315:10,1318:10,1321:15,2113 "! ,27128860 16368,05 CHECK IF USED ALREADYJ A(A%,B%)2130R Z0` NUMBERS A%1240,250,270,280,300,320,330,340,350,360,370 B%1380,390,400,410,420,430,440,450,460,470,480 4:15,16:15,20:16,17:16,19:17,18:18,17:1(ONCE FOR 1'S, 2'S, AND 10'S), IT WILL NOT SHOW UP AGAIN. TO EXIT THE PROGRAM PRESS ESCAPE."~ P24:"PRESS ESC TO BEGIN."; ZK(16384):K27128110 d90 n16368,0 x } CREATE PROBLEM A%10(1)1:B%10(1)1 (16384)S ON THE SCREEN AND HE WILL ANSWER THEM THROUGH THE KEYBOARD." <:"BE SURE TO PRESS "(91)"RETURN] AFTER EVERY ANSWER."^ F:"AFTER TWO MISSES, THE ANSWER WILL BE SHOWN ON THE SCREEN. AFTER A PROBLEM HAS BEEN SUCCESFULLY COMPLETED TWICE  INITIALIZE  A(10,10)-::255A16)"APPLE ]["[(13)"MULTIPLICATION"n- INSTRUCTIONS@ 2::"THIS IS A PROGRAM DESIGNED TO HELP YOUNGSTUDENTS TO LEARN THE MULTIPLICATION TABLES. THE COMPUTER WILL GIVE THE STUDENT PROBLEM    v) m}}m~~ة$eeeLؠ D8}}~~ؠ ~ 0})JJJJ 0ș}) 0șeJJJJ 0``% $ Bd 鑠e e ēHi&eh L`$e  ɍ ` X0 md:&98N9m:Jn8m8eed`8edd 鑠` :` ^67ą89 Q@ y 6 @^`6798 Q`Hǒ hǒ``}~eei@iA)m~~ v  6g/5 ys r ; ya ` `$$(ɠ$C y$f ``H$%  h\  `CATALOG\Y/N\LOAD\LOCK\UNLOCK\RUN\SAVE\DELETE\NOMONC\START\ LENGTH\,D\I/O ERROR\VERIFY\@  dh a X ;g B ؐg KL L KPhg a X00   ddd 鑠 ؐLs ;O ؐ YLЪPТ2'gh a X ;" ē$ y X ؐ Y ȒL :L'% g h y ē I8Mtn=vH?J QVQT_ɕ%j^iZk[l#^Z_[ 0f ߓ Y1  Ȓ@)ȹ@)ȹ@) Xmɠ 0   L Mf'fП K Xg QLiLLs4     ٹHH ޥLLޥШh^^h_H r륡HHHHHl^h#d j݄hJhhhhhhE` LJ }d.U"i L=8,LLTҐL {ݩ),(,,ѸLLԠhhL ߅` ȱLL  ߅ ei` 꺽  ' 8 uvL׊i , {$8$0`LԦƹƸ$HH `ީ 8ϐ*IEʼna Lݦ,{iweLi^ e^hٲаg jH hV_F*ƹƸٲаH $P )0 Z ۆ $1$P 膸 ": ,i = {LrH0h J c ,Lqۥ 3 LۥL Ȫ*ȱ_ȱ{ȱȅ| L+ܥLSؠߠL:`?EXTRA IGNORED ?REENTER  \I`$ !i)$ )L(ʊ$ L W 檠^ \ LD۩ ,? ɠ )H h`0{|uvLh$L :ۥyz` @ `" ީ; =L Z , ,խLc ZL,զ}~, ߅hL* ,h`PQ/ Q^ԥP &^ &^ePP^eQQP&QPe PQ L ߅ ޥHH {h* mh r ȥ`L'hpoj iLڠ 㥌 婝 5ȱȱ` = $)94,;D {$0 4 Lک?`gh<=ij>?`v(Le lL5٩ ӥHHvHuHH >L ٥vQ 8egh ֐` eӚɰ ,ZLLhhB;uhvhh ٘e`:,  "hhh` { ɫ ޥ L>L( HɰɫЉơ$v# \ۦuv $ W (Lb-逐@ HHLLF:L8gh}~`Ƀ` Sբ$Lׅ ׅLԱJHȱJh`LNפ0`L,׈L20`LF׈LL ׅJF8ȹe8ИL`Lø{{ttmnghab\\WWRRMNIIEEAA=>::673401..+,))&'$%"# !H ֥ h ߦ>  E֥ E & > ` E  E  H ֥ hL  ֥ -L L -EF# =Pi  ֤Lְ ׅ! ׅ  / ) ) "&6 B /`TLՆ8M˕  Tբ , Tզ`  . $ ; E.. 4L& >`Lk 34 Lh856!;<79)F:&8J9j*0v 婭   +<; LhLk'cg=%;!,<+k,w(gG gG]$ t < N8i| (|`ܠLդ4ɪ 4<`<  we will delete that"6 "program from our library."> :g "WILLAMETTE APPLE CONNECTION, INC."{ "P.O. Box 7252 "SALEM, OREGON 97303-0053 ::- ::::"These programs are distributed by the"f"WILLAMETTE APPLE CONNECTION, Inc. as""Public Domain. If any person has valid""evidence that a program is, in fact, ""not in the Public Domain, please " "contact us and  $% 0 vf'  `m :F a -mLǏLi^j_kZl[`8tp`8M`y h (`|)* X |`YLHHJhh`Ǘ˯߷ë󳏋'C/cO KC[ a(נ)+Ss?` WILLAMETTE APPLE CONNECTION, INC. L(OAD R(UN D(ELETE C(ATLG T(DRIV K(LOK U(NLOK X(ALL E(XIT V(ERIFY ----------------------------------------VOL PG OF SECT-USED LEFT ---------------------------------------- )B1350LM10I10 V940@`N(100(1)):O(100(1))ZjNOĺN;" - ";O;" ="jtNOī1170~ONĺO;" - ";N;" ="ONī1250LLNOİ690LNOī1120LNOİ620"SORRY, THAT IS WRONG" "THE CORRECT ANSWM10K(I(1))%J(I(1))IKJĺK;" - ";J;" =":KJ980nKJĺJ;" - ";K;" =":KJ1050uLLKJİ690LKJ940LKJİ6201320M10I10940L$LJKİ690.LJK9408LJKİ620G G H H T"04)" R R III GGGG H H T"@ A1750:AF*L4R>H"WOULD YOU LIKE EASY, MEDIUM, OR HARD":"PROBLEMS?(E,M,OR H)RI$\I$"E"910fI$"M"920pI$"H"1120z1760840I10:930I75:940769,75:770:A1100:A:768,175:769,85:770PA1100:A:768,160:769,255wA1100:A:768,155:769,255:770}:(12):5)"RRRR III GGGG H H TTTTT"4)" R R I G H H T"4)" RRRR I G G HHHH T" 4)" R R I II1:I75ı630R"SORRY, YOUR WRONG":"THE CORRECT ANSWER IS ";CDZ:c550768,200:769,85:770:A1100:A:768,200:769,65:770A125:A:768,200:769,50:770:A1100:A:768,175:769,85:770.A1100:A:768,200:B$"E"İ510B$"M"İ520.B$"H"İ53081760A440OB10:550]B75:550lB300:550sB&C(B(1)):D(B(1))0C;" + ";D;" =":EDECDİ690NECDİ550XECDİ620b660lI1vSOUND(16336)O ADD,":"SUBTRACT, MULTIPLY, OR DIVIDE?":"(A,S,M,OR D)"A TB$Q ^B$"A"430a hB$"S"830r rB$"M"1380 |B$"D"1570 1760 330 1760 330  "WOULD YOU LIKE EASY, MEDIUM, OR":"HARD PROBLEMS? (E,M,OR H)" B$ "::"DIFFICULTY, HIT 'RESET' THEN RUN MATH"::"OR WHICH EVER PROGRAM THAT YOU LIKE.":::"HIT 'RETURN' TO CONTINUE"~ H$  "5)"HELLO, I'M THE APPLE]"(91)" COMPUTER." ,32,4 65)"WHAT IS YOUR NAME?":A$ @9 JA$" WOULD YOU LIKE T?":G$:G$"N"280 "YOU WILL PICK THE OPERATION THAT YOU"::"WOULD LIKE, THEN PICK THE LEVEL OF"::"DIFFICULTY THAT YOU WANT. YOU DON'T"::"NEED TO HIT 'RETURN' FOR ANY OF"::"THESE THINGS. TO CHANGE"v :"TO ANOTHER OPERATION OR LEVEL OF0,185,50,0,100,215,50,210,5 0,0,100,235,100 C -1,-1V I,J:J1180m I0āA1J::140 768,I:769,J:770 140 A11000:A 16)"APPLE]";(91):17)"MATH" 34,4 ::: "WOULD YOU LIKE INSTRUCTIONS]]]] "(91);(91);(91);(91)H F::::" M M A TTTTT H H"k P" MM MM A A T H H" Z" M M M A A T HHHH" d" M M AAAAA T H H" n" M M A A T H H"8 x 165,50,160,50,0,100,190, 5  :O(7):" A PPPP PPPP L EEEEE ]]]] "(91);(91);(91);(91)~" A A P P P P L E ] "(91)(" A A PPPP PPPP L EEEE ] "(91)2" AAAAA P P L E ] "(91) <" A A P P LLLL EEEEE    RD...TWO DISK SIDES+ ARE YOURS WHEN YOUG IDENTIFY WITHOUT DOUBTa THAT A FILE ON THIS { DISK IS COPYRIGHTED! P xAAA HELLO#PUBLIC DOMAIN=BY RONALD D. MALEIKAR721 PIKE STREETjCHEYENNE, WY 82001{28 FEB 198111843,5@"APPLE AVOCATION ALLIANCE, INC."TP11000:Ph1184|(4);"CATALOG" REWA EBB.00001ĺ:"NON-INVERTIBLE MATRIX. HIT RETURN. ";:X$:10yTA(I,I):KI12RA:A(I,K)A(I,K)T::A(I,I)1K1RA:KI450TA(K,I):A(K,I)0:LI12RA:A(K,L)A(K,L)TA(I,L):KK11000::"MATRIX A"2I)81);((A(IX,JX)),7);::::x::"INVERSE OF A":IX1RA:JXRA12RA:(JX1RA)81);((A(IX,JX)),7);:::BB(A(I,I)):IBI:RAI428KI1RA:(A(K,I))BBBB(A(K,I)):IBK:IIBāKI2RA:TA(I,K):A(I,K)A(IB,K):A(IB,K)T:OR A !!":X11000::10"TRA{CATĢ12:"A MUST HAVE THE SAME NUMBER OF ROWS":"AND COLUMNS !":X11000::10I1RA:J1RA:C(I,J)A(I,J)::I1RA:JRA12RA:A(I,J)IJRA:: I1RA::"MATRIX A":IX1RA:JX1RA:(JX1CA:(J1)81);((A(I,J)),7);::::mt"MATRIX B":I1RB:J1CB:(J1)81);((B(I,J)),7);::::v"PRODUCT MATRIX":I1RA:J1CB:(J1)81);((C(I,J)),7);::::x"HIT RETURN TO CONTINUE";:X$:10RA0Ģ12:"INPUT A MATRIX F(JX1)81);((B(IX,JX)),7);::) D:A J:"PRODUCT MATRIX"^ TIX1I:TCB:IIXTJ1k UT0345 VJX1T:(JX1)81);((C(IX,JX)),7);: Y: ^S0:T1CA:SA(I,T)B(T,J)S::C(I,J)S h:T1D:::(r:"MATRIX A":I1RA:J1MNS IN A MUST EQUAL THE":"NUMBER OF ROWS IN B.":X11000::10V 1I1RA:J1CBh 5:"MATRIX A"u 6IX1RA 8IXIĞ :JX1CA:(JX1)81);((A(IX,JX)),7);:JX <::IX =:"MATRIX B" >IX1RB @JX1CB:" ";:JXJĞ! B:"IS LIMITED TO A 5 BY 5. ENTER TEH":"INFORMATION AS PROMPTED."s :"HOW MANY ROWS IN B ";:RB:RB1RB5210 :"HOW MANY COLUMNS IN B ";:CB:CB1CA5220 RRB:CCB SA0:SB1 150 10 ,D2000B .CARBĢ12:"NUMBER OF COLULUMNS IN A ";:CA:CA1CA5120. yRRA:CCA< zSA1:SB0E }150M 10X J1Ca :4w 10);"COLUMN ";J} I1R:5);"ROW ";I;13);:X SA1A(I,J)X SB1B(I,J)X : B " FOR DISPLAY PURPOSES, THE SIZE OF B":10);"WHICH NUMBER ";:X+ #X1X5301 %L (X100,200,300,400,500 d" FOR DISPLAY PURPOSES, THE SIZE OF A":"IS LIMITED TO A 5 BY 5. ENTER THE":"INFORMATION AS PROMPTED." n:"HOW MANY ROWS IN A ";:RA:RA1RA5110 x:"HOW MANY CO A(5,10),C(5,5),B(5,5)? ::4:12);"M A T R I C E S"b8:10);"1. ENTER A MATRIX A"10);"2. ENTER A MATRIX B"10);"3. COMPUTE THE MATRIX PRODUCT":13);"OF A AND B"10);"4. COMPUTE THE INVERSE OF A"10);"5. STOP"   WY 82001" > "HIT 'C' FOR CATALOG - 'RETURN' TO QUIT"F C$V C$"C"780c 1184:p 1184: (4);"CATALOG" 4C"** PLEASE, SEND US A COPY **"$  "WE'LL RETURN YOUR DISKETTE, RECOPIED WITH ANY DISK SIDE YOU CHOOSE FROM THE LIBRARY, WITH OUR THANKS."  05 D"APPLE AVOCATION ALLIANCE, INC." X12 l"721 PIKE STREET" 10 "CHEYENNE, YOU HAVE FOUND SOME OF THESE PROGRAMS HAVE FAULTS AND YOU FIXED THEM?MAYBE YOU EVEN TOOK SOME PAINS TO RE- WRITE A FAULTY PROGRAM? IN ANY CASE..."  "WE WOULD LIKE TO HARVEST YOUR 'IMPROVED'PROGRAMS FOR OTHERS TO ENJOY AND USE." 6 x AAA MESSAGE' PUBLIC DOMAINB BY RONALD D. MALEIKAX 721 PIKE STREETq CHEYENNE, WY 82001 28 FEB 19811184:,12@"AN INVITATION FOR"T5h"APPLE TREES AND APPLE SEEDLINGS"| "PERHAPS    XR:i "HOW MANY DECIMAL PLACES IN ANSWER ";:N:N1N9ĺ:"*** BETWEEN 1 AND 9 PLEASE ***"::3060v SIG.1N BXRXL:B0ĺ:"YOU GAVE ME THE ENDPOINTS WRONG !!":"HIT RETURN TO CONTINUE ";:X$:10000 XXL:20:FLY:XXR:20:FRY} ST GIVE":"ME THE ENDPOINTS OF AN INTERVAL THAT" "CONTAIN A ROOT. YOU ALSO MUST GIVE ME":"THE NUMBER OF DECIMAL PLACES YOU'D" "LIKE IN THE ANSWER." : "WHAT IS THE LEFT HAND ENDPOINT ";:XL: "WHAT IS THE RIGHT HAND ENDPOINT ";:;XN;23);FX" \(XNX0)ACC2200/ fX0XN:I p:" *** FAILED TO CONVERGE ***"::"HIT RETURN TO CONTINUE";:X$:10000 :" *** DESIRED ACCURACY ATTAINED ***"::"HIT RETURN TO CONTINUE ";:X$:100000 :" FOR INTERVAL HALVING, YOU MU ACC(.1)10 SIG10N.51 XX0:20:FXY; I%18H I1MAXT I%I%1 I%19Ģ24:"HIT RETURN TO CONTINUE";:X$::"ITERATION";16);"X";30);"F(X)"::I%1 *XX0.001:20:FDY 4XNX0FX(FDFX).001 >XXN:20:FXY R5);I;11)> "NUMBER OF DECIMAL PLACES YOU WANT IN ":"THE ANWER."::f "GIVE ME AN INITIAL GUESS ";:X0: "GIVE ME A MAXIMUM # OF ITERATIONS ";:MAX: "GIVE ME THE # OF DECIMAL PLACES ";:N:N1N9ĺ:" *** BETWEEN 1 AND 9 PLEASE ! ***"::2050G" =' B" 3. FALSE POSITION"K L::"WHICH ";:X:X1X31060a VX2000,3000,4000 :" NEWTON-RAPHSON REQUIRES THAT YOU":"GIVE ME AN INITIAL GUESS AT THE " "ROOT, A MAXIMUM NUMBER OF TIMES TO":"ITERATE THE ALGORYTHYM, AND THE "=F(X) "d :"WHERE F IS AN APPROPRIATE FUNCTION":"OF X. AFTER ENTERING YOUR FUNCTION," "TYPE:"::" RUN ":: " $:4:"SELECT METHOD TO BE USED:": ) ." 1. NEWTON-RAPHSON" 3 8" 2. INTERVAL HALVIN  1000Y(X)3X N:4:5);"***** ROOT FINDING DEMO *****"8:"CURRENT FUNCTION:"::20:::"DO YOU WANT A DIFFERENT FUNCTION ";:X$(X$,1)"N"1060(X$,1)"Y"1000 :"TYPE YOUR FUNCTION AS IN THIS EX:"::"20 Y       rK1R$ |A(L,K)A(L,K)TA(J,K)? B(L,K)B(L,K)TB(J,K)F KM LT JZ e I1Rp J1R (B(I,J)1000.5)1000;" "; J  I "RUNHELLO"N I "SINGULAR MATRIX"% 5000 K1R= SA(J,K)O A(J,K)A(I,K)\ A(I,K)Si SB(J,K){ B(J,K)B(I,K) B(I,K)S K "T1A(J,J) ,K1R 6A(J,K)TA(J,K) @B(J,K)TB(J,K) JK TL1R ^LJ410 hYA(L,J)  "MATRIX INVERSION " 7A(10,10),B(10,10)S("DIMENSION OF MATRIX";Z2Rr<"MATRIX ELEMENTS:"}FJ1RP"ROW ";JZI1Rd"VALUE COLUMN ";I;nA(J,I)xIB(J,J)1JJ1RIJRA(I,J)0210    PADM60S3600) Z"RADIANS =";AC1 d50V "INPUT THE ANGLE IN RADIANS?";A\ f AAC} "DEGREES = ";(A) AA(A) "MINUTES = ";(A60) AA60(A60) "SECONDS = ";(A60) 50 "RUNHELLO" ) 936$ "ANGLE CONVERSION:"*`"1. DEGREES TO RADIANS":"2. RADIANS TO DEGREES"v#"3. END PROGRAM"(C1803.14159272"WHICH OPTION? (BY NUMBER):";O<O70,150A240 F"INPUT THE ANGLE IN DEGREES, MINUTES, SECONDS?";D,M,S B(K,J) TK ^S;" ";! hJ' r. |I? "RUNHELLO"1R1 "ROW ";J I1C15 "VALUE COLUMN";I;A A(J,I)H IO JU f "MATRIX 2:"r J1R2 "ROW ";J I1C2 "VALUE COLUMN ";I; B(J,I) I J  "I1R1 ,J1C2 6S0 @K1C1 JSSA(I,K)@ "MATRIX MULTPLICATION"#:A(10,10),B(10,10)^("DIMENSION OF MATRIX 1 (R,C)";i2R1,C1<"DIMENSION OF MATRIX 2 (R,C)";FR2,C2PC1R2110Z"CANNOT BE MULTIPLIED; OTHER DIMENSION NECESSARY"d40n"MATRIX 1:" xJ U1$"Y" 1&32767)"RUNF"UNDS =";R;"KILOGRAMS" 520= I;"TONS =";R;"KILOGRAMS"G 520r CONVERT DEGREES FARENHEIT TO CELSIUSR(I32)59 I;"DEGREES FAHRENHEIT =";R;"CELSIUS" "DO YOU WANT TO MAKE ANOTHER CONVERSION" "Y/N ";: U1$ 520!T I;"PINTS =";R;"LITERS"+^ 520Ih I;"QUARTS =";R;"LITERS"Sr 520r| I;"GALLONS =";R;"LITERS"| 520 I;"BUSHELS =";R;"LITERS" 520 I;"PECKS =";R;"LITERS" 520 I;"OUNCES =";R;"GRAMS" 520 I;"POUI;"FEET =";R;"METERS"" 520>I;"YARDS =";R;"METERS"H 520hI;"MILES =";R;"KILOMETERS"r 520I;"TEASPOONS =";R;"CUBIC CENTIMETERS"" 520,I;"TABLESPOONS =";R;"CUBIC CENTIMETERS"6 520@ I;"CUPS =";R;"LITERS"JROPER CONVERSION FACTOR$RIC(N)X DIRECT PROGRAM TO PROPER CONVERSION FACTOR  N 180,200,220,240,260,280,300,320,340,360,380,400,420,440,460,480,500 I;"INCHES =";R;"CENTIMETERS" 520I;"FEET =";R;"CENTIMETERS" 520 YOU NEED"; n N# x N0 340> CONVERSION AVAILABLE N17 : 50,127 : "NOT IN LIST STUPID. ": 50,255:: " TO TRY AGAIN TYPE 'RUN' AND HIT RETURN":: "VALUE TO BE CONVERTED"; I TO PERFORM CONVERSION USING THE P 2 C(N) < N= E DATA TABLE OF SEVENTEEN CONV FACTORS{ F 2.540,30.480,.3048,.9144,1.609,4.929,14.788,.2366,.4732 P .9463,3.785,35.24,8.809,28.3495,.4536,907.2,.6214 Y GET NUMBER OF CONVERSION FROM PROGRAM Z d "WHICH CONVERSION DOOUNDS TO KILOGRAMS" 4 ""16 TONS TO KILOGRAMS" f #"17 DEGREES FAHRENHEIT TO DEGREES CELSIUS" y $ COUNT1 39 % TO ESTABLISH VAR FOR 17 CONVERSION FACTORS & C(17):COUNT1 ' LOOP TO ASSIGN CONVERSION FACTORS INTO C( ) ( N1 17"8 CUPS TO LITERS". "9 PINTS TO LITERS"I "10 QUARTS TO LITERS"O } "TO CON'T LIST HIT ANY KEY ";: U1$:  "11 GALLONS TO LITERS " "12 BUSHELS TO LITERS" "13 PECKS TO LITERS" "14 OUNCES TO GRAMS"  !"15 PRAM ARE AS FOLLOWS :" ! @ "1 INCHES TO CENTIMETERS"] "2 FEET TO CENTIMETERS"u "3 FEET TO METERS" "4 YARDS TO METERS" "5 MILES TO KILOMETERS" "6 TEASPOONS TO CUBIC CENTIMETERS" "7 TABLESPOONS TO CUBIC CENTIMETERS" + 9366"PROGRAM BY PAUL PAGE APRIL 2,1978" <Bj" ANGLO TO METRIC CONVERSIONS"p"THIS PROGRAM CONVERTS A MEASUREMENT" "GIVEN IN ANGLO UNITS TO METRIC UNITS."  "THE CONVERSIONS AVAILABLE IN THIS" "PROG     N HELLO" OF SIGN FOUND" 60 BX, D(2A1)A: "D(2A1)BN ,Y(D(1)D(3))2^ 6Y1(R(Y))l @Y10400z JD(2Y1)Y T(D(1)D(3))(D(1)(D(3)))5E6400 ^300 hA10390 rYB1 |400 YA1 "ROOT = ";Y  60 "RUE EQUAL!--" n60 xAB150N "--LOWER LIMIT MUST BE ENTERED FIRST!--"V 60f A1(R(A))v B1(C(B)) A1B10360 A1B10280 I11000 XA(2)(BA) X1(R(X)) X10400 A1X10270 I "NO CHANGE 3 "ROOTS OF POLYNOMIALS: HALF-INTERVAL SEARCH"9l - ENTER FUNCTION (DEFFNR(X)="FUNCTION") HEREv(D(3)2"(TO END SEARCH ENTER 0,0)"<"INTERVAL (LOWER,UPPER LIMIT)";FA,BPAB120ZA0430 d"--INTERVAL LIMITS CAN'T B2350 TB(J,I)B(J,I)% ^D3380> hA(J,I)B(J,I);" ";G r390[ |A(J,I)S;" ";b Ih o Ju  "MORE DATA? (1=YES,0=NO)"; D D170 "RUNHELLO" X (R,C)"; R,C K12* K2180; "MATRIX 1:"D 190U "MATRIX 2:"` J1Rn "ROW ";Jy I1C "VALUE COLUMN ";I; K2260 A(J,I) 270 B(J,I) I J "D3310 ,K 6J1R @I1C JDϻ< "MATRIX ADDITION, SUBTRACTION, SCALAR MULTIPLICATION"BUA(3,3),B(3,3)g("1-ADDITION"|2"2-SUBTRACTION"<"3-SCALAR MULTIPLICATION"F"WHICH OPERATION";PDZD3120d"VALUE OF SCALAR";nS x"DIMENSION OF MATRI   1) Y(N1)Y(1) A0% I1NI AA(X(I)X(I1))(Y(I)Y(I1))P Ib "AREA =";A2h p 40 "RUNHELLO" A "AREA OF A POLYGON" 1X(25),Y(25)e("NUMBER OF VERTICES (ENTER 0 TO END PROGRAM)";l2Ny<N0230FI1NPI1110Z"COORDINATES OF VERTEX ";I;d120n" VERTEX ";I;xX(I),Y(I)I X(N1)X( OR","DERIV." X,F0,F1 B "ANOTHER VALUE (1=YES,0=NO)";I AV A1170| "ANOTHER FUNCTION (1=YES,0=NO)"; A A130 550 "100 ITERATIONS COMPLETED:" " X = ";X;" F(X) = ";F0 " CONTINUE (1=YES,0=NO)"; A "; X Q0 S1" F10+ F005 QQ1B I1N1S F0F0A(I)Sd F1F1B(I)Sn SSXu "I ,F10360 6SXF0F1 @XS380 JXS TQ100490 ^210 h"DERIVATIVE = 0 AT X = ";X r180 | " ROOT"," ERR* "REAL ROOTS OF POLYNOMIALS: NEWTON"0AA(11),B(11)M(I111X2A(I)0c<B(I)0jFIP"DEGREE OF EQUATION";ZNdI1N1n"COEFFICIENT A(";I1;")";xA(I)II110B(I)A(I1)II "GUESS ,(V10000.5)10000,((V)10000.5)100001 TO ^"MORE DATA(1=YES,0=NO)";V hSb rS120s |"RUNHELLO" UENCY ";I; A,B RRBA) PPB7 MMBA2> IH RRP^ V(MPR2)(PS)g 310r I1N "ITEM ";I; D PPD MMD2 I "RPN ,V(MNR2)(NS) 6 @"MEAN","VAR","ST DEV"+ J(R10000.5)10000u+ "MEAN, VARIANCE, STANDARD DEVIATION"1^"WHICH METHOD (0=POPULATION,1=SAMPLE)";e(S2"KIND OF DATA (0=GROUPED,1=UNGROUPED)";<KF"NUMBER OF OBSERVATIONS";PNZR0dM0nP0xK1230I1N "ITEM, FREQ  SUBHEADING 5 ((40(ARG$))2)? ARG$K X138U "-";[& d0 "-"j: A HEADS? (ASSUME THE ODDS ARE FIFTY-FIFTY OR .5)"9  "YOU MUST INPUT THE NUMBER OF TRIALS, OF SUCCESSES AND THE PROBABILITY EXPRESSED AS A DECIMAL BETWEEN 0 AND 1."  "FOR EXAMPLE, A 50% CHANCE OF GETTING A HEAD IS ENTERED AS '.5'." -"  &  PRINT EXPLANATION,  "THIS PROGRAM CALCULATES THE PROBABILITY OF OBTAINING A GIVEN NUMBER OF SUCCES- SES AFTER A GIVEN NUMBER OF TRIALS." 3 "FOR EXAMPLE, HOW OFTEN WILL FLIPPING A COIN 10 TIMES RESULT IN EXACTLY 5 L "IT'S TOO DEPRESSING TO THINK ABOUT TOTAL FAILURE. GOODBYE!";BELL$] "" RUN AAA"c ,i ~  SCREEN HEADING   BELL$(7): BELL SOUND BELL$ ((40(ARG$))2) $ .ARG$ 8 BX138 L"-"; V `" TRIALS = DAMN UNLIKELY!"::50) AAJ/ = M(I)(A)C ~ - USING THE COMPUTED FACTORIALS, COMPUTE PROBABILITY R(M(1)M(2)M(3)X(P)(NX)(1P)) "PROBABILITY OF ";X;" SUCCESSES IN ";N;" TRIALS = ";R 50 LITY OF SUCCESS:";PU sP1ĺBELL$;BELL$;BELL$;"*** ENTER A NUMBER FROM 0 TO 1":100p w - COMPUTE FACTORIALS{ xM(1)N M(2)X M(3)NX I13 M(I)0220 A1 J1M(I) A8.68E36ĺ:"PROBABILITY OF ";X;" SUCCESSES IN ";N;"k( ARG$"BINOMIAL DISTRIBUTION":1000S ARG$"ADAM OSBORNE & ASSOCIATES":3000]2000cmM(3)("(TO END PROGRAM, ENTER 0)"-2"ENTER NUMBER OF TRIALS:";NFN0270P"ENTER EXACT NUMBER OF SUCCESSES:";X d"ENTER PROBABI     (AIX1) I2(I2)280& CCY/ 2909 DDY@ "Ii ,"INTEGRAL IS ";X13(Y14C2DY2)z 6"RUNHELLO" J _VR(BA)X1! dVR(VR)80. nS1150P x"FIRST. LAST VALUE OF F(X)";[ Y1,Y2d 170q Y1C(A)~ Y2C(B) C0 D0 I1(BA)X1.5 S1240 "VALUE OF F(X) AT INTERVAL ";I;" (X=";AIX1;")"; Y 250 YC|$ "INTEGRATION: SIMPSON'S RULE"*`"SELECTION: 1=KNOWN FORMULA, 0=UNKNOWN FORMULA";g(S2 - DEFINE YOUR FUNCTION HERE IN THE FORM "FNC(X)='YOUR FUNCTION'"<"LOWER, UPPER LIMIT OF INTEGRAION";FA,BP"INCREMENT OF X";ZX12)X J* "DEPENDENT VARIABLE = "P0 9 710J *"RUNHELLO"ETERMINATION (R^2) = ";IK "COEFFICIENT OF MULTIPLE CORRELATION = ";(I)x "STANDARD ERROR OF ESTIMATE ";((ZL))~  "INTERPOLATION: (ENTER 0 TO END PROGRAM)" PA(1,V2) J1V "VARIABLE ";J; X X0810 PPA(J1,VN COEFFICIENTS:"/ " CONSTANT:";A(1,VV)< I2V1\ "VARIABLE("I1"):"A(I,V2)c &Ik 0P0x :I2V1 DPPA(I,V2)(S(I)T(I)S(1)N) NI XRS(V2)S(1)2N bZRP lLNV1 vIPV  IPR "COEFFICIENT OF DLUTION" J810 TK1V2* ^BA(I,K)< hA(I,K)A(J,K)I rA(J,K)BP |K_ Z1A(I,I)l K1V2 A(I,K)ZA(I,K) K J1V1 JI490 ZA(J,I) K1V2 A(J,K)A(J,K)ZA(I,K) K J I  "EQUATIOENDENT VARIABLE"; X(V2)* K1V17 L1V2S A(K,L)A(K,L)X(K)X(L)e S(K)A(K,V2)l Ls K S(V2)S(V2)X(V2)2 I I2V1 T(I)A(1,I) I I1V1 "JIV1 ,A(J,I)0340 6J @"NO UNIQUE SOK# "MULTIPLE LINEAR REGRESSION")EX(9),S(9),T(9),A(9,19)d("NUMBER OF KNOWN POINTS";k2N<"NUMBER OF INDEPENDENT VARIABLES";FVPX(1)1ZI1Nd"POINT ";InJ1Vx" VARIABLE ";J;X(J1)J " DEP   ";T;" DEG K = "::TP;" WATTS / SQ CM":l rPW2897T:"PEAK WAVELENGTH AT ";T;" DEG K ="::PW;" MICRONS"C"INPUT LOWER AND UPPER BOUNDS OF"::"WAVELENGTH BAND (MICRONS) (L,U) ?";L,Ut jWUL:S(W200)L:VW100:10:936 lYYV::"OUTPUT AT ";T;" DEG K BETWEEN": nL;" AND ";U;" MICRONS ="::Y;" WATTS / SQ CM":) pTP5.67E12(T4):"TOTAL POWER ATm 100 Y0:XSUVKQC1(X5):QQ(((C2(XT)))1):YYQ:X:d936:"BLACKBODY RADIATION IN W/SQ CM FOR"::"INPUT TEMPERATURE IN DEG K AND"::"WAVELENGTH BAND IN MICRONS":eC137403:C214388f:"INPUT TEMP (DEG. K) ?";TL h:  IJ 380 TYA(I,J)) ^ K1 R1D hA(I,K)A(I,K)YA(J,K)L r KT | I\  Jb p  I1 R "X";I;"=";(A(I,R1)10005)1000  I  I J J1 R* IJ RA A(I,J) 0 230I Ic "NO UNIQUE SOLUTION"m 440} K1 R1 XA(J,K) A(J,K)A(I,K) A(I,K)X  K Y1A(J,J) " K1 R1 ,A(J,K) YA(J,K) 6 K @ I1 R J% "SIMULTANEOUS EQUATIONS"+9 A(9,10)U("NUMBER OF EQUATIONS";]2 Rz<" COEFFICIENT MATRIX:"F J1 RP"EQUATION";JZ I1 R1d IR1 130n " COEFFICIENT";I;x 140" CONSTANT"; A(J,I) OX99999290 X(XM)S" X:A R((X2)2)2.5066282746V "FREQUENCY = "R^ ZXv T1(1.33267(X)) T.5(R(.4361836T(.1201676(T2)).937298(T3))) Z0260 T1T "PROBABILITY = "T  150 ""RUNHELLO" "NORMAL DISTRIBUTION""E"(0=STANDARD,1=NON-STANDARD)"d("WHICH TYPE OF VARIABLE";k2Sx<S0120F"MEAN";PMZ"STANDARD DEVIATION ";dSn130xS1"(TO END PROGRAM ENTER X=99999)""X = ";X    180 L1 M1# VV2/ MMWVC M.0000001250M LLMV 200v "TAIL END VALUE = "1JKL "PERCENTILE = "JKL  40 "RUNHELLO" I  "CHI-SQUARE DISTRIBUTION"&F"(TO END PROGRAM ENTER 0)"a("DEGREES OF FREEDOM";h2Vu<V0280F"CHI-SQUARE";PWZR1dIV22nFFIxIKW(((V1)2))(W2)R(V2)V2170 J(2W3.1415927) IST PROGRAM FOR EXPLANATION"+ 10:34,105 -32,3= .50] 2Y130:X165:TX,Y:YY2:e 760 <Y110:X135:TX,Y:: A70 FY65:X165:TX,Y:YY1: d22:34,0:32,0,0:32,0YFT.P  T TEST.X ROUTINE IS A TONE GENERATING COMMAND FOR APPLESOFT.  SYNTATIC FORMAT FOR THIS COMMAND IS--  10 &T ,  936 5 5)"*** T EXTENSION OF APPLESOFT **" 14)"*** DEMO ***" :"L 1013,76:1014,166:1015,3W THIS SETS UP THE APPLE- SOFT EXTENSION LINK. IT PUTS A JMP TO EXTEN- SION ROUTINE IN LOC $3F5." BLOAD T TEST.X"  THIS ALLOWS THE USE OF THE '&' FUNCTION IN THE ROM VERSION OF APPLESON = "(J)7 "STANDARD ERROR OF ESTIMATE = "((ZI))= l "INTERPOLATION: (ENTER 0 TO END PROGRAM)"{ PR(1,D2) "X = ";X X0790 J1D PPR(J1,D2)XJ J "Y = "P  690 "RUNHELLO" REE COEFFICIENT = ";R(J1,D2)% J+ 3 P0@ &J2D1d 0PPR(J,D2)(T(J)A(J)T(1)N)k :J DQT(D2)T(1)2N NZQP XIND1 bJPK l vJPQ "COEFFICIENT OF DETERMINATION (R^2) = "J "COEFFICIENT OF CORRELATIOII)R(K,I) ^R(K,I)S hI, rZ1R(J,J)9 |I1D2M R(J,I)ZR(J,I)T Ia K1D1n KJ470| ZR(K,J) I1D2 R(K,I)R(K,I)ZR(J,I) I K J  " CONSTANT = ";R(1,D2) J1D J;" DEGT(K)YX(K1)& T(K)T(K)YX(K1)- KC T(D2)T(D2)Y2J IW J1D1d K1D1x R(J,K)A(JK1) K J J1D1 KJD1 R(K,J)0320 "K ,"NO UNIQUE SOLUTION" 6790 @I1D2 JSR(J,I) TR(J, "NTH-ORDER REGRESSION"#:A(13),R(7,8),T(8)U("DEGREE OF EQUATION";\2D{<"NUMBER OF KNOWN POINTS";FNPA(1)NZI1Nd"X,Y OF POINT ";I;nX,YxJ22D1A(J)A(J)X(J1)JK1D1 R(K,D2)  I(J1)C Y(V1(X)P)2P' ZZY: " ";V1(X),P,YA JH IN e "CHI-SQUARE = ";Z "DEGREES OF FREEDOM = ";(C1)(R1) "RUNHELLO" TI1R J1C& A(I)A(I)V1(M)0 MM17 JD LLA(I)K IU NRC` I1Cm JINC "V2(I)V2(I)V1(J) ,J 6I @Z0 J"OBS VAL","EXPCT VAL","X-PART" TI1C ^" COLUMN ";I hJ1R rPA(J)V2(I)L |XС "CHI-SQUARE TEST"5V1(25),V2(5),A(5)L("NUMBER OF ROWS";S2Rm<"NUMBER OF COLUMNS";tFCP"CONTINGENCY TABLE:"ZI1Rd"ROW ";InJ1Cx"ELEMENT ";J;V1((I1)CJ)JIL0M1   (T H ,L hH 0hBY R! ZXR11 dCCX$ nX/ xN,R,C7 }:? 14E NI$;" BASE ";BI%;" = ";NO$;" BASE ";BO% : 380 X"BASE NOT IN RANGE" b"OF 2 TO 16" 360 ' BASE CONVERSION ROUTINE t' CONVERT TO DECIMAL 'L%(NROUPS":" 4. PUSH RETURN"C :" TO STOP ENTER O,O "P ::N,R] N0150 ::"NUMBER SIZE COMBINATIONS" : NO150 C1 ( 30 TO 50 FIND NPR 2XNNR11 <CCX FX P 60 TO 80 DIVIDE F5 THIS PROGRAM PREPARED BY W MCKAY 2/8/78V " THIS PROGRAM IS TO: " :"CALCULATE NUMBERS OF COMBINATIONS"" ::"AFTER THE PROMPT (?) ENTER:":" 1. THE NUMBER OF THINGS":" 2. COMMA":" 3. THE NUMBER OF G  " A = 0" "60" ," A = 180"* 6606 @"R,A";? JR,Ad TM(A(A360)360)3.1415927180 ^"X = ";(R(M)100.5)100;","; h" Y = ";(R(M)100.5)100 r60 |"RUNHELLO"V((X)(X2Y2)100.5)100;",";R " A = ";((YX)1803.1415927100.5)100Z 60g Y0240} "R = ";(Y);","; Y0220 " A = 90" 60 " A = 270" 60 "R = 0, A = 0" 60 "R = ";(X);"," X0300  "COORDINATE CONVERSION"$H" ( 1=CARTESIAN TO POLAR)"l(" (-1=POLAR TO CARTESIAN)"2" ( 0=END PROGRAM)"<"WHICH DIRECTION";FDPD0380ZD1320d"X,Y";nX,YxX0170Y0260! "R = ";  I((A)C(B))2)D( "INTEGRAL = ";I. 6 50G "RUNHELLO"EI& "INTEGRATION: TRAPEZOIDAL RULE",;C(X)X3]("(ENTER 0,0 TO END PROGRAM)"2"INTEGRATION LIMITS (LOWER, UPPER)";<A,BFAB190P"NUMBER OF INTERVALS";ZNdI0nD(BA)NxJABDIIC(J)J I(v Q(X)X2&<X3.93.92ZY039CxYQ(X)210L"";SY]"*";dXo32767uU"."RUNHELLO" 60 HZ);"+"; RZY(TJ)$ \J2 fZ01040A pZB21040O zZ);"+";Y 1040c STLo J0B2 Y(S)J1010 "+"; KSTP1 Y(K)Y(S)990 SK 1020 K 1020 "*"; J "Y";  I$"X1730 J1P L1PJ- DY(TL1): BY(TL)H DB710W Y(TL1)Bd Y(TL)Dk Lr J L0P1 ZY(TL) Z0770 L I0910 Z0800 "*"; LP1870 *JLP1 4ZB21040 >Y(TJ)Z81)A Y(I1)B I J' T14 P0N1F X(P1)0490M Pg I0((A2A1)A3.5)q TTPy P0 TN540 X(T)I590 I0570 &"*"; 01040 :SN1 D920 NLTN XX(L)X(T)630 bPP1 lL vP(I)((Y(I)B1)B3.5) I3 Y(N1)(B2.5)1Q X(N1)((A2A1)A3.5)1W " ,"INTERSECTION OF AXES AT (";A1;",";B1;")" 6 @J1N JI1NJ TAX(I) ^BY(I) hCX(I1) rDY(I1) |AC430 X(I)C Y(I)D X(Iȫ60* x"NUMBER OF POINTS TO BE PLOTTED";1 N? N01070N N99180e "TOO MANY POINTS"n 120y I1N I1220 "COORDINATES OF POINT ";I; 230 " POINT ";I; X(I),Y(I) X(I)((X(I)A1)A3.5) Y "COORDINATE PLOT"1X(100),Y(100)j("X-AXIS: LEFT ENDPOINT, RIGHT ENDPOINT, INCREMENT";x2A1,A2,A3<"Y-AXIS: LOWER ENDPOINT, UPPER ENDPOINT, INCREMENT";FB1,B2,B3PB2(B2B1)B3ZB240120d"Y-RANGE TOO LARGE" n      0,0,0 32767" ACH$(Y)ī5+ 255S*************";P d:"A","B","C"::"****************************************"t n"THE ANGLES ARE"::A1,B1,C1: x"THE SIDES ARE"::R(A),R(B),R(C): "AND THE AREA IS ";R(A2) 40  24,51,10  30,60,15  45,45,20 10999# : FIND THE THIRD ANGLE7 <C1180(A1B1)f D 70 AND 80 COMPUTE THE OTHER TWO SIDES} FBAT(B1)T(A1) PCBT(C1)T(B1) X COMPUTE AREA ZA2.5ABT(C1) b NOW PRINT THE RESULTS c"***************************-1707 WE COMPUTE THE COVERSION FACTORJ K3.14159180r DEFINE TRIG FUNCTION FOR DEGRESST(G)(GK) DEFINE A ROUNDING FUNCTIONR(X)(X100.5)100& A1 AND B1 ARE ANGLES AND A IS A SIDE(A1,B1,A 2A7IP1904 "MORE THAN 9.9 * 10^37 PERMUTATIONS"= 280G PPIN IY J2Dc CCJj J P;" PERMUTATIONS" PC;" COMBINATIONS"  40 "RUNHELLO" & "PERMUTATIONS AND COMBINATIONS",L"(ENTER 0 TO END PROGRAM)"l("TOTAL NUMBER OF OBJECTS";s2N<N0280F"SIZE OF SUBGROUP";PDZDN130d"SUBGROUP TOO LARGE"nx40P1C1IND1N 9.9E3  ))(X(J)X(I)) I$ BBTY(J)+ JF " Y = ";BL w "MORE X ON THIS CURVE (1=YES, 0=NO)";~ C C1100 "MORE X ON ANOTHER CURVE (1=YES, 0=NO)"; C "C120 ,"RUNHELLO"S" "CURVILINEAR INTERPOLATION"3X(50),Y(50)9X("NUMBER OF KNOWN POINTS";_2Pj<I1PF"X,Y OF POINT";I;PX(I),Y(I)ZIdn"INTERPOLATE: X = ";xAB0J1PT1I1P