10 LX = 500: LY = 250 20 XI = -1.5: XM = 1.5: YI = 1: YM = 1 25 IM = 200 30 CLS 40 INPUT "A,B ?"; A, B 50 X0 = (XM - XI) * RND(1) + XI: Y0 = (YM - YI) * RND(1) + YI: X = X0: Y = Y0 55 F = 0 60 FOR I = 1 TO IM 70 XX = (X * X - Y * Y) - A 80 Y = 2 * X * Y - B 90 X = XX 100 IF (X * X + Y * Y) > 4 THEN F = 1: I = IM 110 NEXT 120 IF F = 1 THEN 50 130 X = X0: Y = Y0 140 FOR I = 1 TO IM / 4 150 XP = LX * (X - XI) / (XM - XI): YP = LY * (Y - YI) / (YM - YI) 160 PSET (XP, YP) 170 PSET (LX - XP, LY - YP) 180 XX = (X * X - Y * Y) - A 190 Y = 2 * X * Y - B 200 X = XX 210 NEXT I 220 GOTO 50