SUBROUTINE VTWAY(IAM) C C Fonction: Who Are You. Permet a l'utilisateur d'identifier C le terminal et les options dont il est equipe. C C Arguments: IAM est une variable entiere retournee par le C sous-programme et qui indique les options du terminal. C C IAM Signification C 0 VT 100 de base, aucune option C 1 Option processeur (STP) C 2 Option video avancee (AVO) C 3 AVO et STP C 4 Option Graphique (GO) C 5 GO et STP C 6 GO et AVO C 7 GO, STP et AVO C -1 Echec de la requete C BYTE CHAR(5),INCHR(7),IBYTE DATA CHAR/27,'[','0','c',0/ JSW=IPEEK("44) CALL IPOKE("44,"10000.OR.JSW) !Mode special CALL OUTSTR(CHAR) !Envoi de la sequence "Escape" DO 10 I = 1,7 ! 1 ITEST=ITTINR() ! IF (ITEST.LT.0) GOTO 1 !Boucle de IBYTE=ITEST !reception de INCHR(I)=IBYTE !la reponse 10 CONTINUE ! C------ Decodage de la reponse ------------------------------------------------ IF ((INCHR(6).LT."60).OR.(INCHR(6).GT."70)) IAM = -1 IAM = INCHR(6) - "60 RETURN END