program top
rem 	Calculates next prime number greater than that entered in the display.
rem 	Run program by pressing XEQ P.
lbl y
view p
lbl z
2
rcl+ p
lbl p
sto p
3
sto d
lbl x
rcl p
rcl/ d
fp
x=0?
gto z
rcl p
sqrt
rcl d
x>y?
gto y
2
sto+d
gto x
rtn
