while.for

来自「开放源码的编译器open watcom 1.6.0版的源代码」· FOR 代码 · 共 11 行

      X = 0.0
      WHILE( X .LT. 10.0 )DO
	  PRINT *, X, SQRT( X )
	  X = X + 1.0
      ENDWHILE
      DO 10 WHILE( X .LT. 20.0 )
	  PRINT *, X, SQRT( X )
	  X = X + 1.0
10    CONTINUE
      END