mirror of
https://github.com/irmen/prog8.git
synced 2024-09-10 09:54:32 +00:00
271 lines
5.0 KiB
Lua
271 lines
5.0 KiB
Lua
%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
|
|
|
|
}
|
|
}
|