'#sec:Main '' turns.bas '' 13/02/2002 cls input"TAS";tas input"Bank Angle";aob rateone=57.3*atan(tas/362.1) feet=tas^2/(11.23*tan(.01745*aob)) metres=feet*2.54*12/100 rate=96.7*tas/feet acc=1/cos(aob/(180/pi)) nmile=round(metres*.539612/1000,1) rateone=round(rateone) feet=round(feet) metres=round(metres) rate=round(rate,1) rateone=round(rateone,1) acc=round(acc,1) cls locate 3,1 ?"TAS" ?"Bank Angle" ?"Rate One " ?"Diameter" ? ?"Rate of Turn" ?"Accelleration" locate 3,15 ?tas locate 4,15 ?aob;" deg" locate 5,15 ?rateone;" deg" locate 6,15 ?feet*2;" ft ";metres*2;" M" locate 7,15 ?nmile*2;" nm" locate 8,15 ?rate;" deg/sec" locate 9,15 ?acc;"G" pause 30'