
Controls OpenTextBox
Controls ClearTextBox

Variable Numeric in
Variable Numeric out


For in = 0 To 1000
	
	out = (65535 / (in + 1)) - 10
	
	Print in + "   " + out + CRLF
	
Next

Stop


' 0      1      2       ............ 998 999 1000
' 65535  64500  63400                 57  56   55


