##- # Author: Brian Tiffin # Dedicated to the public domain # # Date: September, 2016 # Modified: 2017-01-05/13:16-0500 ##+ # # rtod.icn, demonstrate radians to degrees # link numbers # uses decipos from numbers, align decimal within field procedure main() write("Radians Degrees") every r := 0 to 2 * &pi by 0.25 do write(decipos(r, 4, 8), decipos(rtod(r), 4, 8)) end