24 lines
456 B
Plaintext
24 lines
456 B
Plaintext
implement CountToInfinity;
|
|
|
|
include "sys.m"; sys: Sys;
|
|
include "draw.m";
|
|
include "ipints.m"; ipints: IPints;
|
|
IPint: import ipints;
|
|
|
|
CountToInfinity: module {
|
|
init: fn(nil: ref Draw->Context, nil: list of string);
|
|
};
|
|
|
|
init(nil: ref Draw->Context, nil: list of string)
|
|
{
|
|
sys = load Sys Sys->PATH;
|
|
ipints = load IPints IPints->PATH;
|
|
|
|
i := IPint.inttoip(0);
|
|
one := IPint.inttoip(1);
|
|
for(;;) {
|
|
sys->print("%s\n", i.iptostr(10));
|
|
i = i.add(one);
|
|
}
|
|
}
|