Category : Dbase (Clipper, FoxBase, etc) Languages Source Code
Archive   : MEMBER.ZIP
Filename : MDKEYSET.PRG

*----------------------------------------------------------------------
* Program : Membership Database Package
* File : MDKEYSET
* Function: Sets Function Keys with User Text
* Author : J. North
* Version : (AT contest)
* Date : 10/15/86
*----------------------------------------------------------------------
*
use mdkeys
clear
@ 1, 0 to 1, 79 double
@ 3, 0 to 3, 79 double
@ 19, 0 to 19, 79 double
@ 21, 0 to 24, 79
@ 2, 1 say "Function Key Text Assignment"
@ 5, 18 say "Key Text"
@ 6, 18 say "--- --------------------------------"
@ 7, 19 say "F2 --"
@ 8, 19 say "F3 --"
@ 9, 19 say "F4 --"
@ 10, 19 say "F5 --"
@ 11, 19 say "F6 --"
@ 12, 19 say "F7 --"
@ 13, 19 say "F8 --"
@ 14, 19 say "F9 --"
@ 15, 18 say "F10 --"
@ 22, 2 say "Enter the text you want assigned to function keys F2 thru F10 - MENU -"
@ 23, 2 say "in the appropriate fields above. Press ^End to return to menu. ^End"
@ 22, 68 to 23, 68
call curson
clear gets
@ 7,25 get f2 picture "XXXXXXXXXXXXXXXXXXXXXXXXXXXXXX"
@ 8,25 get f3 picture "XXXXXXXXXXXXXXXXXXXXXXXXXXXXXX"
@ 9,25 get f4 picture "XXXXXXXXXXXXXXXXXXXXXXXXXXXXXX"
@ 10,25 get f5 picture "XXXXXXXXXXXXXXXXXXXXXXXXXXXXXX"
@ 11,25 get f6 picture "XXXXXXXXXXXXXXXXXXXXXXXXXXXXXX"
@ 12,25 get f7 picture "XXXXXXXXXXXXXXXXXXXXXXXXXXXXXX"
@ 13,25 get f8 picture "XXXXXXXXXXXXXXXXXXXXXXXXXXXXXX"
@ 14,25 get f9 picture "XXXXXXXXXXXXXXXXXXXXXXXXXXXXXX"
@ 15,25 get f10 picture "XXXXXXXXXXXXXXXXXXXXXXXXXXXXXX"
do while .T.
read save
rk=mod(readkey(),256)
if rk=14
exit
endif
enddo
clear gets
call cursoff
use
do mdkeyint
return