c-----------------------------------------------------------------------
c
c	Subroutine Gaby
c
c	Part of Mitch Wyle's DTC program
c
c	return a string corresponding to the month number
c	Month number contained in im.  Send back string in monthn.
c	(JANUARY for 1, etc.)
c
c-----------------------------------------------------------------------
c

	SUBROUTINE gaby(im,monthn)

c
c	Declarations:
c
	Byte months(9,14)
	Byte monthn(9)

c
c	Table of month names and numbers:
c

	data months/
     *              'D','E','C','E','M','B','E','R',' ',
     *              'J','A','N','U','A','R','Y',' ',' ',
     *              'F','E','B','R','U','A','R','Y',' ',
     *              'M','A','R','C','H',' ',' ',' ',' ',
     *              'A','P','R','I','L',' ',' ',' ',' ',
     *              'M','A','Y',' ',' ',' ',' ',' ',' ',
     *              'J','U','N','E',' ',' ',' ',' ',' ',
     *              'J','U','L','Y',' ',' ',' ',' ',' ',
     *              'A','U','G','U','S','T',' ',' ',' ',
     *              'S','E','P','T','E','M','B','E','R',
     *              'O','C','T','O','B','E','R',' ',' ',
     *              'N','O','V','E','M','B','E','R',' ',
     *              'D','E','C','E','M','B','E','R',' ',
     *              'J','A','N','U','A','R','Y',' ',' '/

c
c	Select the right month and fill monthn with it:
c

C ALLOW FOR OVERFLOWS...
	IMM=IM+1
	Do 1 i=1,9
	    Monthn(i) = months(i,imm)
1	Continue

c	All done.

	return
	end