28 lines
544 B
Plaintext
28 lines
544 B
Plaintext
( put$("This is
|
|
a three line
|
|
text","test.txt",NEW)
|
|
& fil$("test.txt",r)
|
|
& fil$(,STR," \t\r\n")
|
|
& 0:?linenr
|
|
& whl
|
|
' ( fil$:(?line.?breakchar)
|
|
& put
|
|
$ ( str
|
|
$ ( "breakchar:"
|
|
( !breakchar:" "&SP
|
|
| !breakchar:\t&"\\t"
|
|
| !breakchar:\r&"\\r"
|
|
| !breakchar:\n&"\\n"
|
|
| !breakchar:&EOF
|
|
)
|
|
", word "
|
|
(1+!linenr:?linenr)
|
|
":"
|
|
!line
|
|
\n
|
|
)
|
|
)
|
|
)
|
|
& (fil$(,SET,-1)|out$"file closed")
|
|
);
|