; BEGIN.SUB - CMD FILE TO CMP SUBROUTINE BEGIN
	.OPEN BEGIN.FTN
.ENABLE DATA
      SUBROUTINE BEGIN
C @SD@ BEGIN
C SUBPRGM ID:  BEGIN
C PROGRAMMER:  TSGT MARVIN L FREIMUND / ADC
C CREATED ON:  07 DEC 79 FOR PROJECT 050540
C
C DESCRIPTION: BEGIN IS A FORTRAN 4 PLUS SYSTEMS SUBROUTINE USED ON THE
C   PDP-11/45 RSX11M SYSTEM.  WHEN BEGIN IS THE FIRST CALL (AND QUIT IS
C   THE LAST CALL) IN THE FORTRAN PROGRAM, THE PROGRAM DISPLAYS THESE
C   TWO MESSAGES ON THE ORIGINATING TERMINAL:
C
C      TSKNAM -- STARTING - DD-MON-YY  HH:MM:SS
C      TSKNAM -- FINISHED - DD-MON-YY  HH:MM:SS
C
C   WHERE TSKNAM IS THE NAME OF THE EXECUTING TASK, AND THE REST OF THE
C   MESSAGE IS THE DATE/TIME GROUP.
C
C METHOD:  THIS SUBROUTINE DOES NOT USE FORTRAN I/O.  INSTEAD, IT USES
C   THE RSX SYSTEMS $ERRLG MODULE AND THE TASK BUILDER ASSIGNED ERRLUN.
C   THE PROGRAMMER CODES "CALL BEGIN" AS THE FIRST EXECUTABLE STATEMENT
C   AND "CALL QUIT" AS THE LAST EXECUTABLE STATEMENT (I.E CALL QUIT RE-
C   PLACES CALL EXIT).
C
C INPUT/OUTPUT: OUTPUT IS TO THE TERMINAL AS SHOWN ABOVE.  NO LOGICAL
C   UNITS ARE USED.
C
C ETAC SUBPROGRAMS USED:  MESSG  (SUBR INTERFACE TO THE $ERRLG MODULE)
C
C STORAGE REQUIREMENTS:  334 BYTES
C
C @ED@
C
      REAL*8 W,S,F
      BYTE   T(34),B
      EQUIVALENCE(T(1),W)
      DATA S/'STARTING'/,F/'FINISHED'/,B/' '/
      DATA T(9)/' '/,T(10)/7/,T(11)/'-'/,T(12)/7/,T(13)/' '/
100   W = S
      GOTO 200
      ENTRY QUIT
      W = F
200   DO 250 I=14,34
250   T(I) = B
      CALL DATE(T(14))
      CALL TIME(T(25))
      T(33) = 0
      CALL MESSG(T)
      IF (W.EQ.S) RETURN
      IF (W.EQ.F) CALL EXIT
      END
.DISABLE DATA
	.CLOSE
	F4P BEGIN,BEGIN/-SP=BEGIN
	.ASK Z WANT TO SPOOL LISTING
	.IFT Z PIP BEGIN.LST/SP
	; BEGIN.SUB - FINISHED.
	; BEGIN.TST - CMD FILE TO TST SUBROUTINE BEGIN
	.OPEN BEGINT.FTN
.ENABLE DATA
      CALL BEGIN
      TYPE 100
100   FORMAT (' THIS IS A TEST OF BEGIN AND QUIT')
      CALL QUIT
      END
.DISABLE DATA
	.CLOSE
	F4P BEGINT,BEGINT/-SP=BEGINT
	.ASK TSKB DO YOU WANT TO TASK BUILD
	.IFF TSKB .GOTO FIN
	.OPEN BEGINT.BLD
.ENABLE DATA
BEGINT/CP/FP,BEGINT/-SP=BEGINT,BEGIN
/
LIBR=F4PRES:RO
//
.DISABLE DATA
	.CLOSE
	TKB @BEGINT.BLD
	.ASK Z WANT TO SPOOL LISTINGS
	.IFT Z PIP BEGINT.LST/SP,BEGINT.BLD,BEGINT.MAP
.FIN:	;BEGIN.TST - FINISHED.