========== HelloWo1.BAS ==========

   PRINT "Hello World..."
                                       +---------------------------------------
========== HelloWo5.BAS ==========     ! ========== Chr20_FF.BAS ==========
                                       !
   PRINT "Hello World....."            !    DIM i
   PRINT "Hello World....."            !
   PRINT "Hello World....."            !    PRINT "***** CHARS: ";
   PRINT "Hello World....."            !
   PRINT "Hello World....."            !    '----- LOOP
                                       !    FOR i = 32 TO 255
========== HelloWo9.BAS ==========     !       PRINT CHR$(i);
                                       !    NEXT
   DIM i                               !
                                       ! ========== PrimeNb.BAS ==========
   '----- LOOP                         !
   FOR i = 1 TO 9                      !    DIM IsPrimeArray%(1000)
      PRINT "Hello World........."     !    DIM i
   NEXT                                !    DIM j, jMax
                                       !
========== Prin2x2.BAS ==========      !    PRINT "***** PRIME NUMBERS: ";
                                       !
   PRINT (2 + 2)                       !    '----- LOOP 1 , On each number
                                       !    FOR i = 1 TO 1000
========== PrinCalc.BAS ==========     !
                                       !       '----- Could be a prime number
   DIM R                               !       IsPrimeArray%(i) = -1   '= TRUE
   DIM C, A                            !
                                       !       j = 2
   R = 10                              !       jMax = i \ 2      '--- Int div
                                       !
   C = 2 * 3.14159 * R                 !       '----- LOOP 2 , Search a divisor
   A = 3.14159 * R * R                 !       WHILE IsPrimeArray%(i) AND
                                       !                            (j <= jMax)
   PRINT "Radius="; R                  !          '----- "j" can divide "i" ?
   PRINT "Circumference="; C           !          IF (i MOD j) = 0 THEN
   PRINT "Area="; A                    !             IsPrimeArray%(i) = 0
                                       !          END IF
                                       !          j = j + 1
                                       !       WEND
                                       !
                                       !       '----- Display only primenumbers
                                       !       IF IsPrimeArray%(i) = -1 THEN
                                       !          PRINT i;
                                       !       END IF
========== PrinMsg.BAS ==========      !    NEXT
                                       +---------------------------------------
   DIM MyMsg$

   MyMsg$ = "- Nice weather, isn't it ?" + CHR$(10)
   MyMsg$ = MyMsg$ + "- Yes " + CHR$(34) + "nice" + CHR$(34) + " weather."
                                                                     + CHR$(10)

   PRINT MyMsg$;
