Software Du Jour/SoftwareDuJour.iso/BUSINESS/DBASE/MEMBERS.ARC/MDKEYSET.PRG

Text File | 1986-10-16 | 1.8 KB | 54 lines

*----------------------------------------------------------------------
* 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