
Controls OpenTextBox
Controls ClearTextBox
FindPrimeNumbers

Stop

Variable Numeric number

Label FindPrimeNumbers
	Print "2 "
	For number = 3 To Infinity Step 2
		For v1 = 2 To Sqrt(number)
			If Mod(number, v1) = 0
				v1 = 0
				Exit
			EndIf
		Next
		If v1 <> 0
			Print number + " "
		EndIf
	Next
Return


'BOOKMARKS 

'EDITEDLINES 0 10 11 10 6 10 17 10 22 10 27 10 

'WATCH Mod(number, v1)
'WATCH number
'WATCH v1
'EXEC K_Newton = 1.01
