prog8/compiler/examples/test.p8

%option enable_floats



~ main {

sub start() {
    byte x

    for x in 0 to 20 {
        float xx = sin(flt(x))
        float yy = cos(flt(x))
    }

    while(1) {
        float xx = sin(flt(x))
        float yy = cos(flt(x))
    }

    repeat {
        float xx = sin(flt(x))
        float yy = cos(flt(x))
    } until(1)





;    for x in 0 to 30 {
;        float xx = 2123.33
;        float yy = 2444.55
;        xx = sin(flt(x))
;        yy = cos(flt(x))
;        r = xx*yy
;    }
;
;    for x in 0 to 40 {
;        float xx = 3123.33
;        float yy = 3444.55
;        xx = sin(flt(x))
;        yy = cos(flt(x))
;        r = xx*yy
;    }
    return

}

}