@L|}6CD l0C)HCC WhL/h `CmCDiD`  R@W1  Y0@R !L` D  C D     )16CS S)  C)D1 p p 0 C9DI pCDL~CiCDiD`QzABCDEANSA +'0@@ }@A0@@ @'@@'@@9 &&;@8,;@8,;@8,&&;@},;@,;@," ""( (((" ""#( (((;-@@ #-@'}(3-@77(; - ( (2.-@@.(GENERAL CATEGORIES :7F-@@"7-@@%}$@B(. F <.-@@.(ENTER YOUR CHOICE ?>0@@ @A-@0@ }B 6-@:,C?"@H) @I+-@1@5( ? @eFAN:@R&, ,-@1@7( } A @eHAR@K//&@HAAAAP AU ( Ad (}n } Ax @% D:MENU.MTH (}% D:MENU.STT, (}% D:MENU.FIN| ( A (} A } A% D:MENU.MSCT-@@5(INSERT DISKETTE 2 AND PRESSG-@@T('RETURN'&6-F: }Ad,&"@A0 AAdAU$QQ,}QQΠàӠ,99,,MATHEMATICS},STATISTICS,BUSINESS,MISCELLANEOUSD:MENUA +'0@@ 7 C U ALOOSERCI4SEARCZLD } # (}#0@@ @ &&;@8,;@8,;@8, AR@ 6}-@ "?-@?(% FINANCIAL ROUTINES (#$A*!" "-@@!(}2-@@3 6. "4B:,"@Q567@-@@> $>-@@> $ŠŠƠ@}ҠӠ>-@@> $--STATEMENTS 30 TO 100 REQUEST USER INPUTA}:-@@: AMOUNT OF REGULAR DEPOSITS (2:-@@ : NOMINAL INTREST RATE <B}F:-@@: NUMBER OF DEPOSITS PER YEAR PZ:-@@: NUMBER OF YEARS, MONTHS C} d h++CALCULATE YEARS FROM YEARS AND MONTHSi6-+@$%,'@l))CALCULATE INTEREST RATE PER DEPOSITD}m%%CONVERT FROM PERCENT TO DECIMALn6-''Aw''CALCULATE FUTURE VALUE BY FORMULAx''6-$++@%,#+$,&E}@,'&&ROUND OFF TO NEAREST CENT; PRINTG-@@G FUTURE VALUE = $P:$A%?P,'A11RF}ESTART OR END PROGRAM? USER INPU REQUESTED:-@@:  ENTER 1 TO RUN AGAIN, 2 TO EXIT,/-@ @ / G}OR 3 TO DISPLAY MENU.-@@"AdAfAh% + % D:MENU.FINH}D:PAGE3Y ' +'0@   SY' +'0@@ J}@ 0-@ @0 0-@ @0 ҠӠ0-@ @K}0 --STATEMENTS 30 TO 100 REQUEST USER INPUT9-@@9 TOTAL VALUE AFTER Y YEARSL} (29-@@ 9 NOMINAL INTEREST RATE <F9-@@9 NUMBER OF DEPOSITS PERM} YEAR PZ9-@@9 NUMBER OF YEARS, MONTHS d h++CALCULATE YEARS FROM YEARS AND MONTHSN}i6-+@$%,'@l))CALCULATE INTEREST RATE PER DEPOSITm%%CONVERT FROM PERCENT TO DECIMALn6-''AO}w44CALCULATE AMOUNT OF REGULAR DEPOSIT BY FORMULAx''6-$'++@%,#+$,&@,&&ROUND OFF TO NEAREST CENT; P}PRINTK-@@K REGULAR DEPOSITS = $P:$A%?P,'A22RESTART OR END PROGRAM? USER INPUT REQUQ}ESTED:-@@:  ENTER 1 TO RUN AGAIN, 2 TO EXIT,/-@ @ / OR 3 TO DISPLAY MENU.-@R}@"ArAtAv% + % D:MENU.FIND:PAGE5' +'0@@ a  S,Y' +'0@@ T}@ 8-@8  8-@@8 ҠӠ͠U}8-@@8 ΠԠ8-@@8 --STATEMENTSV} 30 TO 100 REQUEST USER INPUT7-@@7 INITIAL INVESTMENT (27-@@7 NOMINAL W}INTEREST RATE <F#-@@#  NUMBER OFH7-@@7 WITHDRAWALS PER YEAR PX}Z7-@@7 NUMBER OF YEARS, MONTHS d h++CALCULATE YEARS FRON YEARS AND MONTHSi6-+@$Y}%,'@l,,CALCULATE INTEREST RATE PER WITHDRAWALm%%CONVERT FROM PERCENT TO DECIMALn6-''Aw--CALCULATZ}E REGULAR WITHDRAWAL BY FORMULAx++6-$+'++@%,#+$,&@,%,&&ROUND OFF TO NEAREST CENT; PRINTT-@[}@T AMOUNT OF EACH WITHDRAWAL = $P:$A%?P,'A22RESTART OR END PROGRAM? USER INPUT REQUESTED:\}-@@:  ENTER 1 TO RUN AGAIN, 2 TO EXIT,/-@ @ / OR 3 TO DISPLAY MENU.-@@"]}AdAfAh% + % D:MENU.FIND:PAGE7' +'0@@ X  SY' +'0@@ _}@ 2-@ @2 2-@ @2 ̠Ԡ2-@  `}@2 --STATEMENTS 30 TO 100 REQUEST USER INPUT9-@@9 TOTAL VALUE AFTER Y a} YEARS (2#-@@#  NUMBER OF79-@@ 9 COMPOUNDING PERIODS PER YEAR <F9- b}@@9 NUMBER OF YEARS, MONTHS P T++CALCULATE YEARS FROM YEARS AND MONTHSU6-+@$%,' c}@Z9-@@9 NOMINAL INTEREST RATE dl((CALCULATE INTEREST RATE PER PERIODm%%CONVERT F d}ROM PERCENT TO DECIMALn6-''Ax6-'+@%,#+$,&&ROUND OFF TO NEAREST CENT; PRINTM-@@ e}M INITIAL INVESTMENT = $P:$A%?P,'A22RESTATR OR END PROGRAM? USER INPUT REQUESTED:-@@ f}:  ENTER 1 TO RUN AGAIN, 2 TO EXIT,/-@ @ / OR 3 TO DISPLAY MENU.-@@"Ad g}AfAh% + % D:MENU.FIND:PAGE9' +'0@@ K  SY' +'0@@ $i}@ 6-@6  6-@@6 ͠ԠҠ6-$j}@@6 Ӡ6-@@6 --STATEMENTS 30 TO 1$k}00 REQUEST USER INPUT5-@@5 AMOUNT OF WITHDRAWALS (25-@@ 5 NOMINAL INTEREST R$l}ATE <F<-@@< !NUMBER OF WITHDRAWALS PER YEAR PZ5-@@5 NUMBER OF YEARS,$m} MONTHS d h++CALCULATE YEARS FROM YEARS AND MONTHSi6-+@$%,'@m%%CONVERT FROM PERCENT TO DEC$n}IMALn6-'Aw--CALCULATE MINIMUM INVESTMENT BY FORMULAx556-$'$+@&@'++@%',#+$,,,&&$o}ROUND OFF TO NEAREST CENT; PRINTL-@@L MINIMUM INVESTMENT = P:A$%?P,'A22RESTART OR $p}END PROGRAM? USER INPUT REQUESTED:-@@:  ENTER 1 TO RUN AGAIN, 2 TO EXIT,/-@ @ / 0R 3 TO $q}DISPLAY MENU.-@@"AbAdAf% + % D:MENU.FIND:PAGE11$r}ISPLAY MENU.-@@"AbAdAf% + % D:MENU.FIND:PAGE11$  TgwIY' +'0@@ (t}@ 5-@5  5-@@5 ̠ԠŠ5-@(u}@5 ΠӠ5-@@5 --STATEMENTS 30 TO 100 (v}REQUEST USER INPUT--@@- PRINCIPAL (2--@@- TOTAL VALUE <F(w}5-@@5 NUMBER OF YEARS, MONTHS P T++CALCULATE YEARS FROM YEARS AND MONTHSU6-+@$%,'(x}@Z#-@@#  NUMBER OF_<-@@< !COMPOUNDING PERIODS PER YEAR dm22CALCULATE N(y}OMINAL IMTEREST BY FORMULA; PRINTn116-$++',#+@'+$,,&@,$Ax:-@@: NOMINAL INTEREST (z}RATE =  % 22RESTART OR END PROGRAM? USER INPUT REQUESTED9-@@9 ENTER 1 TO RUN AGAIN, 2 TO EXIT({}/-@ @ / OR 3 TO DISPLAY MENU.-@@"ARATAV% + % D(|}:MENU.FIND:PAGE13' +'0@@ (  AY' +'0@@ @ 7-@,~}@7  7-@@7 ŠԠŠ7-@@7,} ΠӠ7-@@7 ,,STATEMENTS 30 TO 80 REQUEST USER,} INPUT7-@@7 INITIAL INVESTMENT (27-@@7 TOTAL VALUE AFTER Y YEARS <,}F7-@@7 NUMBER OF YEARS, MONTHS P T++CALCULATE YEARS FROM YEARS AND MONTHSU6-+@,}$%,'@Y..CALCULATE EFFECTIVE INTEREST RATE; PRINTZ[-@@[ ANNUAL INTEREST RATE = ++',#+@,}',&@,$A % m22RESTART OR END PROGRAM? USER INPUT REQUESTEDn:-@@:  ENTER 1 TO RUN AGAIN,,} 2 TO EXIT,s/-@ @ / OR 3 TO DISPLAY MENU.x-@@"A2A4A6% ,}+ % D:MENU.FIND:PAGE15' +'0@@ @ 7-@,.45NLBIIIPJSPACFUNCTIOLNPJBWIP0} 0}' +'0@@ @ 5-@@5 5-@@0}5 ĠԠŠ5-@@5 --STATEMENTS 30 TO 230 REQUEST U0}SER INPUT5-@@5 PRINCIPAL (25-@@ 5 NOMINAL INTEREST RATE <0}E CONVERT PERCENT TO DECIMALF6-'AP#-@@#  NUMBER OFU;-@@;  DEPOSITS/WI0}THDRAWALS PER YEAR Zc//DON'T ASK FOR AMOUNT IF FREQUENCY IS ZEROd%"6-@% A`l..DEPOSI0}TS ARE ENTERED AS POSITIVE NUMBERSm11WITHDRAWALS ARE ENTERED AS NEGATIVE NUMBERSn5-@@5 AMOUNT OF EACH 0} x""INTEREST IS COMPOUNDED DAILY6-A`&&PRINT AT EACH DEPOSIT/WITHDRAWAL 6-6-0} A#-@@#  NUMBER OF;-@@;  COMPOUNDING PERIODS PER YEAR 60}-PRINT FOUR TIMES A YEAR6-@7-@%@7 START LISTING WITH YEAR 7-@0}%@7 END LISTING WITH YEAR  6-P:,INITIATE RUNNING TOTALS 6-6-6-0}6-"6-@f,6-@64-@@"4 PRESS ANY KEY TO CONTINUE.; A=A0}dAU@ (}B2-@@2 EFFECTIVE INTEREST RATE:D))6-A$++@%',#&@,F A 0}H(-@@ (  % PER YEAR.J1-@ @1 PRESS ANY KEY TO BEGIN.O AQAdAUT0} (}Y/-@ @/ EARNED INTEREST TABLE^?-@@? %_____________________________________`-@0}@ YEARa -@)@ ACCUM.b;-@@; !BALANCE INTEREST INTEREST-@0}P:, A-@@ 6-@6-@6-@6-@-@0}**DEPOSIT/WITHDRAW ANY MORE THIS YEAR?!A`&&TIME TO MAKE DEPOSIT/WITHDRAWAL?'!'A`0}CALCULATE NEW BALANCE 6-%%..COUNT DEPOSITS/WITHDRAWALS MADE PER YEAR&6-%@06-$+@%',9550}I1=AMOUNT INTEREST WITH EACH COMPOUNDING PERIOD: 6-&C00I3=AMOUNT ACCUMULATED BETWEEN EACH POSTINGD 6-%M++I20}=TOTAL INTEREST ACCUMULATED TO DATEN 6-%W$$ROUND AT INTEREST POSTING TIMEX'!'A@] 6-b A 0}g 6-l 6-q A v 6-{6-%@YEAR TO START LISTING? ATIME TO PRINT A L0}INE?' 'A6-%@ 6- A  6- 6- A  6- 6- A  6-0}-@%@ -@%@ -@(%@ 6-%@IIINTEREST POSTED- REI0}NITIALIZE INTEREST ACCUMULATED BETWEEN POSTINGS6- 6-**NO MORE LINES TO PRINT IN LAST YEAR?%'&0}@A START LISTING? A "A 6-@@"6 PRESS ANY KEY FOR NEX0}T YEAR. A4-@@"4 PRESS ANY KEY TO CONTINUE.  A!AdAU"P:,A0}#@ (}-@@@  ENTER 1 TO RUN AGAIN, 2 TO EXIT,$E-@ @/ OR 3 TO DISPLAY MENU.A-@@0}E%AAA&%' +(% D:MENU.FIN+CLEAR THE SCREEN,-@@0}  -?-@@"? % .-@@/A-@%@A % 0} 0 4 6-F:Ad,AUA0 A$&&THIS IS THE0} ROUND-OFF SUBROUTINE$$6-P:$A%?P,'A$D:PAGE170V  JY' +'0@@ @4} 1-@ @1 1-@ @1 ΠŠ1-@ @1 4}.-@@. ORIGINAL PRICE (2.-@@. RESALE PRICE <4}F:-@@: INTERIM PERIOD (YEARS,MONTHS) P T++CALCULATE YEARS FROM YEARS AND MONTHSV6-+@4}$%,'@Y33CALCULATE DEPRECIATION RATE BY FORMULA; PRINTZ++6-A$+@&+',#+@',,dQ-@4}@Q DEPRECIATION RATE = P:A$%?P,'A % w22RESTART OR END PROGRAM? USER INPUT REQUESTEDx:-4}@@:  ENTER 1 TO RUN AGAIN, 2 TO EXIT,|/-@ @ / OR 3 TO DISPLAY MENU.-@@"4}A4A6A8% + % D:MENU.FIND:PAGE22' +'0@@ @4V I' +'0@@ @8} 3-@@3 3-@@3 ΠԠ3-@@38} 0-@@0 ORIGINAL PRICE (20-@@0 DEPRECIATION RAT8}E <E%%CONVERT FROM PERCENT TO DECIMALF6-'AP9-@@9 DEPRECIATION FOR WHICH YEAR 8}dw..CALCULATE DEPRECIATION AMOUNT BY FORMULAx##6-$$+@&,#+&@,&&ROUND OFF TO NEAREST CENT; PRINT8}H-@@H DEPRECIATION = $P:A$%?P,'A=-@@= #PRESS 'RETURN' TO SEE ANOTH8}ER YEAR.:-@@:  ENTER 1 TO RUN AGAIN, 2 TO EXIT,/-@ @ / OR 3 TO DISPLAY MENU.-@8}@" ?6-F:Ad,AUA ApRESTART OR END PROGRAM?# A-@@"8}#AAA% + % D:MENU.FIN!!BLANK OUT THE PREVIOUS YEAR-@2@8}  ))ERASE THE BOTTOM HALF OF THE SCREEN-@@"  ?-@@? % 8} ?-@@? % ?-@@? % 8} ?-@@ ? % %%GO BACK AND ENTER THE NEXT YEAR 8}@D:PAGE23' +'0@@ @8 I' +'0@@ @<} --@@- --@@- ŠŠ--@@- <}0-@@0 ORIGINAL PRICE (20-@@0 DEPRECIATION RATE <F9<}-@@9 RESALE VALUE FOR WHICH YEAR Zl//CALCULATE SALVAGE VALUE BY FORMULA; PRINTmCCDEPRECIATION <}RATE CONVERTD TO DECIMAL FOR USE IN CALCULATIONSn^-@@^ RESALE VALUE = $P:A$$+@&'A,#<}%?P,'A=-@@= #PRESS 'RETURN' TO SEE ANOTHER YEAR.:-@@:  ENTER 1 TO RUN AGAIN,<} 2 TO EXIT,/-@ @ / OR 3 TO DISPLAY MENU.-@@" ?6-F:Ad,AUA<} ApRESTART OR END PROGRAM?# A-@@"#AAA% +<}% D:MENU.FIN-@2@  ))ERASE THE BOTTOM HALF OF THE SCREEN-@@"  <}?-@@? % ?-@@? % <}?-@@? % ?-@@ ? % <}%%GO BACK AND ENTER THE NEXT YEAR @pD:PAGE25' +'0@@ @<I8D' +'0@@ @ 9-@@@}9 9-@@9 Ԡ̠Ҡ9-@@9 @},,STATEMENTS 30 TO 90 REQUEST USER INPUT0-@@0 FUTURE VALUE (@}20-@@ 0 DISCOUNT RATE <E%%CONVERT FROM PERCENT TO DECIMALF6-'AP0-@@}@0 DAYS TO MATURITY ZcCALCULATE DISCOUNT; PRINTd6-$$'A`n(-@@(  DISCO@}UNT = $wCALCULATE COST; PRINTx*-@@*  COST = $&22RESTART OR END PROGRAM? USER INPUT REQUES@}TED:-@@:  ENTER 1 TO RUN AGAIN, 2 TO EXIT,/-@ @ / OR 3 TO DISPLAY MENU.-@@"@}AbAdAf% +% D:MENU.FIND:PAGE27@ 9-@@@f  JY' +'0@@ @D} 3-@@3 3-@@3 ̠ΠΠ3-@@D}3 --STATEMENTS 30 TO 100 REQUEST USER INPUT4-@@4 REGULAR PAYMENT D}(24-@@ 4 TERM IN YEARS, MONTHS < @++CALCULATE YEARS FROM YEARS AND MONTHSA6-+@D}$%,'@F4-@@4 ANNUAL INTEREST RATE PZ9-@@9 NUMBER OF PAYMENTS PER YD}EAR dl//CALCULATE AMOUNT OF PRINCIPAL BY FORMULA;mAAINTEREST CONVERTED FROM PERCENT TO DECIMAL FOR CALCULATIOND}SnGG6-$$+@&@'++'A,'%@,#+$,,'+'A,w&&ROUND OFF TO NEAREST CENT; PRINTxD-@D}@D  PRINCIPAL = $P:$A%?P,'A22RESTART OR END PROGRAM? USER INPUT REQUESTED:-@@D}:  ENTER 1 TO RUN AGAIN, 2 TO EXIT,/-@ @ / OR 3 TO DISPLAY MENU.-@@"ATD}AVAX% +% D:MENU.FIND:PAGE29' +'0@@ @DM  JY' +'0@@ @H} 9-@@9 9-@@9 ҠԠΠΠ9-@H}@9 --STATEMENTS 30 TP 100 REQUEST USER INPUT5-@@5 TERM INH} YEARS, MONTHS ( ,++CALCULATE YEARS FROM YEARS AND MONTHS-6-+@$%,'@25-@@ 5 H}PRINCIPAL <F5-@@5 ANNUAL INTEREST RATE PZ:-@@: NUMH}BER OF PAYMENTS PER YEAR dl55CALCULATE AMOUNT OF REGULAR PAYMENT BY FORMULA;mAAINTEREST CONVERTED FROM PERCENH}T TO DECIMAL FOR CALCULATIONSnII6-++'A,$','+@&@'++'A,'%@,#+$,,w&&ROUND OFF TO NEARH}EST CENT; PRINTxJ-@@J REGULAR PAYMENT = $P:$A%?P,'A22RESTART OR END PROGRAM? USER IH}NPUT REQUESTED:-@@:  ENTER 1 TO RUN AGAIN, 2 TO EXIT,/-@ @ / OR 3 TO DISPLAY MENU.-H}@@"ATAVAX% +% D:MENU.FIND:PAGE31 @HqqYBJI L}' +'0@@ @ 6-@@6 6-@@6 L}ԠԠΠΠ6-@@6 --STATEMENTS 30 TO 130 REQUEST USER INPUTL}/-@@/ REGULAR PAYMENT (2/-@@/ PRINCIPAL <F5-@@L}5 TERM IN YEARS, MONTHS P T++CALCUALTE YEARS FROM YEARS AND MONTHSU6-+@$%,'@Z5-@L}@5 ANNUAL INTEREST RATE dm..CONVERT INTEREST FROM PERCENT TO DECIMALn6-'Ax;-@L}@;  NUMBER OF PAYMENTS PER YEAR  6-99COMPUTE ALL PAYMENTS, BALANCES THROUGH LAST PAYMENTL}-@$--ROUND OFF INTEREST PAID TO NEAREST CENT**6-P:+$',$A%?P,'A22CALCULATE AMOUNT AML}ORTIZED WITH EACH PAYMENT 6-&33BALANCE REMAINING DECREASES WITH EACH PAYMENT 6-& ..CALCULATE LASTL} PAYMENT; ROUND OFF; PRINTK-@@K LAST PAYMENT = $P:+%,$A%?P,'A33RSESTART OR END PRL}OGRAM? USER INPUT REQUESTED:-@@:  ENTER 1 TO RUN AGAIN, 2 TO EXIT,/-@ @ / OR 3 TO DISPLAL}Y MENU.-@@"ADAFAH% +% D:MENU.FIND:PAGE33L} MENU.-@@"ADAFAH% +% D:MENU.FIND:PAGE33L_NBJI ' +'0P}@@ @ ;-@@; !;-@@; !ǠP}ŠΠΠ;-@@; !--STATEMENTS 30 TO 130 REQUEST USER INPUT/-P}@@/ REGULAR PAYMENT (2/-@@/ PRINCIPAL <F9-@@9P} NUMBER OF PAYMENTS PER YEAR PZ9-@@9 ANNUAL INTEREST RATE dm%%CONVERT FROM PP}ERCENT TO DECIMALn6-'Aw55ENTER THE TOTAL NUMBER OF PAYMENTS MADE TO DATEx=-@@= "NUMBER OF PAP}YMENTS MADE TO DATE ""INITIALIZE REMAINING BALANCE 6-++LOOP TO ACCUMULATE AMOUNT PAID SO FAR-P}@//CALCULATE INTEREST PAID WITH EACH PAYMENT**6-P:+$',$A%?P,'A22CALCULATE AMOUNT AMORTP}IZED WITH EACH PAYMENT 6-&..CALCULATE REMAINING BALANCE ON PRINCIPAL 6-& ROUND OFF AND PRINTP}K-@@K REMAINING BALANCE= $P:$A%?P,'ARESTART OR END PROGRAM?:-@@: P} ENTER 1 TO RUN AGAIN, 2 TO EXIT,/-@ @ / OR 3 TO DISPLAY MENU.-@@"A4AP}6A8% +% D:MENU.FIND:PAGE36 ' +'0PK  JfvY' +'0@@ @T} .-@@. .-@@. ͠ΠΠ.-@@. T}--STATEMENTS 30 TO 100 REQUEST USER INPUT.-@@. REGULAR PAYMENT (2.-@U}@ . PRINCIPAL <F3-@@3 ANNUAL INTEREST RATE PZ9-@@9 NU}UMBER OF PAYMENTS PER YEAR dl))CALCULATE TERM IN YEARS BY FORMULA;mAAINTEREST CONVERTED FROM PERCENT TO DECIMAU}L FOR CALCULATIONSnFF6-6+K:@&+$+'A,,'+$,,'+K:@%'A',$,,r++CALCULATE YEARS AND MONTHS FROMU} YEARSs6-P:$@%?P,t6-P:'@,u6-&$@wPRINT RESULTSx=-@@= TERM = U} YEARS,  MONTHSRESTART OR END PROGRAM?:-@@:  ENTER 1 TO RUN AGAIN, 2 TO EXIT,/-@ U}@ / OR 3 TO DISPLAY MENU.-@@"ATAVAX% +% D:U}MENU.FIND:PAGE38' +'0@@ @Tr\lYIRII Y}' +'0@@ @ 9-@@9 9-@@9 Y }̠ԠΠΠ9-@@9 --STATEMENTS 30 TO 100 REQUEST USEY }R INPUT4-@@4 REGULAR PAYMENT (24-@@ 4 TERM IN YEARS, MONTHS < Y }@++CALCULATE YEARS FROM YEARS AND MONTHSA6-+@$%,'@F4-@@4 PRINCIPAL Y }PZ9-@@9 NUMBER OF PAYMENTS PER YEAR dm88GUESS AN INTEREST RATE (10%) TO INITIALIZE TESTY }INGn6-@w..I2=LAST GUESS OR ESTIMATE (START WITH 0)x6-??COMPUTE REGULAR INTEREST RATE USING GUESY}SED INTEREST RATE776-+$','+@&@'++'%@,#+$,,,ROUND OFF TO NEAREST CENT$$6-P:$A%?Y}P,'A11I3=NUMBER USED TO CLOSE IN ON INTEREST RATE6-O:&,'@SAVE THIS GUESS 6-88COMPY}ARE COMPUTED PAYMENT (R1) TO INPUT PAYMENT (R)DDIF THEY'RE EQUAL, LAST RATE GUESSED= APPROXIMATE INTEREST RATE"Y}A0!A33FOR R1R, RATE MUST BE LOWER THAN LAST GUESS 6-&RETEST WITH NEW GUESS A0??COMPUTE INTEREST TY}O PROPER PROPORTIONS, ROUND , AND PRINT::6-++P:+$A,$A%?P,,'A'A,@-@@@ ANY}NUAL INTEREST RATE = $A %RESTART OR END PROGRAM?:-@@:  ENTER 1 TO RUN AGAIN, 2 TO EXIT, Y}/-@ @ / OR 3 TO DISPLAY MENU.-@@"AtAvAx% +Y}% D:MENU.FIND:PAGE41 X'*+YCIIJNBAAJISPACBWIP]} ' +]}'0@@ @ ;-@@; !;-@@; !]}ΠŠ;-@@; !--STATEMENTS 30 TO 150 REQUEST USER INPU]}T3-@@3 REGULAR PAYMENT (23-@@ 3 TERM IN YEARS, MONTHS < @++]}CALCULATE YEARS FROM YEARS AND MONTHSA6-+@$%,'@F3-@@3 PRINCIPAL P]}Z9-@@9 ANNUAL INTEREST RATE dm%%CONVERT FROM PERCENT TO DECIMALn6-'Ax9-@]}@9 NUMBER OF PAYMENTS PER YEAR 9-@@9 START LISTING WITH YEAR ..]}START LISTING AT THE BEGINNING OF A YEAR 6-P:,1-@@!1 PRESS ANY KEY TO BEGIN. AAd] }AU; (}-@; MORTGAGE AMORTIZATION TABLE?-@@? %_____________________________]!}________@-@@@ &INTEREST AMORTIZED BALANCE INTEREST;-@2@ ACCUM.2-@@; ]"}YEAR6-6-6-6- 6- 6-6-6-!!IS TE]#}RM LESS THAN ONE YEAR?P:,@Ap..ADJUST VARIABLES TO PRINT A PARTIAL YEAR$$6-++&P:,,$@,'@]$}$6-%@ A LOOP FOR EACH YEAR-@P:,START LISTING? A"-@]%}@ 6-@-@P:%?P,55CALCULATE INTEREST PAID THIS PAYMENT; ROUND OFF**6-P:+$]&}',$A%?P,'A**COUNT NUMBER OF PAYMENTS MADE SO FAR6-%@--CALCULATE AMOUNT AMORTIZED THIS]'} PAYMENT 6-&""SUM AMOUNT AMORTIZED TO DATE 6-%CALCULATE BALANCE DUE 6-&GGLAST PAYMENT? IF ](}YES, CALCULATE AMOUNT SO FAR SO THAT THE BALANCE))DUE EQUALS $0.00 AFTER THIS PAYMENTP:$%?P,A  6])}-% 6-% 6-%6-SUM INTEREST PAID TO DATE 6-%!!SUM INTEREST PAID THIS YEAR 6-]*}%$$SUN AMOUNT AMORTIZED THIS YEAR 6-%%<<STARTED LISTING? IF SO, PRINT COMPUTED VALUES IN TABLE& Ap]+}0K-@%@ /-@%@3 G-@"%@K 2-@2%@ 56-%@:],} C,,LAST PAYMENT? IF YES, ROUND OFF, PRINTDP:$%?P,ANK-@%@K LAST PAYMENT = $+P:]-}$A%?P,,'AW22STARTED LISTING? IF YES, PRINT YEARLY TOTALSX   l3-@%@ /-@].}%@3 COMPLETED TERM?A 6-@@"6 PRESS ANY KEY FOR NEXT YEAR. A]/}AdAUCLEAR THE SCREN-@@  ?-@@"? % ]0} -@@B-@%@B &  ##REINITIALIZE YEA]1}RLY VARIABLES6-6- ##NEED TO PRINT A PARTIAL YEAR?! 6-&@! Ab4-]2}@@"4 PRESS ANY KEY TO CONTINUE. AAdAU (}RESTART OR END PROGRAM?:-@]3}@:  ENTER 1 TO RUN AGAIN, 2 TO EXIT,/-@ @/ OR 3 TO DISPLAY MENU.-@@]4}ATAVAX% +% D:MENU.FINFFTHIS SUBROUTINE DETERMINES WHETHER OR NOT A KEY HAS]5} BEEN PRESSED6-F:Ad,AUA@ A$D:PAGE44\`) : XYNRUUWHER@@@ a7} ' +'0@@ @ 3-@@a8}3 3-@@3 έ٠ՠԠ3-@@3 a9}hhSET MAXIMUM SAMPLE SIZE TO X(m),Y(n) WHERE m=MAXIMUM SIZE OF SAMPLE 1, n=MAXIMUM SIZE OF SAMPLE 29a:}@%,9@%,(9@,1INPUT THE TWO SAMPLES2-@@<K9-@@%+&@,$+#@a;}&+%@,,K SAMPLE :FE9-@!@%+&@,$+#@&+%@,,E SIZE PU 68,-Za<}-@8,_F9-@(@%+&@,$+#@&+%@,,F  dR9-@@%+&@,$+#a=}@&+%@,,R DATA  ns 68,-} SORT EACH SAMPLE-@8,-@a>}8,& 6-8,6-8%@,8, 8%@,A68,-8%@,68%@,- a?} &&TRANSFER FIRST SAMPLE TO X ARRAY"@Ap-@8@,68,-8,  a@}ADD UP RANKS6-@"6-,6-66-%@@6-%@J!8@,ATaA}!8@,A ^8, 8,A h8, 8,Aq<<LINES 370 TO 570 HANDLE EQUAL SCORES FROM BOTH SAMPLESaB}r6-@| 6- 6-6-@$%@6-%@6-%@6-%@!8@aC},A8,8&@,A6-%@ A!8@,AP8,8&@,APaD}6-%@ 6-%6-%@6-%@ A@&6-%+&,$'06-%+&,$': AaE}0D!8@,A`N 6-%X6-%@b A@l 6-%v6-%@6-%@ AaF}0@@U1=NUMBER OF TIMES SAMPLE 1 SCORES PRECEDE SAMPLE 2 SCORESGG6-8@,$8@,%8@,$+8@,%@aG},'@&@@U2=NUMBER IF TIMES SAMPLE 2 SCORES PRECEDE SAMPLE 1 SCORESGG6-8@,$8@,%8@,$+8@aH},%@,'@&4-@@4 SAMPLE 1 PRECEDING, U = 4-@@4 SAMPLE 2 PRECEDING, U =aI} RESTART OR END PROGRAM?:-@@:  ENTER 1 TO RUN AGAIN, 2 TO EXIT,/-@ @ / OR 3 TO DaJ}ISPLAY MENU.-@@"A$A&A(% +% D:MENU.STT D:PaK}AGE118) : XYNRUUWHER@@@ `  mHY eM}' +'0@@ @ AI-@@( 1) POPULATION:-@@ I  2) SAMPLE eN}(-@@(  WHICH METHOD (-6-&@2I-@@%  1) GROUPED7-@@I  2) eO}UNGROUPED4+-@@+ WHICH DATA TYPE <>6-&@A (}B AF4-@@4 NeP}UMBER OF OBSERVATIONS PZ6-d6-n6-x"@A0FOR GROUPED DATAeQ}-@*-@)@ *  6-@@ 6 FREQUENCY OF ITEM   eR}ACCUMULATE ENTERED VALUES 6-%$11ACCUMULATE INTERMEDIATE VALUES FOR VARIANCE 6-%6-%$#@ eS}!!CALCULATE MEAN AND VARIANCE 6-'6-+&$#@,'+&, A FOR UNGROUPED DATA-@eT}#-@@ #  *-@@ * ITEM  ACCUMULATE ENTERED VALUES 6eU}-% 11ACCUMULATE INTERMEDIATE VALUES FOR VARIANCE6-%#@ !((CALCULATE MEAN AND VARIANCE; PRINT" 6eV}-',6-+&$#@,'+&,?PRINT RESULTS@#-@@# MEAN = E'-@@'  VARIANCE = eW}J4-@@4 STANDARD DEVIATION = M:,]RESTART OR END PROGRAM?^:-@@:  ENTER 1 TO RUN AeX}GAIN, 2 TO EXIT,c/-@ @ / OR 3 TO DISPLAY MENU.h-@@"mApAuAr%eY}w +|% D:MENU.STT2-@@2 2-@@2 eZ}Ŭ2-@@2 ĠΠ2-@@2 $&e[} D:PAGE121 d I(' +'0@@ @i]} <-@@< "<-@@< "àΠĠΠ<i^}-@@< "(6-@@6 NUMBER OF OBSERVATIONS 2ECOMi_}PUTE WHICH ROOT TO USEF6-@'P6-@Z-@_"-@@ "  d*-@@ i`}* ITEM  nwITERATIVELY COMPUT MEANx 6-$#00ACCUMULATE INTERMEDIATE TERM FOR DEVIATION6ia}-%K:,#@ COMPUTE DEVIATION::6-J:M:'+&@,&+'+&@,$+K:,,#@,,,--@@ib}- GEOMETRIC MEAN = 2-@@2 GEOMETRIC DEVIATION = RESTART OR END PROGRAM?:-@@ic}:  ENTER 1 TO RUN AGAIN, 2 TO EXIT,/-@ @ / OR 3 TO DISPLAY MENU.-@@"Aid}AA% +% D:MENU.STT D:PAGE124' +'0@@ @hN  JyM@' +'0@@ @mf} 5-@@5 5-@@5 ̠Π5-@@mg}5 9@,27-@@7 NUMBER OF TRIALS <P7-@mq}b MENU bMENU FINb$MENU STTb 3PAGE1 b >PAGE3 b IPAGE5 b SPAGE7 C^PAGE9 b ^PAGE9 b hPAGE11 b sPAGE13 b }PAGE15 b!PAGE17 bPAGE22 b PAGE23 b PAGE25 bPAGE27 b PAGE29 b PAGE31 b PAGE33 b PAGE36 b PAGE38 bPAGE41 bPAGE44 b6PAGE118 bLPAGE121 b \PAGE124 b ePAGE125 bxPAGE127 bPAGE128 b PAGE130 bPAGE133 b PAGE135 bPAGE137 b PAGE140 b PAGE143 bPAGE145 b!PAGE147 b PAGE151 b=PAGE154 bPPAGE156 bbPAGE162 bvPAGE165 bPAGE169 b PAGE184 bPAGE186 @ 7 EXACT NUMBER OF SUCCESSES Zd7-@@7 PROBABILITY OF SUCCESS nwCOMPUTEmr} THE FACTORIALSx68@,-68@,-68@,-&-@@8,"A ms}6-@-@8, 6-$ 68,-K:, 88USING THE COMPUTED FACTORIALS, COMPUTE PROBABILITmt}YEE6-J:8@,&8@,&8@,%$K:,%+&,$K:@&,,8-@@8 PROBABILITY OF  SUCCESSEmu}S.-@@. IN  TRIALS = RESTART OR END PROGRAM?:-@@:  ENTER 1 TO RUN AGAIN, 2mv} TO EXIT, /-@ @ / OR 3 TO DISPLAY MENU.-@@"AtAvAx% +mw}% D:MENU.STT D:PAGE125' +'0@@ @l3%0' +'0@@ @ 4-@@4 qy}4-@@4 ΠΠ4-@@4 (2qz}-@@2 CALCULATED FREQUENCY 2F2-@@ 2 TEST FREQUENCY PYCOMPUTE FAq{}CTORIALZ6-@d-@n 6-$x COMPUTE PROBABILITY 6-K:,6-J:6%$K:,&,(-@q|}@( PROBABILITY OF--@@-  OCCURRENCES = RESTART OR END PROGRAM?:-@@q}}:  ENTER 1 TO RUN AGAIN, 2 TO EXIT,/-@ @ / OR 3 TO DISPLAY MENU.-@@"Aq~}AA% +% D:MENU.STT D:PAGE127@ 4-@@4 pPY  WIPCLEA' +'0@u}@ @ 3-@@3 3-@@3 ̠Π3-u}@@3 '-@@'  1) STANDARD +-@@+ 2) NON-STANDARu}D#1-@ @1 WHICH VARIABLE TYPE 23CLEAR THE PAGE4-@@5:-@%@:u}  6 <%"@6-% APE::LINES 70 TO 110 REQUEST 'NON-STANDARD' VARu}IABLE DATAF0-@@0 MEAN PZ0-@@0 STANDARD DEVIATION du}-@@ X = ''ADJUST FOR NON-STANDARD VARIABLES6-O:+&,',&&COMPUTE FREQUENCY (Y COORDINAu}TE)1 A16-J:6+#@,'@,'@Pf(' A*-@@* MACHINE OVERFLOW Aa(u}-@@(  FREQUENCY =  6-44APPROXIMATE PROBABILITY (AREA UNDER THE CURVE)&&6-@'+@%?3&u}p$O:,,AA6-?P&$+?Ca`$&?g`$#@%?r$#@,##ADJUST FOR NEGATIVE VARIABLESu}A`6-@&*-@@* PROBABILITY = 9-@@9 PRESS 'RETURN' TO RUN AGAIN FORu}--@@- SAME VARIABLE TYPE. RESTART OR END PROGRAM?:-@@:  ENTER 1 TO RUN AGAIN, 2 TO u}EXIT,/-@ @ / OR 3 TO DISPLAY MENU.-@@" ?DDPEEK AT KEYBOARD TO SEE IF A K300 POSITIu}ON 18,22:PRINT " "6-F:Ad,AUA A"@A # A-@@u}"#"AAA$%& +(% D:MENU.STT*!!CLEAR THE PAGE TO RUN AGAIN,-@u}@"  .$-@"@$  0-@@2?-@%@? # u} 4 5AdAU6 AP@ D:PAGE128' +'0@tQ  [  ' +'0@y}@ @ 7-@@7 7-@@7 ɭŠy}7-@@7 (2-@@2 DEGREES OF FREEDOM 2F2-@y}@ 2 CHI-SQUARE PYR=THE DENOMINATOR PRODUCTZ6-@d-@6@n 6y}-$x K=THE NUMERATOR PRODUCT226-#+P:+%@,'@,,$J:6'@,'CCTHE PI FACTOR IS USED ONLY Wy}HEN THE DEGRES OF FREEDOM ARE ODD$$P:'@,"'@Ap6-M:@''@, A>>L (SUMMATy}ION FACTOR) CALCULATED IN LINES 170 THROUGH 2406-@6-@6-@6-%@ 6-$'y} CHECK FOR END OF SUMMATION <AP 6-% A9-@@9 TAIL END VALUE = @y}&$$--@@-  PERCENTILE = $$ RESTART OR END PROGRAM?:-@@:  ENTER 1 TO RUN AGy}AIN, 2 TO EXIT,/-@ @ / OR 3 TO DISPLAY MENU.-@@"AAA%y} + % D:MENU.STT" D:PAGE130 ' +'0@x9+, V1V2ABASPAUSWIPENSQUAR@@@}} @' +'0@}}@ @ /-@ @/ /-@ @/ ɭŠԠ/-@ @}}/ >>LIMIT SIZE OF CONTINGENCY TABLES TO V1(R*C), V2(C), A(R)%%WHERE R=NO. ROWS, C=NO. COL}}UMNS&&9@%,9@,9@,(.-@ @. NUMBER OF ROWS 2<.-@ @ . NUMB}}ER OF COLUMNS FP/-@ @/ --CONTINGENCY TABLE--Z-@d -@@ ROW n}}-@s!-@0@!  x--@@- ELEMENT  }68+&@,$%,-}}  ..ADD UP MARGINAL FREQUENCIES FOR EACH ROW6-6-@-@68,-}}-@68,-8,%8,6-%@ 6-%8,  6-$ 11ADD UP MARGINAL FREQUENCIES F}}OR EACH COLUMN-@68,- -"68,-8,%8,, 6 @6-E (}J=}}-@= #OBSERVED EXPECTED CHI-SQUAREO=-@@= #VALUE VALUE CONTRIBUTIONQB-}}@B (________________________________________T-@^#-@@# COLUMN h-@}}qP=EXPECTED CELL VALUEr6-8,$8,'w6-%+&@,$|@A}@A~%%6-}}+O:8,&,&?P,#@' A..Y=CHI-SQUARE CONTRIBUTION FROM THIS CELL6-+8,&,#@'Z=TOT}}AL CHI-SQUARE VALUE 6-%N-@%@ 8,2-@%@6 J-@&%@N  N }}-@@": PRESS ANY KEY TO CONTINUE.D AN A@B-@@"8 PRESS ANY KEY FOR NEXT COLUMN.}}B ACLEAR THE SCREEN?-@@"? % -@@A-@}}%@A %    (})-@@)  CHI-SQUARE = G}}-@ @ G DEGREES OF FREEDOM = +&@,$+&@,RESTART OR END PROGRAM?:-@@:  ENT}}ER 1 TO RUN AGAIN, 2 TO EXIT,/-@ @ / OR 3 TO DISPLAY MENU.-@@"AtAv}}Ax% +% D:MENU.STTFFTHIS SUBROUTINE DETERMINES WHETHER OR NOT A KEY HAS BEEN PRESSED}}6-F:Ad,AUA@ AAdAU&$0 D:PAGE133|g  [<M ' +'0@}@ @ 8-@@8 8-@@8 ԧӠɁ}Π8-@@8 (0-@@0 t-VALUE 2F0-@}@ 0 DEGREES OF FREEDOM PZ6-@d6-@n6-#@w..COMPUTE USING INVERSE FOR }SMALL t-VALUESx @Ap 6- 6- 6- A 6- 6-6-@'6-@}'@ '6-@'@ '**COMPUTE USING APPROXIMATION FORMULASOO6-O:+@&,$#+@'@,&@}%,'M:$#+@'@,%, @ApOO6-?P'+@%$+?hT%$+?Q%$+>D%$?',,},,#@$$6-P:$B%?P,'B A//6-$+@%?$#@'#@, A@!$$}ADJUST IF INVERSE WAS COMPUTED"@A,6-@&6/-@@/ RIGHT TAIL VALUE = ?RE}START OR END PROGRAM?@:-@@:  ENTER 1 TO RUN AGAIN, 2 TO EXIT,E/-@ @ / OR 3 TO DISPLAY MENU}.J-@@"LA4A6A8N%P +R% D:MENU.STTT D:PAGE135@y PVRMDWHER@@@@@ } ' +'0@@ @ A==LIMIT SAMPLE SIZE TO P(N,2) WHERE N=MAXIMUM} SAMPLE SIZE9@<@,(119@,9@,9@,9@,2%-@@%  1) MEAN = X<}<-@@ < "2) MEAN = MEAN, AND STD. DEVIATIONA+-@@+ IS STD. DEVIATIONF<-@@< }"3) MEAN = MEAN, BUT STD. DEVIATIONK/-@@/ IS NOT STD. DEVIATIONP--@@- WHICH HYPOTHESIS } Z\ (}^ Am22INPUT 1 OR 2 SAMPLES DEPENDING ON HYPOTHESISn$$-@N:&@,%@x68},-68,-?-@@? % $-@&@ $  } (-@@( SAMPLE  :0-@@ 0 NUMBER OF ELEMENTS  68,--@}8,%-@ @%  +-@@+ ELEMENT  68<,-ACCUMULATE SAM}PLES68,-8,%8<,68,-8,%8<,#@ !!COMPUTE INTERMEDIATE VALUES68,-8,'8,2268},-+8,&8,#@'8,,'+8,&@, "@A@"@A!,,INPUT GIVEN VALUE FOR FIR}ST HUPOTHESIS",-@@, VALUE OF MEAN ,5;;COMPUTE t AND DEGREES OF FREEDOM FOR FIRST HYPOTHESIS6}//6-+8@,&,$M:8@,'8@,,@6-8@,&@J A0S<<COMPUTE t AND DEGREES OF FREEDOM FO}R SECOND HYPOTHESISTHH6-+8@,&8@,,'M:@'8@,%@'8@,,^%%6-8@,%8@,&@}hPP6-'M:++8@,&@,$8@,%+8@,&@,$8@,,',r A0{;;COMPUTE t AND DEGREES O}F FREEDOM FOR THIRD HYPOTHESIS|NN6-+8@,&8@,,'M:8@,'8@,%8@,'8@,,==6-+8@},'8@,%8@,'8@,,#@}}6-'++8@,'8@,,#@'+8@,%@,%+8@,'8@},,#@'+8@,%@,,&@6-P:%?P,)-@@)  t-VALUE = O:,1-@@}1 DEGREES OF FREEDOM = RESTART OR END PROGRAM?:-@@:  ENTER 1 TO RUN AGAIN, 2 TO EXIT,/-@ }@ / OR 3 TO DISPLAY MENU.-@@"ApAuA% +% D}:MENU.STT=-@@= #=-@@= #ԧӠΠԅ}Ԡ=-@@= #$ D:PAGE137 a  ]DD ' +'0@}@ @ .-@@. .-@@. ƭΠ.-@}@. ('-@@'  F-VALUE 2F--@@- DEGREES OF FREEDOM:}K)-@@) NUMERATOR PZ)-@@) DENOMINATOR dn6-@w..COMPUTE U}SING INVERSE FOR SMALL F-VALUESx @Ap 6- 6- 6- A 6- 6-6-@}'6-@'@ '6-@'@ '**COMPUTE USING APPROXIMATION FORMULASOO6-O:+@&,$#+@}'@,&@%,'M:$#+@'@,%, @ApOO6-?P'+@%$+?hT%$+?Q%$+>}D%$?',,,,#@$$6-P:$B%?P,'B A//6-$+@%?$#@'#@,} A@!$$ADJUST IF INVERSE WAS COMPUTED"@A,6-@&67-@@7 PERCENTILE =} @&;/-@@/ TAIL END VALUE = ?RETSART OR END PROGRAM?@:-@@:  ENTER }1 TO RUN AGAIN, 2 TO EXIT,E0-@ @ 0 OR 3 TO DISPLAY AGAIN.J-@@"LA4A6A}8N%P +R% D:MENU.STTT D:PAGE140 ' +'0@E  \]nR ' +'0@}@ @ >-@@> $>-@@> $Ҡԍ}ΠԠ>-@@> $/-@@/ NUMBER OF POINTS } (26-<6-F6-P6-Z6-c&&ENTER COORDINATES OF DATA POINTSd}-@i$-@&@ $  n3-@@ 3 POINT  (X,Y) x $$ACCUMULAT}E INTERMEDIATE VALUES 6-% 6-%6-%#@6-%#@ 6-%$ ""CALCULATE COEFFICI}ENT; PRINT446-+$&$,'M:+$&#@,$+$&#@,,%-@@%  COEFFICIENT--@@- }OF CORRELATION = RETSART OR END PROGRAM?:-@@:  ENTER 1 TO RUN AGAIN, 2 TO EXIT,/-@ @ }/ OR 3 TO DISPLAY MENU.-@@"@Pr@01(iXp (xR!j*rro;-% 11ACCUMULATE INTERMEDIATE VALUES FOR VARIANCE6-%#@ !((CALCULATE MEAN AND VARIANCE; PRINT" 6eV}-',6-+&$#@,'+&,?PRINT RESULTS@#-@@# MEAN = E'-@@'  VARIANCE = eW}J4-@@4 STANDARD DEVIATION = M:,]RESTART OR END PROGRAM?^:-@@:  ENTER 1 TO RUN AeX}GAIN, 2 TO EXIT,c/-@ @ / OR 3 TO DISPLAY MENU.h-@@"mApAuAr%eY}w +|% D:MENU.STT2-@@2 2-@@2 eZ}Ŭ2-@@2 ĠΠ2-@@2 $&e[} D:PAGE121 d I(' +'0@@ @i]} <-@@< "<-@@< "àΠĠΠ<i^}-@@< "(6-@@6 NUMBER OF OBSERVATIONS 2ECOMi_}PUTE WHICH ROOT TO USEF6-@'P6-@Z-@_"-@@ "  d*-@@ i`}* ITEM  nwITERATIVELY COMPUT MEANx 6-$#00ACCUMULATE INTERMEDIATE TERM FOR DEVIATION6ia}-%K:,#@ COMPUTE DEVIATION::6-J:M:'+&@,&+'+&@,$+K:,,#@,,,--@@ib}- GEOMETRIC MEAN = 2-@@2 GEOMETRIC DEVIATION = RESTART OR END PROGRAM?:-@@ic}:  ENTER 1 TO RUN AGAIN, 2 TO EXIT,/-@ @ / OR 3 TO DISPLAY MENU.-@@"Aid}AA% +% D:MENU.STT D:PAGE124' +'0@@ @hN  JyM@' +'0@@ @mf} 5-@@5 5-@@5 ̠Π5-@@mg}5 9@,27-@@7 NUMBER OF TRIALS <P7-@mq}B MENU BMENU FINB$MENU STTB 3PAGE1 B >PAGE3 B IPAGE5 B SPAGE7 C^PAGE9 B ^PAGE9 B hPAGE11 B sPAGE13 B }PAGE15 B!PAGE17 BPAGE22 B PAGE23 B PAGE25 BPAGE27 B PAGE29 B PAGE31 B PAGE33 B PAGE36 B PAGE38 BPAGE41 BPAGE44 B6PAGE118 BLPAGE121 B \PAGE124 B ePAGE125 BxPAGE127 BPAGE128 B PAGE130 BPAGE133 B PAGE135 BPAGE137 B PAGE140 B PAGE143 BPAGE145 B!PAGE147 B PAGE151 B=PAGE154 BPPAGE156 BbPAGE162 BvPAGE165 BPAGE169 B PAGE184 BPAGE186 @ 7 EXACT NUMBER OF SUCCESSES Zd7-@@7 PROBABILITY OF SUCCESS nwCOMPUTEmr} THE FACTORIALSx68@,-68@,-68@,-&-@@8,"A ms}6-@-@8, 6-$ 68,-K:, 88USING THE COMPUTED FACTORIALS, COMPUTE PROBABILITmt}YEE6-J:8@,&8@,&8@,%$K:,%+&,$K:@&,,8-@@8 PROBABILITY OF  SUCCESSEmu}S.-@@. IN  TRIALS = RESTART OR END PROGRAM?:-@@:  ENTER 1 TO RUN AGAIN, 2mv} TO EXIT, /-@ @ / OR 3 TO DISPLAY MENU.-@@"AtAvAx% +mw}% D:MENU.STT D:PAGE125' +'0@@ @l3%0' +'0@@ @ 4-@@4 qy}4-@@4 ΠΠ4-@@4 (2qz}-@@2 CALCULATED FREQUENCY 2F2-@@ 2 TEST FREQUENCY PYCOMPUTE FAq{}CTORIALZ6-@d-@n 6-$x COMPUTE PROBABILITY 6-K:,6-J:6%$K:,&,(-@q|}@( PROBABILITY OF--@@-  OCCURRENCES = RESTART OR END PROGRAM?:-@@q}}:  ENTER 1 TO RUN AGAIN, 2 TO EXIT,/-@ @ / OR 3 TO DISPLAY MENU.-@@"Aq~}AA% +% D:MENU.STT D:PAGE127@ 4-@@4 pPY  WIPCLEA' +'0@u}@ @ 3-@@3 3-@@3 ̠Π3-u}@@3 '-@@'  1) STANDARD +-@@+ 2) NON-STANDARu}D#1-@ @1 WHICH VARIABLE TYPE 23CLEAR THE PAGE4-@@5:-@%@:u}  6 <%"@6-% APE::LINES 70 TO 110 REQUEST 'NON-STANDARD' VARu}IABLE DATAF0-@@0 MEAN PZ0-@@0 STANDARD DEVIATION du}-@@ X = ''ADJUST FOR NON-STANDARD VARIABLES6-O:+&,',&&COMPUTE FREQUENCY (Y COORDINAu}TE)1 A16-J:6+#@,'@,'@Pf(' A*-@@* MACHINE OVERFLOW Aa(u}-@@(  FREQUENCY =  6-44APPROXIMATE PROBABILITY (AREA UNDER THE CURVE)&&6-@'+@%?3&u}p$O:,,AA6-?P&$+?Ca`$&?g`$#@%?r$#@,##ADJUST FOR NEGATIVE VARIABLESu}A`6-@&*-@@* PROBABILITY = 9-@@9 PRESS 'RETURN' TO RUN AGAIN FORu}--@@- SAME VARIABLE TYPE. RESTART OR END PROGRAM?:-@@:  ENTER 1 TO RUN AGAIN, 2 TO u}EXIT,/-@ @ / OR 3 TO DISPLAY MENU.-@@" ?DDPEEK AT KEYBOARD TO SEE IF A K300 POSITIu}ON 18,22:PRINT " "6-F:Ad,AUA A"@A # A-@@u}"#"AAA$%& +(% D:MENU.STT*!!CLEAR THE PAGE TO RUN AGAIN,-@u}@"  .$-@"@$  0-@@2?-@%@? # u} 4 5AdAU6 AP@ D:PAGE128' +'0@tQ  [  ' +'0@y}@ @ 7-@@7 7-@@7 ɭŠy}7-@@7 (2-@@2 DEGREES OF FREEDOM 2F2-@y}@ 2 CHI-SQUARE PYR=THE DENOMINATOR PRODUCTZ6-@d-@6@n 6y}-$x K=THE NUMERATOR PRODUCT226-#+P:+%@,'@,,$J:6'@,'CCTHE PI FACTOR IS USED ONLY Wy}HEN THE DEGRES OF FREEDOM ARE ODD$$P:'@,"'@Ap6-M:@''@, A>>L (SUMMATy}ION FACTOR) CALCULATED IN LINES 170 THROUGH 2406-@6-@6-@6-%@ 6-$'y} CHECK FOR END OF SUMMATION <AP 6-% A9-@@9 TAIL END VALUE = @y}&$$--@@-  PERCENTILE = $$ RESTART OR END PROGRAM?:-@@:  ENTER 1 TO RUN AGy}AIN, 2 TO EXIT,/-@ @ / OR 3 TO DISPLAY MENU.-@@"AAA%y} + % D:MENU.STT" D:PAGE130 ' +'0@x9+, V1V2ABASPAUSWIPENSQUAR@@@}} @' +'0@}}@ @ /-@ @/ /-@ @/ ɭŠԠ/-@ @}}/ >>LIMIT SIZE OF CONTINGENCY TABLES TO V1(R*C), V2(C), A(R)%%WHERE R=NO. ROWS, C=NO. COL}}UMNS&&9@%,9@,9@,(.-@ @. NUMBER OF ROWS 2<.-@ @ . NUMB}}ER OF COLUMNS FP/-@ @/ --CONTINGENCY TABLE--Z-@d -@@ ROW n}}-@s!-@0@!  x--@@- ELEMENT  }68+&@,$%,-}}  ..ADD UP MARGINAL FREQUENCIES FOR EACH ROW6-6-@-@68,-}}-@68,-8,%8,6-%@ 6-%8,  6-$ 11ADD UP MARGINAL FREQUENCIES F}}OR EACH COLUMN-@68,- -"68,-8,%8,, 6 @6-E (}J=}}-@= #OBSERVED EXPECTED CHI-SQUAREO=-@@= #VALUE VALUE CONTRIBUTIONQB-}}@B (________________________________________T-@^#-@@# COLUMN h-@}}qP=EXPECTED CELL VALUEr6-8,$8,'w6-%+&@,$|@A}@A~%%6-}}+O:8,&,&?P,#@' A..Y=CHI-SQUARE CONTRIBUTION FROM THIS CELL6-+8,&,#@'Z=TOT}}AL CHI-SQUARE VALUE 6-%N-@%@ 8,2-@%@6 J-@&%@N  N }}-@@": PRESS ANY KEY TO CONTINUE.D AN A@B-@@"8 PRESS ANY KEY FOR NEXT COLUMN.}}B ACLEAR THE SCREEN?-@@"? % -@@A-@}}%@A %    (})-@@)  CHI-SQUARE = G}}-@ @ G DEGREES OF FREEDOM = +&@,$+&@,RESTART OR END PROGRAM?:-@@:  ENT}}ER 1 TO RUN AGAIN, 2 TO EXIT,/-@ @ / OR 3 TO DISPLAY MENU.-@@"AtAv}}Ax% +% D:MENU.STTFFTHIS SUBROUTINE DETERMINES WHETHER OR NOT A KEY HAS BEEN PRESSED}}6-F:Ad,AUA@ AAdAU&$0 D:PAGE133|g  [<M ' +'0@}@ @ 8-@@8 8-@@8 ԧӠɁ}Π8-@@8 (0-@@0 t-VALUE 2F0-@}@ 0 DEGREES OF FREEDOM PZ6-@d6-@n6-#@w..COMPUTE USING INVERSE FOR }SMALL t-VALUESx @Ap 6- 6- 6- A 6- 6-6-@'6-@}'@ '6-@'@ '**COMPUTE USING APPROXIMATION FORMULASOO6-O:+@&,$#+@'@,&@},,#@$$6-P:$B%?P,'B A//6-$+@%?$#@'#@, A@!$$}ADJUST IF INVERSE WAS COMPUTED"@A,6-@&6/-@@/ RIGHT TAIL VALUE = ?RE}START OR END PROGRAM?@:-@@:  ENTER 1 TO RUN AGAIN, 2 TO EXIT,E/-@ @ / OR 3 TO DISPLAY MENU}.J-@@"LA4A6A8N%P +R% D:MENU.STTT D:PAGE135@y PVRMDWHER@@@@@ } ' +'0@@ @ A==LIMIT SAMPLE SIZE TO P(N,2) WHERE N=MAXIMUM} SAMPLE SIZE9@<@,(119@,9@,9@,9@,2%-@@%  1) MEAN = X<}<-@@ < "2) MEAN = MEAN, AND STD. DEVIATIONA+-@@+ IS STD. DEVIATIONF<-@@< }"3) MEAN = MEAN, BUT STD. DEVIATIONK/-@@/ IS NOT STD. DEVIATIONP--@@- WHICH HYPOTHESIS } Z\ (}^ Am22INPUT 1 OR 2 SAMPLES DEPENDING ON HYPOTHESISn$$-@N:&@,%@x68},-68,-?-@@? % $-@&@ $  } (-@@( SAMPLE  :0-@@ 0 NUMBER OF ELEMENTS  68,--@}8,%-@ @%  +-@@+ ELEMENT  68<,-ACCUMULATE SAM}PLES68,-8,%8<,68,-8,%8<,#@ !!COMPUTE INTERMEDIATE VALUES68,-8,'8,2268},-+8,&8,#@'8,,'+8,&@, "@A@"@A!,,INPUT GIVEN VALUE FOR FIR}ST HUPOTHESIS",-@@, VALUE OF MEAN ,5;;COMPUTE t AND DEGREES OF FREEDOM FOR FIRST HYPOTHESIS6}//6-+8@,&,$M:8@,'8@,,@6-8@,&@J A0S<<COMPUTE t AND DEGREES OF FREEDOM FO}R SECOND HYPOTHESISTHH6-+8@,&8@,,'M:@'8@,%@'8@,,^%%6-8@,%8@,&@}hPP6-'M:++8@,&@,$8@,%+8@,&@,$8@,,',r A0{;;COMPUTE t AND DEGREES O}F FREEDOM FOR THIRD HYPOTHESIS|NN6-+8@,&8@,,'M:8@,'8@,%8@,'8@,,==6-+8@},'8@,%8@,'8@,,#@}}6-'++8@,'8@,,#@'+8@,%@,%+8@,'8@},,#@'+8@,%@,,&@6-P:%?P,)-@@)  t-VALUE = O:,1-@@}1 DEGREES OF FREEDOM = RESTART OR END PROGRAM?:-@@:  ENTER 1 TO RUN AGAIN, 2 TO EXIT,/-@ }@ / OR 3 TO DISPLAY MENU.-@@"ApAuA% +% D}:MENU.STT=-@@= #=-@@= #ԧӠΠԅ}Ԡ=-@@= #$ D:PAGE137 a  ]DD ' +'0@}@ @ .-@@. .-@@. ƭΠ.-@}@. ('-@@'  F-VALUE 2F--@@- DEGREES OF FREEDOM:}K)-@@) NUMERATOR PZ)-@@) DENOMINATOR dn6-@w..COMPUTE U}SING INVERSE FOR SMALL F-VALUESx @Ap 6- 6- 6- A 6- 6-6-@}'6-@'@ '6-@'@ '**COMPUTE USING APPROXIMATION FORMULASOO6-O:+@&,$#+@}'@,&@%,'M:$#+@'@,%, @ApOO6-?P'+@%$+?hT%$+?Q%$+>}D%$?',,,,#@$$6-P:$B%?P,'B A//6-$+@%?$#@'#@,} A@!$$ADJUST IF INVERSE WAS COMPUTED"@A,6-@&67-@@7 PERCENTILE =} @&;/-@@/ TAIL END VALUE = ?RETSART OR END PROGRAM?@:-@@:  ENTER }1 TO RUN AGAIN, 2 TO EXIT,E0-@ @ 0 OR 3 TO DISPLAY AGAIN.J-@@"LA4A6A}8N%P +R% D:MENU.STTT D:PAGE140 ' +'0@E  \]nR ' +'0@}@ @ >-@@> $>-@@> $Ҡԍ}ΠԠ>-@@> $/-@@/ NUMBER OF POINTS } (26-<6-F6-P6-Z6-c&&ENTER COORDINATES OF DATA POINTSd}-@i$-@&@ $  n3-@@ 3 POINT  (X,Y) x $$ACCUMULAT}E INTERMEDIATE VALUES 6-% 6-%6-%#@6-%#@ 6-%$ ""CALCULATE COEFFICI}ENT; PRINT446-+$&$,'M:+$&#@,$+$&#@,,%-@@%  COEFFICIENT--@@- }OF CORRELATION = RETSART OR END PROGRAM?:-@@:  ENTER 1 TO RUN AGAIN, 2 TO EXIT,/-@ @ }/ OR 3 TO DISPLAY MENU.-@@"@Pr@01(iXp (xR!j*rro;-% 11ACCUMULATE INTERMEDIATE VALUES FOR VARIANCE6-%#@ !((CALCULATE MEAN AND VARIANCE; PRINT" 6eV}-',6-+&$#@,'+&,?PRINT RESULTS@#-@@# MEAN = E'-@@'  VARIANCE = eW}J4-@@4 STANDARD DEVIATION = M:,]RESTART OR END PROGRAM?^:-@@:  ENTER 1 TO RUN AeX}GAIN, 2 TO EXIT,c/-@ @ / OR 3 TO DISPLAY MENU.h-@@"mApAuAr%eY}w +|% D:MENU.STT2-@@2 2-@@2 eZ}Ŭ2-@@2 ĠΠ2-@@2 $&e[} D:PAGE121 d I(' +'0@@ @i]} <-@@< "<-@@< "àΠĠΠ<i^}-@@< "(6-@@6 NUMBER OF OBSERVATIONS 2ECOMi_}PUTE WHICH ROOT TO USEF6-@'P6-@Z-@_"-@@ "  d*-@@ i`}* ITEM  nwITERATIVELY COMPUT MEANx 6-$#00ACCUMULATE INTERMEDIATE TERM FOR DEVIATION6ia}-%K:,#@ COMPUTE DEVIATION::6-J:M:'+&@,&+'+&@,$+K:,,#@,,,--@@ib}- GEOMETRIC MEAN = 2-@@2 GEOMETRIC DEVIATION = RESTART OR END PROGRAM?:-@@ic}:  ENTER 1 TO RUN AGAIN, 2 TO EXIT,/-@ @ / OR 3 TO DISPLAY MENU.-@@"Aid}AA% +% D:MENU.STT D:PAGE124' +'0@@ @hN  JyM@' +'0@@ @mf} 5-@@5 5-@@5 ̠Π5-@@mg}5 9@,27-@@7 NUMBER OF TRIALS <P7-@mq}B MENU BMENU FINB$MENU STTB 3PAGE1 B >PAGE3 B IPAGE5 B SPAGE7 C^PAGE9 B ^PAGE9 B hPAGE11 B sPAGE13 B }PAGE15 B!PAGE17 BPAGE22 B PAGE23 B PAGE25 BPAGE27 B PAGE29 B PAGE31 B PAGE33 B PAGE36 B PAGE38 BPAGE41 BPAGE44 B6PAGE118 BLPAGE121 B \PAGE124 B ePAGE125 BxPAGE127 BPAGE128 B PAGE130 BPAGE133 B PAGE135 BPAGE137 B PAGE140 B PAGE143 BPAGE145 B!PAGE147 B PAGE151 B=PAGE154 BPPAGE156 BbPAGE162 BvPAGE165 BPAGE169 B PAGE184 BPAGE186 @ 7 EXACT NUMBER OF SUCCESSES Zd7-@@7 PROBABILITY OF SUCCESS nwCOMPUTEmr} THE FACTORIALSx68@,-68@,-68@,-&-@@8,"A ms}6-@-@8, 6-$ 68,-K:, 88USING THE COMPUTED FACTORIALS, COMPUTE PROBABILITmt}YEE6-J:8@,&8@,&8@,%$K:,%+&,$K:@&,,8-@@8 PROBABILITY OF  SUCCESSEmu}S.-@@. IN  TRIALS = RESTART OR END PROGRAM?:-@@:  ENTER 1 TO RUN AGAIN, 2mv} TO EXIT, /-@ @ / OR 3 TO DISPLAY MENU.-@@"AtAvAx% +mw}% D:MENU.STT D:PAGE125' +'0@@ @l3%0' +'0@@ @ 4-@@4 qy}4-@@4 ΠΠ4-@@4 (2qz}-@@2 CALCULATED FREQUENCY 2F2-@@ 2 TEST FREQUENCY PYCOMPUTE FAq{}CTORIALZ6-@d-@n 6-$x COMPUTE PROBABILITY 6-K:,6-J:6%$K:,&,(-@q|}@( PROBABILITY OF--@@-  OCCURRENCES = RESTART OR END PROGRAM?:-@@q}}:  ENTER 1 TO RUN AGAIN, 2 TO EXIT,/-@ @ / OR 3 TO DISPLAY MENU.-@@"Aq~}AA% +% D:MENU.STT D:PAGE127@ 4-@@4 pPY  WIPCLEA' +'0@u}@ @ 3-@@3 3-@@3 ̠Π3-u}@@3 '-@@'  1) STANDARD +-@@+ 2) NON-STANDARu}D#1-@ @1 WHICH VARIABLE TYPE 23CLEAR THE PAGE4-@@5:-@%@:u}  6 <%"@6-% APE::LINES 70 TO 110 REQUEST 'NON-STANDARD' VARu}IABLE DATAF0-@@0 MEAN PZ0-@@0 STANDARD DEVIATION du}-@@ X = ''ADJUST FOR NON-STANDARD VARIABLES6-O:+&,',&&COMPUTE FREQUENCY (Y COORDINAu}TE)1 A16-J:6+#@,'@,'@Pf(' A*-@@* MACHINE OVERFLOW Aa(u}-@@(  FREQUENCY =  6-44APPROXIMATE PROBABILITY (AREA UNDER THE CURVE)&&6-@'+@%?3&u}p$O:,,AA6-?P&$+?Ca`$&?g`$#@%?r$#@,##ADJUST FOR NEGATIVE VARIABLESu}A`6-@&*-@@* PROBABILITY = 9-@@9 PRESS 'RETURN' TO RUN AGAIN FORu}--@@- SAME VARIABLE TYPE. RESTART OR END PROGRAM?:-@@:  ENTER 1 TO RUN AGAIN, 2 TO u}EXIT,/-@ @ / OR 3 TO DISPLAY MENU.-@@" ?DDPEEK AT KEYBOARD TO SEE IF A K300 POSITIu}ON 18,22:PRINT " "6-F:Ad,AUA A"@A # A-@@u}"#"AAA$%& +(% D:MENU.STT*!!CLEAR THE PAGE TO RUN AGAIN,-@u}@"  .$-@"@$  0-@@2?-@%@? # u} 4 5AdAU6 AP@ D:PAGE128' +'0@tQ  [  ' +'0@y}@ @ 7-@@7 7-@@7 ɭŠy}7-@@7 (2-@@2 DEGREES OF FREEDOM 2F2-@y}@ 2 CHI-SQUARE PYR=THE DENOMINATOR PRODUCTZ6-@d-@6@n 6y}-$x K=THE NUMERATOR PRODUCT226-#+P:+%@,'@,,$J:6'@,'CCTHE PI FACTOR IS USED ONLY Wy}HEN THE DEGRES OF FREEDOM ARE ODD$$P:'@,"'@Ap6-M:@''@, A>>L (SUMMATy}ION FACTOR) CALCULATED IN LINES 170 THROUGH 2406-@6-@6-@6-%@ 6-$'y} CHECK FOR END OF SUMMATION <AP 6-% A9-@@9 TAIL END VALUE = @y}&$$--@@-  PERCENTILE = $$ RESTART OR END PROGRAM?:-@@:  ENTER 1 TO RUN AGy}AIN, 2 TO EXIT,/-@ @ / OR 3 TO DISPLAY MENU.-@@"AAA%y} + % D:MENU.STT" D:PAGE130 ' +'0@x9+, V1V2ABASPAUSWIPENSQUAR@@@}} @' +'0@}}@ @ /-@ @/ /-@ @/ ɭŠԠ/-@ @}}/ >>LIMIT SIZE OF CONTINGENCY TABLES TO V1(R*C), V2(C), A(R)%%WHERE R=NO. ROWS, C=NO. COL}}UMNS&&9@%,9@,9@,(.-@ @. NUMBER OF ROWS 2<.-@ @ . NUMB}}ER OF COLUMNS FP/-@ @/ --CONTINGENCY TABLE--Z-@d -@@ ROW n}}-@s!-@0@!  x--@@- ELEMENT  }68+&@,$%,-}}  ..ADD UP MARGINAL FREQUENCIES FOR EACH ROW6-6-@-@68,-}}-@68,-8,%8,6-%@ 6-%8,  6-$ 11ADD UP MARGINAL FREQUENCIES F}}OR EACH COLUMN-@68,- -"68,-8,%8,, 6 @6-E (}J=}}-@= #OBSERVED EXPECTED CHI-SQUAREO=-@@= #VALUE VALUE CONTRIBUTIONQB-}}@B (________________________________________T-@^#-@@# COLUMN h-@}}qP=EXPECTED CELL VALUEr6-8,$8,'w6-%+&@,$|@A}@A~%%6-}}+O:8,&,&?P,#@' A..Y=CHI-SQUARE CONTRIBUTION FROM THIS CELL6-+8,&,#@'Z=TOT}}%@A %    (})-@@)  CHI-SQUARE = G}}