;*****************************************************************************; ; CAPSLOCK.INI - Toggle non-alphabetic chars that are incorrrectly shifted ; ; by Windows 95. Should be run from K95CUSTOM.INI. ; ; ; ; By Maxwell Evarts of The Kermit Project with profuse help from Jeff Altman. ; ; ; ; ** IMPORTANT NOTE ** - This script assumes that you start K95 and go into ; ; terminal emulation with Caps Lock *OFF*. If you don't things will be ; ; kind of confusing and backwards. Hey, it's a workaround :-) ; ; ; ; NOTES: Only for Windows 95 - Not needed Windows NT. ; ; Not needed in version 1.1.5 unless you SET WIN95 KEYBOARD TRANSPARENT. ; ; Probably only works for the US keyboard and driver anyway. ; ; ; ;*****************************************************************************; ; ; Define the _tocapslock macro which basically just flip-flops the definitions ; of all the non-alphabetic keys, like the top row numbers and symbols and ; the other symbols like {} [], etc.... Then it redefines the Caps Lock key ; itself so that it calls the opposing macro _fromcapslock, and goes back into ; terminal mode. define _tocapslock { - set key \33 \49,- set key \49 \33,- set key \64 \50,- set key \50 \64,- set key \35 \51,- set key \51 \35,- set key \36 \52,- set key \52 \36,- set key \37 \53,- set key \53 \37,- set key \94 \54,- set key \54 \94,- set key \38 \55,- set key \55 \38,- set key \42 \56,- set key \56 \42,- set key \40 \57,- set key \57 \40,- set key \41 \48,- set key \48 \41,- set key \95 \45,- set key \45 \95,- set key \43 \61,- set key \61 \43,- set key \124 \92,- set key \92 \124,- set key \123 \91,- set key \91 \123,- set key \125 \93,- set key \93 \125,- set key \58 \59,- set key \59 \58,- set key \34 \39,- set key \39 \34,- set key \60 \44,- set key \44 \60,- set key \62 \46,- set key \46 \62,- set key \63 \47,- set key \47 \63,- set key \276 \K_fromcapslock,- connect - } ; _fromcapslock is the mirror image of _tocapslock... define _fromcapslock { - set key \33 \33,- set key \49 \49,- set key \64 \64,- set key \50 \50,- set key \35 \35,- set key \51 \51,- set key \36 \36,- set key \52 \52,- set key \37 \37,- set key \53 \53,- set key \94 \94,- set key \54 \54,- set key \38 \38,- set key \55 \55,- set key \42 \42,- set key \56 \56,- set key \40 \40,- set key \57 \57,- set key \41 \41,- set key \48 \48,- set key \95 \95,- set key \45 \45,- set key \43 \43,- set key \61 \61,- set key \124 \124,- set key \92 \92,- set key \123 \123,- set key \91 \91,- set key \125 \125,- set key \93 \93,- set key \58 \58,- set key \59 \59,- set key \34 \34,- set key \39 \39,- set key \60 \60,- set key \44 \44,- set key \62 \62,- set key \46 \46,- set key \63 \63,- set key \47 \47,- set key \276 \K_tocapslock,- connect - } ; Make the initial state be that the Caps Lock key executes _tocapslock on the ; assumption that Caps Lock is off when we start out. set key \276 \K_tocapslock end 0