Okay, you #ATS fans, whom I know to be plentiful! Here is the #RosettaCode task for drawing antialiased straight lines, done in ATS:

https://rosettacode.org/wiki/Xiaolin_Wu's_line_algorithm#ATS

#ATSlang #FunctionalProgramming #ProceduralProgramming

Finally (at least for today), here is a second #Fortran program:

https://rosettacode.org/wiki/Modular_arithmetic#Program_2

#RosettaCode #ProceduralProgramming

I have added #ObjectIcon --
https://rosettacode.org/wiki/Modular_arithmetic#ObjectIcon

#RosettaCode #ProceduralProgramming

(I will not call this an example of #LogicProgramming, given that I never use goal-direction or failure in any significant way.)

I just keep going. It is a pretty simple task. I did more than was called for, in the #ATS example I did first.

Here is #Fortran --

https://rosettacode.org/wiki/Modular_arithmetic#Fortran

As with the ATS, I use a macro, although the macro system is not as capable as that of ATS.

(I used the C preprocessor. There was once a standard Fortran preprocessor, but it was removed from the standard. Nobody used it. Everyone used the C preprocessor, m4, or some such.)

#RosettaCode #ProceduralProgramming