Title     : Primes
Programmer: Anthony J Doggett
Calculator: TI-83
Date      : Nov 96
Function  : Lists requested number of prime numbers
            & stores to array.  Optimised.

  ClrHome
  Disp "To What Value?"
  Prompt A
  2 -> N
  2 -> _Prime(1)        ("_" denotes a list - a small L on calculator)
  For(I,3,A,2)
  0 -> B
  For(J,3,I/2,2)
  If fPart(I/J)=0
  1 -> B
  End
  If B<>1:Then          ("<>" demotes not equal to - a crossed out =)
  I -> _Prime(N)
  N+1 -> N
  Disp I
  End
  End
  Pause _Prime