prog8/examples/test.p8

%import c64lib
%import c64utils
%import c64flt
%zeropage dontuse

main {

    sub start() {
            ubyte ubarr = max([10,0,2,8,5,4,3,9])
            uword uwarr = max([1000,0,200,8000,50,40000,3,900])
            byte barr = max([-10,0,-2,8,5,4,-3,9])
            word warr = max([-1000,0,-200,8000,50,2000,3,-900])
            float flarr = max([-2.2, 1.1, 3.3, 0.0])

            ubarr = min([10,0,2,8,5,4,3,9])
            uwarr = min([1000,0,200,8000,50,40000,3,900])
            barr = min([-10,0,-2,8,5,4,-3,9])
            warr = min([-1000,0,-200,8000,50,2000,3,-900])
            flarr = min([-2.2, 1.1, 3.3, 0.0])

            uwarr = sum([10,0,2,8,5,4,3,9])
            uwarr = sum([1000,0,200,8000,50,40000,3,900])
            warr = sum([-10,0,-2,8,5,4,-3,9])
            warr = sum([-1000,0,-200,8000,50,2000,3,-900])
            flarr = sum([-2.2, 1.1, 3.3, 0.0])

            ubarr = any([10,0,2,8,5,4,3,9])
            ubarr = any([1000,0,200,8000,50,40000,3,900])
            ubarr = any([-10,0,-2,8,5,4,-3,9])
            ubarr = any([-1000,0,-200,8000,50,2000,3,-900])
            ubarr = any([-2.2, 1.1, 3.3, 0.0])

            ubarr = all([10,0,2,8,5,4,3,9])
            ubarr = all([1000,0,200,8000,50,40000,3,900])
            ubarr = all([-10,0,-2,8,5,4,-3,9])
            ubarr = all([-1000,0,-200,8000,50,2000,3,-900])
            ubarr = all([-2.2, 1.1, 3.3, 0.0])

            ubarr = len([10,0,2,8,5,4,3,9])
            A = len([1000,0,200,8000,50,40000,3,900])
            ubarr = len([-10,0,-2,8,5,4,-3,9])
            A = len([-1000,0,-200,8000,50,2000,3,-900])
            ubarr = len([-2.2, 1.1, 3.3, 0.0])


;        ubyte[] uba = sort([10,0,2,8,5,4,3,9])
;        uword[] uwa = sort([1000,0,200,8000,50,40000,3,900])
;        byte[] ba = sort([-10,0,-2,8,5,4,-3,9])
;        word[] wa = sort([-1000,0,-200,8000,50,40000,3,-900])
;        float[] fla = sort([-2.2, 1.1, 3.3, 0.0])



    }
}