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