LINE (600,20)-(600,190)
LINE (50,20)-(600,20)
LINE (50,20)-(50,190)
FOR X=.01 TO 200 STEP 25
  A=X
  B=200-X
  C=2
  L=200
  I=X
  N=0
  Z=1
 stufe:
  V=C/(1+(B/A))+1
  I=I+V
  K=(.355*I)+50
  L=L+C
  P=(.355*L)+50
  N=N+Z
  Y=(.25*N)+20
  A=A+V
  B=B+C-V
  PSET (P,Y)
  PSET (K,Y)
  IF K>P THEN GOSUB alfa ELSE GOTO stufe
alfa:
NEXT X