Code: Select all | Expand
#include "Fwce.ch"FUNCTION MAIN() LOCAL oWnd LOCAL cVar1 := SPACE( 20 ) LOCAL cVar2 := SPACE( 20 ) DEFINE WINDOW oWnd @ 1, 1 SAY "Name 1:"; SIZE 70, 20 @ 1, 10 GET cVar1; SIZE 70, 20 @ 5, 1 SAY "Name 2:"; SIZE 70, 20 @ 5, 10 GET cVar2; SIZE 70, 20 ACTIVATE WINDOW oWnd RETURN NIL
EMG