
Numeric numero = 2 ' Inizia dalla prima cifra
Numeric ii ' Variabile per il ciclo interno

Label MainLoop
	ii = 2 ' Inizia il ciclo interno da 2
	Label cicloInterno
		If ii >= numero ' Se i è uguale o maggiore del numero, il numero è primo
			Print numero + " " ' Stampa il numero primo
			numero = numero + 1 ' Incrementa il numero per la prossima iterazione
			Goto MainLoop ' Ritorna al ciclo principale
		EndIf
		
		If Mod(numero , ii) = 0 ' Se il numero è divisibile per i, non è primo
			numero = numero + 1 ' Incrementa il numero e passa alla prossima iterazione
			Goto MainLoop ' Ritorna al ciclo principale
		EndIf
		
		ii = ii + 1 ' Incrementa i e continua il ciclo interno
	Goto cicloInterno ' Ritorna all'inizio del ciclo interno
Return


'BOOKMARKS 

'EDITEDLINES 0 10 11 10 6 10 19 10 

'EXEC K_Newton = 1.01
