Controls OpenTextBox
Controls ClearTextBox
FindPrimeNumbers


Variable Numeric number = 2
Variable Numeric ii

Label FindPrimeNumbers
	ii = 2
	Label loop
		If ii >= number
			Print number + " "
			number = number + 1
			Goto FindPrimeNumbers
		EndIf
		
		If Mod(number, ii) = 0
			number = number + 1
			Goto FindPrimeNumbers
		EndIf
		
		ii = ii + 1
	Goto loop
Return


'BOOKMARKS 

'EDITEDLINES 0 10 11 10 6 10 19 10 

'EXEC K_Newton = 1.01
