PROGRAM KTRMID C C Query the terminal for it's identification string, decode and C display the values returned. This is useful for programs that C must only be run with video terminals. If an illegal or no C response is received, the program should abort gracefully. C KED should do this, but doesn't! C C Link KTRMID,TCFL.CSL 83/05/17 C or C KTRMID,TCFL.MTT and enable the call to GTTRM C C INTEGER PARM(10),LPRVTE C C Only include this statement if multiterminal support required C C CALL GTTRM C I = KTRMID(10,PARM,LPRVTE) IF(I.GT.0) GO TO 10 TYPE 100,I 100 FORMAT(1H ,'ERROR I = ',I2) STOP C C Display the values of the parameters received in the terminal C identification response C 10 TYPE 200,I,(PARM(L),L=1,I) 200 FORMAT(1H ,'I= ',I2,5X,10(I5,IX)) STOP END