LINE (126.4,70)-(55,130)
LINE (590,60)-(590,160)
LINE (126.4,70)-(590,70)
LINE (90.7,100)-(590,100)
LINE (55,130)-(590,130)
LINE (55,160)-(590,160)
LINE (63.9,122.5)-(63.9,160)
LINE (72.8,115)-(72.8,160)
LINE (81.8,107)-(81.8,160)
LINE (90.7,100)-(90.7,160)
LINE (99.6,92.5)-(99.6,160)
LINE (108.5,85)-(108.5,160)
LINE (117.5,78)-(117.5,160)
LINE (126.4,65)-(126.4,165)
LINE (162.1,165)-(162.1,65)
LINE (197.8,165)-(197.8,65)
LINE (233.5,165)-(233.5,65)
LINE (269.2,165)-(269.2,65)
LINE (304.9,165)-(304.9,65)
LINE (340.6,165)-(340.6,65)
LINE (376.3,165)-(376.3,65)
LINE (412,165)-(412,65)
LINE (447,165)-(447,65)
LINE (482.7,165)-(482.7,65)
LINE (518.4,160)-(518.4,65)
LINE (554.1,165)-(554.1,65)
FOR X=.01 TO 200 STEP 25
  A=X:B=200-X
  C=2:I=0 : L=200
  Z=1
 stufe:
  V=C/(1+(B/A))+1
  I=I+V
  K=.357*(X+I)+55
  A=A+V : B=B+C-V
  Y=160-(30*V)
  L=L+2:P=X+I
  PSET (K,Y)
  IF P>L THEN GOSUB alfa ELSE GOTO stufe
alfa:
NEXT X