prog8/examples/test.p8

62 lines
1.1 KiB
Plaintext
Raw Normal View History

%import textio
%zeropage basicsafe
2022-03-13 11:52:12 +00:00
main {
2022-06-08 19:05:03 +00:00
2022-07-04 21:42:49 +00:00
sub value(word input) -> word {
return input-999
}
sub boolfunc(bool data) -> bool {
return not data
}
sub start() {
2022-07-04 21:42:49 +00:00
ubyte ubb
if ubb and 10
ubb++
bool b1 = 1
bool b2 = 0
bool b3 = true
bool b4 = false
bool bb5 = -99
bool bb6 = 123
txt.print_ub(b1)
txt.spc()
txt.print_ub(b2)
txt.spc()
txt.print_ub(b3)
txt.spc()
txt.print_ub(b4)
txt.spc()
txt.print_b(bb5)
txt.spc()
txt.print_b(bb6)
txt.nl()
b1 = value(99) as bool
txt.print_ub(b1) ; should be 1
txt.spc()
txt.print_ub(value(99) as ubyte) ; should be 124
txt.spc()
txt.print_ub(value(99) as bool) ; should be 1
txt.nl()
txt.print_ub(boolfunc(true))
txt.spc()
txt.print_ub(boolfunc(false))
txt.nl()
ubb = ubb != 0
ubb++
ubb = bb6 != 0
txt.print_ub(ubb)
txt.nl()
2022-06-29 20:19:44 +00:00
}
2022-02-17 23:40:31 +00:00
}