prog8/examples/test.p8

%import c64utils
;%import c64flt
;%option enable_floats
%zeropage dontuse

main {

    sub start() {
        byte v1
        byte v2

        bla()
        exit(4)
        v1 = 100
        goto start          ; TODO unreachable code warning
        v2 = 127
        A=5
        return

        sub bla () {
            A=99
            bla2()
            exit(99)

            sub bla2 () {
                A=100
                return
                foo.ding()
                foo.ding2()
            }

        }


    }
}

foo {
    ubyte derp=99
    sub ding() {
        A=derp
    }
    sub ding2() {
        A=derp
    }
}