15 lines
325 B
Tal
15 lines
325 B
Tal
|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
|