mirror of
https://github.com/irmen/prog8.git
synced 2025-02-16 22:30:46 +00:00
35 lines
669 B
Lua
35 lines
669 B
Lua
%import textio
|
|
%zeropage basicsafe
|
|
%option no_sysinit
|
|
|
|
main {
|
|
sub start() {
|
|
uword n=0
|
|
uword i
|
|
txt.print("ascending:\n")
|
|
n=10
|
|
for i in 0 to n step 3 {
|
|
cx16.r0++
|
|
txt.print(" i=")
|
|
txt.print_uw(i)
|
|
txt.spc()
|
|
txt.print(" n=")
|
|
txt.print_uw(n)
|
|
txt.nl()
|
|
}
|
|
|
|
txt.print("descending:\n")
|
|
n=0
|
|
for i in 10 downto n step -3 {
|
|
cx16.r0++
|
|
txt.print(" i=")
|
|
txt.print_uw(i)
|
|
txt.spc()
|
|
txt.print(" n=")
|
|
txt.print_uw(n)
|
|
txt.nl()
|
|
}
|
|
}
|
|
}
|
|
|