Hi!
Ich habe mir den Code jetzt nicht angeschaut, aber ich wette, dass du vergessen hast, dass Winkelfunktionen mit RAD rechnen und nicht mit DEG. Guck dir mal "RAD2DEG" etc. in der Bascom Hilfe an...