;Sedtkeys for enhanced EDT emulation on the LK201 keyboard
;Sedt version 3.2
;Anker Berg-Sonne
A001:LS.
;Control A:	Set indentation level
A004:LD.
;Control D:	Decrease indentation level
A005:LI.
;Control E:	Increase indentation level
A008-@L.
;Control H:	Backspace;Goto line start
A009:TAB.
;Control I:	Tab;Insert a tab character
A010(:D-@W).
;Control J:	Line feed;Delete to beginning of word
A011:K!"Key:"?"As: ".
;Control K:	Define key
A012:FNL.
;Control L:	Enlargen Font
A013:NL.
;Control M:	Return;Insert a carriage return
A016:PR?"Print on file: ".
;Control P:	Print contents of buffer
A018:FNS.
;Control R:     Reduce font
A020:TAD@SR.
;Control T:	Adjust text a tab stop
A021(:D-@L).
;Control U:	Delete to beginning of line
A023:RF.
;Control W:	Refresh display
A027(27:CH).
;Escape:	Insert an escape character
A127(^S(:D@SR|:D-@C)).
;Rubout:	Delete previous character
GA009:SK!"Key:".
;Gold control I:Save key definition in buffer
GA012:LK!"Key:"@SR.
;Gold control L:Load key definition from select range
GA013:SYS?"Operating system command: ".
;Gold Return;   Execute O/S command
GA043+
;Gold +:	Set temporary direction to forward
GA045-
;Gold -:	Set temporary direction to reverse
GA046@M.
;Gold .:	Goto mark
GA060-
;Gold <:	Set temporary direction to reverse
GA062+
;Gold >:	Set temporary direction to forward
GA065:TS.
;Gold A:        Toggle automatic screen shifting
GA066+@EB.
;Gold B:	Goto end of buffer
GA067:CL.
;Gold C:	Center line
GA068:WC.
;Gold D:	Toggle between one and two window mode
GA069:FE?"Edit File: ".
;Gold E:	Edit new file in current buffer
GA0700:X.
;Gold F:	Save current buffer and exit
GA071:FG?"Get File: ".
;Gold G:	Include file at current position
GA072:H.
;Gold H:	Help
GA073:TT.
;Gold I:        Toggle tab expansion/insertion
GA074(9:M^E(-@L)():TF+@PAR9@M).
;Gold J:        Refill paragraph from beginning of line
GA076:TB.
;Gold L:        Toggle block/line cut and paste
GA077:M.
;Gold M:	Set mark
GA079:OS.
;Gold O:	Toggle overstrike mode
GA080(12:CH).
;Gold P:	Insert a form feed character
GA081:Q.
;Gold Q:	Exit without saving current buffer
GA082:RL.
;Gold R:	Enter ruler definition mode
GA083:FS?"Save onto File: ".
;Gold S:	Save contents of buffer
GA084-@BB.
;Gold T:	Goto start of buffer
GA085:UM.
;Gold U:	Undo last command if possible
GA087:WD.
;Gold W:	Toggle between 132 and 80 character screen
GA088:OW.
;Control X:     Switch to previous window
GA090:Z.
;Gold Z:	Clear buffer
GA095:I- 9:M^E(-@L)():TF+@PAR9@M.
;Gold _:	Insert a hyphen and reindent paragraph
F004:EAP@SR.
;F4:	Append select range to paste buffer
F006^C(:FS).
;Interrupt:	Save contents of buffer
F007^C(:FS):CS.
;Resume:	Save contents of buffer and context
F008:Q.
;Cancel:	Quit without saving buffer
F009.
;Main Screen:	Dead key
F0100:X.
;Exit:		Save buffer and exit
F011(27:CH).
;F11(ESC):	Insert an escape character
F012-@L.
;F12(BS):	Goto beginning of line
F013(:D-@W).
;F13(LF):	Delete to beginning of word
F014^C(:FS):SYSTXTF %F %N.LST /G.
;Additional Options:Process file with TXTF
F015:H.
;Help:		Help
F016:SYS?"Operating system command: ".
;Do:		Execute operating system command
F0170:WI.
;F17:		Select buffer 0
F0181:WI.
;F18:		Select buffer 1
F0192:WI.
;F19:		Select buffer 2
F0203:WI.
;F20:		Select buffer 3
F021@N.
;Find:		Goto next occurrence of search string
F022:USR.
;Insert Here:	Paste
F023:D@SR.
;Remove:	Cut
F024:SEL.
;Select:	Set select point at current position
F025-@SCR.
;Prev Screen:	Go one screen up
F026+@SCR.
;Next Screen:	Go one screen down
F027-@V.
;Up Arrow:	Go 1 line up vertically
F028-@C.
;Left Arrow:	Go 1 character back
F029+@V.
;Down Arrow:	Go 1 line down vertically
F030+@C.
;Right Arrow:	Go 1 character forward
F031@L.
;Keypad 0:	Goto next line beginning
F032@W.
;Keypad 1:	Goto next word
F033@EL.
;Keypad 2:	Goto next end of line
F034@C.
;Keypad 3:	Goto next character
F035:A.
;Keypad 4:	Set default direction forward
F036:B.
;Keypad 5:	Set default direction reverse
F037:D@SR.
;Keypad 6:	Cut
F038@PAG.
;Keypad 7:	Goto next page
F039@PAR.
;Keypad 8:	Goto next paragraph
F040:NS.
;Keypad 9:	Substitute next occurrence of search string
F041(:D+@C).
;Keypad ,:	Delete character forward
F042(:D+@W).
;Keypad -:	Delete word forward
F043:SEL.
;Keypad .:	Set select point at current position
F045:H.
;PF2:		Help
F046@N.
;PF3:		Goto next occurrence of search string
F047(:D+@L).
;PF4:		Delete line forward
F048.
;Keypad Enter:	Dead key
F049(^S(:D@SR|:D-@C)).
;Backspace:     Delete character backward
GF004:PL?"Load Paste Buffer From File: ".
;Gold F4:	Load paste buffer from file
GF007.
;Gold Resume:	Dead key
GF015:H.
;Gold Help:     Help
GF016?"SEDT Command: ".
;Gold Do:	Execute Sedt command
GF017:LNLA026.
;Gold F17:	Load keystrokes into key
GF018:LNL!"Key to save learned input in:".
;Gold F18:	Load keystrokes into arbitrary key
GF019@BM.
;Gold F19:      Goto matching bracketing character
GF021@F?"String: ".
;Gold Find:	Goto next occurence of string
GF023:GE@SR.
;Gold Remove:	Load paste buffer from select range without deleting
GF024:RS.
;Gold Select:	Cancel select point
GF025-@BB.
;Gold Prev Screen:Go to top of buffer
GF026+@EB.
;Gold Next Screen:Go to bottom of buffer
GF027:CT.
;Gold Up Arrow:	Position cursor at top of screen
GF0280(-@L:TI).
;Gold Left Arrow:Go backwards until key struck
GF029:CB.
;Gold Down Arrow:Position cursor at bottom of screen
GF0300(+@L:TI).
;Gold Right Arrow:Go forward until key struck
GF031:OL.
;Gold Keypad 0:	Open line
GF032:CE.
;Gold Keypad 1:	Change case EDT style (Select range,found string,character)
GF033(:D+@EL).
;Gold Keypad 2:	Delete to end of line
GF034:CH.
;Gold Keypad 3:	Inert ASCII character
GF035+@EB.
;Gold Keypad 4:	Goto end of buffer
GF036-@BB.
;Gold Keypad 5:	Goto beginning of buffer
GF037:USR.
;Gold Keypad 6:	Undelete paste string
GF038?"Sedt Command: ".
;Gold Keypad 7:	Execute Sedt command
GF039:TF+@PAR.
;Gold Keypad 8:	Fill or justify to end of paragraph
GF040:SUB?"String: "?"By: ".
;Gold Keypad 9:	Substitute one string by another
GF041:UC.
;Gold Keypad ,:	Undelete character
GF042:UW.
;Gold Keypad -:	Undelete word
GF043:RS.
;Gold Keypad .:	Cancel select point
GF046@F?"String: ".
;Gold PF3:	Goto next occurrence of string
GF047:UL.
;Gold PF4:	Undelete Line
GF048(:D+@C+@C:UC).
;Gold Keypad Enter:Swap characters