BYTE BUFF(80)
	CALL TSTGIN(BUFF,IDS)
	IBLEV = 1
	IF (BUFF(15).EQ.'2') IBLEV = 2
	WRITE (5,100) IBLEV
 100	FORMAT (' The current base level is version ',I2)
	STOP
	END