summaryrefslogtreecommitdiff
path: root/programs/dms2hms.lst
blob: e6df6bfa6c5d23c2255600adf16cd8cbcdc74604 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
# dms -> hms (Eingabe: Grad.Minuten dezimal; Ausgabe: Grad.MMSS)
# Beispiel: Eingabe 50.305 interpretiert als 50° 30.5' -> 50.3030 (für HMS+, HMS-)
# ist mit ASN DMS2HMS auf SQRT gemappt im User mode

01 LBL DMS2HMS
02 ENTER↑                 # Eingabe duplizieren
03 INT                    # Grad
04 X<>Y                   # X: Eingabe, Y: Grad
05 FRC                    # Minutenanteil (dezimal/100)
06 100
07 *
08 60
09 /
10 +                      # Grad + Minuten/60 (Dezimalgrad)
11 HMS                    # in HMS-Format wandeln
12 RTN