17 lines
522 B
Forth
17 lines
522 B
Forth
|
1024 constant max-Line
|
||
|
|
char > constant marker
|
||
|
|
|
||
|
|
: read-lines begin pad max-line >r over r> swap
|
||
|
|
read-line throw
|
||
|
|
while pad dup c@ marker =
|
||
|
|
if cr 1+ swap type ." : "
|
||
|
|
else swap type
|
||
|
|
then
|
||
|
|
repeat drop ;
|
||
|
|
|
||
|
|
: Test s" ./FASTA.txt" r/o open-file throw
|
||
|
|
read-lines
|
||
|
|
close-file throw
|
||
|
|
cr ;
|
||
|
|
Test
|