summaryrefslogtreecommitdiff
path: root/programs/hms2dms.lst
blob: 814504008230b4c49210bd7e0895a584a5a1f4d9 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
# hms -> dms (Eingabe: Grad.MMSS im HMS-Format; Ausgabe: Grad.MinutenDez)
# Beispiel: Eingabe 50.3030 (50°30'30'') -> 50.3050 (für weitere DMS-Rechnungen)
# ist mit ASN HMS2DMS auf X^2 gemappt im User mode

01 LBL HMS2DMS
02 HR                     # HMS -> Dezimalgrad
03 ENTER↑                 # duplizieren
04 INT                    # Grad
05 X<>Y                   # X: Dezimalgrad, Y: Grad
06 FRC                    # Bruchteil der Dezimalgrad
07 60
08 *
09 100
10 /
11 X<>Y                   # X: Grad, Y: Minuten/100
12 +
13 RTN