SUBROUTINE MENU(IWANT,MOD,ISTP)
	COMMON/MOTION/ANIM(12,15)
	DATA FOR1/4H(I4)/
	DATA FOR2,F2/5H(F6.1,1H)/
C
C
	ITAG=2000+IWANT
C
	DO 1 I=2001,2009
1	CALL DISPLY(5,I)
C	PAUSE 1
C
C
	CALL TEXT(0,0,0,0,0)
C	PAUSE 2
C
	CALL DISPLY(4,2001)
	CALL DISPLY(4,ITAG)
	CALL TEXT(900,30,7,1,FOR1,MOD)
C
	IF(IWANT.LT.3)RETURN
C
	IF(IWANT.NE.6)GO TO 3
	CALL TEXT(200,30,7,1,FOR1,ISTP)
	CALL DISPLY(4,2009)
	CALL DISPLY(4,2007)
	RETURN
C
3	IF(IWANT.EQ.3)IND=4
	IF(IWANT.EQ.4)IND=7
	IF(IWANT.EQ.5)IND=10
	CALL TEXT(230,30,7,1,FOR2,ANIM(IND,MOD))
	CALL TEXT(330,30,7,1,FOR2,ANIM(IND+1,MOD))
	CALL TEXT(430,30,7,1,FOR2,ANIM(IND+2,MOD))
	CALL DISPLY(4,2007)
	CALL DISPLY(4,2008)
	RETURN
	END