Se utiliza la subrutina ComprobarPrimo, que toma el valor de i y calcula si i es o no un número primo

1. For i= 2 To 100
2.   esPrimo = “Cierto”
3.   ComprobarPrimo()
4.   If (esPrimo = “Cierto”) Then
5.     TextWindow.WriteLine(i)
6.   EndIf
7. EndFor
8.  
9. Sub ComprobarPrimo
10.   For j= 2 To Math.SquareRoot(i)
11.     If (Math.Remainder(i, j) = 0) Then
12.       esPrimo = “Falso”
13.       Goto FinLoop
14.     EndIf
15.   EndFor
16.   FinLoop:
17.   EndSub