5.


5. - 582


@ 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: RESTSETKEY()
SAVEGETS()
SAVESETKEY()

 


 


RESTSETKEY()
, SAVESETKEY().
------------------------------------------------------------------------------
 

 
RESTSETKEY(<aSavedTraps>) --> lRestored
 

 
<aSavedTraps> - , SAVESETKEY().
 

 
lRestored - .T. ,
.F..
 

 
,
SET KEY SAVESETKEY()
.
 

 
. , SAVEGETS()
SAVESETKEY(), (- )
,
.
 

 
. <F1> :
 
CLEAR
SET KEY 28 TO HELP1 // <F1>
cFirstname := SPACE(10)
cLastname := SPACE(10)
@ 10, 10 GET cFirstname
@ 11, 10 GET cLastname
READ
 
PROCEDURE HELP1 (A, B, C)
WOPEN(4, 4, 20, 76) //
WBOX() //