// GET System Test — interactive form entry
// Run: ./gettest
// Navigation: Up/Down/Tab/Enter = move fields, ESC = cancel
// Copyright (c) 2026 Charles KWON OhJun (charleskwonohjun@gmail.com)

FUNCTION Main()
   LOCAL cName, cCity, cPhone, nAge, nSalary, lMarried
   LOCAL GetList := {}

   cName    := Space(20)
   cCity    := Space(15)
   cPhone   := Space(13)
   nAge     := 0
   nSalary  := 0
   lMarried := .F.

   CLS
   SetCursor(1)

   @ 1, 20 SAY "=== Customer Entry Form ==="
   @ 2, 20 SAY "Up/Down/Tab=Move  Enter=Next  ESC=Quit"

   @ 4, 5  SAY "Name...:" GET cName
   @ 6, 5  SAY "City...:" GET cCity
   @ 8, 5  SAY "Phone..:" GET cPhone
   @ 10, 5 SAY "Age....:" GET nAge     PICTURE "999"
   @ 12, 5 SAY "Salary.:" GET nSalary  PICTURE "999999.99"
   @ 14, 5 SAY "Married:" GET lMarried

   READ

   // Show results
   CLS
   ? "=== Entered Data ==="
   ? ""
   ? "  Name...:", AllTrim(cName)
   ? "  City...:", AllTrim(cCity)
   ? "  Phone..:", AllTrim(cPhone)
   ? "  Age....:", nAge
   ? "  Salary.:", nSalary
   ? "  Married:", lMarried
   ? ""
   ? "Press any key to exit..."
   Inkey(0)

   RETURN NIL