========== HelloWo1.HTM ==========

<SCRIPT   Language=VBScript   >
   Document.Write (   "Hello World..."   )
</SCRIPT>
                                       +---------------------------------------
========== HelloWo5.HTM ==========     ! ========== Chr20_FF.HTM ==========
                                       !
<SCRIPT   Language=VBScript   >        ! <SCRIPT   Language=VBScript   >
   Document.WriteLn("Hello World....." !    DIM  i
                        &  "<BR>"   )  !
   Document.WriteLn("Hello World....." !    Document.Write (   "***** CHARS: ")
                        &  "<BR>"   )  !
   Document.WriteLn("Hello World....." !    '----- LOOP
                        &  "<BR>"   )  !    FOR i = 32 TO 255
   Document.WriteLn("Hello World....." !       Document.Write (   Chr(i)   )
                        &  "<BR>"   )  !    NEXT
   Document.WriteLn("Hello World....." ! </SCRIPT>
                        &  "<BR>"   )  !
</SCRIPT>                              ! ========== PrimeNb.HTM ==========
                                       !
========== HelloWo9.HTM ==========     ! <SCRIPT   Language=VBScript   >
                                       !    DIM  IsPrimeArray(1000)
<SCRIPT   Language=VBScript   >        !    DIM  i
   DIM  i                              !    DIM  j , jMax
                                       !
   '----- LOOP                         !    Document.Write (
   FOR i = 1 TO 9                      !            "***** PRIME NUMBERS: "   )
      Document.WriteLn (               !
"Hello World........."  &  "<BR>"   )  !    '----- LOOP 1 , On each number
   NEXT                                !    FOR i = 1 TO 1000
</SCRIPT>                              !
                                       !       '----- Could be a prime number
========== Writ2x2.HTM ==========      !       IsPrimeArray(i) = TRUE
                                       !
<SCRIPT   Language=VBScript   >        !       j    = 2
   Document.Write (   2 + 2   )        !       jMax = i \ 2      '--- Int div
</SCRIPT>                              !
                                       !       '----- LOOP 2 , Search a divisor
========== WritCalc.HTM ==========     !       WHILE IsPrimeArray(i)
                                       !                        and (j <= jMax)
<SCRIPT   Language=VBScript   >        !          '----- "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
   Document.WriteLn (   "Radius="      !          Document.Write (   i  &  " ")
                  &  R  &  "<BR>"   )  !       END IF
   Document.WriteLn ( "Circumference=" !    NEXT
                  &  C  &  "<BR>"   )  ! </SCRIPT>
   Document.WriteLn (   "Area="        +---------------------------------------
                  &  A  &  "<BR>"   )
</SCRIPT>

========== WritMsg.HTM ==========
<SCRIPT   Language=VBScript   >
   DIM  MyMsg
   MyMsg =  "- Nice weather, isn't it ?"  &  vbCRLF  _
          & "- Yes ""nice"" weather."     &  vbCRLF
   Document.Write (   Replace( MyMsg ,vbCRLF,"<BR>"&vbCRLF)   )
</SCRIPT>
