Rem Sin:Double( x:Double ) End Rem for d=0 to 360 step 45 print "Sin("+d+")="+sin(d) next