summaryrefslogtreecommitdiff
path: root/samples/helloworld.golem
blob: 5dbc6b5a73f7bf14ca2acfb9526665a443ee257b (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
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
global str[32];
global str_i = 0;

main() {
	local i;

	strappend('H');
	strappend('e');
	strappend('l');
	strappend('l');
	strappend('o');
	strappend(' ');
	strappend('W');
	strappend('o');
	strappend('r');
	strappend('l');
	strappend('d');
	strappend('!');

	i = 0;
	loop {
		i = i + 1;
		if (i > 9)
			break;
		print(str);
		nl();
	}
}

strappend(c) {
	[str+str_i] = c;
	str_i = str_i + 1;
}

print(s)
	loop {
		if ([s] == 0)
			return 0;
		wrt [s];
		s = s + 1;
	}

nl()
	wrt '\n';