file.cat.tal (325B)
1 |a0 @File &vector $2 &success $2 &stat $2 &delete $1 &append $1 &name $2 &length $2 &read $2 &write $2 2 3 |0100 4 5 @on-reset ( -> ) 6 ;filename .File/name DEO2 7 #0001 .File/length DEO2 8 &while ( -- ) 9 ;&byte .File/read DEO2 10 .File/success DEI2 ORA ?{ #010f DEO BRK } 11 [ LIT2 &byte $1 18 ] DEO 12 !&while 13 14 @filename "cat.tal $1