COMMON J
      I=1
      N4=345*I
      X1=1.0
      X2=-1.0
      X3=-1.0
      X4=-1.0
      J=1                                                               SCK   51
      IF(N4)49,49,41                                                    SCK   52
   41 DO 48 I=1,N4,1                                                    SCK   53
      IF(J-1)43,42,43                                                   SCK   54
   42 J=2                                                               SCK   55
      GO TO 44                                                          SCK   56
   43 J=3                                                               SCK   57
   44 IF(J-2)46,46,45                                                   SCK   58
   45 J=0                                                               SCK   59
      GO TO 47                                                          SCK   60
   46 J=1                                                               SCK   61
   47 IF(J-1)411,412,412                                                SCK   62
  411 J=1                                                               SCK   63
      GO TO 48                                                          SCK   64
  412 J=0                                                               SCK   65
   48 CONTINUE                                                          SCK   66
   49 CONTINUE                                                          SCK   67
      PRINT *,N4
      PRINT *,J
      PRINT *,J
      PRINT *,X1
      PRINT *,X2
      PRINT *,X3
      PRINT *,X4
      END