guess.for

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

      LOOP : PRLOOP
	  GUESS
	      LINE = LINE + 1
	      READ *, ICODE, X
	      AT END, EXIT :PRLOOP
	      IF( ICODE .NE. 1 )EXIT
	      LINE = LINE + 1
	      READ *, ICODE, Y
	      AT END, EXIT
	      IF( ICODE .NE. 2 )EXIT
	      PRINT *, X, Y
	  ADMIT
	      PRINT *, 'INVALID SEQUENCE: LINE =', LINE
	      EXIT :PRLOOP
	  END GUESS
      END LOOP
      END