'===========================================================================
' 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)