I use this function to WRAP a value , should be faster than using MOD.
So ..
Would be ..
Function WRAP#( value#,lo#,hi#) If value < lo Then value = hi + ( value - lo ) If value >= hi Then value = lo + ( value - hi ) Return value End Function
So ..
S\SA#=S\SA#-(S\SP#/S\SD#) If S\SA#=360 Or S\SA#=-360 Then S\SA#=0
Would be ..
S\SA#= WRAP( S\SA#-(S\SP#/S\SD#) , 0 , 360 )