========== HelloWo1.VBW ==========

Sub HelloWorld1()
   Selection.TypeText ("Hello World...")
End Sub
                                       +---------------------------------------
========== HelloWo5.VBW ==========     ! ========== Chr20_FF.VBW ==========
                                       !
Sub HelloWorld5()                      ! Sub Chr20_FF()
   Selection.TypeText (                !    Dim i
         "Hello World....." & vbCrLf)  !
   Selection.TypeText (                !   Selection.TypeText ("***** CHARS: ")
         "Hello World....." & vbCrLf)  !
   Selection.TypeText (                !    '----- LOOP
         "Hello World....." & vbCrLf)  !    For i = 32 To 255
   Selection.TypeText (                !       Selection.TypeText (Chr(i))
         "Hello World....." & vbCrLf)  !    Next
   Selection.TypeText (                ! End Sub
         "Hello World....." & vbCrLf)  !
End Sub                                ! ========== PrimeNb.VBW ==========
                                       !
========== HelloWo9.VBW ==========     ! Sub PrimeNb()
                                       !    Dim IsPrimeArray(1000)
Sub HelloWorld9()                      !    Dim i
   Dim i                               !    Dim j, jMax
                                       !
   '----- LOOP                         !    Selection.TypeText
   For i = 1 To 9                      !              ("***** PRIME NUMBERS: ")
      Selection.TypeText (             !
     "Hello World........." & vbCrLf)  !    '----- LOOP 1 , On each number
   Next                                !    For i = 1 To 1000
End Sub                                !
                                       !       '----- Could be a prime number
========== Writ2x2.VBW ==========      !       IsPrimeArray(i) = True
                                       !
Sub Write2x2()                         !       j = 2
   Selection.TypeText (2 + 2)          !       jMax = i \ 2      '--- Int div
End Sub                                !
                                       !       '----- LOOP 2 , Search a divisor
========== WritCalc.VBW ==========     !       While IsPrimeArray(i)
                                       !                        And (j <= jMax)
Sub WriteCalc()                        !          '----- "j" can divide "i" ?
   Dim R                               !          If (i mod j) = 0 Then
   Dim C, A                            !             IsPrimeArray(i) = False
                                       !          End If
   R = 10                              !          j = j + 1
                                       !       Wend
   C = 2 * 3.14159 * R                 !
   A = 3.14159 * R * R                 !       '----- Display only primenumbers
                                       !       If IsPrimeArray(i) = True Then
   Selection.TypeText ("Radius="       !          Selection.TypeText (i & " ")
                        & R & vbCrLf)  !       End If
   Selection.TypeText ("Circumference="!    Next
                        & C & vbCrLf)  ! End Sub
   Selection.TypeText ("Area="         +---------------------------------------
                        & A & vbCrLf)
End Sub

========== WritMsg.VBW ==========
Sub WriteMsg()
   Dim MyMsg
   MyMsg = "- Nice weather, isn't it ?" & vbCrLf _
          & "- Yes ""nice"" weather." & vbCrLf
   Selection.TypeText (MyMsg)
End Sub
