home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
OS/2 Shareware BBS: 5 Edit
/
05-Edit.zip
/
me34src.zip
/
me3
/
mutt
/
contrib
/
sunterm.mut
< prev
next >
Wrap
Text File
|
1995-01-14
|
1KB
|
61 lines
;;
;; File:
;; sun.mut
;;
;; Description:
;; SUN-UNIX related stuff.
;;
;; This code is based on xterm.mut.
;;
;; History:
;; 930113 M.J. van der Velden
;; Public Domain (Version 1.0)
;;
(defun
;; soft keys: ESC [ ...
sofkeys
{
(string c)
(exe-key
(switch (getchar)
"A" 0x0843 ;; Up arrow
"B" 0x0844 ;; Down arrow
"C" 0x0845 ;; Right arrow
"D" 0x0846 ;; Left arrow
"2" { ;; Functions keys: ESC [ 2 x x z
(c (concat (getchar) (getchar))) (getchar)
(switch c
"02" 0x0831 ;; f1
"25" 0x0832 ;; f2
"26" 0x0833 ;; f3
"27" 0x0834 ;; f4
"28" 0x0835 ;; f5
"29" 0x0836 ;; f6
"30" 0x0837 ;; f7
"31" 0x0838 ;; f8
"32" 0x0839 ;; f9
"33" 0x0830 ;; f10
"14" 0x0841 ;; Home
"20" 0x0842 ;; End
"16" 0x0849 ;; PgUp
"22" 0x084A ;; PgDn
)
}
default {
(msg "Unknown key")
(done)
}
)
)
}
MAIN
{
(bind-to-key "sofkeys" "^[[")
}
)