GOSUB subroutine

      (loop)
      PRINT "Infinite loop"
      GOTO loop
      END

      (subroutine)
      PRINT "In subroutine"
      WAIT 100
      RETURN