Define degrés()=
Prgm
:Local a,i,d,m,s,e,r,i
:0→a:0→d:0→m:0→s:0→e:0→r
:setMode(5,2)
:Disp ""
:Disp "[enter] et donner l'unitée de départ         "
:Disp ""
:Disp "Convertir DMS -> DD      1"
:Disp "Convertir DD -> DMS      2"
:For i,1,3:Disp "":EndFor
:getKey(1)
:Request "Votre choix",a
:If a=1:Goto dm
:If a=2:Goto dd
:©----------------------Ctrôle choix
:If a<1 or a>2: Goto fin
:©----------------------Entrée DMS
:Lbl dm
:Request "Degrés = °",d
:Request "Minutes = '",m
:Request "Seconde = """,s
:©----------------------Ctrôle DMS
:While d>360 or m>60 or s>60
:If d>360:d-360→d
:If m>60:m-60→m
:If s>60:s-60→s
:EndWhile
:©----------------------Calc DD
:((s)/(60))→r
:m+r→r
:©----------------------Sortie DMS
:For i,1,2:Disp "":EndFor
:Disp "DMS........= ",d,"° ",m,"' ",s,""""
:©----------------------Sortie DM
:Disp ""
:Disp "DM..........= ",d,"° ",r,"'"
:©----------------------calc DD
:((r)/(60))→r
:d+r→r
:©----------------------Sortie DD
:Disp "DD..........= ",r,"°"
:For i,1,2:Disp "":EndFor
:Disp "                                        Entrer pour sortir !"
:getKey(1)
:Goto fin
:©----------------------Entrée DD
:Lbl dd
:Disp ""
:Request "Degrés =",d
:Disp ""
:©----------------------Ctrôle DD
:While d>360
:d-360→d
:EndWhile
:©----------------------sépar DD
:int(d)→e
:fPart(d)→r
:©----------------------calc min
:r*60→m
:©----------------------Sortie DM
:For i,1,2:Disp "":EndFor
:Disp "DD..........= ",d,"°"
:Disp ""
:Disp "DM..........= ",e,"° ",m,"'"
:©----------------------sépar MM
:fPart(m)→s
:int(m)→m
:©----------------------calc sec dixm
:s*60→s
:round(s*0.2)
:©----------------------Sortie DMS
:Disp "DMS........= ",e,"° ",m,"' ",s,""" "
:For i,1,2:Disp "":EndFor
:Disp "                                        Entrer pour sortir !"
:getKey(1)
:Lbl fin
:EndPrgm