bwBASIC/BP100/DATEVAL.BAS

1 REM DATEVAL
5 CLEAR 1000
10 CLS:PRINT TAB(10); "DATED VALUE FOR OBLIGATIONS":PRINT
20 PRINT"THE MATURITY VALUE OF AN OBLIGATION ALONG WITH THE DATE
25 PRINT"OF MATURITY IS A DATED VALUE. AN EXAMPLE OF A DATED VALUE
30 PRINT"WOULD BE $750 DUE ON SEPTEMBER 13,1980. DIFFERENT SETS OF
35 PRINT"DATED VALUES MAY BE COMPARED BUT E.G. TO COMPARE $750 DUE ON
40 PRINT"9/13/80 WITH $900 DUE ON 9/13/82 WE MUST PICK SOME INTEREST
45 PRINT"RATE AND PERFORM SOME TYPE OF COMPOUND INTEREST ANALYSIS.
50 PRINT"IN THE PRESENT PROGRAM THIS IS DONE. WE ARE GIVEN A DATED
55 PRINT"VALUE MATURING SOME FIXED NUMBER OF YEARS IN THE FUTURE. WE
60 PRINT"ARE ALSO AN INTEREST RATE TO BE USED IN COMPARISON. WHAT THE
65 PRINT"PROGRAM THEN DOES IS FIND AN EQUIVALENT DEBT MATURING AT
70 PRINT"SOME OTHER FIXED TIME IN THE FUTURE."
90 PRINT:INPUT"PRESS ENTER TO BEGIN";Z9$
100 CLS
110 INPUT"ENTER INTEREST RATE(%) TO BE USED IN COMPUTATIONS";P:P=P/100
120 PRINT:PRINT"INPUT FOR GIVEN DATED VALUE"
125 PRINT TAB(10);"INPUT MATURITY VALUE ";:INPUT MV
130 PRINT TAB(10);"INPUT # OF YEARS INTO FUTURE FOR MATURITY";:INPUT NY
150 PRINT:PRINT
155 PRINT"INPUT # OF YEARS INTO FUTURE FOR MATURITY OF DATED VALUE FOR
160 PRINT"COMPARISON";:INPUT N
170 EDV=MV*(1+P)[(N-NY)
180 PRINT:PRINT MV;"DUE IN";NY;"YEARS IS EQUIVALENT TO";EDV;"DUE IN";N;"YEARS"
190 PRINT
200 INPUT"PRESS 1 TO KEEP SAME ORIGINAL DATED VALUE, 2 TO BEGIN OVER";Z9
205 PRINT
207 IF Z9 = -1 THEN END
210 IF Z9<>1  AND Z9<>2 THEN GOSUB 10000:PRINT:GOTO 200
220 IF Z9=2 THEN GOTO 100 ELSE GOTO 155
10000 PRINT"INPUT ERROR!TRY AGAIN":FOR I=1 TO 300:NEXT:RETURN