SUBROUTINE ASKT(QOUT,IMIN,IMAX,IDEFLT,QLO,QHI) C C C Original version : R J Carpenter C C This version : J P Lamargot 10-Sep-82 C C+++ C Traduction des messages en francais C Gestion du curseur sur une VT 100 pour C - Ecriture des messages sur la 24eme ligne C - Saisie de la nouvelle reponse au meme endroit C que celle qui etait erronnee, apres effacement de celle-ci C--- C IMPLICIT BYTE (Q) C C DIMENSION QOUT(1),QIN(81) C+++ DIMENSION IAM(7) BYTE ASKSAV(3),ASKER2(36),ASKER3(36),ASKER4(34),ASKER5(34) COMMON /ASKCOM/ QS(8) COMMON /ASKER / ASKER2,ASKER3,ASKER4,ASKER5 COMMON /ASKINI/ IAM,ASKSAV C--- C C D TYPE 1001,IMIN,IMAX,QLO,QHI D1001 FORMAT(1H ,I6,2X,I6,2X,L1,2X,L1) C C TYPE 1 C+++ 1 FORMAT(1H+,$' [Texte ') C--- C C IF(QLO .EQ. .FALSE. .AND. QHI .EQ. .FALSE. ) GOTO 40 C C C+++ C--- C C IF(.NOT. QLO) GOTO 30 C C CALL ASKNLI(1,IMIN) C+++ DO 300 I = 1,8 ASKER4(23+I) = QS(I) 300 CONTINUE C--- 30 CONTINUE C+++ C--- IF(.NOT. QHI) GOTO 40 C C CALL ASKNLI(1,IMAX) C+++ DO 310 I = 1,8 ASKER5(23+I) =QS(I) 310 CONTINUE C C 40 TYPE 41 41 FORMAT(1H+,$'] ? ') C--- C C C+++ 50 TYPE 61,ASKSAV 61 FORMAT(1H$,3A1) !Save cursor ACCEPT 51,IC,(QIN(J),J=1,80) C--- 51 FORMAT(Q,80A1) QIN(IC+1)=0 C C IF( .NOT. QLO) GOTO 60 IF( IC .GE. IMIN) GOTO 60 CALL ASKERR(4) GOTO 50 C C 60 IF(.NOT. QHI) GOTO 70 IF( IC .LE. IMAX) GOTO 70 CALL ASKERR(5) GOTO 50 C C 70 DO 80 I=1,IC+1 QOUT(I)=QIN(I) 80 CONTINUE C C RETURN C C END