20 DIM Y$(72)
30 PRINT "P(0)="
40 INPUT P
50 PRINT "G="
60 INPUT G
70 PRINT "M="
80 INPUT M
83 PRINT "FUER WIEVIEL JAHRE MOECHTEST DU DAS WACHSTUM BERECHNET "
84 PRINT "HABEN?"
85 INPUT Z
86 FOR N=0 TO Z
90 P=(1+G)*P-M*P*P
91 PRINT INT(P+0.5);
95 FOR K=0 TO INT (P+0.5)-1
97 PRINT " ";
98 NEXT K
100 PRINT "*"
120 NEXT N
130 END