Sources Esope | Cast3M

sais
C SAIS      SOURCE    CHAT      11/05/27    21:15:28     6984
C  Saisie interactive d'un objet
C
      SUBROUTINE SAIS
      IMPLICIT INTEGER(I-N)
      IMPLICIT REAL*8 (A-H,O-Z)
 
-INC PPARAM
-INC CCOPTIO
-INC SMTEXTE
       character*8 LEGEND(1),type
       character*45 text
       character*80 chaine
        LEGEND(1)='   Ok  '
       call lircha(chaine,1,iretou)
       call lircha(type,1,iretou)
       if (ierr.ne.0) return
       ncou=16
       CALL TRINIT(25,DIOCAD,DIOCAD,TITREE,0.15,.TRUE.,ncou)
 400   CONTINUE
       CALL MENU(LEGEND,2,8)
       text=' '
       call trget(chaine,text)
       if( text(1:1) .ne. '''') then
         segini mtexte
         mtext=text
         ncart=45
         call ecrobj('TEXTE',mtexte)
         call lirobj(type,iobj,0,iretou)
         segsup mtexte
         if (iretou.ne.0)  goto 500
         call razpil
         goto 400
       else
         if( type.eq.'MOT     ') then
           do ifi=45,1,-1
             if(text(ifi:ifi).ne.' ') go to 401
           enddo
  401      continue
           ifi = ifi-1
           do ide=2,45
             if(text(ide:ide).ne.' ') go to 402
           enddo
  402      continue
           if(ide.gt.ifi) then
             call razpil
             go to 400
           endif
           call ecrcha(text(ide:ifi))
           call ecrcha('MOT' )
           go to 500
         else
           call razpil
           go to 400
         endif
       endif
 500   CONTINUE
       call refus
      END