# timer test.bas

draw -1

while

t=fn time$(0)

z$=t

w$="12"

if t<115959 then p$=" am" else p$=" pm"

if t<115959 then r=t

if t>115959 then r=t-120000

if t<5959 then h$=w$ else h$=mid$(t$,1,1)

t$=str$(r,6)

k$=mid$(t$,2,1)

m$=mid$(t$,3,1)

n$=mid$(t$,4,1)

s$=mid$(t$,5,1)

v$=mid$(t$,6,1)

c$=":"

draw h$+k$+c$+m$+n$+c$+s$+v$+p$,40,40

draw z$,40,20

d$=fn date$(0,1)

draw d$,40,60

b=fn battery()

v$=b*.01

draw v$,40,80

draw "volts",65,80

time$=fn time$(0)

draw time$,20,120

wend

end

    Source: geocities.com/greenchile505