'----------------------------------------
' by d2wap
'----------------------------------------
dim a, b, c, d, erg1, erg2, erg3, erg4, erg5, erg6, i
a = 0
b = 0
c = 0
d = 0
erg1 = 1
erg2 = 0
for a = 1 to 1000
a = a+1
erg1 = B+D
erg2 = 2*(A+C)
erg3 = B-A
erg4 = C+D
erg5 = A+C
erg6 = B-D
if erg1 = erg2 AND erg3 = erg4 AND erg5 = erg6 then
msgbox "A: " & a & vbnewline & "B: " & b & vbnewline &"C: " & c & vbnewline &"D: " & d & vbnewline
else
end if
for b = 1 to 1000
b = b+1
erg1 = B+D
erg2 = 2*(A+C)
erg3 = B-A
erg4 = C+D
erg5 = A+C
erg6 = B-D
if erg1 = erg2 AND erg3 = erg4 AND erg5 = erg6 then
msgbox "A: " & a & vbnewline & "B: " & b & vbnewline &"C: " & c & vbnewline &"D: " & d & vbnewline
else
end if
for c = 1 to 1000
c = c+1
erg1 = B+D
erg2 = 2*(A+C)
erg3 = B-A
erg4 = C+D
erg5 = A+C
erg6 = B-D
if erg1 = erg2 AND erg3 = erg4 AND erg5 = erg6 then
msgbox "A: " & a & vbnewline & "B: " & b & vbnewline &"C: " & c & vbnewline &"D: " & d & vbnewline
else
end if
for d = 1 to 1000
d = d+1
erg1 = B+D
erg2 = 2*(A+C)
erg3 = B-A
erg4 = C+D
erg5 = A+C
erg6 = B-D
if erg1 = erg2 AND erg3 = erg4 AND erg5 = erg6 then
msgbox "A: " & a & vbnewline & "B: " & b & vbnewline &"C: " & c & vbnewline &"D: " & d & vbnewline
else
end if
next
next
next
next