C  Code of Figure 7.6, page 281 from
C  Kenneth C. Louden, Programming Languages
C  Principles and Practice 2nd Edition
C  Copyright (C) Brooks-Cole/ITP, 2003

       REAL X
       READ *, X
       IF (X.GT.0) GOTO 10
       IF (X.LT.0) GOTO 20
       X = 1
       GOTO 30
   10  X = X + 1
       GOTO 30
   20  X = -X
       GOTO 10
   30  CONTINUE
       PRINT *, X
       RETURN
       END