Define onde_fréquence()=
Prgm
:Local f,l,c,n,w
:0→f:0→l:0→c:0→n
:299.792458→w
:setMode(5,2)
:Disp "--Choisissez et [enter] pour commencer--"
:Disp "             Hz.....: 0              km.....:1"
:Disp "             kHz...: 2              m.......:3"
:Disp "             MHz..: 4              dm.....:5"
:Disp "             GHz...: 6              cm.....:7"
:Disp "             THz...: 8              mm....:9"
:Disp "-------------------------------"
:getKey(1)
:Request "Votre choix :",c
:If a<0 and a>9
:  Goto fin
:Request "Le chiffre :",n
:©-----------------
:If c=0:((n)/(1000000))→f
:If c=2:((n)/(1000))→f
:If c=4:n→f
:If c=6:n*1000→f
:If c=8:n*1000000
:©-----------------
:If c=1:n*1000→l
:If c=3:n→l
:If c=5:((n)/(10))→l
:If c=7:((n)/(100))→l
:If c=9:((n)/(1000))→l
:©-----------------
:If f≠0:((w)/(f))→l
:If l≠0:((w)/(l))→f
:©-----------------aff
:Disp ""
:Disp "kilomètre....:",round(((l)/(1000)),3),"  millimètre...:",round(l*1000,3)
:Disp "Hectomètre:",round(((l)/(20)),3),"  Hertz.........:",round(f*1000000,3)
:Disp "Décamètre.:",round(((l)/(10)),3),"  kiloHertz....:",round(f*1000,3)
:Disp "mètre.........:",round(l,3),"  MégaHertz.:",round(f,3)
:Disp "décimètre...:",round(l*10,3),"  GigaHertz..:",round(((f)/(1000)),3)
:Disp "centimètre..:",round(l*20,3),"  TeraHertz...:",round(((f)/(1000000)),3)
:Disp ""
:Disp "                                         Entrer pour sortir !"
:getKey(1)
:Lbl fin
:EndPrgm