home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
ftp.whtech.com
/
ftp.whtech.com.tar
/
ftp.whtech.com
/
club100
/
bus
/
midas.ba
< prev
next >
Wrap
Text File
|
2006-10-19
|
796b
|
23 lines
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