m% = VAL(LEFT$(DATE$, 2)) '----month number
D% = VAL(MID$(DATE$, 4, 2)) '--day number
y% = VAL(RIGHT$(DATE$, 4)) '---year number
days$ = "Fri Sat Sun Mon Tue Wed Thu "
num! = VAL(MID$("000303060811131619212426", (m% - 1) * 2 + 1, 2))
yr! = y%
dy! = yr! * 365 + INT((y% - 1) \ 4) + (m% - 1) * 28
dy! = dy! + num! - ((m% > 2) AND (y% MOD 4 = 0)) + D%
weekday$ = (MID$(days$, (dy! - INT(dy! \ 7) * 7) * 9 + 1, 9))
month$ = " JanFebMarAprMayJunJulAugSepOctNovDec" '
mon$ = (MID$(month$, (m% * 3), 3))
hr% = VAL(LEFT$(TIME$, 2))
min$ = MID$(TIME$, 3, 3)
IF hr% > 11 THEN suff$ = "pm" ELSE suff$ = "am"
IF hr% > 12 THEN hr% = hr% - 12
IF hr% = 0 THEN hr% = 12
COLOR 15, 1: CLS
LOCATE 3, 5: PRINT USING "##\ \ \\ \ \"; hr%; min$; suff$; weekday$
LOCATE 5, 5: PRINT USING " \ \ ## ####"; mon$; D%; y%
===================================================
then if you wanted to update the TIME somewhere in your program then add the bottom code
make a SUB called CLOCK , then put the above code in it
then just CALL CLOCK from the code below
minsav = VAL(MID$(TIME$, 4, 2))
DO
'---put some code in here
min2 = VAL(MID$(TIME$, 4, 2))
IF min2 <> min THEN min = min2: CALL clock
LOOP
this code might give you some ideas
you might have to ADJUST lines of above code because it doesn't paste correctly in the width of Tek_Tips
MaxRace Software - Larry Meaux
ET_Analyst for DragRacers
Support Israel - Genesis 12:3