prog8/examples/test.p8

%import c64lib
%import c64utils
%import c64flt
%zeropage basicsafe

main {

    sub start() {

        ubyte[] arr1=[11,22,33]
        uword[] array=[1111 ,2222,3333]
        float[] farr = [1.111, 2.222, 3.333]

        ubyte ub
        uword uw
        float ff
        ubyte i = 1

        arr1[i] = ub
        array[i] = uw
        farr[2] = 3.15
        farr[2] = ff
        farr[i] = ff
        c64flt.print_f(farr[1])
        c64.CHROUT('\n')

;        c64scr.print_ub(arr1[1])
;        c64.CHROUT('\n')
;        arr1 [i] ++
;        c64scr.print_ub(arr1[1])
;        c64.CHROUT('\n')
;
;        c64scr.print_uw(array[1])
;        c64.CHROUT('\n')
;        array[i] ++
;        c64scr.print_uw(array[1])
;        c64.CHROUT('\n')
;
;        c64flt.print_f(farr[1])
;        c64.CHROUT('\n')
;        farr[i] ++
;        c64flt.print_f(farr[1])
;        c64.CHROUT('\n')
    }
}