Button 1 Label Primi
Button Primi Color Green
Stop

Label Primi
	Variable Numeric num = 1
	
	For v1 = 1 To Infinity						 'Breakpoint
		num = num + 1
		
		For v2 = 2 To num - 1
			If Mod(num, v2) = 0
				Exit
			EndIf
		Next
		
		Print num + CRLF
	Next
Return


