CHARACTER*3 TEMP(2)
      CHARACTER FIN(4,4)
      DATA TEMP /"kou", "hee"/, FIN /"d", "t", "t", "d", "t", "d", "d",
     1 "t", "d", "t", "t", " ", "d", "d", "t", " "/
      DO 100 ISECTN = 1, 2
      DO 100 ISTNZA = 1, 2
      PRINT 1001, TEMP(MOD(ISTNZA+1, 2)+1), FIN(1, ISECTN*2+ISTNZA-2)
 1001 FORMAT(1X,7HHet is ,A3,A1)
      IF (ISECTN .EQ. 2) GO TO 20
      PRINT 1002, TEMP(MOD(ISTNZA+1, 2)+1), FIN(2, ISTNZA)
 1002 FORMAT(1X,11HJa, het is ,A3,A1)
      GO TO 30
   20 PRINT 1003, TEMP(MOD(ISTNZA, 2)+1), FIN(2, ISTNZA+2)
 1003 FORMAT(1X,12HNee, het is ,A3,A1)
   30 IF (ISECTN .EQ. 2) GO TO 40
      PRINT 1004, TEMP(MOD(ISTNZA, 2)+1), FIN(3, ISTNZA)
 1004 FORMAT(1X,12HHet is niet ,A3,A1)
      GO TO 50
   40 PRINT 1005, TEMP(MOD(ISTNZA+1, 2)+1), FIN(3, ISTNZA+2)
 1005 FORMAT(1X,13HNiet, het is ,A3,A1/)
      GO TO 100
   50 PRINT 1006, TEMP(MOD(ISTNZA, 2)+1), FIN(4, ISTNZA)
 1006 FORMAT(1X,17HNee, het is niet ,A3,A1/)
  100 CONTINUE
      STOP
      END
-- 
Col. G. L. Sicherman
gls@hrcms.ATT.COM