RPL second impressions (HP 28)

[mdunn]

Enter an odd number ≥5 and it will return the number if prime, or the next prime if not. CONT will return succeeding primes.

I know…it’s a poor program, and should really be two programs, have local variables, etc. It was just an exercise. What were my syntax errors? Writing STO var instead of ‘var’ STO. And not using the correct WHILE syntax.

Argh…is there no way to stop the 28 from mangling my nice formatting?

Code:

;Prime number checker/generator
;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
           1245 .3 BEEP Primes HALT
           2 ‘Primes’ STO+
           1 ‘TestDiv’ STO
      END
  END
END
»