c -----------------------------------------------------------
c ABT.FTN - Abort all of the active tasks associated with
c	the invoking terminal excluding this task and cli's.
c
c	Author:		M.C.Nelson	December 22, 1988
c
c	Calls the assembler routine GETATL to retrieve the
c	active task list and then ABORT's the active tasks.
c
c	Link:
c
c		abt/cp/fp/pr,abt=abt,getatl,[1,54]rsx11m.stb
c
c------------------------------------------------------------------
	PROGRAM	ABT

	parameter	kntmax	= 32
	integer*4	list(kntmax)

	integer		getatl
	external	getatl

	do 10, i = 1, kntmax		! init the internal task list
10	list(i)	= 0

	knt	= getatl( list )	! get the task list

	do 20, i = 1, knt		! issue an abort to all of
20	call abort( list(i), ids )	! returned task names.

	call	exst( knt )
	end