From 9da44f52d492f7c9296ea6b703c6b07a3ff433fc Mon Sep 17 00:00:00 2001
From: Devine Lu Linvega <aliceffekt@gmail.com>
Date: Wed, 14 Feb 2024 15:17:08 -0800
Subject: [PATCH] Added system.cat example

---
 projects/examples/devices/file.cat.tal | 14 ++++++++++++++
 1 file changed, 14 insertions(+)
 create mode 100644 projects/examples/devices/file.cat.tal

diff --git a/projects/examples/devices/file.cat.tal b/projects/examples/devices/file.cat.tal
new file mode 100644
index 0000000..78ad771
--- /dev/null
+++ b/projects/examples/devices/file.cat.tal
@@ -0,0 +1,14 @@
+|a0 @File &vector $2 &success $2 &stat $2 &delete $1 &append $1 &name $2 &length $2 &read $2 &write $2
+
+|0100 
+
+@on-reset ( -> )
+	;filename .File/name DEO2
+	#0001 .File/length DEO2
+	&while ( -- )
+		;&byte .File/read DEO2
+		.File/success DEI2 ORA ?{ #010f DEO BRK }
+		[ LIT2 &byte $1 18 ] DEO
+		!&while
+
+@filename "cat.tal $1