RPL second impressions (HP 28)

[mdunn]

Here's an audibly better version ;-)

Code:


;Prime number checker/generator for HP28 v2
;Michael Dunn, 2018/6/27

«
‘Primes’ STO
1 ‘TestDiv’ STO

WHILE 1 REPEAT
  2 ‘TestDiv’ STO+
  IF ‘NOT FP(Primes/TestDiv)’ EVAL
    THEN
      2 ‘Primes’ STO+
      1 ‘TestDiv’ STO
    ELSE
      IF ‘SQ(TestDiv) > Primes’ EVAL
        THEN
          Primes .1 BEEP
          Primes 3 DISP
          2 ‘Primes’ STO+
          1 ‘TestDiv’ STO
      END
  END
END
»