prog8/examples/test.p8

%import textio

main {

    sub start() {
        ubyte xx=10

        txt.print("if\n")
        if xx-2 {
            txt.print("in if\n")
        }

        txt.print("\nwhile\n")
        xx=6
        while xx-2 {
            xx--
            txt.print_ub(xx)
            txt.spc()
        }

        txt.print("\nuntil\n")
        xx=2
        do {
            xx++
            txt.print_ub(xx)
            txt.spc()
        } until xx+2==10
        txt.print("\ndone")

        repeat {
        }
    }


;    if not iteration_in_progress or not num_bytes
;        return

;    word xx=0
;    word[] xarr = [1,2,3]
;    ubyte ai
;
;    if not @($c000) {
;        txt.print("xx is zero\n")
;    }
;
;    while not xarr[ai] {
;        xx ++
;    }
;
;    do {
;        xx--
;    } until not xarr[ai]
;
;    if not xarr[ai] {
;        txt.print("xx is zero\n")
;    }

;    ubyte yy=$30
;    ubyte zz=9
;    sys.memset(xx+200, yy*2, ~yy)
;
;
;    if yy & %10000 {
;        yy++
;    }
;
;    @($c030) = 10
;    @(~xx) *= 2
;    txt.print_ub(@($c030))
;
;    float f1 = 1111.11
;    float f2 = 2222.22
;    float[] fa = [2222.22, 3333.33]
;
;    swap(f1, fa[1])
;    floats.print_f(f1)
;    txt.nl()
;    floats.print_f(fa[1])

}