! Here we define some reasonable default function key macros.
  Their corresponding command-line editing macros begin with  !

! edit command line to move <n> chars, updating existing move ops !
@#c{{U.c
  <-A-("=-D1;' -D>
  .">
    -A-)"= -S(\U.v .,Z-2D 0A-C"=2DQ.v|2D-Q.v'%.c | I(Q.c '
  | I(Q.c '
  "> Q.c\IC) | -Q.c\IR) '
}}

! Make DELETE an ESCAPE surrogate.
  Macro is enabled everywhere. !
@[DC]{}

! Make SHIFT+DELETE a rubout/re-insert key.
  This reverses the ^G modifier for BACKSPACE.
  The macro is enabled everywhere. !
@[SDC]{}

! Command line editing macros.
  They are enabled only in the start state (i.e. they
  have no effect in string arguments, etc.). !

@[HOME]{
  .ESLINEFROMPOSITIONESPOSITIONFROMLINEU.p
  Q.pU.l <Q.l-."U 1; ' Q.l-.AU.c Q.c- "N Q.c-9"N Q.lU.p 1; '' %.l>
  Q.p-.M#c
}
@[HOME]{(M[HOME]}
1U[HOME]

@[END]{
  .ESLINEFROMPOSITIONESGETLINEENDPOSITION-.M#c
}
@[END]{(M[END]}
1U[END]

@[NPAGE]{
  .ESLINEFROMPOSITION+(ESLINESONSCREEN)
  ESPOSITIONFROMLINEU.p
  Q.p"< Z | Q.p '-.M#c
}
@[NPAGE]{(M[NPAGE]}
1U[NPAGE]

@[PPAGE]{
  .ESLINEFROMPOSITION-(ESLINESONSCREEN)U.l
  Q.l"< 0 | Q.lESPOSITIONFROMLINE '-.M#c
}
@[PPAGE]{(M[PPAGE]}
1U[PPAGE]

@[LEFT]{
  ."=0|-1'M#c
}
@[LEFT]{(M[LEFT]}
1U[LEFT]

@[SLEFT]{
  0,0,.ESWORDSTARTPOSITIONESWORDSTARTPOSITION-.M#c
}
@[SLEFT]{(M[SLEFT]}
1U[SLEFT]

@[RIGHT]{
  .-Z"=0|1'M#c
}
@[RIGHT]{(M[RIGHT]}
1U[RIGHT]

@[SRIGHT]{
  0,0,.ESWORDENDPOSITIONESWORDENDPOSITION-.M#c
}
@[SRIGHT]{(M[SRIGHT]}
1U[SRIGHT]

@[UP]{
  .ESGETCOLUMN
  (.ESLINEFROMPOSITION-1)
  ESFINDCOLUMN-.M#c
}
@[UP]{(M[UP]}
1U[UP]

@[DOWN]{
  .ESGETCOLUMN
  (.ESLINEFROMPOSITION+1)
  ESFINDCOLUMN-.M#c
}
@[DOWN]{(M[DOWN]}
1U[DOWN]

@[CLOSE]{(EX)}
1U[CLOSE]

! enable function key (macro) support !
0,64ED