      SUBROUTINE PLH.USAGE.CAPTIONS(TMD,TM0,XX)
*PIC-LAN
*
*ALL
*PC
*Y
*
*
*
*
******************************************************************************
******************************************************************************
***                                                                        ***
*** (C) Copyright 1990-2005 Doug Dumitru, All Rights Reserved.             ***
***                                                                        ***
*** This program is licensed under the terms of the GNU General Public     ***
*** License, version 2.0 with attached notices.                            ***
***                                                                        ***
*** The full text can be found in the LICENSE.TXT file in the              ***
*** PLIP.BP database file (the /usr/qmweb/PLIP.BP/PLIP.BP directory).      ***
***                                                                        ***
******************************************************************************
******************************************************************************
*
      INCLUDE SYS.TYPE.INCLUDE
*
      INCLUDE PL.COMMON
      INCLUDE PL.COMMON.DEFS
      INCLUDE PL.DEFS
      INCLUDE PLIP.COMMON
      INCLUDE PLW.COMMON
*
      XX = ''
*
      BEGIN CASE
         CASE TMD = 'DAYS'
            FOR I = 1 TO 7
               XX<I> = '<center>' : DAYS<1,I> : '</center>'
            NEXT I
         CASE TMD = 'HOURS'
            FOR I = 0 TO 23
               IF NOT(MOD(I,2)) THEN
                  XX<I+1> = I 'R%2'
               END ELSE
                  XX<I+1> = ' '
               END
            NEXT I
         CASE TMD = 10
            FOR I = 0 TO 59
               TM = TM0 + ( I * 10 )
               IF NOT(MOD(TM,60)) THEN
                  TM = OCONV(MOD(TM,86400),'MT')
                  XX<I+1> = FIELD(TM,':',1) : ':<br>' : FIELD(TM,':',2)
               END ELSE
                  XX<I+1> = ' '
               END
            NEXT I
         CASE TMD = 60
            FOR I = 0 TO 59
               TM = TM0 + ( I * 60 )
               IF NOT(MOD(TM,300)) THEN
                  TM = OCONV(MOD(TM,86400),'MT')
                  XX<I+1> = FIELD(TM,':',1) : ':<br>' : FIELD(TM,':',2)
               END ELSE
                  XX<I+1> = ' '
               END
            NEXT I
         CASE TMD = 3600
            FOR I = 0 TO 47
               TM = TM0 + ( I * 3600 )
               DT = INT(TM/86400)
               TM = MOD(TM,86400)
               BEGIN CASE
                  CASE NOT(TM)
                     XX<I+1> = OCONV(DT,'D0/') : '<br>00'
                  CASE NOT(MOD(TM,3600*4))
                     XX<I+1> = '<br>' : FIELD(OCONV(TM,'MT'),':',1)
                  CASE YES
                     XX<I+1> = ' '
               END CASE
            NEXT I
      END CASE
*
*$*   FOR I = 1 TO DCOUNT(XX,AM)
*$*      IF XX<I> <> ' ' THEN
*$*         XX<I> = '<image src="p-4.gif"><br>' : XX<I>
*$*      END
*$*   NEXT I
*
      RETURN
   END
