Prime number finder HP11C?

[jbhp55]

Thank you, Valentin, for your reply.

My program:

01 LBL C
02 STO 1
03 1
04 STO 2
05 LBL 7
06 2
07 STO + 2
08 RCL 1
09 RCL 2
10 /
11 FRAC
12 x=0
13 GTO 8
14 LST X
15 RCL 2
16 x<= y
17 GTO 7
18 RCL 1
19 R/S
20 LBL 8
21 RCL 1
22 2
23 +
24 GTO C

I didn't get it smaller by working on stack only, nor by using register I. I had with flags, but it was 2 lines longer.

Best regards,
J.