Voice Compress

Development Platform:

Unix_Linux

mark.f：Code Content

							c==========================================================================
c
c ROUTINE
c               mark
c
c FUNCTION
c                
c               display prompts to indicate processing
c		(output to standard error)
c
c SYNOPSIS
c               subroutine mark (type)
c
c   formal 
c
c                       data    I/O
c       name            type    type    function
c       -------------------------------------------------------------------
c       type		int	i	0 - display a 'pump' (rotating bar)
c					1 - display a row of dots
c
c**************************************************************************
c
	subroutine mark (type)
	implicit undefined(a-z)
c
	integer i, type
	character*4 chr
	data chr /'/-\|'/
	save i
	if (type .ne. 0) then
         write (0,'(a,$)') '.'
	else
	   i = i + 1
           write(0,'(a,$)') chr(i:i)//char(8)
	   if (i .ge. 4) i = 0
	end if
	call flush(0)
	return
	end

						