blob: 2868ec74efe6dad9f69c497b1c5d7e09690c4daf (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
|
implement Const;
include "sys.m";
include "draw.m";
sys: Sys;
print: import sys;
Const: module {
init: fn(nil: ref Draw->Context, nil: list of string);
};
n: con 7;
Red, Green, Blue: con iota;
init(nil: ref Draw->Context, nil: list of string) {
sys = load Sys Sys->PATH;
s: con "Limbo";
print(string n + "\n");
print("Red: %d Green: %d Blue: %d\n", Red, Green, Blue);
print(s + "\n");
exit;
}
|
