diff options
Diffstat (limited to 'programs/half_hms.lst')
| -rw-r--r-- | programs/half_hms.lst | 10 |
1 files changed, 10 insertions, 0 deletions
diff --git a/programs/half_hms.lst b/programs/half_hms.lst new file mode 100644 index 0000000..29e6e08 --- /dev/null +++ b/programs/half_hms.lst @@ -0,0 +1,10 @@ +# half_hms: teilt einen Winkel im HMS-Format durch 2 +# Eingabe: X enthält Grad.MMSS (HMS) +# Ausgabe: X enthält (Grad.MMSS)/2 (HMS) + +01 LBL HALF +02 HR # HMS -> Dezimalgrad +03 2 +04 / +05 HMS # zurück in HMS +06 RTN |