	PROGRAM RESTST

C	NONSENSE PROGRAM TO TEST RESEQ.       Do NOT Compile!!!!!

	CALL ASSIGN(1,'FILE',-1,'RDO','NC',1)

C	"TYPE" IS NON-STANDARD EQUIVALENT OF "STATUS".

	OPEN (1,FILE='X:JEFTST.FOR',STATUS='OLD',TYPE='UNKNOWN',ERR=200)

	X= 123.

	Y= 457.

C	NO STATEMENT 567, OR 789;	RESEQ WILL MAKE EACH= "0000".

	READ(1,10,END=567,ERR=789)  P,Q,R,S	! DUM READ; NOT FUNCTION.

10	FORMAT(F7.0)

	GOTO 50		! UNCONDITIONAL GOTO.

C	COMPUTED GO.

20	GOTO (80,100,120)  K

C	Continued Computed GOTO.

30	GOTO (70,80,90,100,110,120,
	1 130,140
	2 ,150,160,170,
	3 70,90,110,130,
	4 180,190)  J

	DO 40 J= 1,10	! DO NOTHING "DO".

40	CONTINUE		! TEST "FUNCTION" HERE.

	L= INDEX (STRING,'GOTO')

	IF (JEF .GE. 65 .AND. LBF .LE. 25) GOTO 70	! RETIRE !!!

50	TYPE '(1H0,''FUNCTION (X)='',F5.2/1H ,''SUBROUTINE (Y)='',F5.1)', X,Y

	IF (J .EQ. 7) THEN

	P= T

	ELSIF (L .LE. 9) THEN

	T= L

	ELSE

	JEF= ITL

	ENDIF

	CALL FUNC()

	TYPE 60, FUNC

60	FORMAT(1H0,'FUNCTION FUNC=',F10.3)

	STOP 'WELL, HOW''D WE DO WITH FUNCTION, SUBROUTINE &  GOTO ?'

70	ACCEPT '(A)', CHAR

80	J= 1

90	J= 2

100	J= 3

110	J= 4

120	J= 5

130	J= 1

140	J= 2

150	J= 3

160	J= 4

170	J= 5

180	J= 6

190	J= 7

200	CALL EXIT

	END

	SUBROUTINE SUBSUB(E,O,J)

C	AUTUMN DRIVE.
C	WHO'S JANE?

	CHARACTER   CHAR

	TYPE '(1H+,''Type Talk'')'

	TYPE 10,

10	FORMAT(1H ,'ENTER ? ',$)

	ACCEPT 20, CHAR

20	FORMAT(A)

	DO 70 JEF= 1,13

30	J= 6

40	K= 7

50	L= 1

60	M= JEF

70	CONTINUE

	RETURN

	END

	STOP 'END FUNCTION & SUBROUTINE & GOTO ETC. TEST.'

	END
C
C
	INTEGER FUNCTION FUNC(J,K)

10 	FUNC= J*K

	IF (FUNC .LT. 1234)  RETURN	! RETURN IF FUNCTION TOO SMALL.

	IF ((FUNC .AND. 1) .NE. 0)  GOTO 30

20	RETURN		! RETURN IF FUNCTION EVEN.

30	FUNC= FUNC+1	! MAKE ODD FUNCTION EVEN.

	RETURN

	END
