RosettaCodeData/Task/Pick-random-element/BBC-BASIC/pick-random-element.basic

      DIM list$(5)
      list$() = "The", "five", "boxing", "wizards", "jump", "quickly"
      chosen% = RND(6)
      PRINT "Item " ; chosen% " was chosen which is '" list$(chosen%-1) "'"