prog8/examples/test.p8

%import syslib
; %import graphics
%import textio
%import floats
%zeropage basicsafe


main {

    sub start()  {

        byte bb= -22
        ubyte ubb = 22
        word ww= -2222
        uword uww = 2222
        float ff = -2.2

        repeat(25)
            txt.chrout('\n')

        if bb < -1 {
            txt.print("ok 1\n")
        } else {
            txt.print("fail 1\n")
        }

        if bb < -99 {
            txt.print("fail 2\n")
        } else {
            txt.print("ok 2\n")
        }

        if bb < -22 {
            txt.print("fail 2a\n")
        } else {
            txt.print("ok 2a\n")
        }

        if bb<0 {
            txt.print("ok 2b\n")
        } else {
            txt.print("fail 2b\n")
        }

        if ww < -1 {
            txt.print("ok 3\n")
        } else {
            txt.print("fail 3\n")
        }

        if ww < -9999 {
            txt.print("fail 4\n")
        } else {
            txt.print("ok 4\n")
        }

        if ww < -2222 {
            txt.print("fail 4a\n")
        } else {
            txt.print("ok 4a\n")
        }

        if ww < 0 {
            txt.print("ok 4b\n")
        } else {
            txt.print("fail 4b\n")
        }

        if ff < -1.0 {
            txt.print("ok 4c\n")
        } else {
            txt.print("fail 4c\n")
        }

        if ff < -9999.9 {
            txt.print("fail 4d\n")
        } else {
            txt.print("ok 4d\n")
        }

        if ff < 0.0 {
            txt.print("ok 4e\n")
        } else {
            txt.print("fail 4e\n")
        }

        if ff < -2.2 {
            txt.print("fail 4e2\n")
        } else {
            txt.print("ok 4e2\n")
        }

        if ubb < 100 {
            txt.print("ok 4f\n")
        } else {
            txt.print("fail 4f\n")
        }

        if ubb < 2 {
            txt.print("fail 4g\n")
        } else {
            txt.print("ok 4g\n")
        }

        if ubb<0 {
            txt.print("fail 4h\n")
        } else {
            txt.print("ok 4h\n")
        }

        if ubb<22 {
            txt.print("fail 4h2\n")
        } else {
            txt.print("ok 4h2\n")
        }

        if uww < 10000 {
            txt.print("ok 4i\n")
        } else {
            txt.print("fail 4i\n")
        }

        if uww < 2 {
            txt.print("fail 4j\n")
        } else {
            txt.print("ok 4j\n")
        }

        if uww < 0 {
            txt.print("fail 4k\n")
        } else {
            txt.print("ok 4k\n")
        }

        if uww < 2222 {
            txt.print("fail 4l\n")
        } else {
            txt.print("ok 4l\n")
        }



        txt.chrout('\n')



        if bb > -99 {
            txt.print("ok 5\n")
        } else {
            txt.print("fail 5\n")
        }

        if bb > -1 {
            txt.print("fail 6\n")
        } else {
            txt.print("ok 6\n")
        }

        if bb > 0 {
            txt.print("fail 6b\n")
        } else {
            txt.print("ok 6b\n")
        }

        if bb > 22 {
            txt.print("fail 6c\n")
        } else {
            txt.print("ok 6c\n")
        }

        if ww > -9999 {
            txt.print("ok 7\n")
        } else {
            txt.print("fail 7\n")
        }

        if ww > -1 {
            txt.print("fail 8\n")
        } else {
            txt.print("ok 8\n")
        }

        if ww>0 {
            txt.print("fail 8b\n")
        } else {
            txt.print("ok 8b\n")
        }

        if ww>-2222 {
            txt.print("fail 8b2\n")
        } else {
            txt.print("ok 8b2\n")
        }

        if ff > -1.0 {
            txt.print("fail 8c\n")
        } else {
            txt.print("ok 8c\n")
        }

        if ff > -9999.9 {
            txt.print("ok 8d\n")
        } else {
            txt.print("fail 8d\n")
        }

        if ff > 0.0 {
            txt.print("fail 8e\n")
        } else {
            txt.print("ok 8e\n")
        }

        if ff > -2.2 {
            txt.print("fail 8e2\n")
        } else {
            txt.print("ok 8e2\n")
        }

        if ubb > 5 {
            txt.print("ok 8f\n")
        } else {
            txt.print("fail 8f\n")
        }

        if ubb > 250 {
            txt.print("fail 8g\n")
        } else {
            txt.print("ok 8g\n")
        }

        if ubb > 0 {
            txt.print("ok 8h\n")
        } else {
            txt.print("fail 8h\n")
        }

        if ubb > 22 {
            txt.print("fail 8h2\n")
        } else {
            txt.print("ok 8h2\n")
        }

        if uww > 5 {
            txt.print("ok 8i\n")
        } else {
            txt.print("fail 8i\n")
        }

        if uww > 9999 {
            txt.print("fail 8j\n")
        } else {
            txt.print("ok 8j\n")
        }

        if uww>0 {
            txt.print("ok 8k\n")
        } else {
            txt.print("fail 8k\n")
        }

        if uww>2222 {
            txt.print("fail 8l\n")
        } else {
            txt.print("ok 8l\n")
        }

        ; @($c000) *= 99        ; TODO implement

    }
}