;
; wp.key - 10/7/91 - R. Ruckert, Medtronic, Inc.
;
if eq \%g WP goto fini
def \%g WP
set key clear
; define WordPerfect keys; they are control-F followed by function
; basic function keys
set key \315 \6CA     ; F1 - cancel
set key \316 \6SR     : F2 - search
set key \317 \6HE     ; F3 - help
set key \318 \6IN     ; F4 - indent
set key \319 \6LF     ; F5 - list files
set key \320 \6BO     ; F6 - bold
set key \321 \6EX     ; F7 - exit
set key \322 \6UN     ; F8 - underline
set key \323 \6EN     ; F9 - end field
set key \324 \6SV     ; F10 - save
set key \389 \6RC     ; F11 - reveal codes
set key \390 \6BL     ; F12 - block
; shifted keys
set key \852 \6SE     ; sF1 - setup
set key \853 \6SL     ; sF2 - search left
set key \854 \6SW     ; sF3 - switch
set key \855 \6LR     ; sF4 - left/right indent
set key \856 \6DA     ; sF5 - date / outline
set key \857 \6CE     ; sF6 - center
set key \858 \6PR     ; sF7 - print
set key \859 \6FM     ; sF8 - format
set key \860 \6ME     ; sF9 - merge codes
set key \861 \6RE     ; sF10 - retrieve
; alt keys
set key \2408 \6TH    ; aF1 - thesaurus
set key \2409 \6RP    ; aF2 - replace
set key \2410 \6RC    ; aF3 - reveal codes
set key \2411 \6BL    ; aF4 - block
set key \2412 \6MT    ; aF5 - mark text
set key \2413 \6FR    ; aF6 - flush right
set key \2414 \6MC    ; aF7 - math columns (columns/tables)
set key \2415 \6ST    ; aF8 - style
set key \2416 \6GR    ; aF9 - graphics
set key \2417 \6MA    ; aF10 - macro
; control keys
set key \1374 \6SH    ; cF1 - shell
set key \1375 \6SP    ; cF2 - spell
set key \1376 \6SC    ; cF3 - screen
set key \1377 \6MO    ; cF4 - move
set key \1378 \6TE    ; cF5 - text in/out
set key \1379 \6TA    ; cF6 - tab align
set key \1380 \6FN    ; cF7 - footnote
set key \1381 \6FO    ; cF8 - font
set key \1382 \6MS    ; cF9 - merge/sort
set key \1383 \6MD    ; cF10 - macro define
; other keys
set key \27 \kpf1                          ; <esc> = PF1 (Gold key)
set key \5  \27                            ; <ctrl-E> = escape
set key \2322  \27                         ; <alt-E> = escape
set key \270 \127			   ; <backspace> = del
set key \2432 \17\28\28h\13'\13e1\13r00\13 ; <alt-9> = panic key
set key \9 \kexit                          ; <alt-pgup> = attention
set key \327 \27OP1                        ; <home> = top of doc
set key \335 \27OPb                        ; <end> = bottom of doc
set key \339 \27OS                         ; <del> = select
set key \330 \10                           ; <numpad -> = lf
set key \338 \27Op                         ; <insert> = screen exit
set key \329 \27[5~                        ; <pgup> = prev page
set key \337 \27[6~                        ; <pgdn> = next page
set key \334 \27On                         ; <numpad +> = select
;
; exhanced keyboard keys
;
set key \2457 \kexit                        ; <alt-pgup> = attention
set key \4423 \27OPt                        ; <home> = top of doc
set key \4431 \27OPb                        ; <end> = bottom of doc
set key \4435 \127			    ; <del> = delete
set key \4434 \27Op                         ; <insert> = screen exit
set key \4425 \27[5~                        ; <pgup> = prev page
set key \4433 \27[6~                        ; <pgdn> = next page