=JKEYACTIV() =KEYCLEAR() BROWSE =POPKEY() =JKEYDEACTIV() PROCEDURE JKEYACTIV parameters jktext,jkprefix,jkwind SET SYSMENU OFF _jdblclick=1 JKEYISON=.t. if parameters()<2 jkprefix="" endif if parameters()<1 jktext="" endif if parameters()<3 =JKEYINIT("U",jktext,jkprefix) else =JKEYINIT("U",jktext,jkprefix,jkwind) endif PROCEDURE JKEYDEACTIV SET SYSMENU ON SET SYSMENU AUTOMATIC =JKEYCANC() JKEYISON=.f. set talk off SHOW GETS PROCEDUR KEYCLEAR ON KEY LABEL "HOME" GO TOP ON KEY LABEL "END" GO BOTTOM PROCEDURE POPKEY POP KEY ON KEY LABEL "HOME" ON KEY LABEL "END" ON KEY LABEL "ENTER"Cetin