1 MODE0
   10  place=1
   20  divisable=0
   30  number=0
   40  REPEAT
   50    FOR divisable=1 TO number
   60      IF (number MOD divisable)=0 THEN a=a+1
   70      IF a>2 THEN divisable=number
   80      IF (number MOD 2=0 AND number>2) THEN divisable=number
   90    NEXT divisable
  100    IF a=2 THEN PRINT number;" Is prime number ";place
  110    IF a=2 THEN place=place+1
  120    a=0
  130    number=number+1
  140  UNTIL FALSE