10 '*********************
20 'Future Value Program
30 '   by Dirk Tjossem
40 'copyright1982 Artsci
50 '*********************
60 CLS
70 LPRINT DATE$,TIME$
80 PRINT "**FUTURE VALUE**"
90 LPRINT:LPRINT "..FUTURE VALUE PROGRAM.."
100 LPRINT
110 FOR I=1 TO 1500: NEXT
120 CLS
130 WIDTH 40,8,1
140 PRINT: LPRINT
150 PRINT "Initial"
160 LPRINT "*Initial"
170 INPUT "Investment $",P
180 LPRINT " Investment $";P
190 CLS
200 PRINT
210 PRINT "Nominal Interest"
220 LPRINT "*Nominal Interest"
230 INPUT "Rate (%)? ",I
240 LPRINT " Rate ";I;"%"
250 CLS
260 PRINT
270 PRINT "No.Yrly Compounding"
280 LPRINT "*No.Yrly Compounding"
290 INPUT "Periods? ",N
300 LPRINT " Periods ";N
310 N=ABS(N)
320 CLS
330 PRINT
340 INPUT "No.of Years? ",Y
350 LPRINT "*No.of Years ";Y
360 Y=ABS(Y)
370 I=ABS(I/N/100)
380 T=P*(1+I)^(N*Y)
390 CLS
400 PRINT "Future Value="
410 LPRINT:LPRINT "**Future Value**"
420 T=INT(T*100+SGN(T)*.5)/100
430 PRINT USING "$##############,.##";T;
440 IF SGN(T)<0 THEN PRINT "-" ELSE PRINT
450 LPRINT USING "$##############,.##";T;
460 IF SGN(T)<0 THEN LPRINT "-" ELSE LPRINT
470 PRINT
480 PRINT "Do it again? ";
490 S$=INKEY$: IF S$="" GOTO 490
500 IF S$="Y" OR S$="y" GOTO 120
510 END