C***************************************************************************** C C SUBROUTINE ASKNLR(X) 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 10 ENCODE(8,11,QS,ERR=90) X 11 FORMAT(F8.3) C C D30 DO 40 K=1,3 D IF(QS(K) .NE. "40 .AND. QS(K) .NE. "60) GOTO 50 D40 CONTINUE DC DC D50 IF(QS(K) .EQ. "56) K=K-1 DC DC D DO 60 KK=K,8 D IF(QS(KK) .EQ. 0) GOTO 99 DC+++ DC--- D60 CONTINUE DO 40 K = 1,8 IF (QS(K).EQ.' ') QS(K) = 3 !Non-printing character 40 CONTINUE GOTO 99 C C 90 TYPE 91,X 91 FORMAT(1H+,$E11.4) C C 99 RETURN C C END