100 REM VERHULST-DIAGRAMM
110 REM SIMULATION EINES WACHSTUMSPROZESSES
120 IF FLAG=0 THEN FLAG=1:LOAD "GRAPHTOOL.OBJ",8,1
130 INPUT "[147]WACHSTUMSRATE (MINIMUM) ? 0[157][157][157]";MI
140 INPUT "WACHSTUMSRATE (MAXIMUM) ? 4[157][157][157]";MA
150 SYS49152:SYS49158,1,0:REM GRAPHIK INITIALISIEREN
160 L=MA-MI
170 FOR X=0 TO 319
180 A=X*L/319+MI:XK=0.5
190 REM 50 ITERATIONEN AUSFUEHREN, OHNE ZU ZEICHNEN
200 REM (ZUM EINPENDELN DER WERTE)
210 FOR I=0 TO 50
220 XK=XK*A*(1-XK)
230 NEXT
240 REM 50 ITERATIONEN AUSFUEHREN UND ZEICHNEN
250 FOR I=0 TO 50
260 XK=XK*A*(1-XK)
270 SYS49167,X,199-INT(XK*200)
280 NEXT
290 NEXT
300 GETA$:IFA$=""THEN300
310 SYS49155