programs/half_hms.lst


1
2
3
4
5
6
7
8
9
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