*************** EEQBA\EasyEx\HelloWo\   Print\   Program\
*************** HelloWo1.BAS ***************
   PRINT "Hello World..."
*************** HelloWo5.BAS ***************
   PRINT "Hello World....."
   PRINT "Hello World....."
   PRINT "Hello World....."
   PRINT "Hello World....."
   PRINT "Hello World....."
*************** HelloWo9.BAS ***************
   DIM i

   '----- LOOP
   FOR i = 1 TO 9
      PRINT "Hello World........."
   NEXT
*************** Prin2x2.BAS ***************
   PRINT (2 + 2)
*************** PrinCalc.BAS ***************
   DIM R
   DIM C, A

   R = 10

   C = 2 * 3.14159 * R
   A = 3.14159 * R * R

   PRINT "Radius="; R
   PRINT "Circumference="; C
   PRINT "Area="; A
*************** PrinMsg.BAS ***************
   DIM MyMsg$

   MyMsg$ = "- Nice weather, isn't it ?" + CHR$(10)
   MyMsg$ = MyMsg$ + "- Yes " + CHR$(34) + "nice" + CHR$(34) + " weather." + CHR$(10)
   
   PRINT MyMsg$;
*************** Chr20_FF.BAS ***************
   DIM i

   PRINT "***** CHARS: ";

   '----- LOOP
   FOR i = 32 TO 255
      PRINT CHR$(i);
   NEXT
*************** PrimeNb.BAS ***************
   DIM IsPrimeArray%(1000)
   DIM i
   DIM j, jMax

   PRINT "***** PRIME NUMBERS: ";

   '----- LOOP 1 , On each number
   FOR i = 1 TO 1000

      '----- Could be a prime number
      IsPrimeArray%(i) = -1   'means TRUE

      j = 2
      jMax = i \ 2      '--- Int div

      '----- LOOP 2 , Search a divisor
      WHILE IsPrimeArray%(i) AND (j <= jMax)
         '----- "j" can divide "i" ?
         IF (i MOD j) = 0 THEN
            IsPrimeArray%(i) = 0
         END IF
         j = j + 1
      WEND

      '----- Display only prime numbers
      IF IsPrimeArray%(i) = -1 THEN
         PRINT i;
      END IF
   NEXT

'
'   [<--                   i                      -->]
'    [<-- j -->]
'   .#.....................#.........................#
'    |         |                                     |
'    2      i div 2                                1000
'
