C ZTAOUZ    SOURCE    CB215821  26/10/26    21:16:29     12682          
      SUBROUTINE ZTAOUZ (NN,IDINS)
C-----------------------------------------------------------------------
C
C                       SORTIE DU FICHIER GRAPHIQUE
C
C     NN GT 0   DEBUT DE GRAPHIQUE  NUMERO LOGIQUE  NN
C     NN EQ 0   INSTRUCTION A SORTIR
C     NN LT 0   FIN DE GRAPHIQUE  VIDAGE DU BUFFER
C
C-----------------------------------------------------------------------
      IMPLICIT INTEGER(I-N)
      SAVE
      DIMENSION II(2,12),JJ(3,8),INOP(2),IDINS(2)
      EQUIVALENCE (II(1,1),JJ(1,1))
      CHARACTER*80 BUF
      COMMON /CLGI/L6C
      CHARACTER*64 L6C
      DIMENSION KK(5)
      DATA LR,IR,NL /12,0,0/
      DATA INOP /257,257/
C
      IR=IR+1
C     IF (NN)                                      11, 9,10
      IF (NN .LT. 0) GOTO 11
      IF (NN .EQ. 0) GOTO 9
      GOTO 10
      
    9 II(1,IR)=IDINS(1)
      II(2,IR)=IDINS(2)
      
C     IF (IR-LR)                                   50,14,14      
      IF (IR-LR .LT. 0) THEN
        GOTO 50
      ELSE
        GOTO 14
      ENDIF
      
   10 IF (IR.EQ.1)                                 GO TO 18
   11 DO 12 JR=IR,LR
        II(1,JR)=INOP(1)
        II(2,JR)=INOP(2)
   12 CONTINUE
   14 IF (NL.EQ.0)         GOTO 18
      DO 1002 K=1,8
        J4=0
        DO 16 J=1,3
           KK(J)=JJ(J,K)/256
           JJ(J,K)=JJ(J,K)-KK(J)*256
           IF (MOD(JJ(J,K),64).EQ.0)     JJ(J,K)=JJ(J,K)+1
           J4=J4*256+JJ(J,K)
   16   CONTINUE
        KK(4)=    J4/4096
        KK(5)=MOD(J4,4096)
      DO 1001 J=1,5
         DO 17 I=1,2
      BUF(10*K+2*J-I-9:10*K+2*J-I-9)=
     # L6C(MOD(KK(J),64)+1:MOD(KK(J),64)+1)
            KK(J)=KK(J)/64
   17 CONTINUE
 1001 CONTINUE
 1002 CONTINUE
 1000 FORMAT(A80)
      WRITE (25,1000) BUF
   18 IR=0
C     IF (NN)                                      30,50,20
      IF (NN .LT. 0) GOTO 30
      IF (NN .EQ. 0) GOTO 50
      GOTO 20
      
   20 NL=NN
      IR=1
      II(1,1)=IDINS(1)
      II(2,1)=IDINS(2)
                                                     RETURN
   30 CONTINUE
   50                                                RETURN
      END