100 REM: ****************** INVEST ***********************
110 REM:
120 REM: BY BOB SCALF
130 REM:
140 PRINT "INVESTMENT AMOUNT";
150 INPUT P
160 PRINT "PERCENTAGE RATE";
170 INPUT I1
180 I1=I1/100
190 PRINT "FOR HOW MANY YEARS";
200 INPUT N
210 PRINT "COMPOUNDED HOW MANY TIMES PER YEAR";
220 INPUT X
230 PRINT
240 PRINT
250 PRINT
260 A$="YEAR     1ST QUARTER  2ND QUARTER  3RD QUARTER  4TH QUARTER"
270 PRINT A$
280 PRINT
290 E1=N*X
300 P(1)=P
310 FOR Y=1 TO N
320 IF Y=1 THEN 340
325 REM: FOLLOWING LINE GARBLED FROM ORIG AS P(1=P(X+1)
330 P(1)=P(X+1)
340 FOR I=2 TO X+1
350 P(I)=P(I-1)+P(I-1)*I1/X
360 NEXT I
370 B$=" ##       $#####.##    $#####.##    $#####.##    $#####.##"
380 PRINT USING B$;Y;P(2),P(3),P(4),P(5)
390 NEXT Y
400 END
$=" ##       $#####.##    $#####.##    $#####.##    $#####.##"
380 PRINT USING B$;Y;P(2),P(3),P(4),P(5)
390 NEXT Y
400