Code: Select all
#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