LBL PRIMES
3
STO 01
STO 02
LBL 01
2
ST+ 02
RCL 02
3
XEQ 02
X=0?
GTO 01
RCL Z
BEEP
STO IND 01
1
ST+ 01
GTO 01
LBL 02
RCL Y
SQRT
LASTX
X<> Z
LBL 03
X>Y?
RTN
RCL Z
X<>Y
QR
X=0?
RTN
RCL T
RCL T
LASTX
2
+
GTO 03
RTN

