C***************************************************************************** C C SUBROUTINE ASKNLI(ICODE,IX) C C C Original version : R J Carpenter 7-Nov-79 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 C BYTE QS C C COMMON /ASKCOM/ QS(8) C C GOTO (10,20) ICODE C C 10 ENCODE(8,11,QS)IX 11 FORMAT(I8) GOTO 30 C C 20 ENCODE(8,21,QS) IX 21 FORMAT(O8) C C C30 DO 40 K=1,5 C IF(QS(K) .NE. "40 .AND. QS(K) .NE. "60) GOTO 50 C40 CONTINUE CC CC C50 DO 60 KK=K,6 C IF(QS(KK) .EQ. 0) GOTO 99 C+++ C--- C60 CONTINUE 30 DO 40 K = 1,8 IF (QS(K).EQ.' ') QS(K) = 3 !Non-printing character 40 CONTINUE C C 99 RETURN C C END