FUNCTION Main()
   LOCAL cName := "World"
   LOCAL nSum := 0, i

   ? "Hello, " + cName + "!"

   FOR i := 1 TO 10
      nSum += i
   NEXT

   ? "Sum 1..10 =", nSum

   IF nSum > 50
      ? "Greater than 50"
   ELSE
      ? "Not greater than 50"
   ENDIF

   RETURN nSum