100 LET A$="$#########,.##"
120 CLS$ =CHR$(&H1A)
140 PRINT CLS$
160 FOR I=0 TO 8:PRINT:NEXT I
180 PRINT "                             IRA CALCULATOR"
200 PRINT "                                  by Dave Huntoon 2/86"
220 PRINT:PRINT:PRINT:INPUT"    Enter INITIAL Investment ==>> ";A#
240 INPUT"    Enter Interest rate (%)  ==>> ";B#
260 LET H#=B#/100:LET K#=B#
280 LET B#=(B#/100)+1
300 INPUT"    Enter Yearly investment amount ==>> ";C#
320 INPUT"    Number of Years until Retirement ==>> ";D
340 LET Y# = A# * B#^ D
360 FOR I=1 TO D
380 LET Z#=B#^I*C#
400 LET Y#=Y#+Z#
420 NEXT I
440 PRINT:PRINT"    Amount saved  ==>> ";:PRINT USING A$;Y#
460 PRINT:PRINT: INPUT "Again (Y/N) ==>> ";G$
480 IF G$="Y" OR G$="y" THEN GOTO 140
500 END