PROGRAM DEMO
C
C Program to demonstrate Control C Trap function
C	Executes under Fortran IV, Fortran IV Plus, Fortran 77
C	Fortran IV must NOT use threaded (/CD:THR) code
C
C T. Miles, TRIUMF
C  TRIUMF
C   4004 Wesbrook Mall
C    Vancouver, B.C.
C     CANADA, V6T 1W5
C
C-->	Procedure begins...
C
	TYPE *,'DEMO - Calling SUB1'
	CALL SUB1
	TYPE *,'DEMO - Returned from SUB1'
	END
	SUBROUTINE SUB1
	TYPE *,'SUB1 - Entered'
	IF (ITRAP()) GOTO 100
	TYPE *,'SUB1 - Trap set up'
	TYPE *,'SUB1 - Calling SUB2'
	CALL SUB2
	STOP 'SUB1 - Returned from SUB2'
100	TYPE *,'SUB1 - ^C hit'
	IF (ITRAP()) GOTO 200
	TYPE *,'SUB1 - Trap set up'
	TYPE *,'SUB1 - Calling SUB3'
	CALL SUB3
	STOP 'SUB1 - Error Return from SUB3'
200	TYPE *,'SUB1 - ^C hit'
	RETURN
	END
	SUBROUTINE SUB2
	TYPE *,'SUB2 - Entered'
	TYPE *,'SUB2 - Looping, type ^C to exit'
10	CALL SECNDS(0.)
	GOTO 10
	END
	SUBROUTINE SUB3
	TYPE *,'SUB3 - Entered'
	ITER=0
10	ITER=ITER+1
	TYPE *,'SUB3 - Looping with I/O, iteration #',ITER,' Type ^C'
	GOTO 10
	END