! Define some default function key macros !

! edit command line to move <n> chars, updating existing move ops !
@#c{{U.c
  <-A-("=%.n|-A-)"=-%.n|0''">-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) '
}}

! go <n> pages of lines down !
@#p{
  U.c (ESLINESONSCREEN)*Q.cL
}

! Function key macros !
@[DC]{}
@[HOME]{(-(.-(0L.))M#c}
@[END]{(-(.-(:L"S.-1|Z'))M#c}
@[NPAGE]{(-(.-(1M#p.))M#c}
@[PPAGE]{(-(.-(-M#p.))M#c}
@[LEFT]{(-M#c}
@[SLEFT]{(-(.--W.)M#c}
@[RIGHT]{(1M#c}
@[SRIGHT]{(-(.-W.)M#c}
@[UP]{(-(.-B.)M#c}
@[DOWN]{(-(.-L.)M#c}