27-Dec-1987 13:00:02	VAX FORTRAN V4.5-219                Page   1
								27-Dec-1987 12:59:54	USER$LIB:[SXES_SOURCE.CALENDAR]SPAGE.FOR;1  

0001    	
0002    	SUBROUTINE SPAGE(PAGE,ROW,COL,DAY,MONTH,CDOW)
0003    	CHARACTER*(*)	PAGE(*),CDOW
0004    	INTEGER		IUNIT,ROW,COL,I,POS,DAY,MONTH,YEAR
0005    	CHARACTER*10 MONTHS(1:12)/'JANUARY','FEBRUARY','MARCH',
0006         + 'APRIL','MAY','JUNE','JULY','AUGUST','SEPTEMBER','OCTOBER',
0007         + 'NOVEMBER','DECEMBER'/
0008    	CHARACTER*2  DAYS(1:31)/' 1',' 2',' 3',' 4',' 5',' 6',' 7',' 8',
0009         + ' 9','10','11','12','13','14','15','16','17','18','19','20','21',
0010         + '22','23','24','25','26','27','28','29','30','31'/
0011    	CHARACTER*5	HOURS(12)/' 8:00',' 9:00','10:00','11:00','12:00',
0012         +	' 1:00',' 2:00',' 3:00',' 4:00',' 5:00',' 6:00',' 7:00'/  
0013    	DATA	dbg/11/
0014     
0015    	write(dbg,*)' IN SPAGE - Day: ',day,' Cdow:',cdow
0016    	write(dbg,*)' Month:',month,' Cmonth:',MONTHS(month)
0017    	
0018    	PAGE(1)(2:7) = 'Notes:'	
0019    	POS = (COL / 2) + 15
0020    	PAGE(1)(POS:POS+2)  = DAYS(DAY)
0021    	POS = POS + 4
0022    	PAGE(1)(POS:POS+10) = MONTHS(MONTH)
0023    	POS = POS + 12
0024    	PAGE(1)(POS:POS+10) = CDOW(1:10)
0025    	POS = (COL/2) + 1
0026    	J = 1
0027    	DO 200 I = 3,25,2
0028    	    PAGE(I)(POS:POS+5)   = HOURS(J)
0029    	    J = J + 1
0030     200	CONTINUE
0031    	RETURN
0032    	END

SPAGE                          					27-Dec-1987 13:00:02	VAX FORTRAN V4.5-219                Page   2
								27-Dec-1987 12:59:54	USER$LIB:[SXES_SOURCE.CALENDAR]SPAGE.FOR;1  

PROGRAM SECTIONS

    Name				 Bytes   Attributes

  0 $CODE                                  310   PIC CON REL LCL   SHR   EXE   RD NOWRT LONG
  1 $PDATA                                  44   PIC CON REL LCL   SHR NOEXE   RD NOWRT LONG
  2 $LOCAL                                 336   PIC CON REL LCL NOSHR NOEXE   RD   WRT LONG

    Total Space Allocated                  690


ENTRY POINTS

    Address  Type  Name          

  0-00000000       SPAGE         


VARIABLES

    Address  Type  Name              Address  Type  Name              Address  Type  Name              Address  Type  Name          

 AP-00000018@ CHAR CDOW           AP-0000000C@ I*4  COL            AP-00000010@ I*4  DAY             2-000000F4  R*4  DBG           
      **      I*4  I                   **      I*4  IUNIT               **      I*4  J              AP-00000014@ I*4  MONTH         
      **      I*4  POS            AP-00000008@ I*4  ROW                 **      I*4  YEAR          


ARRAYS

    Address  Type  Name                Bytes  Dimensions

  2-00000078  CHAR DAYS                   62  (31)
  2-000000B6  CHAR HOURS                  60  (12)
  2-00000000  CHAR MONTHS                120  (12)
 AP-00000004@ CHAR PAGE                   **  (*)


LABELS

    Address   Label   

      **      200     

                               					27-Dec-1987 13:00:02	VAX FORTRAN V4.5-219                Page   3
								27-Dec-1987 12:59:54	USER$LIB:[SXES_SOURCE.CALENDAR]SPAGE.FOR;1  

0001     


COMMAND QUALIFIERS

  FOR/LIS SPAGE

  /CHECK=(NOBOUNDS,OVERFLOW,NOUNDERFLOW)
  /DEBUG=(NOSYMBOLS,TRACEBACK)
  /STANDARD=(NOSYNTAX,NOSOURCE_FORM)
  /SHOW=(NOPREPROCESSOR,NOINCLUDE,MAP,NODICTIONARY,SINGLE)
  /WARNINGS=(GENERAL,NODECLARATIONS,NOULTRIX)
  /CONTINUATIONS=19  /NOCROSS_REFERENCE  /NOD_LINES  /NOEXTEND_SOURCE  /F77
  /NOG_FLOATING  /I4  /NOMACHINE_CODE  /OPTIMIZE


COMPILATION STATISTICS

  Run Time:           1.56 seconds
  Elapsed Time:       3.78 seconds
  Page Faults:        640
  Dynamic Memory:     463 pages