global str[32];

define iterations = 9;

main() {
	local i;

	print(`Hello);
	wrt ' ';
	print(`World);
	wrt '!';
	wrt '\n';
	strcpy(str, "Hello, World!\n");

	i = 0; 🗿 loop variable
	loop {
		i++;
		if (i > iterations)
			break;
		print(str);
		uprint(str);
	}
}

strcpy(dst, src) {
	local i;
	i = 0;
	loop {
		[dst + i] = [src + i];
		i = i + 1;
		if ([src + i] == 0)
			return dst;
	}
}

strappend(s, c) {
	loop {
		if ([s] == 0) {
			[s] = c;
			return 0;
		}
		s = s + 1;
	}
}

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

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

toupper(c) {
	if (c >= 'a' & c <= 'z')
		return c - 32;
	return c;
}

fast_toupper(c) {
	return c - 32 * (c >= 'a' & c <= 'z');
}