5.


5. - 584



, .

(.,
KEYSEND()).
 

 
. HELP() .
GET- HELP()
,
, VALID:
 
CLEAR
SET KEY 28 TO HELP //
// <F1>
 
cFirstname := SPACE(10)
cLastname := SPACE(10)
@ 10, 10 GET cFirstname PICTURE "@!"
! 11, 10 GET cLastname PICTURE "@!" VALID MAINFUNC()
READ
 
*
* HELP GET-.
*
PROCEDURE HELP (A, B, C)
LOCAL aOldGets
aOldGets := SAVEGETS() // GET-
WOPEN(4, 30, 20, 76) //
WBOX() //
cHelp1 := SPACE(10)
cHelp2 := SPACE(10)
@ 10, 10 GET cHelp1 PICTURE "@A"
@ 11, 10 GET cHelp2 PICTURE "@A" VALID HELPFUNC()
READ
RESTGETS(aOldGets) // GET-
WCLOSE() //
RETURN
 
FUNCTION MAINFUNC
SOUND(1000, 10) //
RETURN(.T.)
 
FUNCTION HELPFUNC
SOUND(1000, 100) //
RETURN(.T.)
 


See Also: RESTGETS()
RESTSETKEY()
SAVESETKEY()

 


 


SAVESETKEY()
, SET KEY.