// Debug test program
// Run: five debug examples/test_debug.prg

FUNCTION Main()
   LOCAL cName := "Charles"
   LOCAL nAge := 30
   LOCAL nResult

   ? "Starting..."
   nResult := Calculate(10, 20)
   ? "Result:", nResult
   ? "Name:", cName
   ? "Age:", nAge
   ? "Done."
   RETURN NIL

FUNCTION Calculate(a, b)
   LOCAL nSum
   nSum := a + b
   nSum := nSum * 2
   RETURN nSum