Define vitesses()=
Prgm
:Local a,b,ms,mm,mh,ks,km,kh,m,c,vs,vl
:0→a:0→b
:0→ms:0→mm:0→mh
:0→ks:0→km:0→kh
:1224→vs:1079252849→vl
:setMode(5,2)
:Disp "     [enter] et donner l'unitée de départ"
:Disp "mètres/seconde.= 1    kilomètres/seconde.= 4"
:Disp "mètres/minute...= 2    kilomètres/minute...= 5"
:Disp "mètres/heure.....= 3    kilomètres/heure.....= 6"
:Disp "Mach................= 7    célérité....................= 8"
:Disp ""
:Disp ""
:getKey(1)
:Request "Votre choix",a
:If a>0 and a<9 Then
:  Request "Le chiffre",b
:Else
:  Stop
:EndIf
:If a=1
:((b)/(16.6666667))→km
:If a=2
:((b)/(1000))→km
:If a=3
:((b)/(60000))→km
:If a=4
:b*60→km
:If a=5
:b→km
:If a=6
:((b)/(60))→km
:If a=7
:((b*vs)/(60))→km
:If a=8
:((b*vl)/(60))→km
:©-----------------
:km→b
:((b)/(60))→ks
:b*60→kh
:((kh)/(3.6))→ms
:ms*60→mm
:mn*60→mh
:((kh)/(vs))→m
:((kh)/(vl))→c
:Disp ""
:Disp "mètres/seconde........=",ms
:Disp "mètres/minute..........=",mm
:Disp "mètres/heure............=",mh
:Disp "kilomètres/seconde..=",ks
:Disp "kilomètres/minute....=",km
:Disp "kilomètres/heure......=",kh
:Disp "Mach.......................=",m
:Disp "célérité.....................=",c
:getKey(1)
:EndPrgm