PROGRAM SCK3
      COMMON J
      N4 = 345
      J=1                                                   
      IF(N4)49,49,41                                        
   41 DO 48 I=1,N4,1                                        
      IF(J-1)43,42,43                                       
   42 J=2                                                   
      GO TO 44                                              
   43 J=3                                                   
   44 IF(J-2)46,46,45                                       
   45 J=0                                                   
      GO TO 47                                              
   46 J=1                                                   
   47 IF(J-1)411,412,412                                    
  411 J=1                                                   
      GO TO 48                                              
  412 J=0                                                   
   48 CONTINUE                                              
   49 CONTINUE                                              
      END