Define tours()=
Prgm
:Local a,b,nas,mcs,mls,cts,dxs,scs,mis,hrs
:setMode(5,2)
:Disp "--------Nombre de tour par---------"
:Disp "     nano/sec.=1                    micr/sec..=2 "
:Disp "     mill/sec...=3                    cent/sec..=4 "
:Disp "     dixi/sec...=5                    seconde..=6 "
:Disp "     minute....=7                    heure......=8 "
:Disp "-------------------------------"
:Disp "                [enter] pour commencer"
:getKey(1)
:Request "Votre choix",a
:If a>0 and a<9 Then
:  Request "Le chiffre",b
:Else
:  Stop
:EndIf
:If a=1
:b*10000→b
:If a=2
:b*1000→b
:If a=3
:b*100→b
:If a=4
:b*10→b
:©si a=5
:©alors b→b
:If a=6
:((b)/(10))→b
:If a=7
:((((b)/(60)))/(10))→b
:If a=8
:((((b)/(3600)))/(10))→b
:((b)/(10000))→nas
:((b)/(1000))→mcs
:((b)/(100))→mls
:((b)/(10))→cts
:b→dxs
:b*10→scs
:b*600→mis
:b*36000→hrs
:setMode(1,11)
:Disp ""
:Disp nas," Tours par nanoseconde"
:Disp mcs," Tours par microseconde"
:Disp mls," Tours par milliseconde"
:Disp cts," Tours par centième de sec"
:Disp dxs," Tours par dixième de sec"
:Disp scs," Tours par seconde"
:Disp mis," Tours par minute"
:Disp hrs," Tours par heure"
:getKey(1)
:EndPrgm