anchor.diff:  !*  CREATE THE STATE INDEX  *
   !****************************
   DO T = 1, NPER
  -  K=0
  +  
  +    K=0
           DO E=10,20
             IF(E.GT.10+T-1) THEN
               CYCLE
  
positive.code: 
  
  
  PRINT *, KMAX
  
  END PROGRAM 
negative.code:       DIMENSION PROB1(40,4)
        INTEGER X1,X2,E,T
  
    open(9,file='init.txt')
   1500 FORMAT(1x,i3,1x,i5,1x,f7.0,1x,f6.0,1x,f6.2)
  
        READ(9,1500) NPER,NPOP,DRAW,DRAW1,TAU
  