mirror of
https://github.com/irmen/prog8.git
synced 2024-09-11 00:54:31 +00:00
25 lines
454 B
Lua
25 lines
454 B
Lua
%import textio
|
|
|
|
main {
|
|
|
|
sub start() {
|
|
; uword[] routines = [ 0, &command, $4444 ]
|
|
; cx16.r0 = routines[1]
|
|
|
|
&ubyte[5] cells = $4000
|
|
cells = [1,2,3,4,5]
|
|
str name = "irmen"
|
|
|
|
ubyte[5] othercells = [11,22,33,44,55]
|
|
|
|
txt.print_ub(1 in cells)
|
|
txt.print_ub(44 in othercells)
|
|
txt.print_ub('a' in name)
|
|
txt.print_ub('e' in name)
|
|
}
|
|
|
|
sub command() {
|
|
cx16.r0++
|
|
}
|
|
}
|