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