add values example

1 files changed, 35 insertions, 0 deletions

diff --git a/Values/values.b b/Values/values.b
new file mode 100644
index 0000000..a3732d6
--- /dev/null
+++ b/Values/values.b
@@ -0,0 +1,35 @@
+implement Values;
+
+include "sys.m";
+include "draw.m";
+
+sys: Sys;
+print, sprint: import sys;
+
+Values: 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;
+
+	n := 7;
+	b := big 8;
+	f := real 3.2;
+	str := "String!";
+
+	print("%d\n", 0 || 1);
+	print("%d\n", 0 && 1);
+
+	print("%d\n", n / int f);
+	print("%f\n", real n / f);
+	print("%bd\n", b / big 8);
+
+	print("%s\n", str[:len str-1]);
+	print("%s\n", str[2:]);
+
+	print("%s", "inferno " + "os " + sprint("%c", '\n'));
+	print("limbo" + " " + "lang\n");
+
+	exit;
+}