prog8/examples/test.p8

%import textio
%zeropage basicsafe

main {
    ubyte @shared foo=99
      sub thing(uword rr) {
        ubyte @shared xx = rr[1]    ; should still work as var initializer that will be rewritten
        ubyte @shared yy
        yy = rr[2]
        uword @shared other
        ubyte @shared zz = other[3]
      }
    sub start() {

        txt.print("should print:  10  40  80  20\n")

        ubyte @shared xx
        repeat {
            xx++
            if xx==10
                break
        }
        txt.print_ub(xx)
        txt.nl()

        while xx<50 {
            xx++
            if xx==40
                break
        }
        txt.print_ub(xx)
        txt.nl()

        do {
            xx++
            if xx==80
                break
        } until xx>100
        txt.print_ub(xx)
        txt.nl()

        for xx in 0 to 25 {
            if xx==20
                break
        }
        txt.print_ub(xx)
        txt.nl()
    }
}