uxn

commit 9da44f52d492f7c9296ea6b703c6b07a3ff433fc
parent 3fa01a63d8b427c2e84c37753b9ed6ed254c46ff
Author: Devine Lu Linvega <aliceffekt@gmail.com>
Date:   Wed, 14 Feb 2024 15:17:08 -0800

Added system.cat example

Diffstat:
A
projects/examples/devices/file.cat.tal
 | 
14
++++++++++++++

1 file changed, 14 insertions(+), 0 deletions(-)
diff --git a/projects/examples/devices/file.cat.tal 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