C	-+-+-+-+-+   H A E A S K . F T   -+-+-+-+-+
C
C	ASK'S OPERATOR FOR BEGIN AND SPAN WIDTH OF SPECTRUM BEEING ANALYSED
	SUBROUTINE ASKHIM (COUNT)
	INTEGER COUNT			@ CONTROLS THE NUMBER OF QUESTIONS
	INCLUDE HAEGSA.FI
C
	INTEGER TOASCI,NCOND
	EXTERNAL TOASCI,NCOND
	INCLUDE HAEBUF.FI
	INCLUDE HAETTY.FI
C
	INTEGER BMM,BSS,C,CH,D,O
C
C	READ BEGIN
	BMM=NCOND(BEGIN.GT.3600,BEGIN/60,BEGIN) @ EITHER MINUTES OR HOURS
	CH=NCOND(BEGIN.GT.3600,1HH,1HM)	@ MAKE THE CORRECT HOUR/MINUTE INDICATOR
	BSS=TOASCI(MOD(BMM,60))	@ CONVERT DEFAULT VALUES TO ASCII CHARACTERS
	BMM=BMM/60
	D=BMM/10			@ TO TYPE A LEADING ZERO
	O=MOD(BMM,10)
	WRITE (TTO,1) D,O,CH,BSS
	READ (TTI,2) BMM,C,BSS
	IF (C.NE.1H ) BEGIN=0		@ COL 3 NON BLANK FORCES ZERO INPUT
	BEGIN=NCOND(BMM+BSS,(BMM*60+BSS)*
     *   NCOND (C.EQ.1HH,60,C.EQ.1HM,1,CH.EQ.1HH,60,1),BEGIN)
	IF (COUNT.LE.1) RETURN
C
C	READ ENDS
C
	ENDS=NCOND(ENDS.LE.BEGIN,BEGIN+SPAN,ENDS)
	BMM=NCOND(ENDS.GT.3600,ENDS/60,ENDS)
	CH=NCOND(ENDS.GT.3600,1HH,1HM)
	BSS=TOASCI(MOD(BMM,60))
	BMM=BMM/60
	D=BMM/10			@ TO TYPE LEADING ZERO
	O=MOD(BMM,10)
	WRITE (TTO,3) D,O,CH,BSS
	READ (TTI,2) BMM,C,BSS
	IF (C.NE.1H )ENDS=0		@ COL 3 NON BLANK FORCES ZERO INPUT
	ENDS=NCOND(BMM+BSS,(BMM*60+BSS)*
     *   NCOND(C.EQ.1HH,60,C.EQ.1HM,1,CH.EQ.1HH,60,1),ENDS)

	IF (COUNT.LE.2) RETURN
C	READ SPAN
	SPAN=NCOND((ENDS-BEGIN).LT.SPAN,1,SPAN)
	WRITE (TTO,5) SPAN
	READ (TTI,2) BSS
	SPAN=NCOND(BSS,BSS,SPAN)
	IF (COUNT.LE.3) RETURN
C	READ OVERLAP
C
	OVRLAP=NCOND(SPAN-1,SPAN/2,1)
	WRITE (TTO,7) OVRLAP 
	READ (TTI,2) C
	OVRLAP=NCOND(C,C,OVRLAP,OVRLAP,SPAN/2)
	RETURN
1	FORMAT (' SPEKTRUM ANFANG  [MM:SS](',2I1,A1,A2,')? ',$)
2	FORMAT (I2,A1,I2)
3	FORMAT (10X,'ENDE    [MM:SS](',2I1,A1,A2,')? ',$)
5	FORMAT (' SPANNWEITE DER FFT [SEC]   (',I2,    ' )? ',$)
7	FORMAT (' SCHRITTWEITE DER FFT [SEC]  (',I2,')? ',$)
	END
                                   