1 files changed, 17 insertions, 0 deletions
diff --git a/programs/hms2dms.lst b/programs/hms2dms.lst
new file mode 100644
index 0000000..8145040
--- /dev/null
+++ b/programs/hms2dms.lst
@@ -0,0 +1,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