Clarion (programming Language) - Code Sample (Clarion For Windows)

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 m

J 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:

    Wise Draco comes, deep in the midnight roll
    Of black artillery; he comes, though late;
    In code corroborating Calvin’s creed
    And cynic tyrannies of honest kings;
    He comes, nor parlies; and the Town, redeemed,
    Gives thanks devout; nor, being thankful, heeds
    The grimy slur on the Republic’s faith implied,
    Which holds that Man is naturally good,
    And—more—is Nature’s Roman, never to be
    scourged.
    Herman Melville (1819–1891)

    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)