home *** CD-ROM | disk | FTP | other *** search
/ Simtel MSDOS 1992 June / SIMTEL_0692.cdr / msdos / dbase / techs.arc / TECH14.ARC / CONFIG.PRG next >
Encoding:
Text File  |  1985-11-01  |  1.5 KB  |  53 lines
  1. * Program ...: Config.PRG
  2. * Author ....: Stephen Goodman
  3. * Date ......: June 1, 1985
  4. * Version ...: dBASE II, 2.4 and above
  5. * Note(s) ...: Sets the function keys to alternate values using
  6. *              dBASE II under MS/PC-DOS 2.xx.
  7. *
  8. ERASE
  9. SET TALK OFF
  10. * ---Note that the POKE sequence here is located ABOVE the
  11. * ---standard location for dBASE operations, as is the CALL
  12. * ---location.
  13. POKE 60160,080,083,082,050,237,138,015,067,138,023,180,002,205,;
  14. 033,067,226,247,090,091,088,195
  15. SET CALL TO 60160
  16. * ---Store escape codes to variables - note that the letter 'p'
  17. * ---stipulates that this is for keyboard usage.
  18. STORE CHR(27)+"[0;59;23p" TO fk1
  19. STORE CHR(27)+"[0;60;17p" TO fk2
  20. STORE CHR(27)+"[0;61;25p" TO fk3
  21. STORE CHR(27)+"[0;62;21p" TO fk4
  22. STORE CHR(27)+"[0;63;14p" TO fk5
  23. STORE CHR(27)+"[0;64;20p" TO fk6
  24. STORE CHR(27)+"[0;115;26p" TO ck1
  25. STORE CHR(27)+"[0;116;2p" TO ck2
  26. * ---Delete the next two lines if using version 2.41.
  27. STORE CHR(27)+"[0;82;22p" TO dins
  28. STORE CHR(27)+"[0;83;7p" TO ddel
  29. * ---Pass the escape codes.
  30. CALL fk1
  31. CALL fk2
  32. CALL fk3
  33. CALL fk4
  34. CALL fk5
  35. CALL fk6
  36. CALL ck1
  37. CALL ck2
  38. * ---Delete the next two lines if using 2.41.
  39. CALL dins
  40. CALL ddel
  41. * ---The remaining keys, F7-10, are user-defined.
  42. SET F7 TO "SET DEFAULT TO A;"
  43. SET F8 TO "SET DEFAULT TO B;"
  44. SET F9 TO "SET DEFAULT TO C;"
  45. SET F10 TO "DO Dconfig;"
  46. * ---Release the variables.
  47. RELEASE fk1,fk2,fk3,fk4,fk5,fk6,ck1,ck2,dins,ddel
  48. ERASE
  49. @ 3,3 SAY "Function keys set."
  50. SET TALK ON
  51. RETURN
  52. * EOP Config.PRG
  53.