prog8/examples/test.p8

%import textio
%import floats
%zeropage basicsafe
%option no_sysinit

main {
    sub start() {
        word[3] @split @shared array = [1111,$10ff,3333]

        txt.print_w(array[1])
        txt.nl()
        txt.print_w(-array[1])
        txt.nl()
        array[1] = -array[1]
        txt.print_w(array[1])
        txt.nl()
        txt.nl()

        ubyte @shared idx = 1
        txt.print_w(array[idx])
        txt.nl()
        txt.print_w(-array[idx])
        txt.nl()
        array[idx] = -array[idx]
        txt.print_w(array[idx])
        txt.nl()


;        ubyte @shared xx
;        uword[3] ubarr
;        bool[3] barr
;        float[3] flarr
;        bool @shared bb
;
;        ubarr[1] = ubarr[1] < 2
;        ubarr[1] = ubarr[1] <= 2
;        ubarr[1] = ubarr[1] > 3
;        ubarr[1] = ubarr[1] >= 3
;
;        barr[1] = barr[0] and barr[2]
;        barr[1] = barr[0] or barr[2]
;        barr[1] = barr[0] xor barr[2]
;        barr[1] = not barr[0]
;
;        ubarr[1] = 999
;        ubarr[1] = ubarr[1]==999
;        txt.print_uw(ubarr[1])
;
;        barr[1] = barr[1] and bb
;        barr[1] = barr[1] or bb
;        barr[1] = barr[1] xor bb
;
;        bb = bb and barr[1]
;        bb = bb or barr[1]
;        bb = bb xor barr[1]
;        bb = not bb
    }
}