home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Shareware Overload
/
ShartewareOverload.cdr
/
database
/
techs.zip
/
TECH14.ARC
/
CONFIG.PRG
next >
Wrap
Text File
|
1985-11-01
|
2KB
|
53 lines
* Program ...: Config.PRG
* Author ....: Stephen Goodman
* Date ......: June 1, 1985
* Version ...: dBASE II, 2.4 and above
* Note(s) ...: Sets the function keys to alternate values using
* dBASE II under MS/PC-DOS 2.xx.
*
ERASE
SET TALK OFF
* ---Note that the POKE sequence here is located ABOVE the
* ---standard location for dBASE operations, as is the CALL
* ---location.
POKE 60160,080,083,082,050,237,138,015,067,138,023,180,002,205,;
033,067,226,247,090,091,088,195
SET CALL TO 60160
* ---Store escape codes to variables - note that the letter 'p'
* ---stipulates that this is for keyboard usage.
STORE CHR(27)+"[0;59;23p" TO fk1
STORE CHR(27)+"[0;60;17p" TO fk2
STORE CHR(27)+"[0;61;25p" TO fk3
STORE CHR(27)+"[0;62;21p" TO fk4
STORE CHR(27)+"[0;63;14p" TO fk5
STORE CHR(27)+"[0;64;20p" TO fk6
STORE CHR(27)+"[0;115;26p" TO ck1
STORE CHR(27)+"[0;116;2p" TO ck2
* ---Delete the next two lines if using version 2.41.
STORE CHR(27)+"[0;82;22p" TO dins
STORE CHR(27)+"[0;83;7p" TO ddel
* ---Pass the escape codes.
CALL fk1
CALL fk2
CALL fk3
CALL fk4
CALL fk5
CALL fk6
CALL ck1
CALL ck2
* ---Delete the next two lines if using 2.41.
CALL dins
CALL ddel
* ---The remaining keys, F7-10, are user-defined.
SET F7 TO "SET DEFAULT TO A;"
SET F8 TO "SET DEFAULT TO B;"
SET F9 TO "SET DEFAULT TO C;"
SET F10 TO "DO Dconfig;"
* ---Release the variables.
RELEASE fk1,fk2,fk3,fk4,fk5,fk6,ck1,ck2,dins,ddel
ERASE
@ 3,3 SAY "Function keys set."
SET TALK ON
RETURN
* EOP Config.PRG