mirror of https://git.sr.ht/~rabbits/uxn
You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
14 lines
325 B
14 lines
325 B
|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
|
|
|