REM See the WYWTK Index of BBC BASIC Tutorials for more help with BBC BASIC. Many pages give you more than just the code, the way this one does.
    REM wywtk.com/prgm/bas/basb-stars-by-data-read.htm
    REM StarBurstByDataRead
    REM vers 31Mar
    REM
    REM 25 Started 31Mar25
    REM
    DATA 100,30,-80, 80,-5,90,40,-30,-60,-30,40,-15
    MODE 12

    PRINT "There is a non-fatal error in this which makes it less"
    PRINT "fun than it might be. See if you can find and fix!"
    PRINT "(You only have to change a single character)."
    PRINT "Think about wha's 'wrong' with it as it is. Yes- the"
    PRINT "program works... but the pattern could be prettier!"
    PRINT "How could it be prettier? Find the bit in the code that"
    PRINT "would make the pattern pretty like that."
    PRINT
    PRINT "And don't stop there! Make LOTS of changes, and"
    PRINT "change it into a BETTER 'Starburst' program!"

    FOR DoIt=0 TO 8

      xstrt=200+RND(9)+50
      ystrt=400+RND(5)*50

      GCOL 4

      MOVE xstrt,ystrt
      DRAW xstrt-20,ystrt-180

      MOVE xstrt-4,ystrt
      DRAW xstrt-24,ystrt-180

      FOR Ray=0 TO 5
        GCOL RND(14)+1
        READ dx,dy
        REM PRINT dx,dy

        MOVE xstrt,ystrt
        DRAW xstrt+dx,ystrt+dy
      NEXT Ray
      RESTORE
    NEXT DoIt