RosettaCodeData/Task/Flow-control-structures/BBC-BASIC/flow-control-structures.basic

      GOSUB subroutine

      (loop)
      PRINT "Infinite loop"
      GOTO loop
      END

      (subroutine)
      PRINT "In subroutine"
      WAIT 100
      RETURN