RosettaCodeData/Task/Keyboard-macros/BBC-BASIC/keyboard-macros-1.basic

      *KEY 1 |!|A
      *KEY 2 |!|B
      REPEAT
        key% = INKEY(1)
        CASE key% OF
          WHEN &81: PROCmethod1
          WHEN &82: PROCmethod2
        ENDCASE
      UNTIL FALSE
      END

      DEF PROCmethod1
      PRINT "You pressed F1"
      ENDPROC

      DEF PROCmethod2
      PRINT "You pressed F2"
      ENDPROC