27 lines
400 B
TypeScript
27 lines
400 B
TypeScript
VAR global : INT;
|
|
|
|
# OBJ timer : "/sys/timer";
|
|
# OBJ heap : "/sys/malloc";
|
|
# OBJ interrupts : "/sys/interrupt";
|
|
|
|
PUB main() | i : INT, str : TEXT
|
|
BEGIN
|
|
0 -> i;
|
|
"Hello " -> str;
|
|
printStr(str + "World!");
|
|
WHILE ((i + 1) -> i) <= fun() DO
|
|
BEGIN
|
|
hlp(i, fun() - i);
|
|
sleep(2);
|
|
END
|
|
END
|
|
|
|
PRI hlp(i : INT, j : INT)
|
|
BEGIN
|
|
print2Int(i, j);
|
|
END
|
|
|
|
PUB fun() -> i : INT
|
|
BEGIN
|
|
60 -> i;
|
|
END
|