\ acceptor for function keys, codes $xx00

ONLY FORTH ALSO DEFINITIONS EDITOR ALSO

CREATE BROWSING
   (   @q)   16 SWITCHES FINISHED
   (   @y)   21 SWITCHES SAVE-FILE
   (   @x)   45 SWITCHES FLUSH
   (   f1)   59 SWITCHES EXIT_LOAD
   (   f2)   60 SWITCHES SAVE_EXIT_LOAD
   (   f6)   64 SWITCHES DELETE-LINE
   (   up)   72 SWITCHES S-UP
   ( pgup)   73 SWITCHES C-UP-PAGE
   (   dn)   80 SWITCHES S-DOWN
   ( pgnd)   81 SWITCHES C-DOWN-PAGE
   ( ^end)  117 SWITCHES END-FILE
   ( ^pdn)  118 SWITCHES F-DOWN-PAGE
   ( ^hom)  119 SWITCHES HOME-FILE
   ( ^pup)  132 SWITCHES F-UP-PAGE
   (  ^up)  141 SWITCHES S-UP
   (  ^dn)  145 SWITCHES S-DOWN
                ENDSWITCH

: BROWSER ( -- )
   CTRLKEY @ BFLIP BROWSING CODESWITCH DROP EDWIN REFRESH SYSWIN ;


ONLY FORTH ALSO DEFINITIONS

