Code Sample (Clarion For Windows)
Absmax PROCEDURE(LONG a, *LONG OutMaxX, *LONG OutMaxY),LONG ! The absolute greatest element of the matrix is returned to caller as are its positions ! Call by address is done with the * similar to C x LONG,AUTO ! Loop variable y LONG,AUTO ! Loop variable m LONG(0) ! Maximum return value CODE OutMaxX = 1 OutMaxY = 1 LOOP x = 1 TO MAXIMUM(a,1) LOOP y = 1 TO MAXIMUM(a,2) IF ABS(a) > m m = ABS(a) OutMaxX = x OutMaxY = y END END END RETURN mJ Int = 0 z Int j=j+1 z=show(5,5,j) Return z Print z
Read more about this topic: Clarion (programming Language)
Famous quotes containing the words code and/or sample:
“...I had grown up in a world that was dominated by immature age. Not by vigorous immaturity, but by immaturity that was old and tired and prudent, that loved ritual and rubric, and was utterly wanting in curiosity about the new and the strange. Its era has passed away, and the world it made has crumbled around us. Its finest creation, a code of manners, has been ridiculed and discarded.”
—Ellen Glasgow (1873–1945)
“All that a city will ever allow you is an angle on it—an oblique, indirect sample of what it contains, or what passes through it; a point of view.”
—Peter Conrad (b. 1948)