mirror of
https://github.com/irmen/prog8.git
synced 2024-09-10 09:54:32 +00:00
20 lines
271 B
Lua
20 lines
271 B
Lua
%import textio
|
|
%zeropage basicsafe
|
|
|
|
main
|
|
{
|
|
sub start()
|
|
{
|
|
byte zc = -55
|
|
|
|
when zc*3 {
|
|
123 -> zc++
|
|
124 -> zc++
|
|
125 -> zc++
|
|
121 -> zc++
|
|
120 -> zc++
|
|
else -> zc++
|
|
}
|
|
}
|
|
}
|