写一段有数字标签的fortran77 的代码

下面是一段有数字标签的Fortran77代码示例：

100  DO I = 1, N
      IF (I .GT. 10) GO TO 200
      A(I) = B(I) + C(I)
      PRINT *, A(I)
200  CONTINUE
      END

在这个例子中，`100` 和 `200` 是标签，用于控制程序的流程。当程序执行到标签为`100`的位置时，它会执行循环，如果`I`的值大于10，则跳转到标签为`200`的位置，否则执行`A(I) = B(I) + C(I)`和`PRINT *, A(I)`语句。当程序执行到标签为`200`的位置时，它会继续执行后面的语句，最终结束程序。