10 REM > Key16
   20 :
   30 REPEAT
   40   :
   50   REM Test 16-bit INKEY call
   60   A%=129:X%=&8000+100:Y%=X%DIV256
   70   REPEAT K%=((USR&FFF4)AND&FFFF00)DIV256
   80     PRINT RIGHT$("000"+STR$~K%,4);" ";
   90   UNTIL K%=13
  100   PRINT
  110   :
  120   REM Test 16-bit GET call
  130   REPEAT K%=ADVAL(16)
  140     PRINT RIGHT$("000"+STR$~K%,4);" ";
  150   UNTIL K%=13
  160   PRINT
  170   :
  180 UNTIL FALSE

Download Key16

BBC BASIC detokeniser and syntax highlighter by Ben Ryves.