home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Shareware Overload
/
ShartewareOverload.cdr
/
database
/
techs.zip
/
TECH14.ARC
/
DCONFIG.PRG
< prev
next >
Wrap
Text File
|
1985-11-01
|
1KB
|
45 lines
* Program ...: Dconfig.PRG
* Author ....: Stephen Goodman
* Date ......: June 1, 1985
* Version ...: dBASE II, 2.4 and above
* Note(s) ...: Resets function keys to original values.
*
ERASE
SET TALK OFF
* ---POKE & CALL designation.
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 values to variables to reset keys to
* ---their original MS-DOS settings.
STORE CHR(27)+"[0;59;0;59p" TO fk1
STORE CHR(27)+"[0;60;0;60p" TO fk2
STORE CHR(27)+"[0;61;0;61p" TO fk3
STORE CHR(27)+"[0;62;0;62p" TO fk4
STORE CHR(27)+"[0;63;0;63p" TO fk5
STORE CHR(27)+"[0;64;0;64p" TO fk6
STORE CHR(27)+"[0;115;0;115p" TO ck1
STORE CHR(27)+"[0;116;0;116p" TO ck2
* ---The following lines are not necessary if using 2.41.
STORE CHR(27)+"[0;82;0;82p" TO dins
STORE CHR(27)+"[0;83;0;83p" TO ddel
* ---Pass the redefining 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
* ---Release the variables.
RELEASE fk1,fk2,fk3,fk4,fk5,fk6,ck1,ck2,dins,ddel
ERASE
@ 3,3 SAY "Keys are now reset to original MS-DOS settings."
SET TALK ON
RETURN
* EOP Dconfig.PRG