27-Dec-1987 12:58:10	VAX FORTRAN V4.5-219                Page   1
								27-Dec-1987 12:58:03	USER$LIB:[SXES_SOURCE.CALENDAR]APAGE.FOR;1  

0001     
0002    	SUBROUTINE APAGE(PAGE,ROW,COL,HOUR,NOTES,APPT)
0003    	CHARACTER*(*)	PAGE(*),APPT
0004    	INTEGER		ROW,COL,HOUR,HR,H_POS,V_POS,H_LIM,NOTES
0005    	CHARACTER*4	MINS(5)/':10 ',':20 ',':30 ',':40 ',':50 '/	
0006    	DATA		DBG/11/
0007     
0008    	IF (HOUR .LT. 800 .OR. HOUR .GT. 1900) RETURN
0009    	HR  = HOUR/100
0010    	MIN = HOUR - (HR*100)
0011    	write(DBG,*)' Hour= ',hour,' HR=',hr,' MIN=',min,' Notes:',notes
0012    	if (index(appt,'!>') .ne. 0) then
0013    	    notes = notes + 1
0014    	    H_POS = 3
0015    	    H_lim = H_POS + LEN(APPT)
0016    	    if (H_LIM .gt. COL/2) h_lim = col/2
0017    	    V_POS = (notes * 2) + 2
0018    	    PAGE(V_POS)(H_POS:H_LIM) = APPT
0019     
0020    	else if (min .eq. 0) then 
0021    	    H_POS = (COL/2)+7
0022    	    H_LIM = H_POS + LEN(APPT)
0023    	    if (H_LIM .gt. COL) h_lim = col
0024    	    V_POS = (HR-8)*2+3
0025    	    PAGE(V_POS)(H_POS:H_LIM) = APPT
0026     
0027    	else
0028    	    APPT  = MINS(MIN/10) // APPT
0029    	    H_POS = (COL/2)+3
0030    	    H_LIM = H_POS + LEN(APPT)
0031    	    if (H_LIM .gt. COL) h_lim = col
0032    	    V_POS = (HR-8)*2+4
0033    	    PAGE(V_POS)(H_POS:H_LIM) = APPT
0034    	    endif
0035     
0036    	write(DBG,*)' V_POS=',v_pos,' h_pos=',H_POS,' H_LIM=',h_lim,
0037         +            ' Notes:',notes
0038    	write(DBG,*)' APPT = "',appt,'"'
0039    	RETURN
0040    	END

APAGE                          					27-Dec-1987 12:58:10	VAX FORTRAN V4.5-219                Page   2
								27-Dec-1987 12:58:03	USER$LIB:[SXES_SOURCE.CALENDAR]APAGE.FOR;1  

PROGRAM SECTIONS

    Name				 Bytes   Attributes

  0 $CODE                                  591   PIC CON REL LCL   SHR   EXE   RD NOWRT LONG
  1 $PDATA                                  57   PIC CON REL LCL   SHR NOEXE   RD NOWRT LONG
  2 $LOCAL                                 164   PIC CON REL LCL NOSHR NOEXE   RD   WRT LONG

    Total Space Allocated                  812


ENTRY POINTS

    Address  Type  Name          

  0-00000000       APAGE         


VARIABLES

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

 AP-00000018@ CHAR APPT           AP-0000000C@ I*4  COL             2-00000014  R*4  DBG            AP-00000010@ I*4  HOUR          
      **      I*4  HR                  **      I*4  H_LIM               **      I*4  H_POS               **      I*4  MIN           
 AP-00000014@ I*4  NOTES          AP-00000008@ I*4  ROW                 **      I*4  V_POS         


ARRAYS

    Address  Type  Name                Bytes  Dimensions

  2-00000000  CHAR MINS                   20  (5)
 AP-00000004@ CHAR PAGE                   **  (*)


FUNCTIONS AND SUBROUTINES REFERENCED

  Type  Name          

   I*4  LIB$INDEX     

                               					27-Dec-1987 12:58:10	VAX FORTRAN V4.5-219                Page   3
								27-Dec-1987 12:58:03	USER$LIB:[SXES_SOURCE.CALENDAR]APAGE.FOR;1  

0001     


COMMAND QUALIFIERS

  FOR/LIS APAGE

  /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:           2.16 seconds
  Elapsed Time:       4.67 seconds
  Page Faults:        680
  Dynamic Memory:     483 pages