cycle.for

开放源码的编译器open watcom 1.6.0版的源代码

      LOOP
	  WRITE( UNIT=*, FMT='(A)' ) 'Enter a number'
	  READ( UNIT=*, FMT='(F10.4)', IOSTAT=IOS ) X
	  IF( IOS .NE. 0 ) CYCLE
	  IF( X .LT. 0 ) EXIT
	  PRINT *, X, SQRT( X )
      ENDLOOP
      PRINT *, 'Done'
      END