From 8dd389a5f7db1c8ef9e60d900104fef99f25645f Mon Sep 17 00:00:00 2001
From: Leo Tenenbaum <pommicket@gmail.com>
Date: Fri, 3 Jul 2020 18:49:28 -0400
Subject: io is working but slow

---
 test.toc | 23 ++++++++++++++++++++---
 1 file changed, 20 insertions(+), 3 deletions(-)

(limited to 'test.toc')

diff --git a/test.toc b/test.toc
index d79f526..8523940 100644
--- a/test.toc
+++ b/test.toc
@@ -1,5 +1,22 @@
-f();
+#include "std/io.toc", io;
+#include "std/base.toc", base;
 
-f ::= fn( ) int {
-	return 3;
+main ::= fn() {
+	file, err := io.fopen_write("test.txt");
+	if err {
+		base.error("Couldn't open file!");
+	}
+	io.fputs(file, "This file has some stuff in it.");
+	io.puts("Hello!");
+	io.puts("yes");
+	io.fputs(file, "here is more stuff for the file.");
+	for i := 1..1000 {
+		io.fwrites(file, "Here's a line in the file");
+		for j := 1..i {
+			io.fwrites(file, "!");
+		}
+		io.fwrites(file, "\n");
+	}
+	io.fclose(file);
 }
+main();
-- 
cgit v1.2.3