LBL 'PRIME' ; Key: 25
'PRIME'
AVIEW
PSE
FIX 00
'MAX ?'
PROMPT
1
+
SQRT
STO 04
1
STO 01
3
STO 02
LBL 01
2
ST+ 02
RCL 02
SQRT
STO 03
RCL 04
X>Y?
GTO 02
RCL 00
STOP
LBL 02
2
ST+ 01
RCL 01
RCL 03
X<>Y
X<=Y?
GTO 03
RCL 02
STO 00
1
STO 01
GTO 01
LBL 03
RCL 02
RCL 01
/
FRC
X#0?
GTO 02
1
STO 01
GTO 01
STOP
END