'#sec:Main
'' Time.bas
'' 18/01/2002
cls
c=0
label rep
k=inkey
if len(k)<>2 then goto rep
if c=0 then t1=ticks:cls:c=1:? t1:goto sue
if c=1 then t2=ticks:c=2:? t2:goto sue
if c=2 then t3=ticks:c=0:? t3:goto cal
label sue
k2=inkey:if len(k2)=2 then goto sue
goto rep
label cal
om=(t2-t1)/100
olf=(t3-t2)/100
tot=(t3-t1)/100
du=(om/tot)*100
?
? "On=",om
? "Off=",olf
? "Duty cycle=",du
goto rep
'