Microsoft Small Basic

Program Listing: tzm173

List Program

TextWindow.Write("Enter the # you want to check for prime:")
number=TextWindow.Read()

TextWindow.Clear()

isPrime = "True"
PrimeCheck()
If (isPrime = "True") Then
TextWindow.Writeline(number+" is a prime #")
Else
TextWindow.Writeline(number+" is not a prime #")
EndIf

Sub PrimeCheck
For j = 2 To Math.SquareRoot(number-1)
If (Math.Remainder(number, j) = 0) Then
isPrime = "False"
EndIf
Endfor
EndSub