10 CLS:DEFDBL A-Z
20 KEY OFF
30 PRINT "CONTINUOUS INTEREST COMPOUNDING"
40 PRINT :I=0 :N=0 :D=0
50 PRINT "ENTER THE ANNUAL INTEREST RATE";
60 PRINT " TO BE PAID ON THE ACCOUNT"
70 INPUT I
80 IF I<=0 THEN 50
90 PRINT "ENTER THE NUMBER OF YEARS AND FRACTIONS"
100 PRINT " OF YEARS THAT INTEREST WILL ACCRUE"
110 INPUT N
120 IF N<=0 THEN 90
130 PRINT "ENTER YOUR INITIAL DEPOSIT"
140 INPUT D
150 IF D<=0 THEN 130
160 PRINT
170 PRINT "WITH CONTINUOUS COMPOUNDING A DEPOSIT OF $"; D
180 PRINT "GROWS IN";N;"YEARS AT";I;"% TO";
190 PRINT USING "$$#,###,###,###,###.##"; D*EXP(I/100*N)
200 PRINT
210 PRINT "WOULD YOU LIKE TO RERUN PROGRAM USING NEW DATA (Y/N)?"
220 Z$=INKEY$:IF Z$="" THEN 220
230 IF Z$="Y" OR Z$="y" THEN 40
240 IF Z$<>"N" AND Z$<>"n" THEN 210
250 END