'QTIME.INC
        'version 1.00
        'Lee McEwen 24 July 1989

        'Include file for QBBS

        '  This file reads the system clock function in BYE and returns the
        '  date and time in DATE$

        '** Read the clock, convert to 12 hour time

        'Variables:
        ' A$           = temporary string
        ' CMD          = BDOS command
        ' DATE$        = Date (output variable)
        ' DAT          = BDOS command data
        ' I            = temporary integer
        ' I1$          = temporary string
        ' RES          = BDOS result
        ' RTC          = memory address of RTC

20000   CMD = 79
        DAT = 0
        RTC = 0
        CALL BDOSHL(CMD, DAT, RTC)

        I = PEEK(RTC + 5)                       'get month
        GOSUB 20010                             'convert hex value
        DATE$ = A$ + "/"

        I = PEEK(RTC + 6)                       'get day
        GOSUB 20010                             'convert hex value
        DATE$ = DATE$ + A$ + "/"

        I = PEEK(RTC + 4)                       'get year
        GOSUB 20010                             'convert hex value
        DATE$ = DATE$ + A$

        A$ = ""
        I = PEEK(RTC)                           'get hour
        GOSUB 20020                             'convert hex value
        I = VAL(A$)

        IF I = 24_                              'the witching hour
             THEN I = 0

        IF I > 11_                              'set am or pm
             THEN I1$ = " PM"_
             ELSE I1$ = " AM"

        IF I > 12_
             THEN I = I-12

        DATE$ = DATE$ + STR$(I) + ":"

        I = PEEK(RTC + 1)                       'get minute
        GOSUB 20010                             'convert hex value
        DATE$ = DATE$ + A$ + I1$
        DATE$ = LEFT$(DATE$ + SPACE$(17), 17)
        A$ = ""

        RETURN

20010   A$ = ""

        IF I < 10_
             THEN A$ = "0"

20020   A$ = A$ + HEX$(I)
        RETURN

        'end QTIME.INC