24 lines
341 B
Plaintext
24 lines
341 B
Plaintext
implement Command;
|
|
|
|
include "sys.m";
|
|
sys: Sys;
|
|
|
|
include "draw.m";
|
|
|
|
include "sh.m";
|
|
|
|
init(nil: ref Draw->Context, nil: list of string)
|
|
{
|
|
sys = load Sys Sys->PATH;
|
|
|
|
a := array[] of {1, 2};
|
|
b := array[] of {3, 4, 5};
|
|
|
|
c := array[len a + len b] of int;
|
|
c[:] = a;
|
|
c[len a:] = b;
|
|
|
|
for (i := 0; i < len c; i++)
|
|
sys->print("%d\n", c[i]);
|
|
}
|