home *** CD-ROM | disk | FTP | other *** search
/ Simtel MSDOS 1992 June / SIMTEL_0692.cdr / msdos / dbase / techs.arc / TECH14.ARC / DCONFIG.PRG < prev    next >
Encoding:
Text File  |  1985-11-01  |  1.2 KB  |  45 lines
  1. * Program ...: Dconfig.PRG
  2. * Author ....: Stephen Goodman
  3. * Date ......: June 1, 1985
  4. * Version ...: dBASE II, 2.4 and above
  5. * Note(s) ...: Resets function keys to original values.
  6. *
  7. ERASE
  8. SET TALK OFF
  9. * ---POKE & CALL designation.
  10. POKE 60160,080,083,082,050,237,138,015,067,138,023,180,002,205,;
  11. 033,067,226,247,090,091,088,195
  12. SET CALL TO 60160
  13. * ---Store escape values to variables to reset keys to
  14. * ---their original MS-DOS settings.
  15. STORE CHR(27)+"[0;59;0;59p" TO fk1
  16. STORE CHR(27)+"[0;60;0;60p" TO fk2
  17. STORE CHR(27)+"[0;61;0;61p" TO fk3
  18. STORE CHR(27)+"[0;62;0;62p" TO fk4
  19. STORE CHR(27)+"[0;63;0;63p" TO fk5
  20. STORE CHR(27)+"[0;64;0;64p" TO fk6
  21. STORE CHR(27)+"[0;115;0;115p" TO ck1
  22. STORE CHR(27)+"[0;116;0;116p" TO ck2
  23. * ---The following lines are not necessary if using 2.41.
  24. STORE CHR(27)+"[0;82;0;82p" TO dins
  25. STORE CHR(27)+"[0;83;0;83p" TO ddel
  26. * ---Pass the redefining codes.
  27. CALL fk1
  28. CALL fk2
  29. CALL fk3
  30. CALL fk4
  31. CALL fk5
  32. CALL fk6
  33. CALL ck1
  34. CALL ck2
  35. * ---Delete the next two lines if using 2.41.
  36. CALL dins
  37. CALL ddel
  38. * ---Release the variables.
  39. RELEASE fk1,fk2,fk3,fk4,fk5,fk6,ck1,ck2,dins,ddel
  40. ERASE
  41. @ 3,3 SAY "Keys are now reset to original MS-DOS settings."
  42. SET TALK ON
  43. RETURN
  44. * EOP Dconfig.PRG
  45.