#   I N T E R P R E T E R   I N   D E M A G O G 
 
 #   P R E S S   F 2 
 
 
 
 #   !" &/  "  ""         D E M A G O G 
 
 #   /  +/  "  F 2 
 
 
 
 #   S e a r c h   p r i m e s 
 
 #   >8A:  ?@>ABKE  G8A5;
 
 
 
 N U M   n ,   k ,   n m i n ,   n m a x ,   n m a x d e f ,   n m ,   s i m p l e 
 
 
 
 n m i n   =   I n p u t B o x ( ' S e a r c h   p r i m e s ' , ' E n t e r   t h e   l o w e r   l i m i t ' , ' 0 ' ) 
 
 n m a x   =   I n p u t B o x ( ' S e a r c h   p r i m e s ' , ' E n t e r   t h e   u p p e r   l i m i t ' , n m i n + 1 0 0 0 0 ) 
 
 
 
 I F   n m a x   -   n m i n   >   1 0 0 0 0 
 
         S h o w M e s s a g e ( ' T h e   r a n g e   i s   t o o   g r e a t ! ' ) 
 
         E X I T 
 
 F I 
 
 
 
 p u t   S e a r c h   p r i m e s   f r o m , '   ' ,   n m i n , '   ' ,   t o , '   ' ,   n m a x 
 
 p u t 
 
 
 
 n   =   n m i n 
 
 I F   n   < =   1   
 
         n   =   3 
 
 F I 
 
 I F   n   %   2   = =   0 
 
         n   =   n + 1 
 
 F I 
 
 I F   n   = =   3 
 
         p u t   2 , '   ' , 
 
 F I   
 
 D O   n   < =   n m a x   
 
         k = 3 
 
         n m   =   c e i l ( s q r t ( n ) + 1 ) 
 
         s i m p l e   =   1 
 
         D O   ( k   <   n m )   &   s i m p l e 
 
               I F   n   %   k   = =   0   
 
                       s i m p l e   =   0 
 
               F I 
 
         k   =   k + 1 
 
         O D 
 
         I F   s i m p l e 
 
                 p u t   n , '   ' , 
 
         F I 
 
         n   =   n + 2 
 
 O D 
 
 p u t 
 
 
 
 