*
*  QEDTSH.KEY QEdit key definitions configured by Timo Salmi  Wed 25-Dec-91
*                   ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿
*                   ³ Harddisk version ³
*                   ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ
*
*  Configuration specific commands: @7 @r ^s @-
*  Change the paths in these commands as appropriate for you
*

*       My own additions 
*       |              The unchanged definitions
*       |              |
*
* function key set
*

f1      QuickHelp
f2      SaveFile
f3      EditFile
f4
f5                      MakeCtrOfScreen
f6      NextWindow
f7
f8
f9                      Shell
f10                     MainMenu

*Shift keys
#f1
#f2
#f3     Sort
#f4
#f5     MakeTopOfScreen
#f6     PrevWindow
#f7     MacroBegin Upper CursorRight
#f8     MacroBegin Lower CursorRight
#f9     MacroBegin Flip CursorRight
#f10

*Control keys
^f1     MacroBegin "?þmarkþ?"
^f2     MacroBegin Find "?þmarkþ?" Return Return JFalse endf2: MakeCtrOfScreen DelCh DelCh DelCh DelCh DelCh DelCh DelCh DelCh endf2:
^f3
^f4     Align
^f5     MakeBotofScreen
^f6
^f7     ToggleBoxDraw
^f8     ToggleBoxType
^f9
^f10

*Alt keys
@f1
@f2                     InsertLine
@f3                     Match
@f4
@f5                     ScreenLeft
@f6                     ScreenRight
@f7
@f8
@f9                     Dos
@f10

*
* special keys
*

cursorup                CursorUp
cursordown              CursorDown
cursorleft              CursorLeft
cursorright             CursorRight
^cursorleft             WordLeft
^cursorright            WordRight
home                    BegLine
end                     EndLine
^home                   BegScreen
^end                    EndScreen
pgup                    PageUp
pgdn                    PageDown
^pgdn                   EndFile
^pgup                   BegFile

#tab                    TabLt
tab                     TabRt

ins                     ToggleInsert
del                     DelCh

backspace               backspace
^backspace              DelLtWord

enter                   return
^enter                  ExecuteScrap

escape                  escape

grey*
grey+
grey-
#del                    InputCh
#ins                    InputCh
`                       InputCh
~                       InputCh
/                       InputCh

^prtsc
^2      GetPrev
* Reload the current file:
^6      MacroBegin EditFile CurrentFilename Return NewFile
^[
^\
^]
^-

*
* alternate keys
*

@a
@b      MacroBegin MainMenu 'b'
@c      MarkCharacter
@d
@e                      MacroBegin MainMenu 'e'
@f                      MacroBegin MainMenu 'f'
@g
@h
@i
@j
@k      MarkColumn
@l
@m                      MacroBegin MainMenu 'm'
@n                      NextFile
@o                      MacroBegin MainMenu 'o'
@p                      MacroBegin MainMenu 'p'
@q                      MacroBegin MainMenu 'q'
@r      MacroBegin MacroRead "c:\qed\*.mac"
@s                      MacroBegin MainMenu 's'
@t
@u
@v
@w                      MacroBegin MainMenu 'w'
@x                                            GExit
@y
@z
* Print a single line
@1 MacroBegin UnmarkBlock MarkLine PrintBlock UnmarkBlock CursorDown
@2
@3
@4
@5
@6
* Compile the current file as a Turbo Pascal file
@7 MacroBegin Dos 'c:\turbpasc\turbo50\tpc /ur:\;c:\pasohj\tpu50 /er:\ ' CurrentFilename Return
* To write the current date and time use alt-8 alt-9 atl-0 in succession
@8 InsertDate
* Switch day and month:
@9 MacroBegin WordLeft WordLeft WordLeft backspace WordRight MarkBlockBegin WordRight MarkBlockEnd WordLeft WordLeft MoveBlock UnmarkBlock WordRight WordRight WordRight "  "
@0 InsertTime
* Check the spelling of the current file (see spell.qma for details)
@- MacroBegin Dos 'c:\sanat\spell c:\sanat\spelled3.dny /f ' CurrentFilename ' | list /s' Return
@=

*
* control keys
*

^a      MacroBegin RepeatFind MakeCtrOfScreen

^b_a    AppendScrBuff
^b_l                    GetScrbuff
^b_o    WrapPara
^b_s                    storescrbuff
^b_w    PrintBlock

^c
^d
^e
^f
^g
^h
^i
^j                      GotoLine

^k_b                    MarkBlock_begin
^k_c                    CopyBlock
^k_d                    Exit
^k_f                    ChangeFilename
^k_h                    UnmarkBlock
^k_j    JoinLine
^k_k                    MarkBlockEnd
^k_l    MarkLine
^k_p                    PrevFile
^k_r                    ReadBlock
^k_t                    MarkWord
^k_v                    MoveBlock
^k_w                    WriteBlock
^k_y                    DeleteBlock

^l                      RepeatFind
^m                      MacroRecord
^n                      SplitLine

^o_c                    CloseWindow
^o_g                    GrowWindow
^o_h                    HorizontalWindow
^o_i    ToggleIndent
^o_l                    SetPrintLeftMargin
^o_o                    OneWindow
^o_r                    SetRmargin
^o_s                    ShrinkWindow
^o_w                    ToggleWordwrap
^o_z                    ZoomWindow

^p                      Literal

^q_a                    FindReplace
^q_b                    GotoBlockBeg
^q_f                    Find
^q_k                    GotoBlockEnd
^q_l                    UndoCursorline
^q_p                    PrevPosition
^q_q                    RepeatCmd
^q_y                    DelToEol

^r
^s      MacroBegin EditFile "c:\teksti\set*.txt"
^t                      DelRtWord
^u                      Unkill
^v

^x_f1   OneWindow
^x_f2   HorizontalWindow
^x_p    PrevWindow
^x_x    NextFile

^y      MacroBegin DelLine BegLine
^z