- Code: Select all Expand view
- #include "Fivewin.ch"
FUNCTION MAIN()
LOCAL oDlg, oGet
LOCAL cVar := SPACE( 39 )
DEFINE DIALOG oDlg
@ 1, 1 GET oGet VAR cVar;
PICTURE "999-999-999-999-999-999-999-999-999-999"
@ 3, 1 BUTTON "&Close" ACTION oDlg:End()
ACTIVATE DIALOG oDlg;
CENTER
RETURN NIL
EMG