Dim x1 As Long, x2 As Long
 
Randomize Timer
 
x1 = Int(Rnd * 180) * 2 + 20
' x1 ist gerade ein gerade Zahl zwischen 20 und 200
x2 = Int(Rnd * (x1/2)) * 2 - 2 
If x2 < 2 Then x2 = 2
' x2 ist eine gerade Zahl Zwischen 2 und x1-2

Bye

illuminator
(Programmers don't die, they GOSUB without RETURN...)