' +JJJJ ?\>m0M='+l> /+l   d]@ŵLҦ]]LF L}BBL] X  ` 鷎귭෍ᷩ췩緈JJJJx Lȿ L8ᷭ緍췩 緍i 8 `巬 췌`x (`(8`I`B` ``>J>J>VU)?`8'x0|&HhHh VY)'&Y)xꪽ)' `Hh`V0^*^*>&` aI꽌ɪVɭ&Y&&Y& 꽌ɪ\8`&&꽌ɪɖ'*&%&,E'зЮ꽌ɪФ`+*xS&x'8*3Ixix&& 8  '  & x)*++`FG8`0($ p,&"ųųೳŪŪųųij  !"#$%&'()*+,-./0123456789:;<=>?   1 '" *"( (9"1 ( ,.(0# 2  /#0/#0 *?'#07#00/0/'#07#0:"4<*55/**5/*%5/)1/)1/)1/)'#0/#0*5/*75/**5/*:5//#0/#0'#07#0:::*::'#07#0"):$(%"%:$(%"%$$2%4%$$2%4%$(2()!)E(!8b $!H(+ "@H !D)"E` @ $ C ` DQ &J80^݌Hh ü ü݌ ռ ռ ռA ļD ļ? ļAEDE?HJ>h Լ ռ ռ ռ`HJ>݌h Hh݌`葠葠ȔЖȔЖȠHIHHHHhHH݌hHhHh݌H6 VDP (ED Z $0x8x D- ܸDD# H8`?E Vk *f???0xE Hh D#-EEE8` D ܸx D - ܸx8`-0ݩ?ʥD EEE`   LDcpq` [` ~  LӜu`".Q`pNФbptťܥm2<(-Py0\|e<6e<g< JJJJj귍hI  aUL@ kU8  L  Q^R(jQ0l^l\  wUuW ԧ H h@ [_ /QSIRb_L`LLLL`ª`LQLYLeLXLeLee ўQH\(h0L& Ꝥ$`( R \ZLl8 ўR HH\`\Z[YS6`LxQɿu3'RͲʎRʎ]]]ɍuL͟ɍ}RLRɍg^H8 ^hZLɍR LͲɊRR% QLܤͲ Z@ -^ ş\[Z QY\[Z8`l6Lş_Ȍb_Ͳ] )Y h( ֭ͲLɍ [LLĦ__ ^ 9 LҦ3 9 a   0LjLY u< (_9 ˭ɠuɠK_9 ?LˆʎõĵL õ ĵµ aµ`` L̦µ_bJLuLz`  ȟ QlXJ̥KlV  ȟ QlV eօ3L e3L &RL &QL d L4 Ne)n `@-eff L f`L . tQLѤ LҦL` OPu d L Ne)noon 8ɍ` ^f\õL ^NR  RΩLҦ)\Z ʽ LHv 3h`0h8` [L NС õ`A@` ŵL^Lõ`  \ 濭0 \  ȟ Q ^\lZl^?cqH şch`fhjõĵ@OAP`u@`@&`QR`E Ls  @DAE@u`8` %@ @A@`@`@A`Mµ ) LЦ`8@AWc@8@-@HAȑ@hHȑ@ȑ@hHȑ@Ȋ@ch8&ȑ@Hȑ@Ah@LHȑ@ȑ@ htphso`hMhL`9V8U897T6S67`INILOASAVRUCHAIDELETLOCUNLOCCLOSREAEXEWRITPOSITIOOPEAPPENRENAMCATALOMONOMOPRINMAXFILEFINBSAVBLOABRUVERIF!pppp p p p p`" t""#x"p0p@p@@@p@!y q q p@  LANGUAGE NOT AVAILABLRANGE ERROWRITE PROTECTEEND OF DATFILE NOT FOUNVOLUME MISMATCI/O ERRODISK FULFILE LOCKESYNTAX ERRONO BUFFERS AVAILABLFILE TYPE MISMATCPROGRAM TOO LARGNOT DIRECT COMMANč$3>L[dmx- ( N ՠ@跻~!Wo*9~~~~ɬƬ~_ j ʪHɪH`Lc (L ܫ㵮赎 ɱ^_ J QL_Ls贩紎 DǴҵԵƴѵӵµȴ 7 ַ :ŵƴѵǴҵȴµ納贍﵎ٵ്ᵭⳍڵL^ѵ-I `  4 ò-յ!  8صٵ紭ﵝ 7L (0+BC  7L HH`LgL{0 HH` õL H hBL BH [ h`Lo õ ڬL B ڬ LʬH hB@ յյ [L (ȴ) ȴ 7L L ( L (ȴL{ƴѵ洩ƴǴҵ 7 ^* B0 HȱBh ӵԵ 8 L8 ݲ` ܫ  / / ED B / / ]ƴS0Jȴ ȴ)  紅D贅E B ƴ  / 0L Ν `HD٤DEEhiHLGh ` ŵBѵ-` ѵB-` ܫ XI볩쳢8 DH E𳈈췍Ȍ X0 · JLǵBȵC`,յp` 䯩 R-յյ`յ0` K R-յյ`ɵʵӵԵ` 4 K ( ѵҵLBȱBL8` DBHBH : ַ޵BȭߵBhhӵԵ RBܵmڵ޵ȱBݵm۵ߵ` 䯩LR˵̵ֵ׵`êĪLR E( 8` R` ELRŪƪ`췌 յյI뷭鷭귭ⵍ㵍跬ª 뷰` Lf ݵܵߵ޵ ^`8ܵ i B8` 4L ֵȱB׵ ܯ䵍൭嵍 ` DȑB׵Bֵ  ַ յյ`굎뵎쵬 뵎쵌``õĵBCõĵ`µµ`L õBĵCصص Qƴ0"Bƴ 󮜳` 0۰ϬBƴ8`i#`ЗLw!0>ﵭ` m ﳐ 7i볍 8 ЉLw`H h ݲL~ `浍국䵍뵩嵠Jm赍嵊mjnnn浈ۭm浍浭m䵍䵩m嵍`"L ŵ8ŵH ~(` i d ֠z# u` METHOD ";M100;"%" v> "YEAR","DEPREC","BALANCE"[ R1((RMY)100.5)100f RRR1r I,R1,R| NN1 I  "MORE DATA? (1=YES,0=NO)"; X X120 "RUNMENU" N66 RD  I1Y. N55650; I1N66A I &I1Q 0N8~ :" DECLINING BALANCE TAX DEPRECIATION" D" PRICE $";V N" SALVAGE VALUE $";S X" NET DEPRECIATED $";D b" LIFE ";Y;" YEARS" l" LIFE ";Y;" YEARS" 6= @"YEAR","DEPREC","BALANCE"Y JR2D(YI1)((Y1)Y)o TR(R100.5)100{ ^R1R1R hBDR1 rB0410 |R1R1B RRB B0 I,R,B NN1 I 700 "METHOD IN %"; M MM1002450 X1120 R10% N66+ 1 < I1YJ N55330W I1N66] e I1m N7 " SUM OF DIGITS TAX DEPRECIATION" " PRICE $";V " SALVAGE VALUE $2;S "" NET DEPRECIATED $2;V-S ," - ROUND OFF TO NEAREST CENT, PRINTV "AMOUNT OF EACH WITHDRAWAL =$";(R100.5)100 - PRINT BLANK LINE TO SEPARATE QUESTION FROM DATA - RESTART OR END PROGRAM? "MORE DATA? (1=YES, 0=NO)"; X X120 "RUNMENU" LY0,M2 h - CALCULATE YEARS FROM YEARS AND MONTHSE iY(12Y0M)12u l - CALCULATE INTEREST RATE PER WITHDRAWAL; m - CONVERT FROM PERCENT TO DECIMAL nIIN100 w - CALCULATE REGULAR WITHDRAWAL BY FORMULA xRP(I((1I)(NY)1)I)" / "REGULAR WITHDRAWALS FROM AN INVESTMENT"5e - STATEMENTS 30 TO 100 REQUEST USER INPUT"INITIAL INVESTMENT";(P2"NOMINAL INTEREST RATE";<IF"NUMBER OF WITHDRAWALS PER YEAR";PNZ"NUMBER OF YEARS, MONTHS"; d0 \ fI p36,20:"Y"& u:^ z"WOULD YOU LIKE ANOTHER PLOT?";R$:(R$,1)"Y"ė:o "RUN MENU" S1670 36,20:"*";# S11 L40860A 36,L:"+";H KU S1860f 36,20:"*";o 860w ST J038 X(S)J830 "+"; KSTP1 X(K)X(S)810 SK 840 *K 4840 >"*"; HJ R"X";:87 L P1560 J1$ L13 CX(TL1)@ AX(TL)P CA0540_ X(TL1)Al X(TL)C LL1:LPJ490 &JJ1:JP480 0I12730 :L1 DS0 NK0P1 XX(TK)L690 bLX(TK) lL20660 vL20670 J0:J0J01YJ07204N1((Y(Y))12)12N@J0J01I280b::" 40N":"PR#0""CHANGE DATA AND RECOMPUTE? (1=YES, 0=NO)";ZZ120"RUNMENU" Z(K(N2))) J? T"INTERPOLATION (ENTER 0 TO END PROGRAM)"M ^"X = ";XZ rX0410n |"Y = "(A)XBt } 350 "RUNMENU" I2KJ)(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  7,2D,2D,2D,2D,2D,2D,2D,2D,2D,2D,2D,3EZ'3F,3F,3F,3F,3F,3F,3F,3F,3F,3F,37,2D,2D,2D,2D,2D'2D,2D,2D,2D,2D,2D,3E,3F,3F,3F,3F,3F,3F,3F,3F,3F'3F,37,2D,2D,2D,2D,2D,2D,2D,2D,2D,2D,2D,3E,3F,3F'3F,3F,3F,3F,3F,3F,3F,3F,07,00 F,3F,3F,3F,3F,3F,3F,3F,37,2DQt'2D,2D,2D,2D,2D,2D,2D,2D,2D,2D,3E,3F,3F,3F,3F,3F~'3F,3F,3F,3F,3F,37,2D,2D,2D,2D,2D,2D,2D,2D,2D,2D'2D,3E,3F,3F,3F,3F,3F,3F,3F,3F,3F,3F,37,2D,2D,2D'2D,2D,2D,2D,2D,2D,2D,2D,3F,3F,3F,3F,3F,3F,3F,3F%'3F,3F,3F,3RIX INVERSION"UIX INVERSION" ,1)(NY))3 w - ROUND OFF TO NEAREST CENT, PRINT^ x"REGULAR PAYMENT = $";(R100.5)100 - PRINT BLANK LINE TO SEPARATE DATA FROM QUESTION - RESTART OR END PROGRAM "MORE DATA? (1=YES, 0=NO)"; X X120 "RUNMENU""PRINCIPAL"; <P0 F"ANNUAL INTEREST RATE";7 PIZ Z"NUMBER OF PAYMENTS PER YEAR"a dN l - CALCULATE AMOUNT OF REGULAR PAYMENT BY FORMULA m - INTEREST CONVERTED FROM PERCENT TO DECIMAN FOR CALCULATIONS nR((I100)PN)(11((I100)N" "REGULAR PAYMENT ON A LOAN"\ - ROUND OFF TO NEARES T CENT, PRINT b - STATEMENTS 30 TO 100 REQUEST USER INPUT"TERM IN YEARS, MONTHS";(Y0,M,- CALCULATE YEARS FROM YEARS AND MONTHS-Y(12Y0M)12 2   ))2)))! "GEOMETRIC MEAN = "M@ "GEOMETRIC DEVIATION = "RF N 40_ "RUN MENU" 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 9,0C,AD,36,3F,2D,36HB'1E,3F,E0,D8,24,24,24,DF,33,36,36,3E,D8,1E,3F,07}L'20,24,64,2D,15,06,00,24,24,24,24,3C,3F,3F,3F,3FV'3F,2D,2D,2D,2D,2D,2D,2D,2D,2D,2D,2D,3E,3F,3F,3F`'3F,3F,3F,3F,3F,3F,3F,37,2D,2D,2D,2D,2D,2D,2D,2Dj'2D,2D,2D,3E,3F,3F,352,0,73,0?' 22,64,2D,15,96,F2,3F,07,20,04,00,24,2D,2D,24,34t'36,36,FE,1B,24,24,24,D7,E3,3F,17,36,36,0E,2D,05$'20,00,2D,2D,4D,62,AD,F6,17,17,36,28,2D,D5,DB,C3.'18,08,18,24,24,24,DF,33,36,36,3E,D8,1E,3F,07,208'24,64,2D,15,06,00,2E,2D,AD,0B$(A$,1):9500Z#NND)d#19968I,N0n#IDx#232,01:233,78K}#JT#100g%D(B$):D0ıw&%B$"0"D00%B$"A"D10:%B$"B"D11D%B$"C"D12N%B$"D"D13X%B$"E"D14b%B$"F"D15l% '05,00,0C,00,17,00,2E,0,I1)75):Y1C((I1)76))0:X1,Y12;5X1,Y12:7UXX1:YY1:X,Y:FLAG0`J03C((I1)7J)0FLAGFLAG1JFLAG1X,Y I:""115,0:116,78#J12:(#I13102#A$<#B$(A$,1):9500F#ND16P#LAGFLAG1  K:TC((I1)7J)NX1C((I1)75):Y1C((I1)76):XX1:YY1W X,Y{*X2C((T1)75):Y2C((T1)76)4X2,Y2:FLAG12160>X16,Y13HX26,Y23RFLAG22160\X13,Y16fX23,Y26pJ,IzI1NC:X1C((264TY4TY1521500(@II1NCTJC((II1)75)TXC((II1)76)TY1630bTII:1640m^FLAG1sh:0:1:7I1NC:J03:C((I1)7J)02160FLAG0:C((I1)7J)12160K03:KJ2060 C((I1)7K)C((I1)7J)FC((C(J)1)75)01080!1500?$FLAG0:1600:FLAG11050i.C((C(J)1)75)TX:C((C(J)1)76)TY8I:C((K1)74)1:1010BTXC((K1)75):TYC((K1)76)A1(((1)3)30)30:A2(((1)3)30)30TXTXA1:TYTYA2TX4TXREST CENT,PRINT; "REGULAR DEPOSITS = $";(R100.5)100s - PRINT BLANK LINE TO SEPARATE DATA FROM QUESTIONy - RESTRT OR END PROGAM? USER INPUT REQUIRED "MORE DATA? (1=YES, 0=NO)"; X X120 "RUNMENU" OLATE YEARS FROM YEARS AND MONTHS3 iY(12Y0M)12` l - CALCULATE INTEREST RATE PER DEPOSIT; m - CONVERT FROM PERCENT TO DECIMAL nIIN100 w - CALCULATE AMOUNT OF REGULAR DEPOSIT BY FORMULA xRTI((I1)(NY)1) - ROUND OFF TO NEA "REGULAR DEPOSITS"O - STATEMENTS 30 TO 100 REQUEST USER INPUTq"TOTAL VALUE AFTER Y YEARS";x(T2"NOMINAL INTEREST RATE";<IF"NUMBER OF DEPOSITS PER YEAR";PNZ"NUMBER OF YEARS, MONTHS";dY0,M h - CALCU  ,S180 6S2100( @"RUNMENU"  R0 I1N P0& J110/ A,BO PPB(C(SAT)C(TSA))V J\ h RRPSt TT2S{ I "INTEGRAL = ";R  "CHANGE DATA AND RECOMPUTE?" "(0=NO,1=NEW INTEGRATION LIMITS, 2=NEW NO. OF INTERVALS)"; "S7,.13168864,.6305368,.11819453W < .74633191,.10193012,.83911697,.083276742,.91223443 F .062672048,.96397183,.04060143,.9931286,.017614007 P"INTEGRATION LIMITS (LOWER,UPPER)"; ZX,Y d"NUMBER OF INTERVALS"; nN xS(YX)N2 TXS*) "INTEGRATION: GAUSSIAN QUADRATURE"/~"HAVE YOU DEFINED YOUR FUNCTION IN LINE 30 (Y OR N)?";R$:R$"Y"Ā - ENTER FUNCTION HEE (DEFFNC(X)="FUNCTION")( .076526521,.15275339,.22778585,.14917299,.37370609 2 .14209611,.51086   16368,0KY196410-KY201190=KY198110}"RESET AND REBOOT DISK"::"TO PUT HIMEM BACK AT MAXIMUM"C(5)120:C(6)75K1NC:C((K1)74)0C((K1)75)01030K:1090I03:J(K1)7I:C(J)0108047:J02C(IJ)0:J:I.1000:2000J:21:"C-";NC;" H-";NHYNF1440jNC100:155"HIT 'D' TO DRAW THIS DIFFERENTLY""HIT 'I' FOR A NEW ISOMER (SAME FORMULA""HIT 'F' FOR A NEW FORMULA";KY(16384):KY128470)I "I ,EU0410$ 6K1EUO @X((1)NC)1:Y((1)NC)1:XY320o JI13:C((X1)7I)0350} TX1I:360 ^I:320 hI13:C((Y1)7I)0380 rY1I:390 |I:320 C((X1)7X1)Y:C((Y1)7Y1)X K I4(NC1)70NC7:C(I)0:I, C(0)2:C(7)1:NC23008 I3NCN X((1)(I1))1g C((X1)71)0250 C((I1)7)X:C((X1)71)I:290 C((X1)72)0270 C((I1)7)X:C((X1)72)I:290 C((X1)73)0290 C((I1)7)X:C((X1)73(2NC2))21 NF1::22:"C-";NC;"H-";NH:180k NC1NC16NH1NH2NC2((NH2)NH(NH2))175 "IMPROPER DATA!":"C MUST BE >=2 AND <16":"H MUST BE EVEN, >=0 AND <=2*C+2":150 :21:"C-";NC;" H-";NH EU(((2NC2)NH)2) IR A GIVEN MOLECULAR FORMULA"] 15:"ENTER A MOLECULAR FORMULA ":"IN THE FORM 'C,H',WHERE" "'C' IS THE NUMBER OF CARBON ATOMS IN THE MOLECULE.":"'H' IS THE NUMBER OF HYDROGEN ATOMS." NC,NH NF0 NC100160 NC((1)7)2:NH(VARIOUS POSSIBLE (BUT MOSTLY IMPROBABLE) MOLECULAR ARRANGEMENTS OF A GIVEN HYDROCARBON" 7:::12::"PLEASE WAIT - READING DATA": <8900 dC(110) n: x5:8);"APPLE CHEM II" }10:"THIS PROGRAMME WILL DRAW A MOLECULE FO% 11);"*****************"C11);"* *"a11);"* HYDROCARBON *"11);"* *"#11);"*****************"(:"R.S.MATTEWS...BYTE MARCH 1980"-:"MODIFIED FOR APPLESOFT BY P.JENNER."a 2:"DRAWS F RECIPE UNITS CALLED FOR";" R2 PPCUFR9 IT "NUMBER OF SERVINGS";[ Sa "TOTAL COST FOR 1 RECIPE = $";(P100.5)100 "CHANGE NUMBER OF SERVINGS (1=YES,0=NO)"; N N1170 "RUNMENU" " "RECIPE COST"8"NUMBER OF INGREDIENTS";?(NJ2I1Nc<"INGREDIENT ";I;":"F" COST FOR BULK UNIT IN STORE";PCZ" NUMBER OF UNITS IN BULK";dUn" NUMBER OF RECIPE UNITS PER BULK UNIT";xF " NUMBER O  00.5)100B - PRINT BLANK LINE TO SEPARATE DATA FROM QUESTIONH | - RESTART OR END PROGRAM? USER INPUT REQUIRED "MORE DATA? (1=YES,0=NO)"; X X120 "RUNMENU"OY0,M2 h - CALCULATE YEARS FROM YEARS AND MONTHSE iY(12Y0M)12q l - CALCULATE INTEREST RATE PER PERIOD; m - CONVERT FROM PERCENTTO DECIMAL nIIN100 w - CALCULATE FUTURE VALUE BY FORMULA xTP(1I)(NY) "FUTURE VALUE=$";(T1& "FUTURE VALUE OF AN INVESTMENT",] - STATEMENTS 30 TO 100 REQUEST USER INPUTx"INITIAL INVESTMENT";(P2"NOMINAL INTEREST RATE";<IF"NUMBER OF COMPOUNDING PERIODS PER YEAR";PNZ"NUMBER OF YEARS, MONTHS"; d  ҠŠƠӠ٠Ү$]<.]ԠĮҠҠӠ8]B]ĠΠLQZ#]ŠŠҠd#]Šԭn#]Šԭo#]]]]U]͠ٺΠǠҠ]Z]ΠϠŠŠƠΠϠƠ  )Ha(  ) oQ(#]ө2#]ŠԠ<#]ŠΠF#]ŠP#]Š!Mloa(  )Hva(  )Ha(  )Ha(M a()GYM[]ŠҠԩ'@p(ӠŠҠ)oM\Mq.?6@r`<()r$d6?e[p]ԭҩzM6d!e!oa() oQX]ԭҩbM6d!ed2eo\o \o\=d2eo\o \o\d2e?o\>o \o\d2eo\o \o\+o \o\o\o\0[ ]ŠӠUVW'A1200 &"RUNMENU" 2OR","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 Y";  A$(11)" " X( "X"Z  "1","2","3","4","5","6","7","8","9","+","+" "WOULD YOU LIKE ANOTHER PLOT?";R$:(R$,1)"Y"ĺ"RUN MENU" 20 R" 20 RXX1X2X3 Y(1)X2$ I1N@ Y(I)((Y(I)Y1)Y3.5)G IS I0Y2[ S0f J1Nw "Y(J)I320 ,SS1 6TJ @J JS0360 TA$((I)10); ^400 hS1390 rA$(T); |400 "*"; I XX1430 "NT"; dX1,X2,X3L n"Y-AXIS: LOWER ENDPOINT, UPPER ENDPOINT, INCREMENT";Z xY1,Y2,Y3l Y2(Y2Y1)Y3| Y239170 "Y-RANGE TOO LARGE" 110 "X-AXIS CROSSES Y-AXIS AT Y=";Y1 "Y-AXIS CROSSES X-AXIS AT X=";X1 ܦ "PLOT OF FUNCTIONS" k"HAVE YOU ENTERED THE FUNCTIONS ON LINES 221-229?";R$:(R$,1)"Y"ij|Y(9),A$(11)(I1112A$(I)<IF"NUMBER OF FUNCTIONS TO BE PLOTTED";PN Z"X-AXIS: LEFT ENDPOINT, RIGHT ENDPOINT, INCREME   q[h]ԠȩrM6_|UVW;@r a@*#rGY["@p(ӫʨٮϡզز)\|$@p(լҪ˥ŬٻԺޫ)\|[+o\o\o\o\*od2e\o\o\4o\l$m&nl!m#nA* fij'k ij'k fij'kij'k4 [Q]٠ЩUVW,Y[]٠ҩM6a()G!d.?)r.?(r.?$re`#"UVWdYnlmnlmnlmnlmn"lmn$ [ ]Ӡ Lf UVW' ij'k YA f l!m#n l$m&nf l$m&n l!m#nA fl!m#nl$m&nfCD$;"NOMON C,I,O"::d "MATHEMATICS CATEGORY PROGRAMS:"jvI120~(A$2I10ĺ" ";:70<" ";FI;". ";A$PIZ:"HIT ANY KEY TO CONTINUE THE LISTING";:A$:I2126 REES" I  60 3 "NO SOLUTION"9 A &60Q 0"RUNMENU" A220$ "ENTER SIDE, SIDE, SIDE";8 S(1),S(2),S(3)d A(1)(S(2)2S(3)2S(1)2)2S(2)S(3)v A(1)B(A(1)) 220  I13 A(I)0520 "SIDE ";I;" = ";(S(I)1000.5)1000 "OPPOSITE ANGLE = ";(A(I)C1000.5)1000;" DEG A(3),A(2),X(3)" A(3)A(3)C2 A(2)A(2)CG A(1)PA(2)A(3)P "160p ,"ENTER SIDE, SIDE, ANGLE"; 6S(1),S(2),A(1) ;A(1)A(1)C @TS(2)(A(1)) JS(1)T520 TS(3)S(3)Y ^S(1)T380 hY(S(1)2T2) rS(3)S(3)Y | 440( "ENTER SIDE, ANGLE, SIDE";< S(3),A(1),S(2)L A(1)A(1)Cz S(1)(S(3)2S(2)22S(3)S(2)(A(1))) A(2)(A(1))S(1)S(2) - ARCSIN FUNCTION A(2)A(A(2)) A(3)PA(1)A(2) 440 "ENTER ANGLE, ANGLE, SIDE"; TYPE BY NUMBER"; FX% PX65602 ZX5390? dX4300L nX3260Y xX2190z "ENTER ANGLE, SIDE, ANGLE"; A(1),S(3),A(2) A(1)A(1)C A(2)A(2)C A(3)PA(1)A(2) S(1)S(3)(A(1))(A(3)) S(2)S(3)(A(2))(A(3))SA(X)(X(XX1))4B(X)A(X)1.5708>936Y "PARTS OF A TRIANGLE"_nA(3),S(3)~(P3.1415927-C.01745329272"PROBLEM TYPES:":"1. ASA":"2. SAS":"3. AAS":"4. SSA":"5. SSS":"6. END PROGRAM": <"ENTER PROBLEM  OR END PROGRAM?/ "MORE DATA (1=YES, 0=NO)";6 XB X120S "RUN MENU" F LATING FOR THIS ITEM?% nY0160V w - CALCULATE DEPRECIATION AMOUNT BY FORMULAl xDPI(1I)(Y1) - ROUND OFF TO NEAREST CENT, PRINT "DEPRECIATION = $";(D100.5)100 - RETURN FOR NEXT YEAR NUMBER 90 - RESTART  "DEPRECIATION RATE" 7"ORIGINAL PRICE";>(PS2"RESALE PRICE";Z<ThF"YEARS";oPYZD100(1(TP)(1Y))d"DEPRECIATION RATE = ";(1000D.5)1000;"%"x"MORE DATA (1=YES, 0=NO)";XX120"RUN MENU"  F A LOAN","ANNUAL INTEREST RATE ON LOAN","MORT AMORT TABLE"A IEREST RATE","EARNED INTEREST TABLE", "DEPRECIATION RATE" "DEPRECIATION AMOUNT","SALVAGE VALUE","DISCOUNT COMMERCIAL PAPER","PRINCIPAL ON A LOAN","REGULAR PAYMENT ON A LOAN"; "LAST PAYMENT ON A LOAN","REMAINING BALANCE ON LOAN","TERM O d nA1ćA$:150" xI1A* A$1 IE :CD$;"RUN";A$ "FUTURE VALUE OF AN INVESTMENT","ANNUITY","REGULAR DEPOSITS","REGULAR WITHDRAWALS","INITIAL INVESTMENT"C "MIN INVEST FOR WITHDRAWALS","NOMINAL INTEREST RATE ","EFFECTIVE INTBCD$"": - CONTROL 'D'5CD$;"NOMON C,I,O"=:g "PROGRAMS IN THE BUSINESS CATEGORY:"myI120A$(I10ĺ" ";2I9ĺ" ";<I;". ";A$FIP:"WHICH PROGRAM WOULD YOU LIKE TO USE?";AZA(A)A1A205 = ";(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 "RUNMENU" DREE 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 CORRELATIONI)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)  OR END PROGRAM?/ "MORE DATA (1=YES, 0=NO)";6 XB X120R "RUNMENU" ULCULATING FOR THIS ITEM?% nY0160V w - CALCULATE DEPRECIATION AMOUNT BY FORMULAl xDPI(1I)(Y1) - ROUND OFF TO NEAREST CENT, PRINT "DEPRECIATION = $";(D100.5)100 - RETURN FOR NEXT YEAR NUMBER 90 - RESTART T "DEPRECIATION AMOUNT""9"ORIGINAL PRICE";@(PZ2"DEPRECIATION RATE";a<IE- CONVERT FROM PERCENT TO DECIMALFII100P"--(ENTER YEAR=0 WHEN NO MORE AMOUNTS DESIRED FOR THIS ITEM)--"Z"YEAR";dY m - THROUGH CA  z#???ɠȠ àԠؠΠŠ͠ƠΠ̠ŠǠ̠ҠӠ ҠӠ"ՠŠŠŠؠӠΧӠŠӠӠԧӠԭΠԧӠԭΠԠΠ ̠Ӻƭ̠ ̠ӺΠ ŠԠ ҠӠ ҠԠΠΠҠӠ ǠŠΠΠ ӠƠŠ ӠĠӠ ΠΠ ҠΠԠ ŠӠ ̠ΠΠ à έҭԠΠ ΠԠҠӠԠԠŠ ŠҠΠ! ̠ԠŠ" ̠Π ȠҠΠ ҠΠ ҠǠ ҠΠ έ٠ՠԠ Рˠ ؠΠ ؠΠ ΠŠàΠàΠ ԠΠҠ ̠Ԡ ԠԠΠΠҠΠ ĠԠŠ ŠԠŠ ̠Π ƭΠ̠ǠӠΠԠŠŠƠΠԠ ҠΠ!٠ƠŠˠ"ӠΠϠӠΠԠΠŠŠ Ԡ̠Ҡ ŠȠŠ̠ΠˠҠɭŠΠɭŠԠŠΠŠԠ!Ϡ 'ŠΠϠϠà̠ԠŠΠΠ٠ƠΠWHITNEY U TEST" "MEAN-VAR-ST DEVIATION","MULTIPLE LINEAR REGRESSION","NORMAL DISTRIBUTION","NTH ORDER REGRESSION","PERMUTATIONS AND COMBINATIONS","POISSON DISTRIBUTION" "STUDENT'S T-DISTRIBUTION","STUDENT'S T-DISTRIBUTION TEST" A5 d nA1ćA$:150$ xI1A, A$3 IG :CD$;"RUN";A$ "BINOMIAL DISTRIBUTION",CHI-SQUARE DISTRIBUTION",CHI-SQUARE TEST","EXPONENTIAL REGRESSION","F-DISTRIBUTION","GEOMETRIC MEAN" "GEOMETRIC REGRESSION","LINEAR REGRESSION","MANN-CE = $";(B0100.5)100 = - RESTART OR END PROGRAM^ "MORE DATA? (1=YES, 0=NO)";e Xq X120 "RUNMENU"  - CALCULATE INTEREST PAID WITH EACH PAYMENTN I1((B0IN)100.5)100 - CALCULATE AMOUNT AMORTIZED WITH EACH PAYMENT ARI1 - CALCULATE REMAINING BALANCE ON PRINCIPAL B0B0A J1 ROUND OFF, PRINT "REMAINING BALANO DECIMAL nII100R w - ENTER THE PAYMENT NUMBER WITHIN THE YEAR, I.E. N1<=N x"LAST PAYMENT MADE ( PAYMENT N0. , YEAR )"; N1,Y - INITIALIZE REMAINING BALANCE B0P - LOOP TO ACCUMULATE AMOUNT PAID SO FAR J11N(Y1)N10$ "REMAINING BALANCE ON A LOAN"*Z - STATEMENTS 30 TO 130 REQUEST USER INPUTr"REGULAR PAYMENT";y(R2"PRINCIPAL";<PF"NUMBER OF PAYMENTS PER YEAR";PNZ"ANNUAL INTEREST RATE";dI m - CONVERT FROM PERCENT T  "RUNMENU":$ "GREATEST COMMON DENOMINATOR"*L"(ENTER 0,0 TO END PROGRAM)"f("ENTER TWO NUMBERS";o2A,B|<A090FB090P190ZA(A)dB(B)nRAB(AB)xR0160ABBR110"G.C.D.=";B40  CD$"": - CONTROL 'D'5CD$;"NOMON C,I,O"=:i "PROGRAMS IN THE STATISTICS CATEGORY:"o{I117A$(I10ĺ" ";2I9ĺ" ";<I;". ";A$FIP:"WHICH PROGRAM WOULD YOU LIKE TO USE?";A ZA(A)A1A17(1=YES, 0=NO)!; X" X1203 "RUN MENU"LVAGE VALUE BY FORMULA, ROUND OFF, PRINT.p m - DEPRECIATION RATE CONVERTED TO DECIMAL FOR USE IN CALCULATIONS n"VALUE = $";(100P(1I100)Y.5)100 x - RETURN FOR NEXT YEAR NUMBER 80 - RESTART OR END PROGRAM? "MORE DATA 4 "SALVAGE VALUE"3"ORIGINAL PRICE";:(PT2"DEPRECIATION RATE";[<IF"--(ENTER YEARS=0 WHEN NO MORE VALUES DESIRED FOR THIS ITEM)--"P"YEARS";ZYc - CALCULATE ANOTHER SALVAGE VALUE?dY0140) l - CALCULATE SA.5)100? - PRINT BLANK LINE TO SEPARATE DATA FROM QUESTIONE y - RESTART OR END PROGRAM? USER INPUT REQUIRED "MORE DATA?(1=YES, 0=NO)"; X X120 "RUNMENU" TD MONTHS UY(12Y0M)129 Z"NOMINAL INTEREST RATE";@ dIl l - CALCULATE INTEREST RATE PER PERIOD; m - CONVERT FROM % TO DECIMAL nIIN100 xPT(1I)(NY) - ROUND OFF TO NEAREST CENT, PRINT "INITIAL INVESTMENT = $";(P100Ⱦ "INITIAL INVESTMENT"!Q - STATEMENTS 30 TO 100 REQUEST USER INPUTs"TOTAL VALUE AFTER Y YEARS";z(T2"NUMBER OF COMPOUNDING PERIODS PER YEAR";<NF"NUMBER OF YEARS, MONTHS";PY0,M T - CALCULATE YEARS FROM YEARS AN   )A$ J I # I1N. A$(I)5 I; C 40S "RUNMENU"NU "ALPHABETIZE":"(TO END PROGRAM ENTER 0)"R("NUMBER OF ITEMS";X-_2Nl<N0270xFA$(25)PI1NZ"ITEM ";I;dA$(I)nIxI1NJ1NIA$A$(J)B$A$(J1)A$B$190A$(J)B$ A$(J1 2350 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 "RUNMENU" 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 MATRIB0)100.5)100 5 - RESTART OR END PROGRAM?V "MORE DATA? (1=YES, 0=NO)";] Xi X120y "RUNMENU"LLIAREST CENT( I1((B0IN)100.5)100] - CALCULATE AMOUNT AMORTIZED WITH EACH PAYMENTh ARI1 - BALANCE REMAINING DECREASES WITH EACH PAYMENT B0B0A J1 - CALCULATE LAST PAYMENT, ROUND OFF, PRINT "LAST PAYMENT =$";((RAL INTEREST RATE"; dIH m - CONVERT ITERST FROM PERCENT TO DECIMALT nII100x x"NUMBER OF PAYMENTS PER YEAR"; N B0P - COMPUTE ALL PAYMENTS, BALANCES THROUGH LAST PAYMENT USING R J11NY - ROUND OFF INTEREST PAID TO NE{ "LAST PAYMENT ON A LOAN$T - STATEMENTS 30 TO 130 REQUEST USER INPUTl"REGULAR PAYMENT";s(R2"PRINCIPAL";<PF"TERM IN YEARS, MONTHS";PY0,MT - CALCULATE YEARS FROM YEARS AND MONTHSUY(12Y0M)12 Z"ANNU  "RUNMENU" C PADM60S3600) Z"RADIANS =";AC1 d50V "INPUT THE ANGLE IN RADIANS?";A\ } AAC:A(A360(A360))360 "DEGREES = ";(A) AA(A) "MINUTES = ";(A60) AA60(A60) "SECONDS = ";(A60100.5)100 50  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  4C2DY2) 620 170 Y1C(A)! Y2C(B)) C01 D0F I1(BA)X1.5S S1240 "VALUE OF F(X) AT INTERVAL ";I;" (X=";AIX1;")"; Y 250 YC(AIX1) I2(I2)280 CCY 290 DDY "I ,"INTEGRAL IS ";X13(Y1";R$:R$"Y"ĀO 2 - DEFINE YOUR FUNCTION HERE: FNC(X)=(YOUR FUNCTION IN X)z <"LOWER, UPPER LIMITS OF INTEGRATION"; FA,B P"INCREMENT OF X"; ZX1 _VR(BA)X1 dVR(VR)80 nS1150 x"FIRST. LAST VALUE OF F(X)"; Y1,Y2$ "INTEGRATION: SIMPSON'S RULE"*0T"SELECTION: 1 = KNOWN FORMULA"z" 2 = UNKNOWN FORMULA" " 3 = END PROGRAM"(S-S3ĺ"RUNMENU" /S1Ą"HAVE YOU DEFINED YOUR FUNCTION IN LINE 50 (Y OR N)?MK2)) 6 "COEFFICIENT OF CORRELATION = ";R2l :"HIT RETURN TO RETURN TO MENU";R$:"RUN MENU" Sn' "LINEAR CORRELATION COEFFICIENT"-F"NUMBER OF POINTS";M(NU2J0]<K0eFL0mPM0uZR0dI1Nn"X,Y OF POINT ";I;xX,YJJXKKYLLX2MMY2RRXYI R2(NRJK)((NLJ2)(NGRAMS"5200I;" TONS = ";R;" KILOGRAMS"9520JR(I32)59vI;" DEGREES FAHRENHEIT = "R;" CELSIUS"|100"RUNMENU" N";R;" LITERS" ^5206 hI;" QUARTS = ";R;" LITERS"? r520` |I;" GALLONS = ";R;" LITERS"i 520 I;" BUSHELS = ";R;" LITERS" 520 I;" PECKS = ";R;" LITERS" 520 I;" OUNCES = ";R;" GRAMS" 520I;" POUNDS = ";R;" KILOTERS" 520- I;" YARDS = ";R;" METERS"6 520Y I;" MILES = ";R;" KILOMETERS"b 520 I;" TSP. = ";R;" CUBIC CENTIMETERS" "520 ,I;" TBSP. = ";R;" CUBIC CENTIMETERS" 6520 @I;" CUPS = ";R;" LITERS" J520 TI;" PINTS = 40 N17100. "VALUE TO BE CONVERTED";5 IB RIC(N) N180,200,220,240,260,280,300,320,340,360,380,400,420,440,460,480,500 I;" INCHES = ";R;" CENTIMETERS" 520 I;" FEET = ";R;" CENTIMETERS" 520 I;" FEET = ";R;" ME(N117 2C(N) <Nq F 2.540,30.480,.3048,.914 4,1.609,4.929,14.788,.2366,. 4732 P .9463,3.785,35.24,8.809,28.3495,.4536,907.2,.6214 Z"(TO END PROGRAM ENTER 0)" d"WHICH CONVERSION DO YOU NEED"; nN xN05 LITERS":"9. PINTS TO LITERS":"10. QUARTS TO LITERS":"11. GALLONS TO LITERS":"12. BUSHELS TO LITERS" "13. PECKS TO LITERS":"14. OUNCES TO GRAMS":"15. POUNDS TO KILOGRAMS":"16. TONS TO KILOGRAMS":"17. FAHRENHEIT TO CELCIUS"  C(17)  :"ANGLO TO METRIC"::"1. INCHES TO CENTIMETERS":"2. FEET TO CENTIMETERS":"3. FEET TO METERS":"4. YARDS TO METERS":"5. MILES TO KILOMETERS" "6. TEASPOONS TO CUBIC CENTIMETERS"i "7. TABLESPOONS TO CUBIC CENTIMETERS":"8. CUPS TO      JIJ380 TYA(I,J)( ^K1R1C hA(I,K)A(I,K)YA(J,K)J rKQ |IX J^ i I1R "X";I;" = ";(A(I,R1)1000.5)1000 I ::40" CONSTANT "; A(J,I)# I* J5 J1R@ IJRS A(I,J)0230Z Iu "NO UNIQUE SOLUTION "~ 440 K1R1 XA(J,K) A(J,K)A(I,K) A(I,K)X K Y1A(J,J) "K1R1 ,A(J,K)YA(J,K) 6K @I1R "SIMULTANEOUS EQUATIONS"%2A(9,10)j("ENTER "0" TO END PROGRAM":"NUMBER OF EQUATIONS";q2R7R0ĺ"RUN MENU"<"COEFFICIENT MATRIX:"FJ1RP"EQUATION ";JZI1R1dIR1130n" COEFFICIENT ";I;x140 (1=YES, 0=NO)"; Z ( Z170F "NEW LINE (1=YES,0=NO)";M ZY Z120i "RUNMENU" Ok "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 ENU" SS 130L - COMPUTE INTEREST TO PROPER PROPORTIONS, ROUND OFF, PRINTr I((((I1000)100.5))100)1000 "ANNUAL INTEREST RATE = ";I100;"%"  - RESTART OR END PROGRAM "MORE DATA? (1=YES, 0=NO)"; X X120 ""RUNMAST RATE GUESSED=APPROXIMATE REG. PAYMENT7 R1R230E R1R210x - R1R, RATE MUST BE LOWER THAN LAST GUESS III3 - RETEST WITH NEW GUE(NY)))* - ROUND OFF TO NEAREST CNETB R1(R1100.5)100v - I3=NUMBER USED TO CLOSE IN ON INTEREST RATE I3(II2)2 - SAVE THIS GUESS I2I - COMPARE COMPUTED PAYMENT (R1) TO INPUT PAYMENT (R);) - IF THEY'RE EQUAL, L Z"NUMBER OF PAYMENTS PER YEAR";) dNb m - GUESS AN INTEREST RATE (10%) TO INITIATE TESTINGk nI10 w - I2*LAST GUESS OR ESTIMATE ( START WITH 0 ) xI20 - COMPUTE REGULAR PAYMENT USING GUESSED INTEREST RATE R1(IPN)(11((IN1)' "ANNUAL INTEREST RATE ON A LOAN"-] - STATEMENTS 30 TO 100 REQUEST USER INPUTu"REGULAR PAYMENT";|(R2"TERM IN YEARS, MONTHS";<Y0,M@ - CALCULATE YEARS FROM YEARS AND MONTHSAY(12Y0M)12F"PRINCIPAL";PP"      T"RUNMENU" )J29S K29R> L((1K)Z(13)1J)(KZ(23)J){ X.5(1L(.196854L(.115194L(.000344L.019527))))4 X(X10000.5)10000 290 LL(1.08L4R3 240 "T1310 ,X1X 6"RIGHT TAIL VALUE = "X @ J40! "STUDENT'S T-DISTRIBUTION"'T"(TO END PROGRAM ENTER A T-VALUE OF 0)"d("T-VALUE";k2Tx<T0340F"DEGREES OF FREEDOM";PDZX1dY1nTT2xT1170SYRDZT200SDRYZ1T (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 "RUN MENU" V 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   $";(T100.5)100K - PRINT BLANK LINE TO SEPARATE DATA FROM QUESTIONQ - RESTATE OR END PROGRAM? USER INPUT REQUIRED "MORE DATA? (1=YES, 0=NO)"; X X120 "RUN MENU" S"; dY0,M iYY0M12H l - CALCULATE INTEREST RATE PER DEPOSIT,p m - CONVERT FROM PERCENT TO DECIMAL~ nII100N w - CALCULATE FUTURE VALUE BY FORMULA xTR((1I)(NY)1)I - ROUND OFF TO NEAREST CENT, PRINT "FUTURE VALUE =3 "FUTURE VALUE OF REGULAR DEPOSITS (ANNUITY)"9i - STATEMENTS 30 TO 100 REQUEST USER INPUT"AMOUNT OF REGULAR DEPOSITS";(R2"NOMINAL INTEREST RATE";<IF"NUMBER OF DEPOSITS PER YEAR";PN Z"NUMBER OF YEARS, MONTH  (1)R(1)V(2)R(2))1 B(V(1)R(1)V(2)R(2))2k BB((V(1)R(1))2(R(1)1)(V(2)R(2))2(R(2)1))2y B(B.5)  "T-VALUE = "(A) "DEGREES OF FREEDOM = "B :"HIT RETURN TO RETURN TO MENU";R$:"RUN MENU" ))(R(I)1) I % T23402 T3380H ""VALUE OF MEAN";O ,Mk 6A(M(1)M)(R(1)V(1))x @BR(1)1 J420 TA(M(1)M(2))(1R(1)1R(2)) ^BR(1)R(2)2 hAA(((R(1)1)V(1)(R(2)1)V(2))B) r420 |A(M(1)M(2))(V ZT d nI1(T1)1* xV(I)05 D(I)0J "SAMPLE ";I;":"g " NUMBER OF ELEMENTS";q R(I) J1R(I) " ELEMENT "J; P(J,I) V(I)V(I)P(J,I) D(I)D(I)P(J,I)2 J M(I)V(I)R(I) V(I)(D(I)V(I)2R(I& "STUDENT'S T-DISTRIBUTION TEST",9P(10,2)R(V(2),R(2),M(2),D(2)h2"TEST 1: MEAN=X"<"TEST 2: MEAN=MEAN,STANDARD DEVIATION=STANDARD DEVIATION"F"TEST 3: MEAN=MEAN,STANDARD DEVIATION<>STANDARD DEVIATION" P"WHICH HYPOTHESIS";@"INTERPOLATION: (ENTER X=0 TO END PROGRAM)"< J"X = ";XI ^X0390[ h"Y = ";ABXa rj |330z "RUNMENU" )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   1) Y(N1)Y(1) A0% I1NI AA(X(I)X(I1))(Y(I)Y(I1))P Ib "AREA =";A2h p 40 "RUNMENU" 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( ATE"; F ZZ1WF! I' 5 Z(ZT)T "SYSTEM RELIABILITY = ";ZZ b 40r "RUNMENU" St "SYSTEM RELIABILITY"!A"(TO END PROGRAM ENTER 0)"a("OPERATING TIME IN HOURS";h2Tu<T0230F"NUMBER OF COMPONENTS";PNZZ0dI1Nn"COMPONENT ";Ix" AVERAGE WEAROUT TIME";W " AVERAGE FAILURE RXXR 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 :"HIT RETURN TO RETURN TO MENU";R$ "RUN MENU" XI1 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)  1S(1G)(Y11)C ," =";(S1100.5)100L 6260\ @"RUNMENU"(I)) TTL VV(I1)L% IE A6(2V(N1)T)(N)(N1)R G(A)1 "AVERAGE GROWTH RATE = "(G10000.5)100;"%" S(TNA(N1)2) "(ENTER 0 TO END PROGRAM)" "PROJECTED SALES FOR YEAR "; Y1 Y10320 "S]0 "AVERAGE GROWTH RATE, FUTURE PROJECTIONS"6AS(20)m("NUMBER OF YEARS FIGURES ESTABLISHED";t2N<I1NFI1100P"FIGURE: YEAR "I;Z110d" YEAR ";I;nS(I)xIT(S(1))V0I2N L(S  " "TAX DEPRECIATION SCHEDULE"(?"PURCHASE PRICE";F(V\2V(V100.5)100r<"SALVAGE VALUE";yFSPS(S100.5)100ZDVSd"LIFE IN YEARS";nYx"ENTER 1 FOR SUM OF DIGITS, 2 FOR DECLINING BALANCE";X XP"RUNMENU"R END PROGRAM"2216368,0U<(16384)127Ĺ16368,0:1360_F1340oP"RUNMENU" B(K1)DM60S3600)B(K1)901130;B(K1)01130IQ31250iB(K1)270(90B(K1))(1)Qs1260B(K1)90(90B(K1))(1)Q" DISTANCE (NEGATIVE IF RADIAL)";L(K1)L(K1)01300 (L(K1))(L(K11))1260D1)60M(M1)(S((M1M)60.5)s" ";D1;" ";M;" ";S;" R=";R(D);" A=";R(A1);" C=";R(C1);" T=";R(T)|250LQ0VB(K1)0`L(K1)0j"COURSE ";K1;":QUAD, DEG, MIN, SEC";tQ,D,M,S~Q01300FQ41130Q11130(180C)HDL(K1)%RL(K1)L(K1)@\A1C1803.1415927D2TfC12D(C2R)cpC180910tzTD(C2R)}920T999999.999B0B(K1)B(K11)B9180980B0180960AAA1990AAA1D1(C)M1(CE COURSES"; X X170+ A(A2)F "PR#";SL:" K 80N":p "TOTAL AREA IS ";R(A);" SQ. FT. ("; (A43560100000000.5)100000000;" ACRES)" :" 40N":"PR#0" 1310 C(B(K1)B(K11)) *C180830 4C(180C)>C B(K1)B(K1)360 &300, 0D1(B(K1))A :M1(B(K1)D1)60M DM(M1)c NS((M1M)60.5) XB1$;B2$;" ";D1;" ";M;" ";S;:36,20:R(L(K1));:36,40:R(L);",";R(D);:36,60:R(N);",";R(E) bL(K1)L1 lK1 v" 40N":"PR#0" "ANY MOR560 hB1$"." rB2$"E"0 |B(K1)180420B B(K1)90560N B1$"S"W 560c B1$"S"o B2$"." B(K1)270480 B(K1)180560 B2$"W" 560 B1$"." B2$"W" B(K1)360540 B(K1)270560 B1$"N" 560N";:36,60:"N,E"% 36,60:N;",";E2 K11K2? L1L(K1)P L(K1)0800a L(K1)0630x LL(K1)(B(K1)R) DL(K1)(B(K1)R) NNL EED "AAELND ,B1$"N" 6B2$"." @B(K1)90360 JB(K1)0560 TB2$"E" ^74532925199 <K2104 F"**NEXT SET OF COURSES**"A PK11K2K Z1100X dQ0120` nK1i xK10 "CHANGE COURSE NUMBER"; K1 K10180 1100 120 :"PR#";SL:" K 80N": "BEARING";:36,20:"DISTANCE";:36,40:"LAT,LO  "MAP CHECK""THIS PROGRAM REQUIRES THE USE OF AN 80 COLUMN PRINTER. DO YOU WISH TO CONTINUE?";R$:(R$,1)"Y"1360"PRINTER SLOT NUMBER?";SL:SL1SL7Ģ(37):868:26B(10),L(10)(R(X)(X1000.5)1000 2R.01   I)0220 A1 J1M(I)( AAJ/ J= M(I)(A)D Ip R(M(1)M(2)M(3)X(P)(NX)(1P)) "PROBABILITY OF "X" SUCCESSES IN "N" TRIALS = "R 50 "RUNMENU" 6 "BINOMIAL DISTRIBUTION"$.M(3)N("(TO END PROGRAM ENTER 0)"g2"NUMBER OF TRIALS";n<N{FN0270P"EXACT NUMBER OF SUCCESSES";ZXd"PROBABILITY OF SUCCESS";nPxM(1)NM(2)XM(3)NXI13 M( , ";M;" MONTHS" 5 - RESTART OR END PROGRAM?V "MORE DATA? (1=YES, 0=NO)";] Xi X120z "RUN MENU" MC m - INTEREST CONVERTED FROM PERCENT TO DECIMAL FOR CALCULATIONt nY((1(P(I100))(NR))((1I100N)N)) r - CALCULATE YEARS AND MONTHS FROM YEARS sM(Y12.5) tY0(M12) uMMY012 w - PRINT RESULTS x"TERM = ";Y0;" YEARS| "TERM OF A LOAN"M - STATEMENTS 30 TO 100 REQUEST USER INPUTe"REGULAR PAYMENT";l(R~2"PRINCIPAL";<PF"ANNUAL INTEREST RATE";PIZ"NUMBER OF PAYMENTS PER YEAR";dN l - CALCULATE TERM IN YEARS BY FORMULA; 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 :"HIT RETURN TO RETURN TO MENU";R$ "RUNMENU"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)0210I1FF1A$I! " (N120)1020 1000! X0$+ X0$;A A3N1(N110)10O A30760Y "-";c FFA3m FFA3w 1000 740 FFN1 FFN1 1000 X0$ X0$;" ";  ,"*****VOID*****" 570 "RUN MENU"  FF1ı N1(A1) N10490( A15001 510: 640K "DOLLARS ";X A1A1N1h A1.01600u A1550 " AND "; &A1A1100 0(A1.5);" CENTS" : D N X b l v120 N121730 FF(N120)1020 FF 36,60:"$";A" 36,60:"$";A( "> ,36,30:F$;" ";L$D 6R @A0770[ JA1Al TN1(A11E3){ ^N199770 hN10390 r640 |"THOUSAND "; A1A1N11E3 N1(A1100) N10440 640 "HUMDRED "; A1A1N1100F$"END"790) "LAST NAME OF PAYEE";1 L$I "AMOUNT OF CHECK";P Am "READY TO PRINT CHECK";u X$ D1(D10000) D2((DD110000)100) D3(D(D1100D2)100) FF27D1 1000 X0$ 36,60:X0$;" ";D2;" ";D3SEVENTY","EIGHTY","NINETY"Y F "JANUARY","FEBRUARY","MARCH","APRIL","MAY","JUNE","JULY" P "AUGUST","SUPTEMBER","OCTOBER","NOVEMBER","DECEMBER" Z"DATE (MMDDYY)"; dD n"-(TO END PROGRAM ENTER 'END')--" x"FIRST NAME OF PAYEE"; F$ # "CHECK WRITER"` "ONE","TWO","THREE","FOUR","FIVE","SIX","SEVEN","EIGHT","NINE"( "TEN","ELEVEN","TWELVE","THIRTEEN","FOURTEEN","FIFTEEN","SIXTEEN"2"SEVENTEEN","EIGHTEEN","NINETEEN","TWENTY","THIRTY","FORTY" <"FIFTY","SIXTY","      P"NUMBER OF INTERVALS";! ZN) dI07 nD(BA)ND xJABDR IIC(J)Y Ju I(I(C(A)C(B))2)D "INTEGRAL = ";I 50 "RUNMENU"I& "INTEGRATION: TRAPEZOIDAL RULE",{"HAVE YOU DEFINED YOUR FUNCTION IN LINE 30 (Y OR N)?";R$:R$"Y"Ā DEFINE FUNCTION HERE("(ENTER 0,0 TO END PROGRAM)"2"INTEGRATION LIMITS (LOWER, UPPER)";<A,BFAB190B(K,J) TK ^S;" ";! hJ' r. |IW :"HIT RETURN TO RETURN TO MENU";R$g "RUNMENU"E1R1 "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)h "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   180 L1 M1# VV2/ MMWVC M.0000001250M LLMV 200v "TAIL END VALUE = "1JKL "PERCENTILE = "JKL  40 "RUNMENU" 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)  PN ZI1N dA,B5 nZZA(IR)B(IR)< xIO "F(";R;")=";ZU [ c Z0k 50{ "RUNMENU" )} "TRIG POLYNOMIAL"m"HAVE YOU ENTERED THE NECESSARY DATA ON LINE 30 (Y OR N)?";R$:R$"Y"Ās - ENTER NUMBER OF PAIRS OF TERMS AND COEFFICIENTS HERE("(ENTER ANGLE=99999 TO END PROGRAM)"2"ANGLE";<R FR99999180,(V10000.5)10000,((V)10000.5)100001 TO ^"MORE DATA(1=YES,0=NO)";V hSb rS120r |"RUNMENU" 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)10000t+ "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  )C Y(V1(X)P)2P! ZZY\ " ";V1(X),(P10000.5)10000,(Y10000.5)10000c Jj Ip  "CHI-SQUARE = ";Z "DEGREES OF FREEDOM = ";(C1)(R1) :"HIT RETURN TO RETURN TO MENU";R$:"RUN MENU" RI1R 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"OBSER","EXPECT","CHI^2" TI1C ^" COLUMN ";I hJ1R rPA(J)V2(I)L |XI(J1 "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   3104 J(X(1)X(2)Y(1)Y(2)Z(1)Z(2))M(1)M(2)B J0300K J90T "310j ,J((1J2)J)S 6"ANGLE BETWEEN VECTORS: ";J @ J"MORE DATA? (1=YES, 0=NO)"; TZ ^Z120 h"RUNMENU"A"VECTOR ";I;":"' "MAGNITUDE: "M(I)6 S57.29578F JX(I)M(I)i "ANGLE WITH X-AXIS: ";A(J)Sy 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 M(2)0#A(X)(X(XX1))1.5708B "ANALYSIS OF TWO VECTORS"[X(2),Y(2),Z(2),M(2)a#y("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)0220 xM INVESTMENT = $";(100P.5)100Y - PRINT BLANK LINE TO SEPARATE DATA FROM QUESTION_ - RESTART OR END PROGRAM? USER INPUT REQUIRED "MORE DATA (1=YES,0=NO)"; X X120 "RUN MENU" R0,M1 h - CALCULATE YEARS FROM YEARS AND MONTHSD iY(12Y0M)12l m - CONVERT FROM PERCENT TO DECIMALx nII100 w - CALCULATE MINIMUM INVESTMENT BY FORMULA xPRNI(11((1IN)(NY))) - ROUND OFF TO NEAREST CENT, PRINT! "MINIMU+ "MINIMUM INVESTMENT FOR WITHDRAWALS"1a - STATEMENTS 30 TO 100 REQUEST USER INPUT"AMOUNT OF WITHDRAWALS";(R2"NOMINAL INTEREST RATE";<IF"NUMBER OF WITHDRAWALS PER YEAR";PNZ"NUMBER OF YEARS, MONTHS"; dY  " 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 |"RUNMENU"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 = ";  ,10:I1;:36,20:A;:36,30:B0;:36,40:I22 :J1C DC1NY600t N" LAST PAYMENT = $";((R100.5))100 XJ0X640 b" " gJ0A(J0):I3A(I3):A2A(A2) l"YR.";J0;:36,10:I3;:36,20:A2 v" " J0Y720 I30 A20 1 I1((B0IN)100.5)100+ C1C116 ARI1B A1A1AN B0PA1_ C1NY520j RRB0u AAB0 A1A1B0 B00 I2I2I1 I3I3I1 A2A2A &J0X570 +J1A(J1):I1A(I1):AA(A):B0A(B0):I2A(I2)* 0J1;:36M ^" PRINCIPAL $";P;" AT ";I100;"% FOR ";Y0;" YEARS ";M;" MONTHS"v h" REGULAR PAYMENT = $";R r" " |"NO.";:36,10:"INTEREST";:36,20:"AMORTIZED";:36,30:"BALANCE";:36,40:"ACCUM INTEREST" K7 KKN3 J11N:" K 80N" X(X) C10' I200 I309 J00B N1NK K66T B0P] A10f A20v (Y)1690 J01(Y) J0X410 "KN358400 ,K1K66 6 @K1 J" " T" MORTGAGE AMORTIZATION TABLE"AR PAYMENT"; (R1 2"TERM IN YEARS, MONTHS";; <Y0,MN AY(12Y0M)12` F"PRINCIPAL";g PP Z"ANNUAL INTEREST RATE"; dI nII100 x"NUMBER OF PAYMENTS PER YEAR"; N "START PRINTING WITH WHAT YEAR"; X :"PR#";SLA(ZZ)(ZZ100.5)100A "MORTGAGE AMORTIZATION TABLE"G"THIS PROGRAM REQUIRES AN 80 COLUMN PRINTER. DO YOU WISH TO CONTINUE";:R$:(R$,1)"Y"ĺ"RUN MENU""PRINTER SLOT?";SL:SL1SL7Ģ(37):868:27: "REGUL PLOT?";R$)B(R$,1)"Y"ĺ"RUN MENU"3L:40 AL:40 :KK11020"*";!J+"Y";1>I:II1G$"X"n8"WOULD YOU LIKE ANOTHER PLOT?";R$B(R$,1)"Y"ĺ"RUN MENU"L:40 A A"*";J"Y";I$"X"." 40N":"PR#0" 8"WOULD YOU LIKE ANOTHERP1870 *JLP1$ 4ZB210406 >Y(TJ)Z860H H36,Z1:"+";U RZY(TJ)\ \Jj fZ01040y pZB21040 z36,Z:"+"; 1040 STL J0B2 Y(S)J1010 "+"; KSTP1 Y(K)Y(S)990 SK 1020K30 bPP1 lL vP1730( J10 L1? DY(TL1)L BY(TL)Z DB710i Y(TL1)Bv Y(TL)D LL1:LPJ660 JJ1:JP650 L0P1 ZY(TL) Z0770 L:LL1 I0910 Z0800 "*"; L X(I1)A Y(I1)B% I:II12 J:JJ1: T1G P0N1Z X(P1)0490g P:PP1 I0((A2A1)A3.5) TTP P0 TN540 X(T)I590 I0570 &"*"; 01040 :SN1 D920 NLTN XX(L)X(T)6) Y(I)((Y(I)B1)B3.5)$ I: Y(N1)(B2.5)1X X(N1)((A2A1)A3.5)1^ " ,"INTERSECTION OF AXES AT (";A1;",";B1;")" 6 @J1N JI1NJ TAX(I) ^BY(I) hCX(I1) rDY(I1) |AC430 X(I)C Y(I)D E" n601 x"NUMBER OF POINTS TO BE PLOTTED";8 NF N01070U N99180l "TOO MANY POINTS"u 120 I1N I1220 "COORDINATES OF POINT ";I; 230 " POINT ";I; X(I),Y(I) X(I)((X(I)A1)A3.5 "COORDINATE PLOT"$7X(100),Y(100)q("X-AXIS: LEFT ENDPOINT, RIGHT ENDPOINT, INCREMENT";2A1,A2,A3<"Y-AXIS: LOWER ENDPOINT, UPPER ENDPOINT,INCREMENT";FB1,B2,B3PB2(B2B1)B3ZB240120 d"Y-RANGE TOO LARG     "A*B=";Y1Z2Z1Y2;",";Z1X2X1Z2;",";X1Y2Y1X2: x[ "MORE DATA? (1=YES, 0=NO)";b Xn X120~ "RUNMENU"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  2)X J* "DEPENDENT VARIABLE = "P0 9 710I *"RUNMENU"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 SOJ# "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   I))(X(J)X(I)) I% BBTY(J), JG " Y = ";BM x "MORE X ON THIS CURVE (1=YES, 0=NO)"; C C1100 "MORE X ON ANOTHER CURVE (1=YES, 0=NO)"; C "C120 ,"RUN MENU"" "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 = ";xAB0J1PT1I1PIJ190 TT(AX(  TIVE" -:10+ 2"DISK ENTRY PERMITTED"1 7C <D$;"CATALOG"I F K 1214,128$1010,10221011,213@1012,112JA$""VD$(4)fB$"SIGRID"l "ENTER PASSWORD ==> ";A$A$B$10214,01010,1911011,1571012,56:15:5 ("PASSWORD RECOGNITION POSI!!INAL INTEREST RATE = ";I2;"%"# C "MORE DATA: (1=YES,0=NO)";J XV X120f "RUNMENU",h- "NOMINAL INTEREST RATE ON INVESTMENTS"3E"PRINCIPAL";L(P`2"TOTAL VALUE";g<TF"NUMBER OF YEARS, MONTHS";PY0,MTYY0M12Z"NUMBER OF COMPOUNDING PERIODS PER YEAR";dNnI2N((TP)(1(NY))1)100 x"NOM! !  ^40 h"RUNMENU" MN7))7.5) N0180( "SATURDAY"1 340> N1210L "SUNDAY"U 340b N2240p "MONDAY"y 340 N3270 "TUESDAY" 340 N4300 "WEDNESDAY" "340 ,N5330 6"THURSDAY" @340 J"FRIDAY" T "DAY OF THE WEEK"B"(ENTER 0,0,0 TO END PROGRAM)"[("MONTH, DAY, YEAR";f2M,D,Yt<M0100FD0100PY0100Z360dM2130nMM12xYY1ND2M(.6(M1))Y(Y4)(Y100)(Y400)2 N((N7(!! ! ,"MATHEMATICS","STATISTICS","MISCELLANEOUS"I,  160 dD$(4):CNTRL D6gD$;"NOMON C,I,O">i:bn6:"CATEGORIES AVAILABLE ARE:"jx10uI14A$(I):I;". ";A$(I)I20"WHICH WOULD YOU LIKE? ";N(N)NN1N4160D$;"RUN";(A$(N),4)+ "BUSINESS""" OX99999290 X(XM)S8 R((X2)2)2.5066282746M "FREQUENCY = "RU ZXm T1(1.33267(X)) T.5(R(.4361836T(.1201676(T2)).937298(T3))) Z0260 T1T "PROBABILITY = "T  150 ""RUNMENU" MENU" "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 " "" VR1FF1 GH VR% & $0 ^ 0,31,59,90,120,151,181,212,243,273,304,3349 hFFMB m500I rAt |AAY365(Y4)D1(Y100)(Y400) (Y4)Y4410 450 Y400(Y400)430 Y100(Y100)440 M2450 AA1  "RUNMENU"  FF1ıNO)"; X X120! 460X M260,280,260,340,260,340,260,260,340,260,340,260k "UNREAL DATE"q  D31240 350 Y4(Y4)290 "Y400(Y400)320 ,Y100(Y100)310 6K28240 @D29240 J350 TD30240' "DAYS BETWEEN TWO DATES"%8"FIRST DATE";F(M1,D1,Y1Z2"SECOND DATE";h<M2,D2,Y2qFMM1zPDD1ZYY1d230nNAxMM2DD2YY2230NAN"DIFFERENCE = "N;" DAYS" "MORE DATA (1=YES,0="" " "