Bugs and Suggestions

<pre lang="text">text</pre>
<pre lang="c++">C++</pre>
<pre lang="c#">C#</pre>
<pre lang="HTML">HTML / XML / ASP</pre>

text

C++

C#

HTML / XML / ASP

* is full line comment, single line
// is end of line comment, single line, same as C
/* is multi lines comment, same as C
   is multi lines comment, same as C
*/

// Literal
    Nil: NIL
    String: "hello", 'hello'
    Logical: .T., .F.
    Number: 1, 1.1, -1, 0xFF

// function is the beginning of a routine with return value
[STATIC] [UTILITY] FUNCTION <funcName>( [<params,...>] )
            <Statements>
           RETURN <retVal>

// procedure is the beginning of a routine without return value
[STATIC] [UTILITY] PROCEDURE <procName>( [<params,...>] )
            <Statements>
           RETURN

[DO] WHILE <Condition>
  <Statements>
  [EXIT]
  <Statements>
  [LOOP]
  <Statements>
END[DO]

FOR <nCounter> := <nStart> TO <nEnd> [STEP <nIncrement>]
  <Statements>
  [EXIT]
  <Statements>
  [LOOP]
NEXT

FOR EACH <element> IN <array>|<object>|<string>
   <statements>
   [LOOP]
   <statements>
   [EXIT]
NEXT

IF <Condition1>
  <Statements>
[ ELSEIF <ConditionN>
  <Statements> ] [ ELSE
  <Statements> ] END[IF]

DO CASE
   CASE <Condition1>
        <Statements1>
 [ CASE <ConditionN>
        <StatementsN> ]
 [ OTHERWISE
        <defaultStatements> ]
END[CASE]

    //  Trial Division Square Root + Wheel
function TD_SRW(Prod)
    local D, Top, SPrimes, Wheel, W
    // Check small primes
    SPrimes= {2, 3}
    Wheel= {4, 2}
    for each D in SPrimes
        if Prod % D = 0
            return D
        endif
    next
    // Start the wheel
    D= 1
    Top= int(sqrt(Prod))
    while D <= Top
        for each W in wheel
            D += W
            if Prod % D = 0
                return D
            endif
        next
    enddo
    return Prod

    //  Trial Division Square Root + Wheel
function TD_SRW(Prod)
    local D, Top, SPrimes, Wheel, W
    // Check small primes
    SPrimes= {2, 3}
    Wheel= {4, 2)
    for each D in SPrimes
        if Prod % D = 0
            return D
        endif
    next
    // Start the wheel
    D= 1
    Top= int(sqrt(Prod))
    while D <= Top
        for each W in wheel
            D += W
            if Prod % D = 0
                return D
            endif
        next
    enddo
    return Prod

<pre lang="dbase">...</pre>