Diferencia de dos angulos. Programa en Basic

cls
print "calculo de la diferencia en grados de dos"

print "angulos dados en signos, grados y minutos."
print "__________________________________________"
input "primer  dato ssggmm (ejemplo 010316)";d1$
input "segundo dato ssggmm (ejemplo 100105)";d2$
dife#=fn sg#(d1$)-fn sg#(d2$)
print "La diferencia es de ";dife#;" grados"




def fnsg#(a$)
  fn sg#=30*(val(left$(a$,2))-1)+val(mid$(a$,3,2))+val((right$(a$,2)))/60
end def