SUBROUTINE VTSTBM(ITOP,IBOT) C C Fonction: definit la zone de scrolling de la VT100 C Arguments: ITOP est le numero de ligne de debut de la zone C IBOT est le numero de ligne de fin de scrolling C Si IBOT est <= ITOP le sous-programme est sans effet C BYTE CHAR(10) DATA CHAR/27,'[',0,0,';',0,0,'r',0,0/ IF (IBOT.LE.ITOP) RETURN ENCODE(2,10,CHAR(3))ITOP 10 FORMAT(I2) ENCODE(2,10,CHAR(6))IBOT IF (CHAR(3).EQ.' ')CHAR(3)=0 IF (CHAR(6).EQ.' ')CHAR(6)=0 CALL OUTSTR(CHAR,8) RETURN END