
	SUBROUTINE MERGE(FILE)
C          **************************************************
C          *                                                *
C          *               S U P E R - M A C                *
C          *                                                *
C          *                  PREPROCESSOR                  *
C          *                                                *
C          *                 FORTRAN VERSION                *
C          *                                                *
C          *     AUTHORS:        Thomas J. Weslowski        *
C          *                     Computer Science Dept.     *
C          *                     SUNY at Oswego             *
C          *                     Oswego, NY  13126          *
C          *                                                *
C          *                     and                        *
C          *                                                *
C          *                     Richard R. DeMidio         *
C          *                     Instructional Comp. Ctr.   *
C          *                     Snygg Hall                 *
C          *                     SUNY at Oswego             *
C          *                     Oswego, NY  13126          *
C          *                                                *
C          *     MAINTAINER:     Edward F. Beadel, Jr.      *
C          *                     Manager                    *
C          *                     Instructional Comp. Ctr.   *
C          *                     Snygg Hall                 *
C          *                     SUNY at Oswego             *
C          *                     Oswego, NY  13126          *
C          *                                                *
C          *     PHONE:          (315) 341-3305             *
C          *                                                *
C          **************************************************
C
C
C                    COPYRIGHT (c) 1981, 1982, 1983
C                                  BY
C                    Instructional Computing Center
C                State University of New York at Oswego
C                          Oswego, NY   13126
C
C               contact:	Edward F. Beadel, Jr., Manager
C                         phone:		315/341-3055
C
C
C          This software is furnished in an as-is  condition,
C          with  no committments of support or updates.  This
C          software or any other copies thereof  may  NOT  be
C          sold  for  profit  nor  can  it be included in any
C          package to be sold for profit without the  written
C          consent  of  the  author and the coppyright owner.
C          This software may be used and copied only  in  ac-
C          cordance  with  the terms set forth above and with
C          the inclusion of the above copyright notice.
C
C               The information in this software  is  subject
C          to  change  without  notice and should not be con-
C          strued as a commitment by The State University  of
C          New  York, The C.A.U.S.E.  Instructional Computing
C          Center, the author(s)  or  maintainer(s)  of  this
C          software.
C
C               The  State  University  of  New   York,   The
C          C.A.U.S.E.   Instructional  Computing  Center, the
C          author(s), and the maintainer(s) of this  software
C          collectively  and individually assume no responsi-
C          bility  for  the  use  or  reliability   of   this
C          software.
C
C
C


C	   This routine will do all the initial setup procedures
C	before chaining onto SUPMAC.SAV

	BYTE FILE(16),S1(16),S2(16),S3(16)
        INTEGER P,K,I

C	  MERGE code

	P=INDEX(FILE,'.')
	CALL SEG(FILE,S1,1,P-1)
	CALL SEG(FILE,S2,P+1,LEN(FILE))
	CALL CONCAT(S1,S2,S3)

C	  Rebuild the file name without
C	  the dot

	K=9-LEN(S3)
	IF(K .GT. 0) GOTO 20
	CALL CONCAT('SY ',S3,FILE)
	GOTO 10

C	  Now, determine how many blanks we need and
C	  rebuild the string in the form of
C	       sy   fred.pog

20	GOTO (1,2,3,4,5) K
1	CALL CONCAT('SY  ',S3,FILE)
	GOTO 10

2	CALL CONCAT('SY   ',S3,FILE)
	GOTO 10

3	CALL CONCAT('SY    ',S3,FILE)
	GOTO 10

4	CALL CONCAT('SY     ',S3,FILE)
	GOTO 10

5	CALL CONCAT('SY      ',S3,FILE)
10	FILE(13)=0
	CALL CHAINT(FILE)
	END
                                                                                                                                                                                                            