KEYLIST START
##
##  $VER: XDME.keys 1.02 (04.12.92) by b_noll
##
##  Keymap - File for XDME 1.60.04
##
##  WARNING: That file was manually created,
##	     plese do not overwrite it by
##	     a machine-created (the structure will be lost)
##
##  WARNING: the current XDME.edrc file would produce another
##	     XDME.keys
##

	KEY -spc
	COM ifelse (\$viewmode=1) (pagedown) (( ))

	KEY c-`
	COM (\')
	KEY a-`
	COM titlevar $QTitle2 filter (am) (q ( ) s a c x y z l m r ) (QNum) (add QNum 238 titlevar QNum qset \$QNum)

##
##  Delete Keys
##

	KEY -bac
	COM eval (ifelse (\$viewmode=1) (ifelse e (back) (pageup)) (back))
	KEY s-bac
	COM left while !ca (del left) while ca (del left) right
	KEY c-bac
	COM while !l bs

	KEY -del
	COM del
	KEY s-del
	COM while !ca (ifelse r (break) (del)) while ca (del)
	KEY c-del
	COM remeol

##
##  Tabulator
##

	KEY -tab
	COM ifelse cb (goto block while cb (first repeat $tabs (( )) down) goto block) (ifelse esc (matchfstart) (repeat tr (space)))
	KEY s-tab
	COM ifelse cb (goto block while cb (first repeat $tabs (if c=32 del) down) goto block) (repeat tl left)
	KEY c-tab
	COM adjustline

##
##  Return
##

	KEY -ent
	COM return
	KEY -ret
	COM ifelse (\$viewmode=1) (down) (split down adjustline)
	KEY s-ret
	COM firstnb down

	KEY -esc
	COM esc
	KEY c-esc
	COM recall

	KEY a-9
	COM (()) left
	KEY sa-9
	COM (`') left
	KEY a-0
	COM ((  );) col -3

##
##  Movement
##

	KEY -up
	COM up
	KEY a-up
	COM pageup
	KEY s-up
	COM top
	KEY c-up
	COM scrollup

	KEY -dow
	COM down
	KEY a-dow
	COM pagedown
	KEY s-dow
	COM bottom
	KEY c-dow
	COM scrolldown

	KEY -rig
	COM right
	KEY a-rig
	COM wright
	KEY s-rig
	COM last
	KEY c-rig
	COM wright

	KEY -lef
	COM left
	KEY a-lef
	COM wleft
	KEY s-lef
	COM first
	KEY c-lef
	COM wleft

##
##  The Function keys
##

	KEY -f1
	COM qualifier x
	KEY -f2
	COM qualifier y
	KEY -f3
	COM arpload
	KEY -f4
	COM newwindow chfilename () -f3
	KEY -f5
	COM escimm (chfilename `)
	KEY s-f5
	COM newwindow -f5
	KEY -f6
	COM if modified baksaveold quit
	KEY -f7
	COM arpsave
	KEY -f8
	COM quit
	KEY -f10
	COM if modified baksaveold
	KEY s-f10
	COM iconify

##
##   Move Movement
##

	KEY sc-nk1
	COM ping 1
	KEY sc-nk2
	COM ping 2
	KEY sc-nk3
	COM ping 3

	KEY c-nk1
	COM pong 1
	KEY c-nk2
	COM pong 2
	KEY c-nk3
	COM pong 3

	KEY a-nk1
	COM select first
	KEY a-nk+
	COM select next
	KEY a-nk-
	COM select prev

##
##  Mapping of HELP:
##	sourcing and referencing
##

	KEY s-hel
	COM ref
	KEY -hel
	COM ctags

	KEY ca-hel
	COM title (REXX Parses ...) rx ('$currentline')
	KEY cA-hel
	COM title (DOS Parses ...) execute ($currentline)
	KEY sc-hel
	COM title (DME Parses ...) eval ($currentline)

	KEY x-hel
	COM esc (vctags ()) left
	KEY sx-hel
	COM esc (vref ()) left

	KEY cax-hel
	COM esc (rx ("")) col -2
	KEY cAx-hel
	COM esc (execute ()) left
	KEY scx-hel
	COM esc (eval ()) left

	KEY Lx-lmb
	COM tomouse ctags

##
##  Block - support
##

	KEY c-u
	COM unblock

	KEY c-w
	COM escimm (bsave `)

	KEY c-d
	COM bcopy

	KEY c-m
	COM bmove

	KEY c-e
	COM bdelete

	KEY sc-b
	COM bsource

	KEY sc-s
	COM goto block bsave t:dme.block execute (sort T:dme.block to T:dme.sort) pushmark bdelete insfile T:dme.sort popmark execute (delete T:dme.sort T:dme.block)

	KEY c-l
	COM escimm (insfile `)

	KEY aL-lmb
	COM tomouse c-b

	KEY c-b
	COM if block unblock block

##
##  Searching and replacing
##

	KEY c-r
	COM escimm (multireplace )

	KEY c-i
	COM ignorecase toggle

	KEY c-f
	COM escimm (find `)
	KEY sc-f
	COM escimm (findr )

	KEY c-n
	COM next
	KEY sc-n
	COM nextr

	KEY c-p
	COM prev
	KEY sc-p
	COM prevr

##
##  Lines
##

	KEY c-s
	COM -return up last

	KEY sc-u
	COM undo

	KEY c-y
	COM deline
	KEY sc-y
	COM undeline

	KEY c-g
	COM escimm (goto )

	KEY c-j
	COM last join
	KEY sc-j
	COM last join del

	KEY c-x
	COM insline down firstnb rem (first if !r (while !ca (up ( ) down))) up

##
##  The Mouse-buttons
##

	KEY L-lmb
	COM tomouse if $_mouseblock ( set _markj (col $colno goto $lineno) resettoggle $_movemark )

	KEY R-rmb
	COM iconify

	KEY M-mmb
	COM clipins

	KEY L-mmo
	COM ifelse !$_mouseblock ( tomouse ) ( ifelse $_movemark ( quiet (pushdot unblock $_markj block popdot) tomouse block ) ( toggle $_movemark ))

##
##  Misc
##

	KEY sc-w
	COM wordwrap toggle

	KEY sc-r
	COM reformat

	KEY c-o
	COM insertmode toggle



##
##  Map ctl-c to null for breaks
##

	KEY c-c
	COM null

KEYLIST END