1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:

DEFDBL A-Z:
DEF SEG = 0: SCREEN 12
CLEAR , , 2000
a = 101
FOR d = 0 TO 400 STEP 2
vv = 30
b = a + vv
p = a * b
zz = 1
ga = INT((((vv / 2 - 1) ^ 2) * 2) / 4)
FOR y = ((a - b) / 2 + b) - 10 TO ((a - b) / 2 + b) + 10
zz = zz + 1
IF zz MOD 25 = 0 THEN
zz = 1
END IF

dt = (p - ((y - (d / 2 - 1)) * (d - 2) + ((y - (d / 2 - 1))) ^ 2)) * 2
dt = (dt - 2) / 2

LOCATE zz + 1, 1: PRINT "y="; y
LOCATE zz + 1, 10: PRINT "ga="; ga; " d-test="; dt
PRINT " "
PRINT " a="; a; " b="; b; "P="; a * b; "b-a= "; b - a; " Bingo (a+b)/2 ="; (a + b) / 2; "d="; d
NEXT
LOCATE 30, 1: INPUT ; a7
IF a7 = 1 THEN END
CLS

NEXT