LINE (50,65)-(50,165)
LINE (120,65)-(120,165)
LINE (190,65)-(190,165)
LINE (260,65)-(260,165)
LINE (330,65)-(330,165)
LINE (400,65)-(400,165)
LINE (470,65)-(470,165)
LINE (540,65)-(540,165)
LINE (50,160)-(540,160)
LINE (50,130)-(540,130)
LINE (50,100)-(540,100)
LINE (50,70)-(540,70)
FOR X=.01 TO 200 STEP 25
  A=X
  B=200-X
  C=2
  I=0
  Z=1
  N=0
  L=200
 stufe:
  V=C/(1+(B/A))+1
  N=N+Z
  K=(.7*N)+50
  Y=160-(30*V)
  A=A+V
  B=B+C-V
  L=L+2
  I=I+V
  P=X+I
  PSET (K,Y)
  IF P>L THEN GOSUB alfa ELSE GOTO stufe
alfa:
NEXT X