Перевод углов в градусы, минуты, секунды и обратно (BAS)

CLS

PRINT "Введите через запятую:  <угол>, <минуты>, <секунды>";
INPUT a, b, c
PRINT "Перевод: "; a; b; c; ToGrad(a, b, c)
PRINT

PRINT "Введите <угол>";
INPUT a
ToGrMinSec a
GradMin a

SUB GradMin (a)
  g = INT(a)
  m = (a - g) * 60
  PRINT "Перевод: "; a; g; m
END SUB

FUNCTION ToGrad (g, m, s)
  ToGrad = g + m / 60 + s / 3600
END FUNCTION

SUB ToGrMinSec (a)
  g = INT(a)
  m = INT((a - g) * 60)
  s = INT(((a - g) * 60 - m) * 60)
  PRINT "Перевод: "; a; g; m; s
END SUB