0 'Club 100 Library - 415/939-1246 BBS     937-5039 NEWSLETTER, 932-8856 VOICE
1 CLS'MIDAS' from PICO MAG. APRIL 1985    p.54
10 PRINT@120,"'MIDAS' Calculates worth of investments."
20 PRINTSTRING$(40,"$"):BEEP
30 GOSUB500
40 CLS:PRINT@40,;:INPUT"  How much to invest";INVEST
50 INPUT"  Annual interest % ";RATE
60 INPUT"  Term in years     ";YEARS
70 YIELD=1+(RATE/100)
75 CLS:PRINT
80 FOR TERM = 1 TO YEARS
90 INVEST=INVEST*YIELD
100 PRINT" Worth year "TERM;:PRINTUSING":$######.##";INVEST
105 IF TERM=5 OR TERM=10 OR TERM=15 THEN GOSUB500:CLS:PRINT
110 NEXT TERM
120 GOSUB 500:BEEP:CLS
130 PRINT@124,"DO AGAIN? Y / N"
140 Z$=INKEY$
150 IF Z$="Y"OR Z$="y"THEN RUN
155 IF Z$="N"OR Z$="n"THEN MENU
160 GOTO140
500 PRINT@294,"> > ENTER < <";:IF INKEY$=""THEN 500 ELSE RETURN