（1）第一个问题：比较汗！                                   （2）第二个问题
  1111 gs（i）=0.2                                                       subroutine abc（x）
            。。。。。。                                                     。。。。。。
  2222 zone（i）=0.2                                                    do 5 i=1，N
           。。。。。                                                         。。。。。。
  3333 continue                                                            return （这个return是跳出子程序，还是跳出循环?!）
   goto（1111，2222，3333），isb                       5    continue
（3）第三个问题
1111 gs（i）=0.2
          。。。。。。
         pause 1111
         goto 1111
         我是个新手望哥哥姐姐弟弟妹妹指教！