; File: KEYPAD.TAK ; ; Bob Eager March 1991 ; ; Kermit TAKE file to set up IBM enhanced keyboard to emulate a DEC ; VT100 or similar (e.g. VT2xx, VT3xx). ; ; The only difference on the keypad is that the VT keypad - (minus) is mapped ; to the F11 key on the IBM keyboard. In addition, the DO key on the LK201 ; keyboard is mapped to the F12 key on the IBM keyboard. ; ; The LK201 key cluster is mapped not by position but by function (as far ; as is possible): ; ; LK201 IBM ; ----- --- ; Insert Insert ; Remove Delete ; Prev Screen Page Up ; Next Screen Page Down ; Find Home ; Select End ; ; The Home, End, Page Up and Page Down keys lose their normal Kermit functions ; because of the above. However, if SHIFT is held down when they are used, the ; original functions are restored. ; set display 8-bit ; ; Define keypad as near to VT100 keypad as possible (non NUMLOCKed) ; ; NUM LOCK as PF1 done by GOLD set key \4399 \Kpf2 ; Keypad / as PF2 set key \311 \Kpf3 ; Keypad * as PF3 set key \330 \Kpf4 ; Keypad - as PF4 ; set key \327 \Kkp7 ; Keypad 7 as keypad 7 set key \328 \Kkp8 ; Keypad 8 as keypad 8 set key \329 \Kkp9 ; Keypad 9 as keypad 9 set key \389 \Kkpminus ; F11 as keypad - (not often used) ; set key \331 \Kkp4 ; Keypad 4 as keypad 4 set key \332 \Kkp5 ; Keypad 5 as keypad 5 set key \333 \Kkp6 ; Keypad 6 as keypad 6 set key \334 \Kkpcoma ; Keypad + as keypad , ; set key \335 \Kkp1 ; Keypad 1 as keypad 1 set key \336 \Kkp2 ; Keypad 2 as keypad 2 set key \337 \Kkp3 ; Keypad 3 as keypad 3 set key \4365 \Kkpenter ; Keypad Enter as keypad Enter ; set key \338 \Kkp0 ; Keypad 0 as keypad 0 set key \339 \Kkpdot ; Keypad . as keypad . ; ; Define NUMLOCKed keypad keys to be the same as non-NUMLOCKed ones ; set key \839 \Kkp7 ; Keypad 7 as keypad 7 set key \840 \Kkp8 ; Keypad 8 as keypad 8 set key \841 \Kkp9 ; Keypad 9 as keypad 9 ; set key \843 \Kkp4 ; Keypad 4 as keypad 4 set key \844 \Kkp5 ; Keypad 5 as keypad 5 set key \845 \Kkp6 ; Keypad 6 as keypad 6 ; set key \847 \Kkp1 ; Keypad 1 as keypad 1 set key \848 \Kkp2 ; Keypad 2 as keypad 2 set key \849 \Kkp3 ; Keypad 3 as keypad 3 ; set key \850 \Kkp0 ; Keypad 0 as keypad 0 set key \851 \Kkpdot ; Keypad . as keypad . ; ; Define LK201 key cluster ; set key \4434 \KdecInsert ; Insert as Insert set key \4423 \KdecFind ; Home as Find set key \4425 \KdecPrev ; Page Up as Prev Screen set key \4435 \KdecRemove ; Delete as Remove set key \4431 \KdecSelect ; End as Select set key \4433 \KdecNext ; Page Down as Next Screen ; ; Define shifted key cluster keys as their original local actions ; set key \4935 \Khomscn ; Shift-Home as roll to top of memory set key \4937 \Kupscn ; Shift-Page Up as roll to previous screen set key \4943 \Kendscn ; Shift-End as roll to end of memory set key \4945 \Kdnscn ; Shift-Page Down as roll to next screen ; ; Define miscellaneous keys ; set key \390 \KdecDo ; F12 as DO ; ; End of file: KEYPAD.TAK ;