FiveTech Support Forums

#include "Fivewin.ch"


FUNCTION MAIN()

    LOCAL oDlg

    LOCAL nVar := 10

    DEFINE DIALOG oDlg

    @ 1, 1 GET nVar;
           PICTURE "@E 999.99 %";
           RIGHT

    @ 3, 1 BUTTON "&Close";
           ACTION oDlg:End()

    ACTIVATE DIALOG oDlg;
             CENTER

    RETURN NIL