:tcl=(:tcl+:tcs)*(:tcl>=0)-:tcl>360 goto1