'===========================================================================
' Subject: VISUAL CLOCK DISPLAY               Date: Unknown Date           
'  Author: Peter Norton                       Code: QB, QBasic, PDS        
'  Origin: Advanced BASIC Book              Packet: DATETIME.ABC
'===========================================================================
        SCREEN 8
        DRAW "BU50 NL25 F12 D20 G12 L50 H12 U20 E12 R25 BD22"
        DO
        TimeMark! = TIMER
        Hours! = INT(TimeMark! / 3600)
        Remainder! = TimeMark! - 3600 * Hours!
        IF Hours! > 12 THEN Hours! = Hours! - 12
        HourAngle! = -Hours! / 12 * 360
        Minutes! = INT(Remainder! / 60)
        MinuteAngle! = -Minutes! / 60 * 360
        DRAW "TA=" + VARPTR$(HourAngle!) + " NU8"
        DRAW "TA=" + VARPTR$(MinuteAngle!) + " NU12"
        LOCATE 15, 34: PRINT TIME$
        LOOP UNTIL INKEY$ = CHR$(27)